#!/usr/bin/perl

## Monkey Banana v1.0
## (C) 1997-99 Kent Web (1999/11/03)
## E-Mail webmaster@kent-web.com
## Home   http://www.kent-web.com/

$ver = 'Monkey v1.0';

## ---[注意事項ほか]--------------------------------------------------
## 1. このスクリプトはフリーソフトです。このスクリプトを使用したいか
##    なる損害に対して作者は一切の責任を負いません。
## 2. 設置に関する質問はサポート掲示板にお願いいたします。メールによる
##    質問はご遠慮ください。
## 3. 同梱のアイコンは「牛飼いとアイコンの部屋」http://www.ushikai.com/
##    によるものです。
## -------------------------------------------------------------------

#============#
#  設定項目  #
#============#

# 文字コード変換ライブラリの取り込み
require './jcode.pl';

# タイトル名
$title = "Monkey Banana";

# タイトルの文字色
$t_color = "#FFFF00";

# 管理用パスワード
$pass = '1123';

# スクリプト名
$script = "monkey.cgi";

# ログファイル
$logfile = "./monkey.log";

# 背景色・文字色
$bgcol = "#00B500";	# 背景色
$text  = "#FFFFFF";	# 文字色
$link  = "#FFDFFF";	# リンク色：未訪問
$vlink = "#FFDFFF";	# リンク色：既訪問
$alink = "#DD0000";	# リンク色：訪問中

# 戻り先（絶対パスならhttp://から記述）
$home = "http://www.yuni-net.com/";

# 最大記事数
$max = 100;

# カウンタ機能 (0=no 1=テキスト 2=画像)
$counter = 1;

# カウンタファイル
$cntfile = "./count.dat";

# カウンタの桁数
$mini_fig = 5;

# カウンタの色（テキストの場合）
$cnt_color = "#FFFF00";

# カウンタ画像の大きさ（画像を使用する場合）
$mini_w = '16';
$mini_h = '26';

# ロックファイル機能 (0=no 1=yes)
$lockkey = 0;

# ロックファイル名
$lockfile = "monkey.lock";

# ロックファイルディレクトリ
#  --> このディレクトリのパーミッションは 777 に設定
$lockdir = ".";

# 他サイトからの投稿を禁止する場合 http://からURLを記述
$base_url = "";

# 画像ファイルを置く「ディレクトリ」
#  --> 絶対パスだとhttp://からディレクトリを記述（最後に / は不要）
$imgurl = ".";

# 連続投稿の間隔秒数
$term = 60;

# 拒否ホスト
@denyhost = (
	'www.proxy.com',
	'*.hogehoge.ne.jp',
	'TKY*.*.odn.*.jp',
	'',
	'',
	'',
	'');

# 拒否ワード
@denyword = (
	'アホ',
	'あほ',
	'ばか',
	'馬鹿',
	'バカ',
	'うんこ',
	'ウンコ',
	'',
	'');

# ホスト名取得モード
#  --> 0 : $ENV{'REMOTE_HOST'} で取得できる場合
#  --> 1 : gethostbyaddr で取得できる場合
$get_remotehost = 1;

# methodプロパティ (POST or GET)
$method = 'POST';

#============#
#  設定完了  #
#============#

# ロックファイルを再定義
$lockfile = "$lockdir\/$lockfile";

# 画像ディレクトリで末尾の / を削除
$imgurl =~ s/\/$//;

&decode;
if ($mode eq 'regist') { &regist; }
if ($mode eq 'home') { &home; }
if ($mode eq 'howto') { &howto; }
if ($mode eq 'enter') { &enter; }
if ($mode eq 'admin') { &admin; }
if ($mode eq 'delete') { &delete; }
if ($mode eq 'kuji') { &kuji; }
&html;

