■　もちつけ2.0

壺からきました
インターネット始めたばかりでよくわかりませんが
ポストにすればいいってどうゆう意味でしょうか？
赤いポストの事？

ファミリーベーシックならコンテスト入賞経験アリです！
ぴゅう太の日本語ＢＡＳＩＣもＯＫです！！

音響カプラも持ってますが、ちからになれるでしょうか？

＞HTTP::Request->new('GET', $host . $path);

$pathじゃなくてHTTP::Headers->new(追加ヘッダー)の返す値で、第4パラメータがフォームデータをＵＲＬエンコードしたやつ


ＦＯＸがキライなＯＣＮユーザより

>>900
ダメ。%pmは配列じゃない。
こう。
$pm['a'] = "1";
$pm['b'] = "2";
$pm['c'] = "3";
コレ以降は自分で考えましょう

>>903
誘導
http://www.bbs2ch.net/ocn/

カッコを間違えた。
こう
$pm{'a'} = "1";
$pm{'b'} = "2";
$pm{'c'} = "3";

>>904
おー

やってみよー、そうしよう。

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);

my $request = HTTP::Request->new(POST => $host); #ここで POST 処理
$request->content_type('application/x-www-form-urlencoded');
$request->content($path);

my $response = $ua->request($request) ;
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

スクリプト完成かな？かな？

my(%pm, $ua, $request) = () ;
my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
$pm{'srv'} = $ENV{'SERVER_NAME'} ;
$pm{'tane'} = $GB->{IDNOTANE} ;
$pm{'ua'} = $ENV{'HTTP_USER_AGENT'} ;
$pm{'subject'} = $GB->{FORM}->{'subject'} ;
$pm{'FROM'} = $GB->{FORM}->{'FROM'} ;
$pm{'mail'} = $GB->{FORM}->{'mail'} ;
$pm{'bbs'} = $GB->{FORM}->{bbs} ;
$pm{'key'} = $GB->{FORM}->{key} ;
$pm{'MESSAGE'} = $GB->{FORM}->{'MESSAGE'} ;

my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
$request = $ua -> post($host, \%pm);
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

>>911 のように改修。

qb6 に入れてきますー

間違っている箇所が4箇所

携帯からの連投あらしでテレサロ板のスレを落としまくっている奴
こいつ、どうにかしてくれ！
http://tv11.2ch.net/test/read.cgi/tvsaloon/1198474995/
このスレを落としたらまた別のスレを落とすだろう
これで何スレ目だｗ

>>914

荒らし対策相談所 part37
http://qb5.2ch.net/test/read.cgi/sec2chd/1195946009/

こうした。

my(%pm, $ua, $response) = () ;
my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
$pm{'srv'} = $ENV{'SERVER_NAME'} ;
$pm{'tane'} = $GB->{IDNOTANE} ;
$pm{'ua'} = $ENV{'HTTP_USER_AGENT'} ;
$pm{'subject'} = $GB->{FORM}->{'subject'} ;
$pm{'FROM'} = $GB->{FORM}->{'FROM'} ;
$pm{'mail'} = $GB->{FORM}->{'mail'} ;
$pm{'bbs'} = $GB->{FORM}->{bbs} ;
$pm{'key'} = $GB->{FORM}->{key} ;
$pm{'MESSAGE'} = $GB->{FORM}->{'MESSAGE'} ;

$ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
$response = $ua -> post($host, \%pm);
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

金に携帯で長文書いてみてちょ

壷
でも意味分かんないので消えますね＾＾

>>914
これは醜いｗｗｗ
誰か携帯連投あらしを規制してやれよｗ

運用情報(金)＠2ch掲示板
http://qb6.2ch.net/operate2/

携帯だと、ずっと人大杉

もしかして・・・ケイタイだと逝けない？

http://qb5.2ch.net/test/read.cgi/operate/1197013918/914 2007/12/26(水) 19:35:09 ID:I97QKHdc0
http://qb5.2ch.net/test/read.cgi/operate/1197013918/919 2007/12/26(水) 19:40:40 ID:I97QKHdc0

今ひどい自演をみｔ

金に吉野家コピペを書けと？

http://qb6.2ch.net/test/read.cgi/operate2/1197988882/15

短い？

携帯で書ける? < operate2

携帯だと人大杉、べっかんこのメニューにはないし
よう分からん

そっか、じゃ　afoxに入れてみるか、

http://qb6.2ch.net/test/read.cgi/operate2/1197988882/20
同じく20に1000近くで書いてみましが、カキコミに問題ありませんでした。

