[過去ﾛｸﾞ] ２ｃｈ悪質荒らしのガイドライン２ (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

321: レッツスクリプト荒らし ◆yGAhoNiShI 03/01/08 18:10 ID:3T/6wYJF(1/4) AAS
# Check the outcome of the response
if ($res->is_success) {
if ($res->content =~ /<title>ＥＲＲＯＲ！<\/title>/) {
$ERROR_COUNT++;

my $message = $1 if ($res->content =~ /<font size=\+1 color=\#FF0000><b>(.+)<\/b><\/font><ul>(.+)<\/ul>/);
$message =~ s/<br>/ \- /gi;

my $emes = $message;
jcode::convert(\$emes, $OCODE, 'sjis') if $OCODE ne 'sjis';
if ($DEBUG) { print time_stamp()."Error : $emes\n" }

if ($VERBOSE) {
省12

---

322: レッツスクリプト荒らし ◆yGAhoNiShI 03/01/08 18:11 ID:3T/6wYJF(2/4) AAS
if ($message =~ /(?:連続投稿|書けません)/ or ($EXIT_ERROR_COUNT and $ERROR_COUNT >= $EXIT_ERROR_COUNT)) {
if ($VERBOSE) { print "\n\n".time_stamp()."Exit for $emes\n" }
exit;
}
} elsif ($res->content =~ m{<title>書きこみました。</title>}) {
if ($VERBOSE) { print "." }
elsif ($DEBUG) { print time_stamp()."Succeeded.\n" }
} else {
if ($VERBOSE) { print "*" }
elsif ($DEBUG) { print time_stamp()."Proxy Error.\n" }
省6

---

323: レッツスクリプト荒らし ◆yGAhoNiShI 03/01/08 18:11 ID:3T/6wYJF(3/4) AAS
# post bbs
sub post_bbs {
my ($bbs) = @_;
my ($i, $threadref, $thread) = (0);

disp_list();

$threadref = download_subback_html("http://$SERVER/$bbs/subback.html");

foreach $thread (@$threadref) {
my $start = time;
$BODY = $BODY[$i%($#BODY+1)] if $RAND;
if ($VERBOSE) {
省13

---

324: レッツスクリプト荒らし ◆yGAhoNiShI 03/01/08 18:11 ID:3T/6wYJF(4/4) AAS
my $wait = $WAIT - time + $start;
if ($wait > 0) {
if ($DEBUG) { print time_stamp()."Sleeping $wait sec... " }
select(undef, undef, undef, $wait);
if ($DEBUG) { print "done.\n" }
}
}

if ($VERBOSE) { print "\n\n" }
if (!$QUIET) {
print time_stamp()."$i messages sent.\n";
省3

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.032s