19/02/08 05:55:54.77 1ARos5/N0.net
#●にログインする場合はコメントアウト
#$sid=&login($maru_id, $maru_pw);
my $ua = LWP::UserAgent->new;
$ua->agent( 'Mozilla/4.0' );
$ua->timeout('10');
if($url =~ /http:\/\/([a-z0-9]+\.[a-z0-9]+\.[a-z0-9]+)\/test\/read\.cgi\/([a-z0-9]+)\/([0-9]+)\//){
$server=$1;
$bbs=$2;
$key=$3;
}
my %formdata = (
MESSAGE => $message,
mail => $mail,
FROM => $FROM,
sid => $sid,
time => '1',
key => $key,
bbs => $bbs,
den => 'bo',
submit => "",
);