#!/usr/bin/perl
#
use LWP::UserAgent;
use HTTP::Request;
$response_body = "body" ;
$coder = "code" ;
$base = "base" ;
$| = 1 ;
my $ua = new LWP::UserAgent ;
$ua->agent ("kakiko.com check 0.02") ;
$ua->from ("check\@kakiko.com") ;
$ua->timeout (90) ;
##############################################################################
$f0 = "" ;
$f9 = "" ;
$url = $ENV{'QUERY_STRING'} ;
$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$url =~ s/^url=// ;
$urlx = $url ;
$urlx =~ s|(mugi)|$f0$1$f9|gi ;
##############################################################################
&getDoc($url) ;
$body = $response_body ;
$body =~ s//>/gi ;
$body =~ s/\n/
\n/gi ;
$body =~ s|(mugi)|$f0$1$f9|gi ;
$body =~ s|(\/con)|$f0$1$f9|gi ;
$body =~ s|(file:\/\/\/)|$f0$1$f9|gi ;
$body =~ s|(mailto:)|$f0$1$f9|gi ;
##############################################################################
$base =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$base =~ s|(\/con)|$f0$1$f9|gi ;
$base =~ s|(file:\/\/\/)|$f0$1$f9|gi ;
##############################################################################
print "Content-type: text/html\n\n" ;
print <
飛び先のチェック by Kakiko
飛び先のURL
$urlx
code = $coder
base = $base
body =
$body