#!/usr/comp/bin/perl
use LWP::UserAgent;
@pairs = split (/&/, $ENV{'QUERY_STRING'});
# @pairs=split(/&/,$temp);
foreach $item(@pairs)
{
($key,$content)=split(/=/,$item);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;
}
print "Content-type: text/html\n\n";
my $ua = new LWP::UserAgent();
$ua->agent("Mozilla/3.0");
$ua->proxy(['http', 'ftp'] => 'http://proxy.polyu.edu.hk:8181');
my $req = new HTTP::Request("GET" => "$fields{\"pname\"}");
$req->header("Accept" => "text/html");
my $res = $ua->request($req);
if ($res->is_success)
{
@grok = $res->content();
foreach $i (@grok) {
chomp($i);
if (($i =~ /<title>/) || ($i =~ /<TITLE>/)) {
($p1,$c1) = split(/\<title\>/,$i);
($c2,$e1) = split(/\<\/title\>/,$c1);
print $c2;
}
}
}
else
{
print "<HTML>\n";
print "<BODY BGCOLOR=#00FFFF>\n";
print "<CENTER>\n";
print "$fields{pname}</BR>";
print "Error: " . $res->code() . " " . $res->message();
print "</BODY></HTML>";
}