#!/usr/bin/perl # use LWP::UserAgent; use HTTP::Request; $response_body = "body" ; $coder = "code" ; $| = 1 ; my $ua = new LWP::UserAgent ; $ua->agent ("kakiko.com check 0.1") ; $ua->from ("check\@kakiko.com") ; $ua->timeout (90) ; ############################################################################## $f0 = "COLOR=RED SIZE=+2" ; $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)|$1<\/FONT>|gi ; $urlx =~ s|(\/con\/con\/con)|$1<\/FONT>|gi ; $urlx =~ s|(mailto:)|$1<\/FONT>|gi ; $urlx =~ s|(virtualave.net)|$1<\/FONT>|gi ; ############################################################################## &getDoc($url) ; $body = $response_body ; $body =~ s//>/gi ; $body =~ s/\n/
\n/gi ; $body =~ s|(mugi)|$1<\/FONT>|gi ; $body =~ s|(\/con\/con\/con)|$1<\/FONT>|gi ; $body =~ s|(mailto:)|$1<\/FONT>|gi ; $body =~ s|(virtualave.net)|$1<\/FONT>|gi ; ############################################################################## print "Content-type: text/html\n\n" ; print < 飛び先のチェック by Kakiko

飛び先のURL
$urlx

code = $coder
body =
$body EOF exit ; ############################################################################## sub getDoc { $query_string = $_[0] ; my $request = new HTTP::Request "GET", $query_string ; my $response = $ua->request ($request) ; $response_body = $response->content() ; $coder = $response->code() ; } exit; #