#!/usr/bin/perl
#
#####################################################################################################
#
# ライブ！ウィンドウ
# Live!Window Version 1.00 <FREESOFT>   (c)2004 by CGI-RESCUE http://www.rescue.ne.jp/
#
# ・このプログラムは雛形であり、CGIプログラムを相応に操作できる方が利用できるものです。
# ・できるだけ解説は入れていますが、解釈は各自お願いします。個別のサポートはいたしかねます。
#
# [設置構成] < >はパーミッションの相当値
#
#  |-- .htaccess <644> (※) ... 必要に応じて設置
#  |-- index.cgi <755> ... このファイル
#  |-- jcode.pl <644> ... 日本語コード変換ライブラリ
#  |-- /tmp/ <777> ... ディレクトリを作成する
#
# [履歴]
# 2004/08/05 1.00 リリース
#
# [おことわり]
#
# ・このシステムはアクセス者のIPアドレスでアクセス者を区別しているものであり、異なる者が同一のIPアドレスを
#　有する環境からアクセスしている場合は正しく利用が出来なくなります。
# ・IPアドレスを自動割当されているアクセス者は、再接続によりIPアドレスが変わる場合があります。
# ・デフォルトで、５分を経過しても更新されていないアクセスは削除されます。調整するには下記プログラムを直接
# アレンジ（改造）してください。
#
#####################################################################################################

# このファイルへの仮想パス
$index = './index.cgi';

	# (※)解説
	# .htaccess を利用することが出来るサーバにおいては、DirectoryIndex index.cgi を設定しておけば、
	# $index = './'; と設定することが出来、このファイルへのアクセスでファイル名を省略できます。
	# 設定しなくても既にサーバ側で index.cgi が省略できるようになっている場合もあります。
	# URLが/で終わるアクセスに対して補間されるファイル名を指定するものです。
	# 参考) http://httpd.apache.org/docs-2.0/ja/mod/mod_dir.html#directoryindex

# 作業用ディレクトリ（最後を/で閉じないこと）
$tmp_dir = './tmp';

# 自動更新させる時間（単位：秒）
$time = 60;

# 日本語コード変換ライブラリ
require './jcode.pl';

#####################################################################################################

$ID = $ENV{'REMOTE_ADDR'}; # IPアドレスを取得

if ($ID eq "") { &error("IP Not Found"); }
if (!-e $tmp_dir) { &error("$! $tmp_dir"); }

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$now = sprintf("%02d:%02d",$hour,$min);

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'} ne '') { $buffer .= "\&$ENV{'QUERY_STRING'}"; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

	($key,$val) = split(/=/,$pair);
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

	&jcode'convert(*value,'sjis');

	$val =~ s/\t//g;
	$val =~ s/\n//g;
	$val =~ s/\r//g;

	$val =~ s/</&lt;/g;
	$val =~ s/>/&gt;/g;

	$in{$key} = $val;
}

