#!/usr/local/bin/php
<?
# _/_/_/_/_/_/_/_/_/_/ にゃはぴょんCGI工房提供 _/_/_/_/_/_/_/_/_/_/
# _/           このスクリプトの改造・再配布は自由です。          _/
# _/                                                             _/
# _/_/_/_/_/_/_/_/_/_/  http://www.tky.3web.ne.jp/~t0kagaya/lib/ _/

######### ######### ######### ######### #########
# 涙枯れるまで泣く方がいい？？
# 愛のにゃはぴょん暇潰しシステム
#
# CGI本体
# nami_php.cgi
######### ######### ######### ######### #########

######### ######### ######### ######### #########
# 初期設定

$G_TIME_NOW        = time();     # 今の時間
$G_VER             = '0.90.0';   # このスクリプトのバージョン
$G_LOG_FILE        = 'log.dat';  # ネタレス保存用ログファイル
$G_OLD_LOGS_DIR    = 'data';     # 過去ログ保存用ディレクトリ
$G_NICK_LOG_FILE   = 'nick.dat'; # リアルタイム参加者ログファイル
$G_NETA_COUNT_FILE = 'cnt.dat';  # ネタ数カウンタファイル
$G_MAX_NUM_OF_NETA = 20;         # 画面に表示する(書き込み可能な)ネタの最大数
$G_MAX_NUM_OF_RES  = 20;         # 一つのネタにつけられるレスの最大数
$G_KANJI_CODE      = 'sjis';     # 使われる漢字コード
$G_NICK_TIME_OUT   = '1000';   # ニックの脱落時間

$G_THIS_NAME       = "nami.cgi"; # このCGIの名前
$G_TITLE           = "涙枯れるまで泣く方がいい？？ Ver $G_VER PHP版"; # タイトル

$G_SAVE_OLD_LOGS   = 1; # 過去ログを保存するかどうか(しないならコメントアウト)
$G_MAX_NUM_OF_OLD_NETA_PER_FILE = 50; # 一つの過去ログファイルに保存されるネタ数

######### ######### ######### ######### #########
# メインルーチン
# main routine
######### ######### ######### ######### #########

# ヘッダー表示
PrintHeader();

# フォームからデータ取得
$gForm = array();
$gForm = GetForm($HTTP_POST_VARS,$HTTP_GET_VARS);

if ($gForm{"mode"} == 'intro'){

	# 自己紹介の表示
	DispIntroduce();

}
elseif ($gForm{"mode"} == 'res'){

	# レス入力画面の表示
	DispResForm();

}
elseif ($gForm{"mode"} == 'view'){

	# レス入力画面の表示
	ViewLogs();

}
elseif ($gForm{"neta"}){

	# ネタをファイルに書き込み
	WriteNeta();

}
elseif ($gForm{"res"}){

	# レスをファイルに書き込み
	WriteRes();

}
else {

	# デフォルト処理

	# ログと新着ファイル読み込み
	list($mLog,$mWhatsNew) = LoadLog();
	# 参加者リスト読み込み
	$mNickList = GetNickList($G_TIME_NOW,$G_NICK_TIME_OUT);

	# 画面表示
	PrintNetaForm($mWhatsNew);
	echo $mNickList;
	echo $mLog;

}

# フッター表示
PrintTail();

######### ######### ######### ######### #########
# ユーザー定義関数
# function
######### ######### ######### ######### #########

function LoadFromFile($file){

	$array_data = @file($file);
	if(!$array_data){
		$msg = " ファイル入力エラー [ ファイル名：$file ] ";
	}

    return array ($msg, $array_data);

}

function WriteToFile($file,$option,$array_data){

	if ($fp = @fopen($file,$option)){
		foreach($array_data as $current){
			fwrite($fp,$current);
		}
		fclose($fp);
	}else{
		$msg = " ファイル出力エラー [ ファイル名：$file ] ";
	}

    return $msg;

}

