| # | Line 19 | Line 19 | my($imagepath) = `$setbg -r -p \'$pattern\' -b echo -f | |
|---|---|---|
| 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 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |