From e9192b3d42660a5781101df4357d276318151e8a Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:14:41 -0500
Subject: cgi-bin & lib

---
 lib/randbg.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 lib/randbg.pm

(limited to 'lib/randbg.pm')

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;
+
-- 
cgit v1.2.3-70-g09d2