【news】ニュース速報運用情報746【ν】

◆BB2C/xRDfM · 2011/03/20(日) 18:44:02.75

ニュース速報
http://hato.2ch.net/news/

前スレ
【news】ニュース速報運用情報745【ν】
http://qb5.2ch.net/test/read.cgi/operate/1300509918/

http://qb5.2ch.net/test/read.cgi/operate/1181680138/387
> 387 名前：ひろゆき＠どうやら管理人 ★[] 投稿日：2007/06/14(木) 19:53:42 ID:???0 (PC) ?S★(1001111)
> ネタスレ・クソスレ・実況は不可
> アニメ、声優などのオタスレも不可
> ゲームはアニメ、声優ネタなら不可
> zip、クレクレ等、偽装スレも不可
> ただし、スレタイの遊びは、エロ、差別、アニメ、声優ネタ以外は許容
>
> 一行ソースでも重要性の高いニュースならOK
> スポーツ、芸能もOK
> アンケートスレはスレタイの遊びの範囲ならOK
> アンケートのために適当なニュースソースを張ってる場合は不可

http://qb5.2ch.net/test/read.cgi/sec2chd/1294305921/782
>782 名前：偽FOX ★[sage] 投稿日：2011/01/14(金) 01:53:40 ID:???0
>ニュー速にアニメ・声優・ゲームスレ立てた●は全部焼くので報告してみてネ

◆関連スレッド
・ニュース速報板＠削除議論
http://qb5.2ch.net/test/read.cgi/sakud/1270997371/
・ニュース速報@運用議論スレ　8.1
http://gimpo.2ch.net/test/read.cgi/dataroom/1181206570/
・【poverty】ニュー速(嫌儲)運用情報
http://qb5.2ch.net/test/read.cgi/operate/1294371764/

◆規制かな？と思ったら
・まだかな、まだかな（書き込み規制リスト）
　http://qb7.2ch.net/_403/madakana.cgi
・ようこそバーボンハウスへ (短期deny規制リスト)
　http://qb7.2ch.net/_403/c403.cgi

◆板別規制組のオアシス
・ニュー速(嫌儲)
http://yuzuru.2ch.net/poverty/
・ニュース実況+
http://yuzuru.2ch.net/liveplus/
・避難所
http://www.bbs2ch.net/news/

p6154-adsao01sappo2-acca.hokkaido.ocn.ne.jp · 2011/03/21(月) 23:26:47.09

if (defined $ENV{PAR_APP_REUSE}) {
warn "Executable was created without the --reusable option. See 'perldoc pp'.\n";
exit(1);
}

