#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use HTTP::Cookies;

my $url="http://krsw.5ch.net/test/read.cgi/idolmaster/xxxxxxxxxx/"; #URL
my $message=''; #レス
my $mail='sage'; #mail
my $FROM=''; #名前
my $sleep='15'; #間隔(秒)
my $times='500'; #連投回数
my $server;
my $bbs;
my $key;
my $sid;
my $cookiename='cookiexxxxxxxxxxxx.txt';

#●にログインするID,PASSWORD
my $maru_id='**********@************';
my $maru_pw='********';

#●にログインする場合はコメントアウト
#$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         => "",
   );

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( "http://".$server."/test/bbs.cgi", [%formdata] );
$req->referer("http://".$server."/".$bbs."/");
$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( "http://".$server."/test/bbs.cgi", [%formdata] );
$req->referer("http://".$server."/".$bbs."/");
$req->header( 'Accept' => 'text/html' );
my $res = $ua->request($req);
kill 1, $pid;
exit(1);
}
sleep $sleep;
}
exit(0);

sub login {
    my ( $id, $pw ) = @_;
    my $ua    = LWP::UserAgent->new;
    $ua->agent('DOLIB/1.00');
    $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' );
    my $url  = 'https://2chv.tora3.net/futen.cgi';
    my %form = ( 'ID' => $id, 'PW' => $pw );
    my $req  = POST( $url, Content => "ID=$id&PW=$pw" );
    my $res  = $ua->request($req);
    my $sid  = $res->content;
    chomp($sid);
    $sid =~ s/^SESSION-ID=//g;
    print $sid,"\n";
    return $sid;
}