#!/usr/local/bin/perl

$cgi = ($ENV{'GATEWAY_INTERFACE'} =~ /CGI/);
if ($cgi) {
   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
	$page_url = $ENV{'QUERY_STRING'};
   }
   elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
	read(STDIN,$page_url,$ENV{'CONTENT_LENGTH'});
   }
   else {
         &system_error;
   }
}
else {
	$page_url = $ARGV[0];
};


$page_url =~ s/=//;
while( $page_url =~ s/%2F/\// ) { }

open(PAGE, "$page_url" ) || &system_error;
read(PAGE, $page_data, (-s "$page_url") ) || &system_error;
close(PAGE);

print "Content-type: text/html\n\n";
print $page_data;

exit 0;

sub system_error
{
	print "Content-type: text/plain\n\n";
	print "There was an error trying to load that URL.\n\n";
	exit(0);
};