#!/usr/bin/perl
$|=1;
$count = 0;
$pid = $$;
$skip = 0;
@exclude = ("10.151.1.132", "10.151.1.154", "10.151.1.131", "10.151.1.100", "10.151.1.156");
while (<>) {
    chomp $_;
    $line = $_;
    if ($line =~ /(\S+)\/-/i) {
        $ip = $1;
        foreach $excludeip (@exclude) {
            if ($excludeip eq $ip) {
                $skip=1;
            }
        }
    }

    # GOATSE THE BASTARD
    if (!$skip) {
        if ($line =~ /(.*\.(jpg|jpeg|png|gif|bmp))/i) {
            $url = $1;
            if ($url =~ /.*\.(.+)/i) {
                $ext = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/squid/temp-$pid-$count.$ext", "$url");
                $output = `/usr/bin/identify /var/www/squid/temp-$pid-$count.$ext 2> /dev/null`;
                if ($output =~ m/^\S+\s+\S+\s+(\d+)x(\d+).+$/) {
                    ($x, $y) = ($1, $2);
                    system("/usr/bin/convert", "/var/www/squid/goatse.jpg", "-resize", $x . "x" . $y . "!", "/var/www/squid/goatse/$pid-$count.$ext");
                    print "http://goatse.fuhell.com/image.php?image=$pid-$count.$ext\n";
                } else {
                    print "$line\n";
                }
            } else {
                print "$line\n";
            }
        } else {
            print "$line\n";
        }
    } else {
        print "$line\n";
    }

    $skip=0;
    $count++;
}