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