#!/usr/bin/perl

#modify google queries

use IO::Handle;

$|=1;
$debug=0;

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

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

        if ($_ =~ m/.*www\.google\.com/) {
		$newurl = $_;
		$newurl =~ s/(q=.+?)&/$1+i+think+my+computer+has+a+virus&/;
		print "$newurl\n";
		if ($debug == 1) { print DEBUG "OUTPUT- $newurl\n"; }
	}

	else {
		print "$_\n";
		if ($debug == 1) { print DEBUG "PASS- $_\n"; }
        }

}

close (DEBUG);