ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/logo.jpg
Revision: 1.2
Committed: Thu Mar 25 22:48:47 2004 UTC (20 years, 7 months ago) by tdb
Content type: image/jpeg
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +2 -2 lines
Log Message:
Update CGI's to know about new site.

File Contents

# Content
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";