#!/usr/local/bin/ruby

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

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

require "cgi"

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

$G_TIME_NOW        = Time.now.tv_sec     # 今の時間
$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} Ruby版" # タイトル

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

######### ######### ######### ######### #########
# メソッド定義
# def
######### ######### ######### ######### #########


def LoadFromFile(file)

	array_data = []

	msg = ""

	if not FileTest.readable?(file) then
		msg = " ファイル入力エラー [ ファイル名：#{file} ] "
	else
		f = open(file,"r")
		array_data = f.readlines
	end

	array_data.unshift(msg)

	return array_data

end

def WriteToFile(file,option,array_data)

	msg = ""
	#配列じゃないのがきたら配列にする
	if not array_data.class == "Array" then
		array_data = array_data.to_a
	end

	f = open(file,option)

	if not f == "" then
		for current in array_data
			current = current.to_s
			f.write(current)
		end
		f.close
	else
		msg = " ファイル出力エラー [ ファイル名：#{file} ] "
	end

	return msg

end

def GetTime(times)

	#文字列できたらIntegerに
	if times.class == String then
		times = times.to_i
	end

	if times == "" then
		times = Time.now.tv_sec
	end

	##グリニッジ標準時間で
	obj_times = Time.at(times).gmtime
	obj_times = obj_times + 32400
	date      = obj_times.strftime("%Y/%m/%d %a %H:%M")

	return date

end

