#!/usr/bin/perl

#modify google queries

use IO::Handle;

$|=1;
$debug=0;

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

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

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

	elsif ($_ =~ m/.*ytimg\.com/) {
		print "$_\n";
	}

	else {
		print "http://www.youtube.com/watch?v=oHg5SJYRHA0\n";
		if ($debug == 1) { print DEBUG "OUTPUT- fail whale\n"; }
	}

}

close (DEBUG);