function GetForm($POST,$GET){

	if ($POST){
		foreach($POST as $key => $value){
			$value = stripslashes($value);
			$value = htmlspecialchars($value);
			$value = ereg_replace(",", "&#44;", $value);
			$value = ereg_replace("\r", "", $value);
			$value = ereg_replace("\n", "", $value);
			$FORM{$key} = $value;
		}
	}

	if ($GET){
		foreach($GET as $key => $value){
			$value = stripslashes($value);
			$value = htmlspecialchars($value);
			$value = ereg_replace(",", "&#44;", $value);
			$value = ereg_replace("\r", "", $value);
			$value = ereg_replace("\n", "", $value);
			$FORM{$key} = $value;
		}
	}

	return $FORM;

}

function GetTime($time){

	if(!$time){
		$time = time();
	}

	//グリニッジ標準時間で
	$times = $time + 32400;
	$date  = gmdate("Y/m/d D G:i",$times);
#	$timep = gmdate("G:i",$times);

	return $date;

}

function ViewLogs(){

#-------- --------- --------- --------- ---------
# ログ閲覧モードのHTML作成表示
#-------- --------- --------- --------- ---------

#    my ($mCntErr,@mData,$mLog,$mWhatsNew,$mNext,$mBefore,$mErr2,$mErr,$mCnt);

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	$m_array_Data = array();

	# ネタ番号カウンタ読み込み
	list($mCntErr,$mCnt) = LoadFromFile($G_NETA_COUNT_FILE);

	# ネタ番号が指定されている場合
	if ($gForm{"no"}){

		# 過去ログファイル番号を計算
		$mFileName = intval ($gForm{"no"} / $G_MAX_NUM_OF_OLD_NETA_PER_FILE);
		# ファイル読み込み
		list($mErr,$m_array_Data) = LoadFromFile("$G_OLD_LOGS_DIR/$mFileName.txt");
		# ネタが新しい順に並べ替え
		$m_array_Data = @array_reverse ($m_array_Data);

		# ページリンクのネタ番号設定
		$mNext = $gForm{"no"} - $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
		$mBefore = $gForm{"no"} + $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
		if ($mNext < 1){ $mNext = 0; }

	}

	# ネタ番号が指定されていないもしくはネタ番号指定でのログ読み込みが失敗した場合
	if (($gForm{"no"} == "") || (!$mErr == "")){

		# ログファイル読み込み
		list($mErr2,$m_array_Data) = LoadFromFile($G_LOG_FILE);

		# ページリンクのネタ番号設定
		$mNext = $mCnt[0] - count($m_array_Data);
		$mBefore = 1;

	}

	# ログが読めなかった場合のエラー表示
	if(!$m_array_Data){
		echo "\n<hr><h2>[エラー] ログファイルを読み込めませんでしたよ！ [^v^]/</h2>\n";
		echo "<a href=\"$G_THIS_NAME\">戻る</a>\n";
		return;
	}

	# リンクしないモードでログをHTMLに
	list($mLog,$mWhatsNew) = FormLog('nolink',$m_array_Data);

	# 閲覧室のHTML表示
	$mLog = "
<center><h2><font color=\"#ffff99\">過去ログ閲覧君</font></h2></center>
<font color=\"#ccffaa\">■ </font>最高${G_MAX_NUM_OF_OLD_NETA_PER_FILE}件毎表\示
 <font color=\"#ccffaa\">■ </font><a href=\"$G_THIS_NAME\">戻る</a>
<hr noshade>
<div align=right>
<font color=\"#ccffaa\">■ <a href=\"$G_THIS_NAME?no=$mBefore&mode=view\">前のページ</a> ■
 <a href=\"$G_THIS_NAME?no=$mNext&mode=view\">次のページ</a> ■</font>
</div>

$mLog

<hr noshade>
<div align=right>
<font color=\"#ccffaa\">■ <a href=\"$G_THIS_NAME?no=$mBefore&mode=view\">前のページ</a> ■
 <a href=\"$G_THIS_NAME?no=$mNext&mode=view\">次のページ</a> ■</font>
</div>
";

	echo $mLog;

}


