#!/usr/bin/perl -- use CGI; use LWP::UserAgent; my $query = new CGI; my $url = $query->param('url'); #-------------------------------- #■メイン #-------------------------------- print qq|Content-type: text/html\n\n|; print &htmlheader; if (($url ne "")&&($url =~ /www.yourfilehost.com\/media.php/)){ #■接続 my $refere_url="http://analtimes.blog18.fc2.com/"; my $ua = LWP::UserAgent->new; $ua->agent('analtimes/1.0 (compatible; MSIE 6.00; Windows NT 5.0)'); my $request = HTTP::Request->new('GET' , "$url"); $request->header('Referer', $refere_url); my $response = $ua->request($request); $data = $response->content; my $koumon ="DOWNLOAD"; if ( $data =~ /$koumon/ ) { $dlurl = $1; } print"$dlurl
\n"; print "DOWNLOADFILE　対象を右クリ保存とかしてください。（たまにデータ取得に失敗します）"; }else{ &form; } print &htmlfooter; #-------------------------------- #■HTML; #-------------------------------- sub htmlheader{ $printlines = <<"__EOF__"; Yourfilehost DOWNLOAD THIS FILE

Yourfilehost DOWNLOADFILE@Analtimes!!

使い方 えろぐあんてな エログちゃんねる 裏アゲサゲ アナル実験室
__EOF__ return $printlines; } sub form { print qq|
\n|; print qq|\n|; print qq|
\n|; } sub htmlfooter{ $printlines = <<"__EOF__";
うんこが出る穴を追い求める･･･アナルタイムズ!! __EOF__ return $printlines; }