#!/usr/bin/perl
#Make sure you have the redirect_program set in squid
#redirect_program /path/to/rrr.pl

$|=1;
#Make sure you set the correct server IP and or path
$server="haxbyjaku.com/rrrproxy";
$count = 0;
$pid = $$;
while (<>) {
        chomp $_;
        if ($_ =~ /(.*\.jpg)/i) {
                $url = $1;
                print "http://$server/rickroll.jpg\n";
}
        elsif ($_ =~ /(.*\.gif)/i) {
                $url = $1;
                print "http://$server/rickroll.gif\n"; 
}
        elsif ($_ =~ /(.*\.swf)/i) {
                $url = $1;
                print "http://$server/rickroll.swf\n";
}
        elsif ($_ =~ /(.*\.mp3)/i) {
                $url = $1;
                print "http://$server/rickroll.mp3\n"
}
        elsif ($_ =~ /(.*\.txt)/i) {
                $url = $1;
                print "http://$server/rickroll.txt\n"
}
#find an active torrent for what you want and download it and uncomment the next 4 lines
#        elsif ($_ =~ /(.*\.torrent)/i) {
#                $url = $1;
#                print "http://$server/rickroll.torrent\n";
#}
        elsif ($_ =~ /(.*\.zip)/i) {
                $url = $1;
                print "http://$server/rickroll.zip\n";
}
        else {
                print "$_\n";;
  	     }
        $count++;
}