■ もちつけ2.0
レス数が900を超えています。1000を超えると表示できなくなるよ。
固有番号等をキーにして「もちつけ規制2.0」を作る会。
前スレ
どっかいってしまった。
携帯からの連投あらしが減ればいいなぁ(BBM2.0なのだ) >>796
このアイデアをすぐBBSPINKに持っていくんだ! 仕込むなら仕込むでもう少し派手にやってくれ
今のところ目に見えた影響が少なすぎてしょぼすぎ 大阪はIP出ない。ちなみに同じ鳥を入れても違う鳥が出てくる。 >>811
知らなかった。
2ちゃんねるとまちBBSの関係がいまいち分からないなぁ。
確か、2ちゃんねるの前身がまちなんだよね。 c-link というのがあってな・・・
以下(ty >>815
方向性が分からないと荒らしにくい
だから、どうしたいのか書いてくれ(笑 携帯への認識が古く、長文投稿が全部の携帯で規制されているという認識がないみたい
携帯→2ch運用情報スレッド55
http://qb5.2ch.net/test/read.cgi/operate/1197901226/
548:FOX ★ 2007/12/26 17:00:22 ???0
一年くらいかけてみんなで熟成して
いいものが出来ればいいですね、
554:FOX ★ 2007/12/26 17:45:50 ???0
???
全部規制?
PerlでPOSTってどうやるんだたっけ?
どっかで作ったと思うんだけどどこだったかなぁ・・・ >>819
774 名前:FOX ★[] 投稿日:2007/12/26(水) 17:03:23 ID:???0
>>764
cgiのget methodってのの限界値なんですかねぇ
postでやったらもっと長くできるのか?
その辺の限界値は21世紀になってどうなっているのかなぁ
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;
c-link なるものを軽く調べた。
....。
昔のひろゆきカコイイ。 ほうほう
携帯→2ch運用情報スレッド55
http://qb5.2ch.net/test/read.cgi/operate/1197901226/586
586 名前:FOX ★[] 投稿日:2007/12/26(水) 18:39:00 ID:???0
ちょっと修正してみた、これで大丈夫になった人が少しでもいるといいなぁ
┌○┐
│ |∧_∧
│壷│´Д`;)
│ |//
└○┘(⌒)
し⌒ ┌○┐
│ |∧_∧
│壷│´Д`;)
│ |//
└○┘(⌒)
し 通信エラーってことは >>824 の
if ($response->is_error)
{
return "通信エラー";
}
ここに引っかかっているんだな あいてが 500番台を返しているんだろうなぁ
つまり bbm2.2ch.netがですが、
文が短いとならないんだから
原因はやっぱり文が長いことによるんでしょうねぇ
ということは getじゃ無理だと、 ┌○┐
│ |∧_∧
│壷│´Д`;)
│ |//
└○┘(⌒)
し
┌○┐
│ |∧_∧
│壷│´Д`;)
│ |//
└○┘(⌒)
し
...
my $request = HTTP::Request->new('POST', $host . $path);
my $response = $ua->request($request) ; ┌○┐
│ |∧_∧
│壷│´Д`;)
│ |//
└○┘(⌒)
し
>>840
携帯で何故か長文の時にエラー吐くのを修正 壷から呼ばれてきました
力になれません、ごめんなさい 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";
コレ以降は自分で考えましょう レス数が900を超えています。1000を超えると表示できなくなるよ。