よさげですねぇ

>>895 さんに感謝 !!

もちょっと様子見てから全サーバに配ろう。

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

2000Byteクリアでやんす

http://qb6.2ch.net/test/read.cgi/operate2/1197988882/23

おー

2kB成功。

http://qb6.2ch.net/test/read.cgi/operate2/1197988882/25

よーし　配ってこよう、

配った、反映まち

よくやった
厨房涙目ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

とりあえずafoxでテストしたら俺のauで限界まで書き込めた

おい！携帯が五万円ってどういう事だ＾^
http://afox.2ch.net/test/read.cgi/news4vip/1198667012/9

9 名前：以下、名無しにかわりましてVIPがお送りします。[] 投稿日：2007/12/26(水) 20:11:39.44 ID:p71iD/FRO
テスト嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼あああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
あああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああ

>>938
目がちかちかする・・・

>>936
反映確認しました
乙です

http://etc7.2ch.net/test/read.cgi/qa/1197818246/657

壺から
今から取り掛かろうと思ったらもうおわってんじゃねぇかｗｗｗ

テストは内容が無いようなスレでや　ら　な　い　か？
IDスレとか。

●でもなる？

tubo

>>914
http://tv11.2ch.net/test/read.cgi/tvsaloon/1194962611/
http://tv11.2ch.net/test/read.cgi/tvsaloon/1193280426/

これらも醜いｗｗｗ

とりあえず一区切り。

>>945
これはひどい、別の意味で

>>945
報告作業なんて時間かかって面倒臭いんだから
他力本願じゃ何も変わらんよ

もうおわってるのか....

my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();


ここを