## --- メニュー表示
sub html {
	# ホストチェック
	if ($mode ne 'regist') { &host_chk; }

	# ログを読み込み
	open(IN,"$logfile") || &error("Can't open $logfile");
	$line = <IN>;
	close(IN);

	($num,$date,$word,$agent,$host,$times) = split(/<>/, $line);

	if ($num eq "")  { $num  = 1; }
	if ($word eq "") { $word = "オサル"; }

	&header;

	# カウンタ
	if ($counter) {	&counter; }

	print <<"EOM";
<center>
<font size=5 color="$t_color"><h1>$title</h1></font>
<P>
<table border=1 cellspacing=1 cellpadding=0>
<tr>
  <td>
    <form action="$script" method=$method>
    <input type=hidden name=mode value="home">
    <input type=submit value="トップに戻る">
  </td></form>
  <td>
    <form action="$script" method=$method>
    <input type=hidden name=mode value="howto">
    <input type=submit value="この遊び方">
  </td></form>
  <td>
    <form action="$script" method=$method>
    <input type=hidden name=mode value="kuji">
    <input type=submit value="今日の運勢">
  </td></form>
  <td>
    <form action="$script" method=$method>
    <input type=hidden name=mode value="enter">
    <input type=submit value="管理者用">
  </td></form>
</tr>
</table>
<P><img src="$imgurl\/osaru2.gif" width=60 height=65>
<P><table><tr><td>
<UL>
  <LI>前の方が残した下の言葉から、あなたが連想した言葉を登録して下さい。
  <LI>登録されると今までの連想された言葉を全て見ることができます。
</UL>
</td></tr></table>
<P>
<font size=5 color="$t_color"><b>$word</b></font> <BIG>といったら・・</BIG>
</P>
<form action="$script" method=$method>
<input type=hidden name=mode value="regist">
<input type=hidden name=no value="$num">
<input type=text name=word size=55 maxlength=50><br>
<input type=submit value="送信する"><input type=reset value="リセット">
</form>
<br><br><br>
<!--著作権表\示：削除禁止 ($ver) -->
- <a href="http://www.kent-web.com/" target="_top">Monkey Banana</a> -
</center>
</body></html>
EOM

	exit;
}

## --- 書きこみ処理
sub regist {
	# 時間を取得
	&get_time;

	# ホストを取得
	&host_chk;

	# 他サイトからのアクセスを排除
	if ($base_url) {
		$ref_url = $ENV{'HTTP_REFERER'};
		$ref_url =~ s/\?(.|\n)*//ig;
		$ref_url =~ s/\%7E/\~/ig;
		if ($ref_url ne "" && $ref_url !~ $base_url) {
			&error("不正なアクセスです。");
		}
	}

	# 禁止ワードチェック
	&word_chk;

	# タグチェック
	if ($word =~ /</ || $word =~ />/) {
		&error("タグを使用することはできません。");
	}

	# 文字数チェック
	if ($word eq '') { &error("言葉が入力されていません。"); }
	if (length($word) > 50) { &error("全角で25文字を超える言葉は登録できません。"); }

	# ロック開始
	if ($lockkey) { &lock; }

	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);

	if ($lines[0] eq "") { $lines[0] = "1<>$date<>オサル<><><><>\n"; }

	($hno,$hdate,$hword,$hagent,$hhost,$htimes) = split(/<>/, $lines[0]);

	# 同一ホストからの投稿は一定間隔の秒数をおく
	if ($host eq "$hhost" && $times - $htimes < $term) {
		&error("連続登録は$term秒以上待ってね。");
	}

	# １つ前の言葉をチェック
	if ($no ne "$hno") {
		&error("残念、誰かが先に連想してしまったようです。もう１度戻って再読み込みして下さい。");
	}

	# 過去の言葉をチェック
	$flag=0;
	foreach (@lines) {
		local($no,$date,$wd,$agent,$host,$ts) = split(/<>/, $_);
		if ($wd eq "$word") { $flag=1; last; }
	}

	if ($flag) {
		&error("誰かが同じ言葉を連想したことがあるようです。他の言葉を連想し直してみてください。");
	}

	# 記事NOを採番
	$no = $hno + 1;

	# 最大記事数をチェック
	while ($max <= @lines) { pop(@lines); }

	unshift(@lines,"$no<>$date<>$word<>$ENV{'HTTP_USER_AGENT'}<>$host<>$times<>\n");

	# ログを更新
	open(OUT,">$logfile") || &error("Write Error : $logfile");
	print OUT @lines;
	close(OUT);

	# ロック解除
	&unlock;

	# 完了メッセージ
	&header;
	print <<"EOM";
<center>
<font color="$t_color"><h3>連想してくれてありがとう。</h3></font>
<P>
<img src="$imgurl\/banana.gif" width=45 height=39>
</P>
<table><tr>
  <td>
    <UL>
    <LI>連想してくれてありがとう。以下のとおりに登録されました。
    <LI>これからも貴方の言葉がどのように連想されていくかを見に来て下さいね。
    </UL>