function WriteRes(){

#-------- --------- --------- --------- ---------
# レスをファイルに記録
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	$m_array_Log = array();
	$m_array_Res = array();
	$m_array_NewLog = array();

	list($mErr,$m_array_Log) = LoadFromFile ($G_LOG_FILE);

	# ファイルを読み込めなかった場合のメッセージ処理
	if ($mErr){
		$mErrMessage .= "<h2>[エラー] メインログファイルを読み込めませんでしたよ！ [^v^]/</h2>\n";
	}

	# ファイル書き込み用のログデータ作成ルーチン
	foreach ($m_array_Log as $current){

		$current = Chop ($current);

		# ひとつのスレッドを読み込み
		$m_array_Res = explode(",", $current);
		$mNo = array_shift($m_array_Res);
		$mNeta = array_shift($m_array_Res);
		$mTime = array_shift($m_array_Res);

		# ネタ番号が見つかったら
		if ($mNo == $gForm{"no"}){

			# 最大レス数になってたら書き込めないように
			if (count($m_array_Res) + 1 > $G_MAX_NUM_OF_RES){
				$mErrMessage .= "<h2>[エラー] これ以上レスはつけられませんよ！ [^v^]/</h2>\n";
				$mWriteFlag = 0;
				break;   
			}
			# レスの追加とフラグ処理
			array_push ($m_array_Res, $gForm{"res"});
			$mBuf = implode (",", $m_array_Res);
			array_push ($m_array_NewLog,"$mNo,$mNeta,$G_TIME_NOW,$mBuf\n");
			$mWriteFlag = 1;
		}else{
			array_push ($m_array_NewLog,"$current\n");
		}
	}

	# レス先のネタ番号が存在してレス追加してたらファイルに書き込み
	if ($mWriteFlag){
		list($mErr) = WriteToFile ($G_LOG_FILE,"w",$m_array_NewLog);
	}else{
		# ネタ番号が存在しなかった場合のエラーメッセージ
		$mErrMessage .= "<h2>[エラー] 指定されたネタ番号には書き込めませんでしたよ！ [^v^]/</h2>\n";
	}

	# ファイルを書き込めなかった場合のメッセージ処理
	if ($mErr){
		$mErrMessage .= "<h2>[エラー] メインログファイルに書き込めませんでしたよ！ [^v^]/</h2>\n";
	}

	# エラーがあったら"0% 無事、登録されました。"に
	if ($mErrMessage){
		$mMessage = "0% 無事、登録されました。";
	}else{
		$mMessage = "99.9% 無事、登録されました。";
	}

	echo "
<meta http-equiv=\"Refresh\" content=\"2;URL=$G_THIS_NAME\">
$mErrMessage
たぶん２秒後に自動的に戻ります
<H2>$mMessage</H2>
<p>
<A HREF=\"$G_THIS_NAME\">ここをクリックして下さい。</A>
<br><br><br>
";

}

function DispResForm(){

#-------- --------- --------- --------- ---------
# レス用のフォーム表示
#-------- --------- --------- --------- ---------

#	my ($mErr,@mLog,$mFindFlag,$mErrMessage);

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	$m_array_Log = array();
	$m_array_Res = array();

	list($mErr,$m_array_Log) = LoadFromFile ($G_LOG_FILE);

	# ファイルを読み込めなかった場合のメッセージ処理
	if ($mErr){
		$mErrMessage .= "<h2>[エラー] メインログファイルを読み込めませんでしたよ！ [^v^]/</h2>\n";
	}

	# 指定された番号のネタを探す
	foreach ($m_array_Log as $current){

		$current = Chop ($current);

		# ひとつのスレッドを読み込み
		list($mNo,$mNeta,$mTime,$m_array_Res) = explode(",", $current);

		# ネタ番号が見つかったらおしまい
		if ($mNo == $gForm{"no"}){
			$mFindFlag = 1;
			break;
		}
	}

	# ネタ番号が見つかったらレス画面表示
	if ($mFindFlag){

	echo "
<h3>ネタフリは<font color=\"#02ffff\"> $mNeta </font>だったようです。
</h3> ゲンキダセヨ [^v^]/<p>
<form action=\"$G_THIS_NAME\" method=POST>
<input type=hidden name=no value=\"",$gForm{"no"},"\">
<input type=hidden name=mode value=wres>
<font color=\"#ffa9a5\">レス</font>
<input type=text name=res size=50 maxlength=255>
<input type=submit name=submit value=OK>
<input type=reset value=reset>
</form>
<br>
<a href=\"$G_THIS_NAME\">戻る</a>
";

	}else{
	# レスするネタ番号が見つからなかった場合の表示
	echo "
$mErrMessage
<h2>[エラー] ネタ番号が見つかりませんでしたよ！ [^v^]/</h2>
<a href=\"$G_THIS_NAME\">戻る</a>

";
	}

}

