web/cgi-bin/logo.cgi

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

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

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

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

# Check for IPv6
if($ENV{SERVER_ADDR} =~ /:/) {
        $imagepath = "http://www.i-scream.org/images/ipv6-logo.gif";
}

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

exit 0;
Revision:	1.3
Committed:	Tue Feb 14 22:17:36 2006 UTC (18 years, 9 months ago) by tdb
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+5 -0 lines
Log Message:	Display a different logo if coming in from IPv6. It's not nice, but I don't have a better logo atm :-) Just a bit of fun really...
#	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			# URL to images - must match $dir
12	tdb	1.2	my($url) = "http://www.i-scream.org/logos";
13	tdb	1.1
14			# Where the setbg command is
15	tdb	1.2	my($setbg) = "/web/i-scream/bin/setbg.pl";
16	tdb	1.1
17			# Code...
18			my($imagepath) = `$setbg -r -p \'$pattern\' -b echo -f \' \' $dir`;
19			chomp $imagepath;
20			$imagepath =~ s/$dir/$url/;
21
22	tdb	1.3	# Check for IPv6
23			if($ENV{SERVER_ADDR} =~ /:/) {
24			$imagepath = "http://www.i-scream.org/images/ipv6-logo.gif";
25			}
26
27	tdb	1.1	print "Content-type: text/plain\n\n";
28			print $imagepath;
29
30			exit 0;