★★★ live8 サーバのしほり 2Get禁止

[0001 西郷 ★ 04/02/17 00:52 ID:???]

このサーバは oyster901 です。
現在テスト中です。

こんなサーバを使ってます(画像あり)
皆でクリックしてネ、たくさんクリックしたらサーバもらえるかも、
(普通にクリックするならサーバ落としてもいいってさ)

http://www.polywell.com/jp/index.htm

[0002 1000 ◆xTxTx/xN.M 04/02/17 05:54 ID:kEVkZ4zs]

ただいまー

[0003 zaqdb733c15.zaq.ne.jp ◆XghWALNUT6 04/02/17 06:56 ID:Mc4Mxuqx]

おかえりー

[0004 モルモットさん（金） 04/02/17 10:19 ID:rZdwMjG6]

遅ればせながら厳かに2ゲットです。

[0005 モルモットさん（金） 04/02/17 10:36 ID:UU1wiMtW]

……わざわざbbs.cgiを使わないと924スレ（の素）が作れないのか……。

[0006 モルモットさん（金） 04/02/17 11:47 ID:R+qPaQox]

こんなものを書いてみた。

#! /usr/local/bin/perl
my ($from, $mail, $subject, $message);
while (<>) {
tr/\r\n//d;
if (/^from=(.*)$/) {
$from = $1;
} elsif (/^mail=(.*)$/) {
$mail = $1;
} elsif (/^subject=(.*)$/) {
$subject = $1;
} else {
$message .= "$_ <br> ";
}
}
my ($sec, $min, $hour, $mday, $mon, $year) = localtime(time);
my $date = sprintf("%02d/%02d/%02d %02d:%02d", $year%100, $mon+1, $mday, $hour, $min);
print "$from<>$mail<>$date ID:thread924<> $message <br> <>$subject\n";