■ もちつけ2.0

[1 FOX ★ 2007/12/07(金) 16:51:58 ID:???0]

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

前スレ
どっかいってしまった。

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

[841 [´・ω・｀] nttkyo203084.tkyo.nt.ftth.ppp.infoweb.ne.jp 2007/12/26(水) 18:52:35 ID:x0WxINYn0]

アク禁解いたら考える

[842 名無しの良心 2007/12/26(水) 18:52:40 ID:nYJejYVi0]

てすてす

[843 マァヴ ◆jxAYUMI09s 2007/12/26(水) 18:52:46 ID:kC2aQCYC0]

ふはははははははは(^_^;)無敵！

[844 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:52:48 ID:EWSRiSNG0]

　┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し

[845 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:17 ID:9TqgNw1L0]

実に面白い

[846 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:18 ID:5PKSv9I+0]

...
my $request = HTTP::Request->new('POST', $host . $path);
my $response = $ua->request($request) ;

[847 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:47 ID:lWnvs9P10]

　┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し

[848 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:59 ID:N3xlm+bT0]

>>840
携帯で何故か長文の時にエラー吐くのを修正

[849 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:54:43 ID:GlOSH2Vs0]

壷から呼ばれてきました

力になれません、ごめんなさい

[850 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:55:24 ID:mx8Xtegv0]

いちいち呼ぶなよバカ狐

[851 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:55:33 ID:EY62gjXv0]

ツボから来たよ

>823でPOSTになるんじゃ？

[852 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:56:35 ID:Gizx28w10]

壺から呼ばれて


何言ってんだ？まったく

[853 2ちゃんねる壷 ◆.2chtubo/Y ＠株主 ★ 2007/12/26(水) 18:56:51 ID:JG+YW2r80]

壷りました

[854 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:57:17 ID:QASJ8f1J0]

壷ぬっころす

狐は半年タムれ

[855 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:57:47 ID:nj2ODy/S0]

壷ならでわ

[856 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:57:57 ID:Gizx28w10]

>>841
ﾌｷﾞｬｱｱｱｱ

[857 Itadaki ★ 2007/12/26(水) 18:57:58 ID:???0]

これ？
http://www.tohoho-web.com/lng/200003/00030338.htm

[858 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:58:19 ID:Or1/e1Pw0]

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;

[859 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:58:20 ID:WeVXzkIt0]

マァヴ光臨してるｗｗｗｗｗｗ

[860 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:58:26 ID:uFdxUATtO]

>>851
狐さんはサーバーサイドで悩んでるぽいよ。

[861 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:59:31 ID:p449rvCi0]

壷からよばれますた。

[862 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:00:51 ID:C72nEpkqO]

とりあえず鎮まれ。
FOXは動いてるんだからいいじゃないか。荒らしてる馬鹿だけが駆逐されるだけなんだからいろいろ言うな。

まぁ、お前らが荒らしばっかしてる奴なら、ざまぁｗとしか言いようがないが。

[863 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:01 ID:W2rHjlfb0]

つぼうぜえｗ

[864 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:01 ID:INTSNopM0]

