From a8233ee6515c3f035580bd7711f9484dbb71fbf8 Mon Sep 17 00:00:00 2001
From: Tim Bishop <tim@bishnet.net>
Date: Wed, 24 Mar 2004 23:48:57 +0000
Subject: [PATCH] logo.jpg picks an image at random and returns *it* logo.cgi
 picks an image at random and returns the *URL* to it

---
 cgi-bin/logo.cgi | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 cgi-bin/logo.cgi

diff --git a/cgi-bin/logo.cgi b/cgi-bin/logo.cgi
new file mode 100755
index 0000000..837e1eb
--- /dev/null
+++ b/cgi-bin/logo.cgi
@@ -0,0 +1,25 @@
+#!/usr/local/bin/perl -w
+
+use strict;
+$| = 1;
+
+# Directory to find images in
+my($dir) = "/web/i-scream/nwww/logos";
+# Pattern to match images - remember to escape
+my($pattern) = "\\.jpg\$";
+
+# URL to images - must match $dir
+my($url) = "http://nwww.i-scream.org/logos";
+
+# Where the setbg command is
+my($setbg) = "/web/i-scream/nwww.bin/setbg.pl";
+
+# Code...
+my($imagepath) = `$setbg -r -p \'$pattern\' -b echo -f \' \' $dir`;
+chomp $imagepath;
+$imagepath =~ s/$dir/$url/;
+
+print "Content-type: text/plain\n\n";
+print $imagepath;
+
+exit 0;
-- 
2.44.0