Commit new website. The old site is tagged, so this won't change the live

[www.i-scream.org.git] / cgi-bin / logo.jpg

diff --git a/cgi-bin/logo.jpg b/cgi-bin/logo.jpg
new file mode 100755 (executable)
index 0000000..d598438
--- /dev/null
+++ b/cgi-bin/logo.jpg
@@ -0,0 +1,16 @@
+#!/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\$";
+
+# Where the setbg command is
+my($setbg) = "/web/i-scream/nwww.bin/setbg.pl";
+
+# Code...
+print "Content-type: image/jpeg\n\n";
+exec "$setbg -r -p \'$pattern\' -b cat -f \' \' $dir";