Name: Anonymous 2010-02-21 13:43
#!/usr/bin/perl
#use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $success=0;
while(!$success)
{
$res=$ua->request(POST 'http://sys.4chan.org/b/post',
Content => [resto => '200000000',
name => '',
email => 'noko',
sub => '',
com => 'Im a newfag, please rape my face',
upfile => '',
pwd => 'simple',
mode => 'regist']
);
if ($res->is_success) {
if(length($ARGV[0])>1)
{
print $res->content;
}
$res->content=~m/,no:(\d+)\s/;
my $postnr=$1;
if($postnr=~m/\d+?(\d)\1$/)
{
print "post was ending in doubles PostNr was $postnr\n";
#$success=1;
sleep(40);
}else{
print "post wasn't ending in doubles PostNr was: $postnr\n";
deletePost($postnr);
}
print $res->status_line . "\n";
} else {
print "Error: " . $res->status_line . "\n";
}
}
print "did it!\n";
sub deletePost(){
my $nr=$_[0];
$result=$ua->request(POST 'http://sys.4chan.org/b/imgboard.php',
Content => [$nr => 'delete',
mode => 'usrdel',
pwd => 'simple']
);
print "deleted posting " . $_[0] . "\n";
# print $result->content."\n";
return $result->is_success;
}