</td>
</tr></table>
<P align=center>
[<a href="$script?">バナナに戻る</a>]
[<a href="$home">ホームに戻る</a>]
</P>
</center>
<hr>
EOM
	# 履歴ログを展開
	foreach (1 .. $#lines) {

		$p_word = $word;
		$p_date = $date;

		($no,$date,$word,$agent,$host,$times) = split(/<>/, $lines[$_]);

		print "<font color=red>$p_date</font> : ";
		print "<font size=3 color=\"$t_color\"><b>$word</b></font> といったら、";
		print "<font size=4 color=\"$t_color\"><b>$p_word</b></font><hr>\n";
	}

	print "</body></html>\n";
	exit;
}

## --- 管理画面入室
sub enter {
	&header;
	print <<"EOM";
<center>
<table width="100%"><tr>
<th bgcolor="#FFFF00"><font color="#006400">管理モード</font></th>
</tr></table>
<P>
<h4>パスワードを入力して下さい。</h4>
<P>
<form action="$script" method=$method>
<input type=hidden name=mode value="admin">
<input type=password size=8 name=pass>
<input type=submit value=" 認証 ">
</form>
</center>
</body></html>
EOM
	exit;
}

## --- 管理モード
sub admin {
	# パスチェック
	if ($FORM{'pass'} ne "$pass") {
		&error("パスワードが違います。");
	}

	open(IN,"$logfile") || &error("Can't write $logfile");
	@lines = <IN>;
	close(IN);

	&header;
	print <<"EOM";
[<a href="$script?">バナナに戻る</a>]
[<a href="$home">HOMEに戻る</a>]
<table width="100%"><tr>
<th bgcolor="#FFFF00"><font color="#006400">管理モード</font></th>
</tr></table>
<P><center>
<form action="$script" method=$method>
<input type=hidden name=mode value="delete">
<input type=hidden name=pass value="$FORM{'pass'}">
<input type=submit value="削除する"><input type=reset value="リセット">
</center><hr>
EOM

	foreach $line (@lines) {
		local($no,$date,$wd,$agent,$host,$times) = split(/<>/, $line);

		print "<input type=checkbox name=del value=\"$no\"> ";
		print "<small>$date</small> <font color=$t_color size=4><B>$wd</B></font> ($host / $agent)<hr>\n";
	}

	print "</form>\n";
	print "</body></html>\n";
	exit;
}

## --- 削除処理
sub delete {
	# パスチェック
	if ($FORM{'pass'} ne "$pass") { &error("パスワードが違います。"); }

	# ロック開始
	if ($lockkey) { &lock; }

	open(IN,"$logfile") || &error("Can't write $logfile");
	@lines = <IN>;
	close(IN);

	@new=();
	foreach $line (@lines) {
		$flag=0;
		($no,$date,$wd,$agent,$host,$times) = split(/<>/, $line);

		foreach (@DEL) {
			if ($_ eq "$no") { $flag=1; last; }
		}
		if ($flag == 0) { push(@new,$line); }
	}

	# 更新
	open(OUT,">$logfile") || &error("Can't write $logfile");
	print OUT @new;
	close(OUT);

	# ロック解除
	&unlock;

	# 初期画面に戻る
	&admin;
}

## --- 注意事項
sub howto {
	&header;
	print <<"EOM";
[<a href="$script?">もどる</a>]<br>
<center>
<table width=100%>
<tr><th bgcolor="#FFFF00">
<font color="#006400">$title の遊び方</font>
</th></tr>
</table>
<P>
<table border=1 bgcolor="#FFFFFF" cellpadding=10 width="85%"><tr><td>
<font color="#006400">
<UL>
<LI>これは単純な「言葉あそび」です。前の人が残した言葉から、連想する言葉を登録して下さい。<P>
<LI>登録が完了すると、これまで登録された言葉の一覧を全て見ることができます。<P>
<LI>登録される言葉は最大で <b>$max</b>件です。それを超えると古い順に削除されていきます。<P>
<LI>１度言葉を登録すると、次の方が登録されるか、又は <b>$term秒間</b>を経過しない限りは「連続した」登録はできません。<P>
<LI><b>全角で25文字</b>を超える言葉は登録できません。<P>
<LI><b>半角カナ</b>は文字バケの原因となるため、使用しないで下さい。<P>
<LI>「タグ」を使用することはできません。<P>
<LI>管理者が不適当な言葉と判断する場合は削除することがあります。<P>
<LI>この Monkey Banana は元々<b>じゃわ氏</b>が作成した Web BaNaNa からアイデアを頂いて KENT が作成したものです。オリジナルは <a href="http://www7.big.or.jp/~jawa/"><font color=blue>ここ</font></a> で入手することができます。
</UL>
</font>
</td></tr></table>
<P>
<img src="$imgurl\/banana.gif" width=45 height=39>
</P>
</center>
</body></html>
EOM
	exit;
}