function DispIntroduce(){

#-------- --------- --------- --------- ---------
# 自己紹介表示
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	# フォームからコメント取得
	$mIntroduce = $gForm{"comment"};

	# タイトル設定
	$mTitle = "自己紹介";

	# 改行コマンドの処理
	$mIntroduce = eregi_replace("%%BR","<BR>",$mIntroduce);
	$mIntroduce = eregi_replace("%%P","<P>",$mIntroduce);

	echo "
<center>

<table border=2><tr>
<td width=300 height=150 valign=top bgcolor=\"#004040\">
<center><h2><font color=\"#ffff99\">$mTitle</font></h2></center>
$mIntroduce
</td></tr></table>
<A HREF=\"$G_THIS_NAME\">戻る</A>
<br>
</center>
";

}

function WriteNeta(){

#-------- --------- --------- --------- ---------
# ネタフリをファイルに記録
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	$m_array_Data = array();
	$m_array_Tail = array();
	$m_array_NewData = array();

	# ログファイル読み込み
	list($mErr,$m_array_Data) = LoadFromFile($G_LOG_FILE);
 
	# ネタ番号カウンタ読み込み
	list($mErr2,$mCnt) = LoadFromFile($G_NETA_COUNT_FILE);

	if ($mErr || $mErr2){
		# 読み込みエラー処理
		echo "<h2>[ エラー ] ログファイルを読み込めませんでしたよ！ [^v^]/</h2>\n";
		$mMmessage = "0% 無事、登録されました。";
	}else{
		# ネタカウンタをひとつ増やしカウントファイルに書き込み
		$mCnt[0]++;
		$mErr = WriteToFile($G_NETA_COUNT_FILE,"w",$mCnt);
		if ($mErr){
			# ネタカウンタ書き込みエラー処理
			echo "<h2>[ エラー ] ネタカウントファイルに書き込めませんでしたよ！ [^v^]/</h2>\n";
			$mMmessage = "0% 無事、登録されました。";
		}else{

			# ログデータの先頭に新規ネタフリ追加
			$mBuf = $mCnt[0];
			$mBuf .= ",";
			$mBuf .= $gForm{"neta"};
			$mBuf .= ",";
			$mBuf .= "$G_TIME_NOW\n";
			array_unshift ($m_array_Data, $mBuf);

			# 最大数を超えたネタを $m_array_Tail に格納

			for($i=0;$G_MAX_NUM_OF_NETA > $i;$i++){
				$m_array_NewData[$i + 1] = $m_array_Data["$i"];
			}
			for($i;count($m_array_Data)>=$i;$i++){
				array_push($m_array_Tail,$m_array_Data["$i"]);
			}

			# $m_array_Tail にネタが入っていて過去ログ保存機能が有効になっていたら
			if ($G_SAVE_OLD_LOGS && $m_array_Tail){
				$mLogIndex = count($m_array_Tail) - 1;
				$m_array_Tail = array_reverse($m_array_Tail);
				foreach ($m_array_Tail as $current){
					# ネタカウントを元に保存するファイル番号を計算
					$mFileName = intval (($mCnt[0] - $G_MAX_NUM_OF_NETA - $mLogIndex) / $G_MAX_NUM_OF_OLD_NETA_PER_FILE);
					# 過去ログファイルに追可保存
					$m_array_Buf = array($current);
					$Err3 .= WriteToFile("$G_OLD_LOGS_DIR/$mFileName.txt", "a", $m_array_Buf);
					$mLogIndex--;
				}
			}

			# ログ書き込み
			$mErr = WriteToFile($G_LOG_FILE,"w",$m_array_NewData);

			if ($mErr || $Err3){
				# 書き込みエラー処理
				echo "<h2>[ エラー ] ログファイルに書き込めませんでしたよ！ [^v^]/</h2>\n";
				$mMmessage = "0% 無事、登録されました。";
			}else{
				$mMmessage = "99.9% 無事、登録されました。";
			}
		}
	}

	echo "
<meta http-equiv=\"Refresh\" content=\"2;URL=$G_THIS_NAME\">
たぶん２秒後に自動的に戻ります<H2>$mMmessage</h2>
<p>
<A HREF=\"$G_THIS_NAME\">ここをクリックして下さい。</A>
<br><br><br>
";

}

