#!/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) = "https://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 = "https://www.i-scream.org/images/ipv6-logo.gif";
}

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

exit 0;