$| = 1;
# Directory to find images in
-my($dir) = "/web/i-scream/nwww/logos";
+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://nwww.i-scream.org/logos";
+my($url) = "https://www.i-scream.org/logos";
# Where the setbg command is
-my($setbg) = "/web/i-scream/nwww.bin/setbg.pl";
+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 = "https://www.i-scream.org/images/ipv6-logo.gif";
+}
+
print "Content-type: text/plain\n\n";
print $imagepath;