#!/usr/bin/perl

use LWP::Simple;
use CGI;                             # load CGI routines
use URI::Escape;		     # Module for encoding escape char in the url.

my $query = new CGI;                        
my $URL = $query->param('url');
my $encodedURL = uri_escape($URL);

$content = get($encodedURL);

print $query->header;


$content =~ s/games/hack/g;
$content =~  s/href="/href="http:\/\/dragon.striatum.org\/cgi-bin\/letmein.cgi?url=$encodedURL\//g;
$content =~ s/img src="/img src="http:\/\/forums.actiongames.co.uk\//g;
$content =~ s/url\("/url\("http:\/\/forums.actiongames.co.uk\//g;
$content =~ s/url\(t/url\(http:\/\/forums.actiongames.co.uk\/t/g;
$content =~ s/action="/action="http:\/\/dragon.striatum.org\/cgi-bin\/letmein.cgi?url=http:\/\/forums.actiongames.co.uk\//g;

print "$content\n";