if ($ENV{'QUERY_STRING'} eq "0") { # オンラインチェック --------------------------------------------------------------------

	if (-e "$tmp_dir/$ID") {

		open(F,"$tmp_dir/$ID");
		$HANDLE = <F>; # ニックネーム
		$MESSAGE = <F>; # メッセージ
		@denpo = <F>; # 電報
		close(F);

		if (@denpo) { # 電報がある場合の処理

			$onLoad = "onLoad='alert(\"通知\\n\\n";
			foreach (@denpo) { s/\n//g; s/>/&gt;/g; s/</&lt;/g; s/"/\\"/g; $onLoad .= "$_\\n"; }
			$onLoad .= "\")'";

			open(F,"> $tmp_dir/$ID"); # 電報だけ削除する
			print F $HANDLE;
			print F $MESSAGE;
			close(F);
		}
	}
	else {
		@pairs = split(/;/,$ENV{'HTTP_COOKIE'});
		foreach $pair (@pairs) {

			($key,$val) = split(/=/,$pair,2);
			$key =~ s/ //g;

			if ($key eq "uname") { $uname = $val; }
			if ($key eq "comment") { $comment = $val; }
		}

		open(F,"> $tmp_dir/$ID"); # 新規作成

		if ($uname ne "") { print F "$uname\t" . $$ . "\n"; }
		else { print F "匿名\t" . $$ . "\n"; }

		if ($comment ne "") { print F "$comment\n"; }
		else { print F "\n"; }

		close(F);
		chmod(0666,"$tmp_dir/$ID");
	}

	opendir(DIR,$tmp_dir); # オンライン中のIPアドレスを一覧
	@online_lists = readdir(DIR);
	@online_lists = sort grep(!/^\./,@online_lists);

	foreach $id (@online_lists) {

		$day    = -M "$tmp_dir/$id";
		$hi     = int($day);
		$hour   = ($day - $hi)*24;
		$ji     = int($hour);
		$minute = ($hour - $ji)*60;
		$hun    = int($minute);

		if ($id ne $ID && -e "$tmp_dir/$id" && $hun > 5) { # 最終更新から約5分を経過したものを削除する

			unlink("$tmp_dir/$id"); # 削除
		}
		else {
			if (open(F,"$tmp_dir/$id")) { # 一覧の準備

				$HANDLE{$id} = <F>; # ニックネーム
				$HANDLE{$id} =~ s/\n//g;
				($HANDLE{$id},$ps{$id}) = split(/\t/,$HANDLE{$id},2);

				$MESSAGE{$id} = <F>; # メッセージ
				$MESSAGE{$id} =~ s/\n//g; if ($MESSAGE{$id} ne "") { $MESSAGE{$id} = " &gt; $MESSAGE{$id}"; }

				close(F);
			}

			push(@ONLINE,$id);
		}
	}

	if ($in{'action'} eq "set") { # 名前、メッセージ、電報の記録処理

		if ($in{'target'} eq "denpo") { $ID_bak = $ID; $ID = $in{'id'}; }

		if (-e "$tmp_dir/$ID") {

			open(F,"$tmp_dir/$ID");
			$HANDLE = <F>; # ニックネーム
			$HANDLE =~ s/\n//g;
			($HANDLE,$ps) = split(/\t/,$HANDLE,2);
			$MESSAGE = <F>; # メッセージ
			@denpo = <F>; # 電報
			close(F);

			open(F,"> $tmp_dir/$ID");

			if ($in{'target'} eq "nic") {

				print F "$in{'key'}\t$ps\n";
				$HANDLE{$ID} = $in{'key'};
				$ps{$ID} = $ps;

				$in{'key'} =~ s/://g; $in{'key'} =~ s/;//g;
				print "Set-Cookie: uname=$in{'key'}\n";
			}
			else { print F "$HANDLE\t$ps\n"; }

			if ($in{'target'} eq "mes") {

				print F "$in{'key'}\n";
				$MESSAGE{$ID} = " &gt; $in{'key'}";

				$in{'key'} =~ s/://g; $in{'key'} =~ s/;//g;
				print "Set-Cookie: comment=$in{'key'}\n";
			}
			else {
				if ($HANDLE eq "") { print F "\n"; }
				else { print F $MESSAGE; }
			}

			print F @denpo;
			if ($in{'target'} eq "denpo" && $in{'key'} ne "") { print F "$HANDLE{$ID_bak}($in{'ps'}) &gt; $in{'key'} ($now)\n"; }
			close(F);
		}
		elsif ($in{'target'} eq "denpo") {

			$onLoad = "onLoad='alert(\"相手は退出したかもしれません.\")'";
		}

		if ($in{'target'} eq "denpo") { $ID = $ID_bak; }

		$ENV{'QUERY_STRING'} = "0";
	}

	$count = @ONLINE;
	$count += 0; # オンライン数

#■ ↓オンライン画面

print "Content-type: text/html\n\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>タイトル</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META HTTP-EQUIV=Refresh CONTENT=\"$time; URL=$index\?0">
<SCRIPT LANGUAGE="JavaScript">
<!--
function aform(act,m,id){
 var strg;
 strg = prompt(m,"");
 if (strg != null) { 
    document.myForm.key.value = strg;
    document.myForm.target.value = act;
    document.myForm.id.value = id;
    document.myForm.ps.value = $ps{$ID};
    document.myForm.submit();
    }
}
//-->
</SCRIPT>
</HEAD>

<body $onLoad>

<h3>Live ! ($count) $now</h3>
EOF

foreach $id (@ONLINE) {

	if ($id eq $ID) { print "<nobr><b><font color=red>$HANDLE{$id}</font></b> $MESSAGE{$id} [<a href=\"#\" target=\"_self\" onClick='aform(\"nic\",\"ニックネーム？\",\"\")'>名前設定</a>/<a href=\"#\" target=\"_self\" onClick='aform(\"mes\",\"メッセージ？\",\"\")'>コメント</a>] -No.$ps{$id}</nobr><br>\n"; } # 本人
	else { print "<nobr><a href=\"#\" target=\"_self\" onClick='aform(\"denpo\",\"$HANDLE{$id}さんへ電報をどうぞ\",\"$id\")' title=\"電報を出す\">$HANDLE{$id}</a> $MESSAGE{$id} -No.$ps{$id}</nobr><br>\n"; } # その他
}

print <<"EOF";
<p>
{<a href="$index\?0" title="自動更新($time秒)">更新</a>}
<p>

<form action="$index?0" method="post" name="myForm" target="_self">
<input type=hidden name=key>
<input type=hidden name=target>
<input type=hidden name=id>
<input type=hidden name=ps>
<input type=hidden name=action value="set">
</form>

</body>
</html>
EOF

}
elsif ($ENV{'QUERY_STRING'} eq "1") { # メイン画面 -------------------------------------------------------------------------

#■ ↓メイン画面（右フレーム）print <<"EOF"; の下から EOF の上までの間にHTMLを記述します。

print "Content-type: text/html\n\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>タイトル</TITLE>
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>

<body>

{<a href="$index\?0" title="自動更新($time秒)" target="0">Live!更新</a>}
<p>

<h3>解説</h3>

<ul>
<li>左画面で赤で表\示されているのはあなたです。
<li>「匿名」は名前設定で変更できます。
<li>コメントを書くと表\示されます。
<li>No.は固有の数字です。もし同じ名前を設定した人がいたら、この番号で区別してください。
ただし、再ログインした場合は同じ人でも番号が変わっている場合もあります。
<li>電報を出したい場合は、相手の名前をクリックします。
</ul>
<p>

このページに展開されるリンク以外（要するに他サイトへ飛ばすリンク）には必ず target=_top （フレーム解除命令）を入れてください。
<p>

良い例）<a href="http://www.yahoo.co.jp/" target=_top>Yahoo!JAPAN</a><br>
悪い例）<a href="http://www.yahoo.co.jp/">Yahoo!JAPAN</a>
<p>

※ 相手は画面の前にいるとは限りませんし、既に他サイトへ移動している場合もあります。<br>
※ 最終アクセスから５分以内のアクセス者が表\示されているものです。

</body>
</html>
EOF

}
else { # フレーム処理 ------------------------------------------------------------------------------------------------------

#■ ↓この記述で画面が分割されます。デフォルトでは左右分割３０％になっています。

print "Content-type: text/html\n\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>タイトル</TITLE>
<meta name="author" content="雛形提供 CGI-RESCUE http://www.rescue.ne.jp/"><!-- これは削除しないこと -->
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>
<frameset cols="30%,*">
<frame src="?0" name="0">
<frame src="?1" name="1" scrolling="auto">
<noframes>
<body>
あなたの環境ではご利用いただけません.
</body>
</noframes>
</frameset>
</html>
EOF

}

sub error { # エラールーチン -----------------------------------------------------------------------------------------------

	local (@msg) = @_;
	local ($i);

print "Content-type: text/html\n\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>タイトル</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>

<body>

<h3>$_[0]</h3>
EOF
	print "<ul>\n";
	foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
	print "</ul>\n";

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