☆これでキマリ！いちばんいいCGI串スクリプト！☆

[0009 名無しさん＠お腹いっぱい。 01/12/25 15:06 ID:MHpycg8i]

#!/usr/bin/perl
print "Content-type: text/html\n\n";
my $target=$ENV{'PATH_INFO'} . "?" . $ENV{'QUERY_STRING'};
$target =~ s/^\///;
my $base= "http://$ENV{'SERVER_ADDR'}$ENV{'SCRIPT_NAME'}/";
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)');
my $req = HTTP::Request->new(GET => "$target");
$res = $ua->request($req);
if ($res->is_success) {my $print = $res->content;
$print =~ s/(http\:\/\/)/$base$1/gi;
print $print;} else {print $res->status_line;}