X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;ds=sidebyside;f=cgi-bin%2Flogo.cgi;h=c1916120d278b03d38ffa82807785fa239f03bde;hb=HEAD;hp=837e1eb147eda5ffbd0222df8bab26cc557b7c6a;hpb=a8233ee6515c3f035580bd7711f9484dbb71fbf8;p=www.i-scream.org.git diff --git a/cgi-bin/logo.cgi b/cgi-bin/logo.cgi index 837e1eb..c191612 100755 --- a/cgi-bin/logo.cgi +++ b/cgi-bin/logo.cgi @@ -4,21 +4,26 @@ use strict; $| = 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;