function FormLog($mOption,$m_array_Data){

#-------- --------- --------- --------- ---------
# ログ整形
# HTMLデータ = FormLog(オプション,ログデータ);
#
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	$m_array_Res = array();
	$m_array_WhatsNewList = array();

	# ★の色変え位置
	$M_DIVIDE_POINT = 5;

	$mWhatsNew = "<font color=\"#77ff99\">新着</font>｜";

	# ログデータをHTMLに整形して$mLogに格納
	foreach ($m_array_Data as $mLine){

		$mLine = Chop ($mLine);

		# ひとつのスレッド読み込み
		$m_array_Res = explode(",", $mLine);
		$mNo = array_shift($m_array_Res);
		$mNeta = array_shift($m_array_Res);
		$mTime = array_shift($m_array_Res);

		# 新着の作成
		if(!$mTime){ $mTime = time(); }
		$mTime2 = GetTime($mTime);
		$m_array_WhatsNewList{"$mTime"} = "<font color=\"#ccff99\">★</font><a href=\"#$mNo\">$mNo</a> ( <font size=-1 color=\"#cccccc\">$mTime2</font> ) ";

		# オプションが'link'ならネタ番号にレス画面へのリンクを
		if ($mOption == 'link'){
			$mLog .= "\n<a name=\"$mNo\">\n<hr><ul><font size=+2><a href=\"$G_THIS_NAME?no=$mNo&mode=res\">★$mNo</a></font>\n";
		}else{
			# オプションが無かったらリンクしない
			$mLog .= "\n<hr><ul><font size=+1 color=\"#FFFF00\">★$mNo</font>\n";
		}

		# 日付取得
		if(!$mTime){ $mTime = time(); }
		$mDate = GetTime($mTime);
		# ネタの表示部分作成
		$mLog .= "<font size=5 color=\"#a3c8ff\">$mNeta</font><font size=2 color=\"#cccccc\"> $mDate </font>\n";

		# このネタにレスがあれば
		if (count($m_array_Res)){

			# レス数の表示部分作成
			$mLog .= "<small> . . *";
			$mLog .= count($m_array_Res);
			$mLog .= "</small>\n<p><dl>\n";

			$m_array_ResHTML = array();
			$mCounter = 1;

			# レスの処理
			foreach ($m_array_Res as $current){

				# $M_DIVIDE_POINTで指定された数置きに★の色を変える
				if (($mCounter % $M_DIVIDE_POINT) == 0){
					array_push ($m_array_ResHTML,"<dd><font color=\"#66cc33\">★</font>$current");
				}else{
					array_push ($m_array_ResHTML,"<dd><font color=\"#ccffaa\">★</font>$current");
				}
			$mCounter++;
			}
			# 新しいレス順に並び代えて$mLogに格納
			$m_array_ResHTML = array_reverse($m_array_ResHTML);
			$mLog .= implode ("\n", $m_array_ResHTML);
			$mLog .= "</dl>\n";
		}else{
			# レスが無かった場合の処理
			$mLog .= "<small> . . *無</small>\n";
		}
		$mLog .= "</ul>\n";
	}
	# 新着表示部分の作成
	krsort($m_array_WhatsNewList);
	$mWhatsNew .= implode("",$m_array_WhatsNewList);
	$mWhatsNew .= "<br>\n";

	return array ($mLog,$mWhatsNew);

}