my $zip = $PAR::LibCache{$ENV{PAR_PROGNAME}} || Archive::Zip->new(__FILE__);
my $member = eval { $zip->memberNamed('script/bbs.pl') }
or die qq(main.pl: Can't open perl script "script/bbs.pl": No such file or directory ($zip));

# Remove everything but PAR hooks from @INC
my %keep = (
\&PAR::find_par => 1,
\&PAR::find_par_last => 1,
);
my $par_temp_dir = File::Spec->catdir( $ENV{PAR_TEMP} );
@INC =
grep {
exists($keep{$_})
or $_ =~ /^\Q$par_temp_dir\E/;
}
@INC;
PAR::_run_member($member, 1);

p6154-adsao01sappo2-acca.hokkaido.ocn.ne.jp · 2011/03/21(月) 23:27:35.70

sub main {
#書き込み回数
$count = "$comdata{'count'}";
$message = "$comdata{'message'}";
$name = "$comdata{'name'}";
$mail = "$comdata{'mail'}";
$time = "$comdata{'time'}";
#スレURL
$url = "$comdata{'url'}";
if ( $url =~ /^http:\/\//g ) {
$url =~
s/.*http:\/\/(.*?)\/test\/read.cgi\/(.*?)\/(\d*).*/$1<>$2<>$3/g;
}
my ( $server, $bbs, $key ) = split( '<>', $url );
while ($count > 0) {
$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.1; ja; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13');
$ua->cookie_jar(HTTP::Cookies->new(file => "cook.txt", autosave => 1));
$req = POST "http://$server/test/bbs.cgi?guid=ON",
[ bbs => "$bbs", key => "$key", FROM => "$name", mail => "$mail", time => "$nowtime", MESSAGE => "$message", subject => "", kuno => "ichi", sid => "$sid" ];
$req->referer("http://$server/$bbs/");
$res = $ua->request($req);
$po = $res->content;
print $po;
--$count;
print "書き込み完了。$comdata{'time'}秒後、残り$count回書き込みます\n";
sleep($comdata{'time'});
}
exit;
}

p6154-adsao01sappo2-acca.hokkaido.ocn.ne.jp · 2011/03/21(月) 23:28:05.38

sub cook {
#書き込み回数
$count = "$comdata{'count'}";

$message = "$comdata{'message'}";
$name = "$comdata{'name'}";
$mail = "$comdata{'mail'}";

#スレURL
$url = "$comdata{'url'}";
if ( $url =~ /^http:\/\//g ) {
$url =~
s/.*http:\/\/(.*?)\/test\/read.cgi\/(.*?)\/(\d*).*/$1<>$2<>$3/g;
}
my ( $server, $bbs, $key ) = split( '<>', $url );

$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.1; ja; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13');
$ua->cookie_jar(HTTP::Cookies->new(file => "cook.txt", autosave => 1));
$req = POST "http://$server/test/bbs.cgi?guid=ON",
[ bbs => "$bbs", key => "$key", FROM => "$name", mail => "$mail", time => "$nowtime", MESSAGE => "$message", subject => "", kuno => "ichi", sid => "$sid" ];
$req->referer("http://$server/$bbs/");
$res = $ua->request($req);

$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.1; ja; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13');
$ua->cookie_jar(HTTP::Cookies->new(file => "cook.txt", autosave => 1));
$req = POST "http://$server/test/bbs.cgi?guid=ON",
[ bbs => "$bbs", key => "$key", FROM => "$name", mail => "$mail", time => "$nowtime", MESSAGE => "$message", subject => "", kuno => "ichi", sid => "$sid" ];
$req->referer("http://$server/$bbs/");
$res = $ua->request($req);

print "クッキー設置完了。書き込みを開始します。\n";
&main;

exit;
}

**動け動けウゴウゴ２ちゃんねる** · 2011/03/21(月) 23:28:18.86

HAP下さい
東海地震来そうなんで死ぬ前にスレ立てたいです
二度震度3くらいのが来ました

p6154-adsao01sappo2-acca.hokkaido.ocn.ne.jp · 2011/03/21(月) 23:28:27.38

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

#===================================================================
#設定
#===================================================================
$nowtime = time;

#メッセージ
my ($compass,$c_key,$c_value);
$compass = "msg.txt";
if(-e $compass){
open(FILE,$compass);
foreach (<FILE>){
chomp;
($c_key,$c_value) = split /=/;
$comdata{$c_key} = $c_value;
}
close(FILE);
}

$ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.151 Safari/534.16');
$ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' );
$req = POST "https://2chv.tora3.net/futen.cgi",
[ ID => "$comdata{'maruid'}", PW => "$comdata{'marupass'}" ];
$res = $ua->request($req);
$sid = $res->content;
chomp($sid);
$sid =~ s/^SESSION-ID=//g;
open(BBS,">maru.txt");
print BBS $sid;
close(BBS);

my $filename = "cook.txt";
if( -f $filename ) {
#あった時の書き込み回数
print "クッキー確認完了！\n";
print "書き込みを開始します！\n";
&main;
} else {
#ない時の書き込み回数
print "クッキーの情報が存在しません。\n";
print "クッキー取得のため３秒後bbs.cgiにPOSTリクエストを送信します。\n";
sleep(3);
&cook;
}