#!/usr/local/bin/perl
#| WeB BaNaNa Version 2.14
#| This script is free.
#|
#| Author Shigeto Nakazawa.(1996/11/27)
#| HomePageUrl http://www7.big.or.jp/~jawa/
# --------------------------------------------------------------------
# オプションの設定を変更することができます。
# 変更する場合は、readme.htm をご覧になってから行ってください。
# 設定変更には充分注意してください。
$master = "sibaban"; # 管理用のパスワードです。
$max = '150'; # 登録・表示最大数（あまりに多いと危険）
$date_color = "#FF0000"; # 日付の色
$banana_color = "#0000CC"; # バナナ（連想単語）の色(^-^;;
$ip_check = 0; # IPアドレスの表示 （0:表示しない 1:表示する）
$rh_check = 0; # リモートホストの表示 （0:表示しない 1:表示する）
# ファイル関連の設定
$jcode = './jcode.pl'; # jcode.pl のある場所
$logfile = './banana.log'; # 記録用ファイル
$lock1 = './banana1.lock'; # 鍵ファイル(1)
$lock2 = './banana2.lock'; # 鍵ファイル(2)
$lock_flag = 1; # 鍵ファイルの 1:使用 0:不使用
# HTML関連の設定
$html_header=<<"_EOF_"; # 共通ヘッダー部分
WeB BaNaNa
_EOF_
# ↑ _EOF_ は必須です。
$html_top=<<"_EOF_"; # デフォルト画面の上の部分
WeB BaNaNa
さぁ！ 下の言葉から想像する言葉を書くのだ！
_EOF_
# ↑ _EOF_ は必須です。
$html_buttom=<<"_EOF_"; # デフォルト画面の下の部分
･ タグを使用したり、全角５０字を超えると登録されません。
[管理用]
_EOF_
# ↑ _EOF_ は必須です。
$html_thanks=<<"_EOF_"; # サンクス画面のタイトル部分
WeB BaNaNa
せんきゅぅ！
これが今までの経緯だ！ 見終わったら、ここをクリックすることで前のページに戻れるぞ。君の言葉から何が連想されていくのか、たまに見に来ると楽しいにちがいない！
_EOF_
# ↑ _EOF_ は必須です。
# オプションの設定はここまでです。
# 以下は CGI のプログラムです。
# 書き換えは個人の責任で行って下さい。
# --------------------------------------------------------------------
&check_code;
&read_form;
if($FORM{'download'} eq 'on') {
@logs = &read_file($logfile);
print "Content-type: text/download\n\n";
print $html_header;
&banana_html;
exit;
}
print "Content-type: text/html\n\n";
print $html_header;
if($FORM{'edit'} eq 'on') {
&check_password;
@logs = &read_file($logfile);
&edit_log;
&editor_html;
exit;
}
@logs = &read_file($logfile);
if (!$logs[0]) { $logs[0] = "0<>xx/xx<>バナナ<><>\n"; }
if($FORM{'no'} eq '') {
&default_html;
exit;
}
$no = $FORM{'no'};
$banana = $FORM{'banana'};
&check_form;
$no = ++$no % 9999;
&get_date;
unshift(@new,"$no<>$date<>$banana<>$ENV{'REMOTE_HOST'}<>$ENV{'REMOTE_ADDR'}\n");
foreach $line (@logs) {
push(@new,$line);
if (++$i == $max) { last; }
}
@logs = @new;
&banana_html;
&write_file($logfile,@new);
exit;
sub default_html {
($no,$date,$banana) = split(/<>/,$logs[0]);
$banana = &code_unchg($banana);
print $html_top;
print<<"_EOF_";
$buffer
$bananaといったら！
_EOF_
print $html_buttom;
print<<"_EOF_";
_EOF_
}
sub check_form {
($ck_no) = (split(/<>/,$logs[0]))[0];
if ($ck_no != $no) {
&error("残念、タイムオーバーだ。今、誰かが連想してしまったぞ。一度戻って，再読み込みを行うのだ。");
}
if (!$banana) {
&error("何も書かれていないか、タグが使われているぞ。タグはだめなのだ。");
}
if (length($banana) > 100) {
&error("言葉が長すぎるぞ。文字数が全角５０字を超えるとダメなのだ。");
}
$banana = &code_chg($banana);
foreach $line (@logs) {
($ck_no,$date,$ck_banana) = split(/<>/,$line);
if (($banana =~ /$ck_banana/i) || ($ck_banana =~ /$banana/i)) {
&error("前に君と同じような発想をした人がいるぞ！ オリジナルで勝負だ！");
}
}
}
sub get_date{
$ENV{'TZ'} = 'JST-9';
($sec,$min,$hour,$mday,$mon) = localtime(time);
$mon++;
if ($mday < 10) { $mday = "0$mday"; }
if ($mon < 10) { $mon = "0$mon"; }
$date = "$mon/$mday";
}
sub banana_html{
print $html_thanks;
print "\n\n\n\n\n";
foreach $line (@logs) {
($no,$date1,$banana1,$rhost1,$ipad1) = split(/<>/,$line);
$banana1 = &code_unchg($banana1);
if ($banana2) {
print "$date2 : ";
print "$banana1といったら$banana2";
if ($rh_check || $ip_check) {
print " [";
if ($rh_check) {
$rhost2 = $rhost2 eq $ipad2?gethostbyaddr(pack('C4',split(/\./,$ipad2)),2)||'':$rhost2;
print $rhost2;
}
print " ";
if ($ip_check) { print $ipad2; }
print "]";
}
print "
\n";
}
$banana2 = $banana1; $date2 = $date1; $rhost2 = $rhost1; $ipad2 = $ipad1;
}
print "\n\n\n\n\n";
print "