function LoadLog(){

#-------- --------- --------- --------- ---------
# メイン画面に表示するログファイル読み込み
# HTMLデータ = LoadLog;
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	list($mErr,$m_array_Data) = LoadFromFile($G_LOG_FILE);

	if ($mErr){
		return ("\n<hr>[エラー] メインログファイルを読み込めませんでした [^v^]/\n");
	}

	list($mLog,$mWhatsNew) = FormLog("link",$m_array_Data);

	return array ($mLog,$mWhatsNew);
 
}

function PrintTail(){

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	echo "

<hr>
<hr noshade><br>
<div align=right>
CGI製作 , <a href=\"http://www.tky.3web.ne.jp/~t0kagaya/lib/\">にゃはぴょんCGI工房</a> [ なみかれ Ver $G_VER ]<br>

";

}

function PrintNetaForm($mWhatsNew){

#-------- --------- --------- --------- ---------
# ネタフリ用FORM表示
# PrintNetaForm(新着データ);
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	echo "
最大ネタ数$G_MAX_NUM_OF_NETA, 最大レス数$G_MAX_NUM_OF_RES, 脱落まで${G_NICK_TIME_OUT}秒
<form action=\"$G_THIS_NAME\" method=POST>
<font color=\"#ffa9a5\">ネタフリ</font>
<input type=text name=neta size=50 maxlength=255>
<input type=submit name=submit value=OK>
<input type=reset value=reset>
</form>

<a href=\"$G_THIS_NAME\">リロード</a>｜
<a href=\"$G_THIS_NAME?mode=view\">ログ閲覧</a>｜
<a href=\"./index.html\">readme 1st</a>｜
<a href=\"http://210.151.214.30/jp/honyaku/demo/index.html\">翻訳</a>｜
<font size=1>注：ここでの書き込みで生じる著作権は全てフリー(自分で責任とれる範囲で自由に使ってださい)</font>
<hr>

$mWhatsNew

<FORM METHOD=POST ACTION=\"$G_THIS_NAME\">
ニック機能\ <input type=\"text\" size=\"20\" name=\"nick\" maxlength=\"100\">
<input type=\"submit\" value=\"決め\">
</FORM>

";

}

function PrintHeader(){

#-------- --------- --------- --------- ---------
# ヘッダー表示
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	echo "
<html>
<head>
<title>$G_TITLE</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">
</head>
<body bgcolor=\"#004f4f\" text=\"#F0FFF0\" link=\"#FFFF00\" vlink=\"#FFFF00\" alink=\"#FFFF00\">
<font color=\"#77ff99\">あなたの疑問をうっすら解決</font></b>
<font size=-1> 〜<font color=\"#ff7777\">愛</font>のにゃはぴょん人生相談室〜 暇潰しシステムオリジナル ver $G_VER</font>
<p>
";

}

