#!/usr/bin/python

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

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

import cgi       # フォームデータを受け取ったりしてくれるのがあります
import string    # 文字列操作なメソッドがいろいろあります
import time      # 時間関連がいろいろです
import posix     # 環境変数とかとるため
import posixpath # ファイル関連とか
import re        # 正規表現
import types     # 型判別のため
import urllib    # URLエンコードとか

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

G_TIME_NOW        = time.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 %s Python版" % G_VER # タイトル

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

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

def LoadFromFile(file):

	msg = ""
	array_data = []

	# ここはもうちょっとどうにかするべき
	if not (posixpath.isfile(file)):
		msg = " ファイル入力エラー [ ファイル名：%s ] " % file
	else:
		f = open(file,"r")
		array_data = f.readlines()

	return [msg, array_data]

def WriteToFile(file,option,array_data):

	msg = ""
	#配列じゃないのがきたら配列にする
	if not (type(array_data) is types.ListType):
		array_data = [array_data]

	f = open(file,option)

	if f:
		for current in array_data:
			f.write("%s" % current)
		f.close()
	else:
		msg = " ファイル出力エラー [ ファイル名：%s ] " % file

	return msg

def GetTime(times):

	#文字列できたらfloatに
	if type(times) is types.StringType:
		times = string.atof(times)

	if not times:
		times = time.time()

	##グリニッジ標準時間で
	times = times + 32400
	date  = time.strftime("%Y/%m/%d %a %H:%M",time.gmtime(times))
	#$timep = gmdate("G:i",$times)

	return date

def 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

	mCntErr = mLog = mLog2 = mWhatsNew = mNext = mBefore = mErr2 = mErr = ""
	m_array_Data = []
	mCnt = []

	# ネタ番号カウンタ読み込み
	[mCntErr,mCnt] = LoadFromFile(G_NETA_COUNT_FILE)
	# 型をintに
	mCnt = string.atoi(mCnt[0])

	# ネタ番号が指定されている場合
	if gForm.has_key("no"):
		tmp_no = gForm["no"].value
		tmp_no = string.atoi(tmp_no)
		# 過去ログファイル番号を計算
		mFileName = int ( tmp_no / G_MAX_NUM_OF_OLD_NETA_PER_FILE)
		# ファイル読み込み
		[mErr,m_array_Data] = LoadFromFile("%s/%s.txt" % (G_OLD_LOGS_DIR,mFileName))
		# ネタが新しい順に並べ替え
		m_array_Data.reverse()

		# ページリンクのネタ番号設定
		mNext = tmp_no - G_MAX_NUM_OF_OLD_NETA_PER_FILE
		mBefore = tmp_no + G_MAX_NUM_OF_OLD_NETA_PER_FILE
		if mNext < 1:
			mNext = 0

	# ネタ番号が指定されていないもしくはネタ番号指定でのログ読み込みが失敗した場合
	if (not gForm.has_key("no")) or (mErr):

		# ログファイル読み込み
		[mErr2,m_array_Data] = LoadFromFile(G_LOG_FILE)

		# ページリンクのネタ番号設定
		mNext = mCnt - len(m_array_Data)
		mBefore = 1

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

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

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

%s

<hr noshade>
<div align=right>
<font color=\"#ccffaa\">■ <a href=\"%s?no=%d&mode=view\">前のページ</a> ■
 <a href=\"%s?no=%d&mode=view\">次のページ</a> ■</font>