　 ＿＿_
　 |=====|　
　(　･ω･)　差し入れにＯＩＭＯ巻作ったんよ
　(っ　y つ＜⌒＞
　/　　　)
　( /￣∪

[865 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:27 ID:nJ2dogfR0]

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;

[866 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:32 ID:xrBUPR/d0]

壷からよばれますた。

[867 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:48 ID:eSMaxUCe0]

さて壷から来た１０分の７は
何の話してるか分かってないな

[868 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:56 ID:LVg67D5d0]

よくわかんないけど壷

[869 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:01 ID:HXTQoiVa0]

余裕だろｗｗｗｗｗｗ

[870 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:06 ID:uzYS9H200]

壷に呼ばれました
意味わかんないけど


がんばってください！！！

[871 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:22 ID:PdI6PsR20]

うっとうしいから壷の設定でお知らせ止められないかなぁ。。

カップ麺とかくだらないのばっかでうんざりんだけど

[872 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:56 ID:NVPJ38yw0]

壷からの記念カキコは荒らしとして規制しよう
ウザイしそれがいい

[873 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:58 ID:N3xlm+bT0]

ハクション大魔王かっつーの

[874 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:33 ID:YmfAzaNz0]

１０分の７じゃなくて７割って言えよｗｗｗｗｗｗｗｗｗｗｗ

[875 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:35 ID:9xvzWwY30]

スレタイの検索機能おかしいのも治してほしい

[876 FOX ★ 2007/12/26(水) 19:03:38 ID:???0]

>>857
SOCKETというか地道に組むんじゃなくてさ
Perl5のモジュール使ってさ、こうかっこよくやりたいー

#なんかスペースバーが押せたり押せなかったり
#怪奇現象ジャー

[877 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:54 ID:wURLhVQh0]

┌─┐
│　　|
│壷│
│　　|
└─┘

[878 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:58 ID:dEKdjh5G0]

壺

すぐにpostに投函いたしますです。

[879 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:58 ID:eSMaxUCe0]

壷カキコ規制は同意だな

[880 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:06:14 ID:GlOSH2Vs0]

>>871
そうですか？
カップ麺のCMを見ると「ああ、今日も平和なんだな」と安心するんですが

[881 Itadaki ★ 2007/12/26(水) 19:06:34 ID:???0]

えー地道が一番ッスよー

[882 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:07:37 ID:/JSW/9L/0]

壺

(　ﾟдﾟ)ｳｯｳｰ

[883 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:07:52 ID:EY62gjXv0]

これ？
read (STDIN, $PostData, $ENV{'CONTENT_LENGTH'});

[884 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:09:04 ID:jBnzuCBg0]

印刷してポストに投函すれば良いの？

[885 イソジンbrother 2007/12/26(水) 19:09:19 ID:CR0sjvLB0]

うん！
全くもって何を云ってるか解らん・・・

[886 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:09:39 ID:iH5KjwzVO]

壷壷うぜえよ

[887 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:10:27 ID:WeVXzkIt0]

50円切手でいい？投函日付は2007/12/26(水)でおｋ？

[888 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:10:53 ID:I5qB0spL0]

HTTPリクエストはSENDしか知らんがな

[889 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:12:17 ID:5PKSv9I+0]

>>883
サーバサイドで受けるんじゃなくて、プログラムがどっかにPOSTするんだろ
>>846でいいんじゃないの？

[890 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:12:18 ID:5eeXf/i/0]

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;

[891 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:14:52 ID:EY62gjXv0]

>889
じゃあ>846でよさげだね

[892 root▲▲ ★ 2007/12/26(水) 19:15:14 ID:???0]

今北。すぐ出なきゃいけないんだけど。

私もPerlはしろーとですが、
単に、

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

の GET を POST に変えるんじゃ、、、きっとだめなんでしょうね。
そのぐらいは試しているんだろうなと。

[893 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:15:58 ID:WeVXzkIt0]

rootたんｋｔｋｒ

ちょっくら抜いてくる

[894 FOX ★ 2007/12/26(水) 19:16:11 ID:???0]

POSTの時のパラメータを受け渡す方法がもんだいでして・・・

[895 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:17:22 ID:P2CvhieH0]

壺から。

ほい。細かいところは自分で書いてね。
my(%pm, $ua, $request) = ();
・・・
$pm{'srv'} = $ENV{'SERVER_NAME'};
・・・
$request = $ua -> post($host, \%pm);

[896 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:17:46 ID:4UstwLK6O]

もう止めたら？

[897 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:18:02 ID:btOxx8na0]

tubo

[898 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:18:05 ID:VYHPFIoV0]

壺壺壺壺壺壺
postって何？

[899 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:18:20 ID:qsW553wo0]

sendのときに一緒に入れてわたすんじゃないの？
先に"Content-Type: application/x-www-form-urlencoded;charset=UTF-8"
あたりをヘッダに入れてさ。

あー、wshのXMLHTTPでクッキーを送る方法がわかんねー。

[900 FOX ★ 2007/12/26(水) 19:19:07 ID:???0]

ぉっ　そんなやつ

>>895

あとは %pm を作ればいいのか
%pm = ();
$pm[0] = "a=1";
$pm[0] = "b=2";
$pm[0] = "c=3";


でいいのかしら・・・

[901 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:19:08 ID:+tjTxgQM0]

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

[902 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:20:42 ID:vZ8yuTlJ0]

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

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

[903 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:20:55 ID:PdI6PsR20]

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

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


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

[904 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:21:35 ID:P2CvhieH0]

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

[905 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:21:46 ID:WeVXzkIt0]

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

[906 904 2007/12/26(水) 19:23:35 ID:P2CvhieH0]

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

[907 FOX ★ 2007/12/26(水) 19:23:56 ID:???0]

>>904
おー

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

[908 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:27:50 ID:KxYs/IQT0]

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;

[909 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:29:26 ID:g0kfZWBv0]

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;

[910 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:30:03 ID:uFdxUATtO]

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

[911 FOX ★ 2007/12/26(水) 19:30:27 ID:???0]

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;

[912 FOX ★ 2007/12/26(水) 19:30:57 ID:???0]

>>911 のように改修。

qb6 に入れてきますー

[913 904 2007/12/26(水) 19:33:19 ID:P2CvhieH0]

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

[914 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:35:09 ID:I97QKHdc0]

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

[915 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:38:27 ID:N3xlm+bT0]

>>914

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

[916 FOX ★ 2007/12/26(水) 19:38:43 ID:???0]

こうした。

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;

[917 FOX ★ 2007/12/26(水) 19:40:19 ID:???0]

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

[918 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:40:31 ID:wFkMrAS/0]

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

[919 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:40:40 ID:I97QKHdc0]

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

[920 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:41:54 ID:N3xlm+bT0]

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

[921 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:48:58 ID:N3xlm+bT0]

携帯だと、ずっと人大杉

[922 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:50:48 ID:z2oJJknA0]

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

[923 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:50:59 ID:Qr2TfX5NP]

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

今ひどい自演をみｔ

[924 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:51:19 ID:P7gLU0p3O]

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

[925 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:54:08 ID:lywYvHjv0]

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

短い？

[926 FOX ★ 2007/12/26(水) 19:54:51 ID:???0]

携帯で書ける? < operate2

[927 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:57:49 ID:N3xlm+bT0]

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

[928 FOX ★ 2007/12/26(水) 19:59:38 ID:???0]

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

[929 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:01:53 ID:JQdJfuqgO]

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

[930 FOX ★ 2007/12/26(水) 20:04:01 ID:???0]

よさげですねぇ

>>895 さんに感謝 !!

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

[931 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:04:06 ID:M4kwlOQK0]

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;

[932 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:05:59 ID:SumP7C8dO]

2000Byteクリアでやんす

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

[933 FOX ★ 2007/12/26(水) 20:06:37 ID:???0]

おー

[934 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:06:43 ID:uFdxUATtO]

2kB成功。

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

[935 FOX ★ 2007/12/26(水) 20:07:08 ID:???0]

よーし　配ってこよう、

[936 FOX ★ 2007/12/26(水) 20:10:39 ID:???0]

配った、反映まち

[937 五郎左衛門 ◆GOROsbO376 2007/12/26(水) 20:11:36 ID:ph4Pq/of0]

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

[938 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:12:51 ID:N3xlm+bT0]

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

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

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

[939 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:14:03 ID:WeVXzkIt0]

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

[940 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 20:14:11 ID:SumP7C8dO]

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

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