function GetNickList($m1,$m2){

#-------- --------- --------- --------- ---------
# ニック機能
# ニック一覧HTML = GetNickList(現在の時刻,脱落までの時間)
#-------- --------- --------- --------- ---------

	global $G_TIME_NOW,$G_VER,$G_LOG_FILE,$G_OLD_LOGS_DIR,$G_NICK_LOG_FILE;
	global $G_NETA_COUNT_FILE,$G_MAX_NUM_OF_NETA,$G_MAX_NUM_OF_RES;
	global $G_KANJI_CODE,$G_NICK_TIME_OUT,$G_THIS_NAME,$G_TITLE,$G_SAVE_OLD_LOGS;
	global $G_MAX_NUM_OF_OLD_NETA_PER_FILE;
	global $gForm;

	$m_array_Data = array();
	$m_array_NewList = array();

	# ニックのログファイルを読み込む
	list($mErr,$m_array_Data) = LoadFromFile($G_NICK_LOG_FILE);

	# 読み込み失敗したらエラー表示
	if ($mErr){
		return ("[エラー] 参加者ログファイルを読み込めませんでした [^v^]/\n");
	}

	# 表示用ニックリストの準備
	if(!$m1){ $m1 = time(); }
	$mNow = GetTime($m1);
	$mData = count($m_array_Data);
	$mNickList .= "$mNow (現地時間) 現在のリアルタイム参加者は $mData 人らしい<br><small>irc.friend.td.nu #nyahapyon / irc.3web.ne.jp #にゃはぴょん</small><br>\n";

	# ニックのリストを作成
	foreach ($m_array_Data as $current){

		$current = Chop ($current);

		# 一人分のデータを読み込み各変数にいれる
		list($mNick, $mHost, $mTime) = explode("<>", $current);

		# 脱落時間になってたら脱落表示してデータから削除
		if (($m1 - $mTime) > $m2){
			$mLine = "<font color=\"hotpink\">★</font><font color=\"#77ff99\">脱落？</font>";
		}else{
			# 制限時間内ならニックの表示と各種処理

			# ニックのIPと一致したら
			$mHostTemp = getenv("REMOTE_HOST");
			$mHostTemp2 = getenv("REMOTE_ADDR");

			if (($mHost == $mHostTemp) || ($mHost == $mHostTemp2)){
				# 最終アクセス時刻を現在のものに
				$mTime = $m1;
				# ニック欄に何か入力されていたらニック更新
				if ($gForm{"nick"}){$mNick = $gForm{"nick"};}
				# フラグセット
				$mRefreshFlag = 1;
			}

			# ファイル保存用データに格納
			array_push ($m_array_NewList, "$mNick<>$mHost<>$mTime\n");

			# 色ニックの処理
			$mIndex = count($m_array_NewList);
			if($mIndex == 1){
				$mStarColor = '#FFFF66'; $mNickColor = '#FFFF99';
			}elseif($mIndex == 2){
				$mStarColor = '#999999'; $mNickColor = '#EEEEEE';
			}elseif($mIndex == 3){
				$mStarColor = '#FF9966'; $mNickColor = '#FFCC66';
			}

			# ニックのオマケ特殊処理

			$m_array_Array = array();

			if (ereg("｜",$mNick)){
				# "｜"でニックと自己紹介部分に分ける
				$m_array_Array = explode("｜",$mNick);
				$mNick = array_shift($m_array_Array);
				$mIntroduce = implode("｜",$m_array_Array);

				# URLエンコード
				$mIntroduce = htmlentities(urlencode($mIntroduce)); 

				# 自己紹介リンク
				$mStar = "<a href=\"$G_THIS_NAME?mode=intro&comment=$mIntroduce\">★</a>";
			}else{
				$mStar = "★";
			}

			# 上位三名の処理
			if ($mIndex < 4){
				$mLine = "<font color=\"$mStarColor\">$mStar</font><font color=\"$mNickColor\">$mNick</font><font color=\"CCFFCC\">さんは " . ($m1 - $mTime)  . "秒前</font>\n";
			}else{
				# それ以外の参加者の処理
				$mLine = "<font color=\"hotpink\">$mStar</font>${mNick}さんは " . ($m1 - $mTime)  . "秒前\n";
			}
		}

		# 一人分のデータを表示用変数に格納
		$mNickList .=  $mLine;

	} # ニックのリストを作成 # ここまで

	# ニックデータにIPが無かった場合、参加の処理
	if (!$mRefreshFlag){
		$mNickList .= "<font color=\"hotpink\">★</font>(参加)";

		if (getenv("REMOTE_HOST")){
			$mNewHost = getenv("REMOTE_HOST");
		}else{
			$mNewHost = getenv("REMOTE_ADDR");
		}

		array_push ($m_array_NewList, "見学<>$mNewHost<>$m1\n");
	}

	# ニックデータをファイルに書き込み
	$mErr = WriteToFile($G_NICK_LOG_FILE, "w", $m_array_NewList);

	# エラー表示
	if ($mErr){
		return ("[エラー] 参加者ログファイルに書き込めませんでした[^v^]/\n");
	}

	return $mNickList;

}
?>