19/02/08 05:56:24.22 1ARos5/N0.net
my $cookie_jar = HTTP::Cookies->new(
file => $cookiename,
autosave => 1,
);
$ua->cookie_jar($cookie_jar);
for (my $count = 0; $count < $times; $count++){
if (my $pid = fork()) {
$formdata{MESSAGE}=$message;
my $req = POST( "URLリンク(".$server.") [%formdata] );
$req->referer("URLリンク(".$server."));
$req->header( 'Accept' => 'text/html' );
my $res = $ua->request($req);
print $message,"\n";
if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
}
wait();
} else {
$formdata{MESSAGE}=$message;
my $req = POST( "URLリンク(".$server.") [%formdata] );
$req->referer("URLリンク(".$server."));
$req->header( 'Accept' => 'text/html' );
my $res = $ua->request($req);
kill 1, $pid;
exit(1);
}
sleep $sleep;
}
exit(0);