ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/logo.cgi
Revision: 1.3
Committed: Tue Feb 14 22:17:36 2006 UTC (18 years, 5 months ago) by tdb
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +5 -0 lines
Error occurred while calculating annotation data.
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...

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 # URL to images - must match $dir
12 my($url) = "http://www.i-scream.org/logos";
13
14 # Where the setbg command is
15 my($setbg) = "/web/i-scream/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 # Check for IPv6
23 if($ENV{SERVER_ADDR} =~ /:/) {
24 $imagepath = "http://www.i-scream.org/images/ipv6-logo.gif";
25 }
26
27 print "Content-type: text/plain\n\n";
28 print $imagepath;
29
30 exit 0;