web/cgi-bin/logo.cgi

#!/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\$";

# URL to images - must match $dir
my($url) = "http://nwww.i-scream.org/logos";

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

# Code...
my($imagepath) = `$setbg -r -p \'$pattern\' -b echo -f \' \' $dir`;
chomp $imagepath;
$imagepath =~ s/$dir/$url/;

print "Content-type: text/plain\n\n";
print $imagepath;

exit 0;
Revision:	1.1
Committed:	Wed Mar 24 23:48:57 2004 UTC (20 years, 9 months ago) by tdb
Branch:	MAIN
Log Message:	logo.jpg picks an image at random and returns it logo.cgi picks an image at random and returns the URL to it
#	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/nwww/logos";
8	# Pattern to match images - remember to escape
9	my($pattern) = "\\.jpg\$";
10
11	# URL to images - must match $dir
12	my($url) = "http://nwww.i-scream.org/logos";
13
14	# Where the setbg command is
15	my($setbg) = "/web/i-scream/nwww.bin/setbg.pl";
16
17	# Code...
18	my($imagepath) = `$setbg -r -p \'$pattern\' -b echo -f \' \' $dir`;
19	chomp $imagepath;
20	$imagepath =~ s/$dir/$url/;
21
22	print "Content-type: text/plain\n\n";
23	print $imagepath;
24
25	exit 0;