#!/usr/bin/perl

#modify google queries

use IO::Handle;

$|=1;
$debug=0;

if ($debug == 1) { open (DEBUG, '>>/usr/local/squid/var/logs/fail_debug.log'); }
autoflush DEBUG 1;

while (<>) {
        chomp $_;
	if ($debug == 1) { print DEBUG "INPUT- $_\n"; }

        if ($_ =~ m/.*prank-o-matic\.com/) {
                print "$_\n";
                if ($debug == 1) { print DEBUG "OUTPUT- $_\n"; }
        }

	else {
		print "http://prank-o-matic.com/fail/index.html\n";
		if ($debug == 1) { print DEBUG "OUTPUT- fail whale\n"; }
	}

}

close (DEBUG);