chaskins has asked for the wisdom of the Perl Monks concerning the following question:
Thanks Chris#!/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\/let +mein.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";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Handling cookies
by dws (Chancellor) on Aug 07, 2002 at 08:26 UTC | |
by chaskins (Sexton) on Aug 07, 2002 at 08:45 UTC |