web/cgi-bin/logo.jpg

#!/usr/local/bin/perl -w

use strict;
$| = 1;

# Directory to find images in
my($dir) = "/web/i-scream/htdocs/logos";
# Pattern to match images - remember to escape
my($pattern) = "\\.jpg\$";

# Where the setbg command is
my($setbg) = "/web/i-scream/bin/setbg.pl";

# Code...
print "Content-type: image/jpeg\n\n";
exec "$setbg -r -p \'$pattern\' -b cat -f \' \' $dir";
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.
#	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";