</div>
""" % (G_MAX_NUM_OF_OLD_NETA_PER_FILE,G_THIS_NAME,G_THIS_NAME,mBefore,G_THIS_NAME,mNext,mLog,G_THIS_NAME,mBefore,G_THIS_NAME,mNext)

	print mLog

def 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

	mErrMessage = mWriteFlag = ""
	m_array_Log = []
	m_array_Res = []
	m_array_NewLog = []

	[mErr,m_array_Log] = LoadFromFile (G_LOG_FILE)

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

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

		current = string.rstrip(current)

		# ひとつのスレッドを読み込み
		m_array_Res = string.split(current,",")
		# Perlにおけるshift3回分のエミュレーション
		[mNo,mNeta,mTime] = m_array_Res[0:3]
		m_array_Res[0:3] = []

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

			# 最大レス数になってたら書き込めないように
			if (len(m_array_Res) + 1) > G_MAX_NUM_OF_RES:
				mErrMessage = mErrMessage + "<h2>[エラー] これ以上レスはつけられませんよ！ [^v^]/</h2>\n"
				mWriteFlag = 0
				break
			
			# レスの追加とフラグ処理
			m_array_Res.append(gForm["res"].value) # ふむ、それをPerlではpushと言うな
			mBuf = string.join(m_array_Res,",") # ふむ、それをPerlではjoinと言うな
			m_array_NewLog.append("%s,%s,%s,%s\n" % (mNo,mNeta,G_TIME_NOW,mBuf))
			mWriteFlag = 1
		else:
			m_array_NewLog.append(current+"\n")

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

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

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

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

def 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

	mErr = mFindFlag = mErrMessage = ""
	#リストにしておく
	m_array_Log = []
	m_array_Res = []

	[mErr,m_array_Log] = LoadFromFile (G_LOG_FILE)

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

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

		current = string.rstrip(current)

		# ひとつのスレッドを読み込み
		m_array_Res = string.split(current,",")
		[mNo,mNeta,mTime] = m_array_Res[0:3]
		m_array_Res[0:3] = []

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

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

		print """
<h3>ネタフリは<font color=\"#02ffff\"> %s </font>だったようです。
</h3> ゲンキダセヨ [^v^]/<p>
<form action=\"%s\" method=POST>
<input type=hidden name=no value=\"%s\">
<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=\"%s\">戻る</a>
""" % (mNeta,G_THIS_NAME,gForm["no"].value,G_THIS_NAME)

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

def 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"].value

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

	# 改行コマンドの処理
	mIntroduce = re.sub("(?i)%%BR","<BR>",mIntroduce)
	mIntroduce = re.sub("(?i)%%P","<P>",mIntroduce)

	print """
<center>

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

def 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

	mErr = mErr2 = mErr3 = ""
	m_array_Data = m_array_Tail = m_array_NewData = mCnt = []

	# ログファイル読み込み
	[mErr,m_array_Data] = LoadFromFile(G_LOG_FILE)
 
	# ネタ番号カウンタ読み込み
	[mErr2,mCnt] = LoadFromFile(G_NETA_COUNT_FILE)
	mCnt = string.atoi(mCnt[0])

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

			# ログデータの先頭に新規ネタフリ追加
			mBuf = "%s,%s,%s\n" % (mCnt,gForm["neta"].value,G_TIME_NOW)
			m_array_Data.insert(0,mBuf)

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

			m_array_NewData[0:G_MAX_NUM_OF_NETA] = m_array_Data[0:G_MAX_NUM_OF_NETA]
			m_array_Tail = m_array_Data[G_MAX_NUM_OF_NETA:]

			# m_array_Tail にネタが入っていて過去ログ保存機能が有効になっていたら
			if G_SAVE_OLD_LOGS and m_array_Tail:
				mLogIndex = len(m_array_Tail) - 1
				m_array_Tail.reverse()
				for current in m_array_Tail:
					# ネタカウントを元に保存するファイル番号を計算
					mFileName = int ((mCnt - G_MAX_NUM_OF_NETA - mLogIndex) / G_MAX_NUM_OF_OLD_NETA_PER_FILE)
					# 過去ログファイルに追可保存
					m_array_Buf = [current]
					mErr3 = WriteToFile("%s/%s.txt" % (G_OLD_LOGS_DIR,mFileName), "a", m_array_Buf)
					mLogIndex = mLogIndex - 1

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

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

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

