cgi-bin & lib

1 files changed, 26 insertions, 0 deletions

diff --git a/lib/randbg.pm b/lib/randbg.pm
new file mode 100644
index 0000000..9f484f1
--- /dev/null
+++ b/lib/randbg.pm
@@ -0,0 +1,26 @@
+# randbg
+#
+# generates a background color within 0x0F of a given hex value.
+#
+#       $bgcolor = randbg(0xfff);
+#             returns [#f0f0f0, #ffffff]
+#       $bgcolor = randbg(0x000);
+#             returns [#000000, #0f0f0f]
+#       $bgcolor = randbg(0x04d);
+#             returns [#0040d0, #0f4fdf]
+
+sub randbg {
+        my $base = shift;
+        my $i = sprintf '%06x' ,
+                 ((0xf00 & $base) * 0x100000 + (int rand 0x10) * 0x010000
+                + (0x0f0 & $base) * 0x001000 + (int rand 0x10) * 0x000100
+                + (0x00f & $base) * 0x000010 + (int rand 0x10) * 0x000001);
+        return $i;
+}
+
+# randbg (0xfff);
+# randbg (0x000);
+# randbg (0x04d);
+
+1;
+