レス数が 475 を超えています。500を超えると表示できなくなるよ。

PHP 2chBBS 相談所

293 ：名無しさん＠PHP ： 2009/09/28(月) 12:01:39 ID:sIvV3gxc

bbs.cgi設定
設置場所：CORESERVER.JP
/public_html/○○/bbs18/test/
【中身】
#!/usr/local/bin/perl

# POSTデータを読み込む
read(STDIN, $post, $ENV{'CONTENT_LENGTH'});

# ユーザエージェントオブジェクトを生成する
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent($ENV{HTTP_USER_AGENT});

# リクエストを生成する
my $req = new HTTP::Request POST => 'ｈｔｔｐ://ドメイン/bbs18/test/bbs.cgi';#自分のURLに書き換えてください
$req->header(Cookie => "NAME=name");
$req->header(Referer => "ｈｔｔｐ://ドメイン/perl/");
$req->header(Via => "ThroughTheLookingGlass " . $ENV{REMOTE_ADDR});
$req->content_type('application/x-www-form-urlencoded');
$req->content($post);

# リクエストをユーザエージェントに渡し、レスポンスを受け取る
my $res = $ua->request($req);

# レスポンスの内容を確認する
print "Content-type: text/html\n\n";
if ($res->is_success) {
print $res->content;
}

read.php ver2.4 2005/04/13