cgi-bin/logo.jpg

   1 #!/usr/local/bin/perl -w
   2
   3 use strict;
   4 $| = 1;
   5
   6 # Directory to find images in
   7 my($dir) = "/web/i-scream/htdocs/logos";
   8 # Pattern to match images - remember to escape
   9 my($pattern) = "\\.jpg\$";
  10
  11 # Where the setbg command is
  12 my($setbg) = "/web/i-scream/bin/setbg.pl";
  13
  14 # Code...
  15 print "Content-type: image/jpeg\n\n";
  16 exec "$setbg -r -p \'$pattern\' -b cat -f \' \' $dir";