my $request = HTTP::Request->new('POST', $host);
$request->content_type('application/x-www-form-urlencoded');
$request->content($path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

こうするだけで良いんじゃないじゃなかろうかと思ったが
まあもうどうでもよさげね（ ´・ω・`）

■宣言

次スレを立てます〜〜〜♪

テンプレあるなら・・・2以降に貼ってくださいで〜す・・・・

悪しからず〜〜です〜みま〜せん〜〜♪

WWWWWWWWWWWWWWｗｗｗWWWWWWWWWWWWｗｗｗｗWWｗ←↑

ここは書けるのか

>>950
外部ちゃんねると同じかいｗ

前スレがどっかいったらしいから探してみるか

そもそも前スレあったっけ？

>>952
そうそう・・・・WWWWWWWWWWｗｗｗｗｗWWｗｗ↑→

>>953
というか、スレタイ�ｗvらないでしょ・・・・・

多分３なんだろうけど・・・３で立てるよ・・・・

FOXお疲れ。とりあえずafoxはよさげ。
他板はこれから確認してみる。

bbm2.2ch.net 側も POST に対応した。

■　もちつけ3.0

でおｋ

はい、どうぞ
http://www.k4.dion.ne.jp/~yukio/LOVELOG_IMG/DSCF0201.JPG

>>958
違うでしょ・・・・

■　もちつけ2.0★3

とかじゃん？？？

BBM2.0　っていう新BBMについてのスレッドじゃないの？？

WWWWWWWWWWWWWWｗｗｗｗWWWWWWWWWWWWｗｗｗｗWWｗ←↑

■　もちつけ2.3

↑これでおｋ

狐が言う前スレってもちつけ1.0のスレのことじゃないか？
それなら
■　もちつけ2.1
でおｋ

>>960
そのとーり

ついでにこれを新スレに貼っといて


544:FOX ★[]
2007/12/26(水) 00:19:01 ID:???0
今後の予定は、

1) 迷惑行為を点数加算制にする。
2) 点数がある程度行ったら、書き込み停止。
3) しばらくしたら停止を解除。
4) 頻繁に停止される人は、ずーっと停止。
5) 迷惑行為は規制議論板の報告を見ながら順次追加。

http://qb5.2ch.net/test/read.cgi/operate/1197013918/544

>>1
> 「もちつけ規制2.0」を作る会。
　　　　　↑
　　　　だから、2.0は変えられない・・・・もうめんどうだから、このスレを1、

そして前スレを関連スレという事にする・・・・勿論前スレの紹介はしない・・悪しからず〜〜♪

WWWWWWWWWWWWｗｗｗｗｗWWWWWWWWWｗｗｗｗｗｗｗｗWWｗ←↑

>>963
ほいほい・・・・（笑）

WWWWWWWWWWWWWWｗｗｗｗｗWWWWWWｗｗｗｗｗWwww←↑

見てらんない。
オレがスレ立て行ってこようか。

■　もちつけ2.0 第二会もちつき大会

>>965
さんきゅ
んじゃ、よろしくー

■　もちつけ2.0 第二回もちつき大会


これでおｋ

んで本文はどうすりゃいいんだよ

>>966
見てらんないのはオマエだーｗ

961:動け動けウゴウゴ２ちゃんねる[sage]
2007/12/26(水) 20:41:10 ID:uFdxUATtO
■　もちつけ2.3

↑これでおｋ

固有番号等をキーにして「もちつけ規制2.0」を作る会。


前スレ
■　もちつけ2.0
http://qb5.2ch.net/test/read.cgi/operate/1197013918/
前々スレ
どっかいってしまった。

携帯からの連投あらしが減ればいいなぁ(BBM2.0なのだ)


問題点
・書き込もうとすると「はじめまして」ページが登場(レス消失)。一度書けばしばらく出ないが、しばらくするとまた「はじめまして」
・長文＆AA(短いAAならOK)を書こうとすると通信エラーという規約同意ページ。同意して再投稿するとまた通信エラー
・一部の専ブラは短文書き込みすら不能(べっかんこが多い？機種の関係もあるかも)
・更に一部の専ブラは長文も大丈夫(domo？)

■　もちつけ2.0 第二回もちつき大会
http://qb5.2ch.net/test/read.cgi/operate/1198669847/

>>968
>>973が立ってたんで〜そこに貼ってきました〜〜（笑）

WWWWWWWWWWWWWｗｗｗｗWWWWWWWWｗｗｗｗｗｗｗWww←↑

>>974
頼んでおきながら余計なことしてしまった･･･
ごめんよー

ｇｄｇｄだあ・・・・

>>824
>my $request = HTTP::Request->new('GET', $host . $path);
GETをPOSTにすりゃいんじゃね？
5秒しかみてないけど・・・

>>959
誰かがやると思った

1000なら明日は大雪

つぼんぬ

壷

つぼ

1000狙い

もちつけ2.0ってなんだよ
スレストの邪魔すんなよ死ね

携帯しかない人は視野が狭いんだな
スレの移動がメンドクサイのが原因

オッサン死んどけ

オッサン生きろ

1000なら1000Bに決定

FOXﾀｿだ！！

急に流れが止まった件
もうすぐ1000だからｋｓｋすると思ったのに

　 　 　 ＼∧＿ﾍ　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　,,､,､,,,　/ ＼〇ノゝ∩ ＜　1000取り合戦、いくぞｺﾞ……！！　　　　　　　,,､,､,,,
　　　　/三√ ﾟДﾟ)　/　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿　　,,､,､,,,
　　 　　/三/| ﾟＵﾟ|＼　　　　　　,,､,､,,,　　　　　　　　　　　　　　　　　　　　　　　,,､,､,,,
　,,､,､,,,　Ｕ （:::::::::::）　　,,､,､,,,
　　 　 　//三/|三|＼　　　　　　　,,,,　　　　,,､,､,,,
　　　　　　∪　 ∪
　　,,　　　　　　　　　　,　　　　,,,,　　　　,,､,､,,,　　　　　　　,,､,､,,,
,,,,,　　　　∧＿∧　うまいモナー,,,,,　 　、　,,,,,,　　　,,,,,,,,　　　　,,,,,
　,,,　　　（　´∀｀）＿＿＿,,,,＿＿＿ ,, ∧＿∧ ｹﾞﾝｷﾆ ｼﾃﾙｶﾅ・・・＿＿＿,,
　 ／￣ （　つ日ヽ　 　∧＿∧　　 　（　　　　）　　　　　　　　　　　　　　 ／
／　　　 （＿＿））　　 （´∀｀　）　　　（　　　　） 　　 ∧＿∧∧＿∧ ／　マターリモナー
　∧＿∧∧＿∧ドーゾ （日ノ　）　　｜ ｜　| 　　　（　´∀｀） ´∀｀）
　（　´∀｀） ´∀｀）　　　　(（＿＿）　　,（＿（＿） （○）⊂　　 ） つ日⊂ ） モーナー
―（つ⊂　 ） つ⊂ ）―――――――――――ヽ|〃(⌒)(⌒) (⌒)(⌒)
　　　(⌒)(⌒) (⌒)(⌒)グーグー

こんなかんじだなｗ

じゃあ遠慮なく

1000

1000

1000

1000

1000

1000

1000

1000

1000

1000

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。