## --- 戻り処理
sub home {
	# IISサーバ(PerlIS)対応
	if ($ENV{PERLXS} eq "PerlIS") {
		print "HTTP/1.0 302 Temporary Redirection\r\n";
		print "Content-type: text/html\n";
	}
	print "Location: $home\n\n";
	exit;
}

## --- ホストチェック
sub host_chk {
	&get_host;
	local($flag) = 0;
	foreach (@denyhost) {
		if ($_ eq '') { next; }
		$_ =~ s/\*/\.\*/g;

		# マッチング
		if ($host =~ /$_/) { $flag=1; last; }
	}
	if ($flag) {
		&error("書き込み中断中だぞ〜♪");
	}
}

## --- 禁止ワードチェック
sub word_chk {
	local($match) = 0;
	foreach (@denyword) {
		if ($_ eq '') { next; }

		# マッチング
		if (index($word,$_) >= 0) { $match=1; last; }
	}
	if ($match) {
		&error("使用できない言葉が含まれています。");
	}
}

## --- フォームからのデータ処理
sub decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます。"); }
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# 文字コード変換
		&jcode'convert(*value,'sjis');

		# 一括削除用
		if ($name eq 'del') { push(@DEL,$value); }

		$FORM{$name} = $value;
	}
	$mode = $FORM{'mode'};
	$word = $FORM{'word'};
	$word =~ s/　/ /g;
	$word =~ s/\s*$//g;
	$no   = $FORM{'no'};
}

## --- HTMLのヘッダー
sub header {
	print "Content-type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE TYPE="text/css">
<!--
a:link    {font-size: 10pt; text-decoration:none; color:$link }
a:visited {font-size: 10pt; text-decoration:none; color:$vlink }
a:active  {font-size: 10pt; text-decoration:underline; color:$alink }
a:hover   {font-size: 10pt; text-decoration:underline; color:$alink }
td        {font-size: 10pt}
small     {font-size: 9pt}
-->
</STYLE>
<title>$title</title></head>
<body bgcolor="$bgcol" text="$text" link="$link" vlink="$vlink" alink="$alink">
EOM
}

## --- ホスト名取得
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	if ($get_remotehost) {
		if ($host eq "" || $host eq "$addr") {
			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
		}
	}
	if ($host eq "") { $host = $addr; }
}


## --- エラー処理
sub error {
	if (-e $lockfile) { unlink($lockfile); }

	&header;
	print <<"EOM";
<div align="center">
<hr width="75%"><h3>バンドーさんに突っ込まれました！</h3>
<P><font color=$t_color><B>$_[0]</B></font>
<br><br>
<FORM>
<INPUT TYPE="button" VALUE="前の画面へ戻る" onClick="history.back()">
</FORM>
<P><hr width="75%">
</div>
</body></html>
EOM
	exit;
}

## --- 時間を取得
sub get_time {
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times);

	# 日時のフォーマット
	@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	$date = sprintf("%02d\/%02d(%s) %02d\:%02d\:%02d",
			$mon+1,$mday,$week[$wday],$hour,$min,$sec);
}

## --- ロックファイル処理
sub lock {
	local($flag) = 0;
	foreach (1 .. 5) {
		if (-e $lockfile) { sleep(1); }
		else {
			open(LOCK,">$lockfile") || &error("Can't create LockFile");
			close(LOCK);
			$flag = 1;
			last;
		}
	}
	if ($flag == 0) { &error("LOCK is BUSY"); }
}

## --- ロック解除
sub unlock {
	if (-e $lockfile) {
		unlink($lockfile);
	}
}