def 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 = []
	m_array_WhatsNewList = {}
	mLog = mWhatsNewList = ""

	# ★の色変え位置
	M_DIVIDE_POINT = 5

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

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

		mLine = string.rstrip(mLine)

		# ひとつのスレッド読み込み
		m_array_Res = string.split(mLine,",")
		[mNo,mNeta,mTime] = m_array_Res[0:3]
		m_array_Res[0:3] = []

		# 新着の作成
		if not mTime:
			mTime = time.time()
		mTime2 = GetTime(mTime)
		m_array_WhatsNewList[mTime] = "<font color=\"#ccff99\">★</font><a href=\"#%s\">%s</a> ( <font size=-1 color=\"#cccccc\">%s</font> ) " % (mNo,mNo,mTime2)

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

		# 日付取得
		if not mTime:
			mTime = time.time()
		mDate = GetTime(mTime)
		# ネタの表示部分作成
		mLog = mLog + "<font size=5 color=\"#a3c8ff\">%s</font><font size=2 color=\"#cccccc\"> %s </font>\n" % (mNeta,mDate)

		# このネタにレスがあれば
		if len(m_array_Res) > 0:

			# レス数の表示部分作成
			mLog = mLog + "<small> . . *%d</small>\n<p><dl>\n" % len(m_array_Res)

			m_array_ResHTML = []
			mCounter = 1

			# レスの処理
			for current in m_array_Res:

				# M_DIVIDE_POINTで指定された数置きに★の色を変える
				if mCounter % M_DIVIDE_POINT == 0:
					m_array_ResHTML.append("<dd><font color=\"#66cc33\">★</font>%s" % current)
				else:
					m_array_ResHTML.append("<dd><font color=\"#ccffaa\">★</font>%s" % current)
				mCounter = mCounter + 1

			# 新しいレス順に並び代えてmLogに格納
			m_array_ResHTML.reverse()
			mLog = mLog + string.join (m_array_ResHTML,"\n")
			mLog = mLog + "</dl>\n"
		else:
			# レスが無かった場合の処理
			mLog = mLog + "<small> . . *無</small>\n"

		mLog = mLog + "</ul>\n"

	# 新着表示部分の作成
	
	array_tmp = m_array_WhatsNewList.keys()
	array_tmp.sort()
	array_tmp.reverse()
	for current in array_tmp:
		mWhatsNew = mWhatsNew + m_array_WhatsNewList[current]

	mWhatsNew = mWhatsNew + "<br>\n"

	return [mLog,mWhatsNew]

def 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

	m_array_Data = []

	[mErr,m_array_Data] = LoadFromFile(G_LOG_FILE)

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

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

	return [mLog,mWhatsNew]

def 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

	print """

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

""" % G_VER

def 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

	print """
最大ネタ数%d, 最大レス数%d, 脱落まで%d秒
<form action=\"%s\" 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=\"%s\">リロード</a>｜
<a href=\"%s?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>

%s

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

""" % (G_MAX_NUM_OF_NETA,G_MAX_NUM_OF_RES,G_NICK_TIME_OUT,G_THIS_NAME,G_THIS_NAME,G_THIS_NAME,mWhatsNew,G_THIS_NAME)

def 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

	print """
<html>
<head>
<title>%s</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 %s</font>
<p>
""" % (G_TITLE,G_VER)

