■ もちつけ2.0
レス数が950を超えています。1000を超えると書き込みができなくなります。
固有番号等をキーにして「もちつけ規制2.0」を作る会。
前スレ
どっかいってしまった。
携帯からの連投あらしが減ればいいなぁ(BBM2.0なのだ) 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; >>851
狐さんはサーバーサイドで悩んでるぽいよ。 とりあえず鎮まれ。
FOXは動いてるんだからいいじゃないか。荒らしてる馬鹿だけが駆逐されるだけなんだからいろいろ言うな。
まぁ、お前らが荒らしばっかしてる奴なら、ざまぁwとしか言いようがないが。 ___
|=====|
( ・ω・) 差し入れにOIMO巻作ったんよ
(っ y つ<⌒>
/ )
( / ̄∪ 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;
さて壷から来た10分の7は
何の話してるか分かってないな 壷に呼ばれました
意味わかんないけど
がんばってください!!! うっとうしいから壷の設定でお知らせ止められないかなぁ。。
カップ麺とかくだらないのばっかでうんざりんだけど 壷からの記念カキコは荒らしとして規制しよう
ウザイしそれがいい 10分の7じゃなくて7割って言えよwwwwwwwwwww >>857
SOCKETというか地道に組むんじゃなくてさ
Perl5のモジュール使ってさ、こうかっこよくやりたいー
#なんかスペースバーが押せたり押せなかったり
#怪奇現象ジャー >>871
そうですか?
カップ麺のCMを見ると「ああ、今日も平和なんだな」と安心するんですが これ?
read (STDIN, $PostData, $ENV{'CONTENT_LENGTH'}); 50円切手でいい?投函日付は2007/12/26(水)でおk? >>883
サーバサイドで受けるんじゃなくて、プログラムがどっかにPOSTするんだろ
>>846でいいんじゃないの? 2007/12/26 18:44 新規メッセージ
【緊急募集】これをpostにできる人を募集中です
集合場所http://qb5.2ch.net/test/read.cgi/operate/1197013918/
--------------------------------------------------------------------------------
↓これ
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;
今北。すぐ出なきゃいけないんだけど。
私もPerlはしろーとですが、
単に、
> my $request = HTTP::Request->new('GET', $host . $path);
の GET を POST に変えるんじゃ、、、きっとだめなんでしょうね。
そのぐらいは試しているんだろうなと。 POSTの時のパラメータを受け渡す方法がもんだいでして・・・
壺から。
ほい。細かいところは自分で書いてね。
my(%pm, $ua, $request) = ();
・・・
$pm{'srv'} = $ENV{'SERVER_NAME'};
・・・
$request = $ua -> post($host, \%pm);
sendのときに一緒に入れてわたすんじゃないの?
先に"Content-Type: application/x-www-form-urlencoded;charset=UTF-8"
あたりをヘッダに入れてさ。
あー、wshのXMLHTTPでクッキーを送る方法がわかんねー。 ぉっ そんなやつ
>>895
あとは %pm を作ればいいのか
%pm = ();
$pm[0] = "a=1";
$pm[0] = "b=2";
$pm[0] = "c=3";
でいいのかしら・・・ 壺からきました
インターネット始めたばかりでよくわかりませんが
ポストにすればいいってどうゆう意味でしょうか?
赤いポストの事? ファミリーベーシックならコンテスト入賞経験アリです!
ぴゅう太の日本語BASICもOKです!!
音響カプラも持ってますが、ちからになれるでしょうか?
>HTTP::Request->new('GET', $host . $path);
$pathじゃなくてHTTP::Headers->new(追加ヘッダー)の返す値で、第4パラメータがフォームデータをURLエンコードしたやつ
FOXがキライなOCNユーザより >>900
ダメ。%pmは配列じゃない。
こう。
$pm['a'] = "1";
$pm['b'] = "2";
$pm['c'] = "3";
コレ以降は自分で考えましょう カッコを間違えた。
こう
$pm{'a'} = "1";
$pm{'b'} = "2";
$pm{'c'} = "3"; 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 に入れてきますー 携帯からの連投あらしでテレサロ板のスレを落としまくっている奴
こいつ、どうにかしてくれ!
http://tv11.2ch.net/test/read.cgi/tvsaloon/1198474995/
このスレを落としたらまた別のスレを落とすだろう
これで何スレ目だw こうした。
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
これは醜いwww
誰か携帯連投あらしを規制してやれよw 携帯だと人大杉、べっかんこのメニューにはないし
よう分からん よさげですねぇ
>>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;
よくやった
厨房涙目wwwwwwwwwwwwwwwww とりあえずafoxでテストしたら俺のauで限界まで書き込めた
おい!携帯が五万円ってどういう事だ^^
http://afox.2ch.net/test/read.cgi/news4vip/1198667012/9
9 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2007/12/26(水) 20:11:39.44 ID:p71iD/FRO
テスト嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼嗚呼あああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
あああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ
ああああああああああああああああああああああああああああああああああああああああ
壺から
今から取り掛かろうと思ったらもうおわってんじゃねぇかwww テストは内容が無いようなスレでや ら な い か?
IDスレとか。 >>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以降に貼ってくださいで〜す・・・・
悪しからず〜〜です〜みま〜せん〜〜♪
WWWWWWWWWWWWWWwwwWWWWWWWWWWWWwwwwWWw←↑ レス数が950を超えています。1000を超えると書き込みができなくなります。