## --- カウンタ処理
sub counter {
	# カウントファイルを読みこみ
	open(NO,"$cntfile") || &error("Can't open $cntfile");
	$cnt = <NO>;
	close(NO);

	# 閲覧時のみカウントアップ
	if ($FORM{'mode'} eq '') {
		# カウントアップ
		$cnt++;

		# テンポラリーファイルを定義
		$prono = "$$";
		if ($prono eq "") {
			srand;
			$prono = 1000000000000000 * rand;
		}
		$cnt_temp = "$lockdir\/$prono\.ctmp";

		# テンポラリーファイルを作成
		open(TMP,">$cnt_temp") || &error("Can't create TempFile");
		print TMP $cnt;
		close(TMP);

		# リネームする
		chmod (0666,$cnt_temp);
		rename($cnt_temp,$cntfile);

		# もしテンポラリーファイルが残っていたら削除
		if (-e $cnt_temp) { unlink($cnt_temp); }
	}

	# 桁数調整
	while(length($cnt) < $mini_fig) { $cnt = '0' . "$cnt"; }
	@cnts = split(//,$cnt);

	print "<table border=1 cellspacing=0 cellpadding=0><tr><td>\n";

	# GIFカウンタ表示
	if ($counter == 2) {
		foreach (0 .. $#cnts) {
			print "<img src=\"$imgurl\/$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
		}
	}
	# テキストカウンタ表示
	else {
		print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$cnt</font>";
	}

	print "</td></tr></table>\n";
}

## --- おみくじ
sub kuji {
	# $kuji[*] と $msg[*] は必ず「同数」にすること。
	$kuji[0] = '大吉';
	$kuji[1] = '中吉';
	$kuji[2] = '吉';
	$kuji[3] = '小吉';
	$kuji[4] = '末吉';
	$kuji[5] = '吉';

	$msg[0]  = '今日の運勢は最高。<br>ただし、油断は大敵。';
	$msg[1]  = '運勢はまだまだ上昇中。<br>その調子で努力を続けよ。';
	$msg[2]  = 'これから徐々に上向く気配。<br>立ち止まるな。';
	$msg[3]  = '努力がもっと必要。<br>頑張れ。';
	$msg[4]  = '運気はこれから上向く。<br>小さな事からまず始めよ。';
	$msg[5]  = '運気の上昇も下降もこれからの努力次第。<br>足元に注意。';

	# 乱数を発生
	srand(time ^ ($$ + ($$ << 15)));
	$data = int(rand($#kuji +1));

	$col[0]  = '<font color="#0000FF">青</font>';
	$col[1]  = '<font color="#008000">緑</font>';
	$col[2]  = '<font color="#FF0000">赤</font>';
	$col[3]  = '<font color="#00FF40">ライムグリーン</font>';
	$col[4]  = '<font color="#FF80C0">ピンク</font>';
	$col[5]  = '<font color="#8000FF">紫</font>';
	$col[6]  = '<font color="#FEDE01">黄</font>';
	$col[7]  = '<font color="#000000">黒</font>';
	$col[8]  = '<font color="#C0C0C0">白</font>';
	$col[9]  = '<font color="#800000">茶</font>';
	$col[10] = '<font color="#FF8000">オレンジ</font>';
	$col[11] = '<font color="#0000A0">紺</font>';
	$col[12] = '<font color="#808080">グレー</font>';
	$col[13] = '<font color="#00FFFF">水色</font>';
	$col[14] = '<font color="#006400">モスグリーン</font>';

	# 乱数を発生
	srand(time ^ ($$ + ($$ << 15)));
	$data2 = int(rand($#col +1));

	# 結果
	&header;
	print <<"EOM";
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=20 width=300>
<tr><td align=center>
<IMG SRC="$imgurl\/saru_a2.gif" WIDTH="32" HEIGHT="30">
<br><br>
<font color="#000000">
<hr width="75%" size=1 noshade>
<P><h2><font color="#dd0000">$kuji[$data]</font></h2>
<P><h4>$msg[$data]</h4>
<P><hr width="75%" size=1 noshade>
<br><br><br>
- 今日のラッキー色 ： <b>$col[$data2]</b> -
</font>
<br><br>
</td></tr>
</table>
<P>
<FORM>
<INPUT TYPE="button" VALUE="前のページへ戻る" onClick="history.back()">
</FORM>
</center>
</body></html>
EOM
	exit;
}