def ViewLogs()

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

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

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

	# ネタ番号が指定されている場合
	if not $gForm["no"] == [] then

		# 過去ログファイル番号を計算
		# Rubyでは整数部分のみが返ってくる
		mFileName = $gForm["no"].to_s.to_i / $G_MAX_NUM_OF_OLD_NETA_PER_FILE
		# ファイル読み込み
		m_array_Data = LoadFromFile("#{$G_OLD_LOGS_DIR}/#{mFileName}.txt")

		mErr = m_array_Data.shift
		# ネタが新しい順に並べ替え
		m_array_Data.reverse!

		# ページリンクのネタ番号設定
		mNext = $gForm["no"].to_s.to_i - $G_MAX_NUM_OF_OLD_NETA_PER_FILE
		mBefore = $gForm["no"].to_s.to_i + $G_MAX_NUM_OF_OLD_NETA_PER_FILE
		mNext = 0 if mNext < 1

	end

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

		# ログファイル読み込み
		m_array_Data = LoadFromFile($G_LOG_FILE)
		mErr2 = m_array_Data.shift

		# ページリンクのネタ番号設定
		mNext = mCnt.to_i - m_array_Data.length
		mBefore = 1

	end

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

	# リンクしないモードでログをHTMLに
	(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>
"

	print mLog

end


def WriteRes()

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

	m_array_NewLog = []
	mErrMessage = ""

	m_array_Log = LoadFromFile($G_LOG_FILE)
	mErr = m_array_Log.shift

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

	# ファイル書き込み用のログデータ作成ルーチン
	for current in m_array_Log

		current = current.to_s
		current.chomp!

		# ひとつのスレッドを読み込み
		m_array_Res = current.split(/,/)
		mNo = m_array_Res.shift
		mNeta = m_array_Res.shift
		mTime = m_array_Res.shift

		# ネタ番号が見つかったら
		if mNo == $gForm["no"] then

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

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

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

	# エラーがあったら"0% 無事、登録されました。"に
	if not mErrMessage == "" then
		mMessage = "0% 無事、登録されました。"
	else
		mMessage = "99.9% 無事、登録されました。"
	end

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

end

def DispResForm()

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

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

	m_array_Log = LoadFromFile($G_LOG_FILE)
	mErr = m_array_Log.shift

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

	# 指定された番号のネタを探す
	for current in m_array_Log

		current = current.to_s
		current.chomp!

		# ひとつのスレッドを読み込み
		m_array_Res = current.split(/,/)
		(mNo,mNeta,mTime) = m_array_Res[0..2]
		m_array_Res[0..2] = nil

		# ネタ番号が見つかったらおしまい
		if mNo == $gForm["no"] then
			mFindFlag = 1
			break
		end
	end

	# ネタ番号が見つかったらレス画面表示
	if not mFindFlag == "" then

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

"
	end

end

def DispIntroduce()

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

	# フォームからコメント取得
	mIntroduce = $gForm["comment"]

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

	# 改行コマンドの処理
	mIntroduce.gsub!(/(?i)%%BR/,"<BR>")
	mIntroduce.gsub!(/(?i)%%P/,"<P>")

	print "
<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>
"

end

def WriteNeta()

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

	m_array_Tail = []
	mErr = ""
	mErr2 = ""
	mErr3 = ""

	# ログファイル読み込み
	m_array_Data = LoadFromFile($G_LOG_FILE)
	mErr = m_array_Data.shift

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

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

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

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

			m_array_NewData = m_array_Data[0..$G_MAX_NUM_OF_NETA]
			m_array_Tail = m_array_Data[$G_MAX_NUM_OF_NETA + 1..-1]

			# m_array_Tail にネタが入っていて過去ログ保存機能が有効になっていたら
			if $G_SAVE_OLD_LOGS && (not m_array_Tail == nil) then
				mLogIndex = m_array_Tail.length - 1
				m_array_Tail.reverse!
				for current in m_array_Tail
					# ネタカウントを元に保存するファイル番号を計算
					mFileName = (mCnt.to_i - $G_MAX_NUM_OF_NETA - mLogIndex.to_i) / $G_MAX_NUM_OF_OLD_NETA_PER_FILE
					# 過去ログファイルに追可保存
					m_array_Buf = current.to_a
					mErr3 = WriteToFile("#{$G_OLD_LOGS_DIR}/#{mFileName}.txt", "a", m_array_Buf)
					mLogIndex -= 1
				end
			end
			# ログ書き込み
			mErr = WriteToFile($G_LOG_FILE,"w",m_array_NewData)

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

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

end

def FormLog(mOption,m_array_Data)

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

	m_array_WhatsNewList = {} #連想配列は別物的

	mLog = ""

	# ★の色変え位置
	m_DIVIDE_POINT = 5

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

	# ログデータをHTMLに整形してmLogに格納
	for mLine in m_array_Data

		mLine = mLine.to_s
		mLine.chomp!

		# ひとつのスレッド読み込み
		m_array_Res = mLine.split(/,/)
		(mNo,mNeta,mTime) = m_array_Res[0..2]
		m_array_Res[0..2] = nil

		# 新着の作成
		if mTime == "" then
			mTime = Time.now.tv_sec
		end
		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' then
			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"
		end

		# 日付取得
		if mTime == "" then
			mTime = Time.now.tv_sec
		end
		mDate = GetTime(mTime)
		# ネタの表示部分作成
		mLog += "<font size=5 color=\"#a3c8ff\">#{mNeta}</font><font size=2 color=\"#cccccc\"> #{mDate} </font>\n"

		# このネタにレスがあれば
		if not m_array_Res == "" then

			# レス数の表示部分作成
			mLog += "<small> . . *#{m_array_Res.length}</small>\n<p><dl>\n"

			m_array_ResHTML = []
			mCounter = 1

			# レスの処理
			for current in m_array_Res

				current = current.to_s
				# m_DIVIDE_POINTで指定された数置きに★の色を変える
				if (mCounter % m_DIVIDE_POINT) == 0 then
					m_array_ResHTML.push("<dd><font color=\"#66cc33\">★</font>#{current}")
				else
					m_array_ResHTML.push("<dd><font color=\"#ccffaa\">★</font>#{current}")
				end
				mCounter += 1
			end
			# 新しいレス順に並び代えてmLogに格納
			m_array_ResHTML.reverse!
			mLog += m_array_ResHTML.join("\n")
			mLog += "</dl>\n"
		else
			# レスが無かった場合の処理
			mLog += "<small> . . *無</small>\n"
		end
		mLog += "</ul>\n"
	end
	# 新着表示部分の作成
	for k in m_array_WhatsNewList.keys.sort.reverse
		mWhatsNew += m_array_WhatsNewList[k]
	end
	mWhatsNew += "<br>\n"

	return mLog,mWhatsNew

end

def LoadLog()

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

	m_array_Data = LoadFromFile($G_LOG_FILE)
	mErr = m_array_Data.shift

	if not mErr == "" then
		return "\n<hr>[エラー] メインログファイルを読み込めませんでした [^v^]/\n"
	end

	(mLog,mWhatsNew) = FormLog("link",m_array_Data)

	return mLog,mWhatsNew
 
end

def PrintTail()

	print "

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

"

end

def PrintNetaForm(mWhatsNew)

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

	print "
最大ネタ数#{$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>

"

end

def PrintHeader()

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

	print "
<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>
"

end

def GetNickList(m1,m2)

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

	m_array_NewList = []

	mNickList = ""

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

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

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

	# ニックのリストを作成
	for current in m_array_Data

		current = current.to_s
		current.chomp!

		# 一人分のデータを読み込み各変数にいれる
		(mNick, mHost, mTime) = current.split(/<>/)

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

			# ニックのIPと一致したら
			mHostTemp = ENV["REMOTE_HOST"]
			mHostTemp2 = ENV["REMOTE_ADDR"]

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

			# ファイル保存用データに格納
			m_array_NewList.push("#{mNick}<>#{mHost}<>#{mTime}\n")

			# 色ニックの処理
			mIndex = m_array_NewList.length
			if mIndex == 1 then
				mStarColor = '#FFFF66'
				mNickColor = '#FFFF99'
			elsif mIndex == 2 then
				mStarColor = '#999999'
				mNickColor = '#EEEEEE'
			elsif mIndex == 3 then
				mStarColor = '#FF9966'
				mNickColor = '#FFCC66'
			end

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

			m_array_Array = []

			if mNick =~ /｜/ then
				# "｜"でニックと自己紹介部分に分ける
				m_array_Array = mNick.split(/｜/)
				mNick = m_array_Array.shift
				mIntroduce = m_array_Array.join("｜")

				# URLエンコード
				mIntroduce = CGI.escape(mIntroduce) 

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

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

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

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

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

		if ENV.has_key?("REMOTE_HOST") then
			mNewHost = ENV["REMOTE_HOST"]
		else
			mNewHost = ENV["REMOTE_ADDR"]
		end

		m_array_NewList.push("見学<>#{mNewHost}<>#{m1}\n")
	end

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

	# エラー表示
	if not mErr == "" then
		return "[エラー] 参加者ログファイルに書き込めませんでした[^v^]/\n"
	end

	return mNickList

end

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

# ヘッダー表示
PrintHeader()

# フォームからデータ取得
Form = CGI.new
$gForm = Form.params

for k in $gForm.keys
	$gForm[k] = CGI.escapeHTML($gForm[k].to_s)
	$gForm[k].gsub!(/,/,"&#44;")
end

if $gForm["mode"].to_s == 'intro' then

	# 自己紹介の表示
	DispIntroduce()

elsif $gForm["mode"].to_s == 'res' then

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

elsif $gForm["mode"].to_s == 'view' then

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

elsif not $gForm["neta"] == [] then

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

elsif not $gForm["res"] == [] then

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

else

	# デフォルト処理

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

	# 画面表示
	PrintNetaForm(mWhatsNew)
	print mNickList
	print mLog

end

# フッター表示
PrintTail()