def 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 = []
	m_array_NewList = []
	mNickList = mRefreshFlag = ""

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

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

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

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

		current = string.rstrip(current)

		# 一人分のデータを読み込み各変数にいれる
		[mNick, mHost, mTime] = string.split(current,"<>")[0:3]
		mTime = string.atof(mTime)
		# 脱落時間になってたら脱落表示してデータから削除

		if (int(m1) - int(mTime)) > (int(m2)):
			mLine = "<font color=\"hotpink\">★</font><font color=\"#77ff99\">脱落？</font>"
		else:
			# 制限時間内ならニックの表示と各種処理

			# ニックのIPと一致したら
			if posix.environ.has_key("REMOTE_HOST"):
				mEnv = "REMOTE_HOST"
			else:
				mEnv = "REMOTE_ADDR"
			if mHost == posix.environ[mEnv]:
				# 最終アクセス時刻を現在のものに
				mTime = m1
				# ニック欄に何か入力されていたらニック更新
				if gForm.has_key("nick"):
					mNick = gForm["nick"].value
				# フラグセット
				mRefreshFlag = 1

			# ファイル保存用データに格納
			m_array_NewList.append("%s<>%s<>%s\n" % (mNick,mHost,mTime))

			# 色ニックの処理
			mIndex = len(m_array_NewList)
			if mIndex == 1:
				mStarColor = '#FFFF66'
				mNickColor = '#FFFF99'
			elif mIndex == 2:
				mStarColor = '#999999'
				mNickColor = '#EEEEEE'
			elif mIndex == 3:
				mStarColor = '#FF9966'
				mNickColor = '#FFCC66'

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

			m_array_Array = []
			# "｜"でニックと自己紹介部分に分ける
			m_array_Array = string.split(mNick,"｜")
			
			if len(m_array_Array) > 1:
				[mNick] = m_array_Array[0:1]
				m_array_Array[0:1] = []
				mIntroduce = string.join(m_array_Array,"｜")

				# URLエンコード
				mIntroduce = {"comment":mIntroduce}
				mIntroduce = urllib.urlencode(mIntroduce); 

				# 自己紹介リンク
				mStar = "<a href=\"%s?mode=intro&%s\">★</a>" % (G_THIS_NAME,mIntroduce)
			else:
				mStar = "★"

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

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

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

	# ニックデータにIPが無かった場合、参加の処理
	if not mRefreshFlag:
		mNickList = mNickList + "<font color=\"hotpink\">★</font>(参加)"
	
		if posix.environ.has_key('REMOTE_HOST'):
			mNewHost = posix.environ['REMOTE_HOST']
		else:
			mNewHost = posix.environ['REMOTE_ADDR']
		
		m_array_NewList.append("見学<>%s<>%s\n" % (mNewHost,m1))

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

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

	return mNickList


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

# ヘッダー表示
PrintHeader()

# フォームからデータ取得
gForm = cgi.FieldStorage()
for current in gForm.keys():
	gForm[current].value = cgi.escape(gForm[current].value)
	gForm[current].value = string.replace(gForm[current].value,",","&#44;")

if not gForm:
	# デフォルト処理
	# ログと新着ファイル読み込み
	[mLog,mWhatsNew] = LoadLog()
	# 参加者リスト読み込み
	mNickList = GetNickList(G_TIME_NOW,G_NICK_TIME_OUT)
	# 画面表示
	PrintNetaForm(mWhatsNew)
	print mNickList
	print mLog
else:
	if gForm.has_key("mode"):
		if gForm["mode"].value == 'intro':
			# 自己紹介の表示
			DispIntroduce()
		elif gForm["mode"].value == 'res':
			# レス入力画面の表示
			DispResForm()
		elif gForm["mode"].value == 'view':
			# レス入力画面の表示
			ViewLogs()
	elif gForm.has_key("neta"):
		# ネタをファイルに書き込み
		WriteNeta()
	elif gForm.has_key("res"):
		# レスをファイルに書き込み
		WriteRes()
	else:
		# デフォルト処理
		# ログと新着ファイル読み込み
		[mLog,mWhatsNew] = LoadLog()
		# 参加者リスト読み込み
		mNickList = GetNickList(G_TIME_NOW,G_NICK_TIME_OUT)
		# 画面表示
		PrintNetaForm(mWhatsNew)
		print mNickList
		print mLog

# フッター表示
PrintTail()