#!/usr/bin/perl

#バージョン番号。いじらないでネ。改造した場合は適当にどうぞ。
$version="Version 0.1";

#このスクリプトのなまえ。ファイル名を変更したときはここも変更してください。
$script="nae.cgi";

$topic="萎え $version";
$tfile="tukkomi.txt";
$hfile="history.txt";

#日本語らいぶらり
require './jcode.pl';

#
# MAIN ROUTINEs
#

$table_default="
<table border width=90%>
<TR><TD>1st＼2nd</TD><TD>なし</TD><TD>炎</TD><TD>水</TD><TD>土</TD><TD>風</TD><TD>氷</TD><TD>雷</TD><TD>光</TD><TD>闇</TD></TR>
<TR bgcolor='#C0C0C0'><TD>なし</TD><TD>n_n</TD><TD>n_f</TD><TD>n_w</TD><TD>n_e</TD><TD>n_a</TD><TD>n_i</TD><TD>n_t</TD><TD>n_l</TD><TD>n_d</TD></TR>\n
<TR bgcolor='#FFD0D0'><TD>炎</TD><TD>f_n</TD><TD>f_f</TD><TD>f_w</TD><TD>f_e</TD><TD>f_a</TD><TD>f_i</TD><TD>f_t</TD><TD>f_l</TD><TD>f_d</TD></TR>\n
<TR bgcolor='#D0E0FF'><TD>水</TD><TD>w_n</TD><TD>w_f</TD><TD>w_w</TD><TD>w_e</TD><TD>w_a</TD><TD>w_i</TD><TD>w_t</TD><TD>w_l</TD><TD>w_d</TD></TR>\n
<TR bgcolor='#FFFFD0'><TD>土</TD><TD>e_n</TD><TD>e_f</TD><TD>e_w</TD><TD>e_e</TD><TD>e_a</TD><TD>e_i</TD><TD>e_t</TD><TD>e_l</TD><TD>e_d</TD></TR>\n
<TR Bgcolor='#D0ffD0'><TD>風</TD><TD>a_n</TD><TD>a_f</TD><TD>a_w</TD><TD>a_e</TD><TD>a_a</TD><TD>a_i</TD><TD>a_t</TD><TD>a_l</TD><TD>a_d</TD></TR>\n
<TR bgcolor='#E0FFFF'><TD>氷</TD><TD>i_n</TD><TD>i_f</TD><TD>i_w</TD><TD>i_e</TD><TD>i_a</TD><TD>i_i</TD><TD>i_t</TD><TD>i_l</TD><TD>i_d</TD></TR>\n
<TR bgcolor='#FFD0FF'><TD>雷</TD><TD>t_n</TD><TD>t_f</TD><TD>t_w</TD><TD>t_e</TD><TD>t_a</TD><TD>t_i</TD><TD>t_t</TD><TD>t_l</TD><TD>t_d</TD></TR>\n
<TR bgcolor='#FFFFFF'><TD>光</TD><TD>l_n</TD><TD>l_f</TD><TD>l_w</TD><TD>l_e</TD><TD>l_a</TD><TD>l_i</TD><TD>l_t</TD><TD>l_l</TD><TD>l_d</TD></TR>\n
<TR bgcolor='#D0D0D0'><TD>闇</TD><TD>d_n</TD><TD>d_f</TD><TD>d_w</TD><TD>d_e</TD><TD>d_a</TD><TD>d_i</TD><TD>d_t</TD><TD>d_l</TD><TD>d_d</TD></TR>\n
</table>
";

@c_code=('n','f','w','e','a','i','t','l','d');
@crname=('無','炎','水','土','風','氷','雷','光','闇');

&make_salt;
&form_read;

if($function eq "regist"){
	&set_cookie;
	&regist;
}
if($function eq "resultregist"){
	&set_cookie;
	&result_regist;
}
if($function eq "edit"){
	&set_cookie;
	&edit;
}
if($function eq "delete"){
	&set_cookie;
	&delete;
}
if($function eq "tukkomi"){
	&set_cookie;
	&tukkomi;
}

&header;

&get_cookie;

if($regmes ne ""){
	print "登録:$regmes <BR>";
}


if($function eq "check"){
	&check;
}

&list_put;

&show_tukkomi;

&show_form;

&show_history;

&footer;



#
# SUB ROUTINE
#

sub tukkomi{
	if($body ne ""){
	if(!open(OUT,">>$tfile")){&error_message('filesystem error','開けないノ');}
		print OUT "$name > $body ($today2)\n";
		close OUT;
	$reg="ツッコミ完了";
	}
}

sub show_tukkomi{
	if(!open(IN,$tfile)){&error_message('filesystem error','開けないノ');}
	@all=<IN>;
	close IN;
	print "<a name='tukkomi'>";
	print "<a href='#top'>一番上</a>／<a href='#regist'>鉢登録</a>／<a href='#result'>結果登録</a><BR>";
	print "<HR>ツッコミコーナー<BR>";
	print "最近のツッコミ10件<BR>";
	$count=0;
	@all=reverse(@all);
	foreach $i(@all){
		if($count<10){
			print "$i<BR>\n";
			$count++;
		}
	}
	print <<"EOM";
<form method=post action=$script>
<input type=hidden name=function value='tukkomi'>
なまえ<input type=text name=name value='$c_name'>
<input type=text name=body>
<input type=submit value='ツッコミ'>
</form>
<HR>
EOM

}


sub edit{
	$filename_prg="$code.prg";
	if(open(IN,$filename_prg)){
		@all=<IN>;
		close IN;
		@out=();
		foreach $i(@all){
			($t_name,$t_number,$t_body,$t_time,$t_pass)=split(/\t/,$i);
			if($t_name eq $name && $t_pass eq $pass){
				$regmes="データを修正しました。";
				push (@out,"$name\t$number\t$body\t$time\t$pass\t\n");
				if(!open(OUT,">>$hfile")){&error_message('filesystem error','開けないノ');}
				print OUT "EDIT\t$name\t$number\t$body\t$time\t$code\t\n";
				close OUT;

			} else {
				push (@out,$i);
			}
		}
		open(OUT,">$filename_prg");
		print OUT @out;
		close OUT;
	}

}

sub delete{
	$filename_prg="$code.prg";
	if(open(IN,$filename_prg)){
		@all=<IN>;
		close IN;
		@out=();
		foreach $i(@all){
			($t_name,$t_number,$t_body,$t_time,$t_pass)=split(/\t/,$i);
			if($t_name eq $name && $t_pass eq $pass){
				if(!open(OUT,">>$hfile")){&error_message('filesystem error','開けないノ');}
				print OUT "DEL\t$t_name\t$t_number\t$t_body\t$t_time\t$code\t\n";
				close OUT;
				$regmes="データを削除しました。";
			} else {
				push (@out,$i);
			}
		}
		open(OUT,">$filename_prg");
		print OUT @out;
		close OUT;
	}
}


sub regist{
	$code="$cr1"."_"."$cr2";
	$filename_prg="$code.prg";
	if(open(IN,$filename_prg)){
		@all=<IN>;
		close IN;
		foreach $i(@all){
			($t_name,$t_number,$t_body,$t_time,$t_pass)=split(/\t/,$i);
			if($t_name eq $name){
				$regmes="すでにデータが存在します。修正フォームから修正してください";
				return;
			}
			
		}
	}	
	if(!open(OUT,">>$filename_prg")){&error_message('filesystem error','開けないノ');}
	print OUT "$name\t$number\t$body\t$time\t$pass\t\n";
	close OUT;
	if(!open(OUT,">>$hfile")){&error_message('filesystem error','開けないノ');}
	print OUT "NEW\t$name\t$number\t$body\t$time\t$code\t\n";
	close OUT;
	
	$regmes="データを追加しました。";
}

sub result_regist{
	$code="$cr1"."_"."$cr2";
	$filename_prg="$code.res";
	if(!open(OUT,">>$filename_prg")){&error_message('filesystem error','開けないノ');}
	print OUT "$name\t$number\t$body\t$time\t$pass\t\n";
	close OUT;
	if(!open(OUT,">>$hfile")){&error_message('filesystem error','開けないノ');}
	print OUT "RES\t$name\t$number\t$body\t$time\t$code\t\n";
	close OUT;
	
	$regmes="結果データを追加しました。";
}

sub show_history{
	if(!open(IN,"$hfile")){&error_message('filesystem error','開けないノ');}
	@all=<IN>;
	close IN;

	print "History<HR>";
	print "最近の履歴10件<BR>";

	$count=0;
	@all=reverse(@all);
	foreach $i(@all){
		($mode,$name,$number,$body,$time,$code)=split(/\t/,$i);
	$code =~ s/n/なし/g;
	$code =~ s/f/炎/g;
	$code =~ s/w/水/g;
	$code =~ s/e/土/g;
	$code =~ s/a/風/g;
	$code =~ s/i/氷/g;
	$code =~ s/t/雷/g;
	$code =~ s/l/光/g;
	$code =~ s/d/闇/g;
	$code =~ s/_/・/g;	

	if($mode eq "NEW"){ $mode ='新規育成データ入力しました。';}
	if($mode eq "DEL"){ $mode ='育成データを削除しました。';}
	if($mode eq "EDIT"){ $mode ='育成データを修正しました。';}
	if($mode eq "RES"){ $mode ="結果データ「$body」を入力しました。";}
		if($count<10){
			print "($time) $name さんが 「$code」 の $mode \n<BR>";
		}
		$count++;
	}
	
	
}



sub show_form{
	print "<a name='regist'>";
	print "<a href='#top'>一番上</a>／<a href='#tukkomi'>ツッコミコーナー</a>／<a href='#result'>結果登録</a><BR>";
	print "登録はこちらからですヨ<BR>";
	print "<form method=post action='$script'>";
	print "Name<input type=text name=name value='$c_name'><BR>";
	print "Pass<input type=password name=pass value='$c_pass'><BR>";
	print "<input type=hidden name=function value='regist'>";
	print "第1クリ<select name=cr1>";
	for($i=0;$i<9;$i++){
		print "<option value='$c_code[$i]'>$crname[$i]</a>\n";
	}
	print "</select>";
	print "第2クリ<select name=cr2>";
	for($i=0;$i<9;$i++){
		print "<option value='$c_code[$i]'>$crname[$i]</a>\n";
	}
	print "</select>";
	print "鉢数<input type=text name=number size=3><BR>";
	print "状況詳細欄↓<BR><textarea name=body rows=5 cols=60></textarea>";
	print "<input type=submit value='新規鉢'>";
	print "</form>";


	print "<a name='result'>";
	print "<a href='#top'>一番上</a>／<a href='#tukkomi'>ツッコミコーナー</a>／<a href='#regist'>鉢登録</a><BR>";
	print "<HR>結果入力<BR>";
	print "<form method=post action='$script'>";
	print "Name<input type=text name=name value='$c_name'><BR>";
	print "Pass<input type=password name=pass value='$c_pass'><BR>";
	print "<input type=hidden name=function value='resultregist'>";
	print "第1クリ<select name=cr1>";
	for($i=0;$i<9;$i++){
		print "<option value='$c_code[$i]'>$crname[$i]</a>\n";
	}
	print "</select>";
	print "第2クリ<select name=cr2>";
	for($i=0;$i<9;$i++){
		print "<option value='$c_code[$i]'>$crname[$i]</a>\n";
	}
	print "</select>";
	print "<BR>とれたもの（書いた内容がそのまま表\示されるヨ！）<BR><input type=text name=body>";
	print "<input type=submit value='結果登録'>";
	print "</form>";


}


sub check{

	print "$name さんの育成中データクポ<BR>";
	$d_code=$code;
	$d_code =~ s/n/なし/g;
	$d_code =~ s/f/炎/g;
	$d_code =~ s/w/水/g;
	$d_code =~ s/e/土/g;
	$d_code =~ s/a/風/g;
	$d_code =~ s/i/氷/g;
	$d_code =~ s/t/雷/g;
	$d_code =~ s/l/光/g;
	$d_code =~ s/d/闇/g;
	($cr1,$cr2)=split(/_/,$d_code);
	print "第1クリ :$cr1 第2クリ :$cr2<BR>";

	$filename_prg="$code.prg";
	if(open(IN,$filename_prg)){
		@all=<IN>;
		close IN;
		foreach $i(@all){
			($t_name,$t_number,$t_body,$t_time,$t_pass)=split(/\t/,$i);
			if($t_name eq $name){
				$t_body =~ s/<BR>/\n/g;
				print <<"EOM";
<form method=post action=$script>
<input type=hidden name=name value='$t_name'><BR>
修正用パスワード:<input type=password name=pass value='$c_pass'><BR>
鉢数:<input type=text name=number size=2 value='$t_number'><BR>
<input type=hidden name=code value='$code'>
<input type=hidden name=function value='edit'>
<textarea name=body cols=60 rows=5>$t_body</textarea>
<input type=submit value='修正'>
</form>
<form method=post action=$script>
<input type=hidden name=name value='$t_name'><BR>
削除パスワード:<input type=password name=pass value='$c_pass'><BR>
<input type=hidden name=code value='$code'>
<input type=hidden name=function value='delete'>
<input type=submit value='削除'>確認なしでざっくり消えるヽ(･∀･)ノ
</form>
EOM
			}
		}
	}	
}


sub list_put{
	for($i=0;$i<9;$i++){
		for($j=0;$j<9;$j++){
			@prg=();
			@res=();
			$code="$c_code[$i]"."_"."$c_code[$j]";
			$filename_prg="$code.prg";
			$filename_res="$code.res";
			
			
			if(open(IN,$filename_prg)){
				@all=<IN>;
				close IN;
				foreach $i(@all){
					($name,$body,$time,$pass)=split(/\t/,$i);
					push(@prg,"<a href='$script?function=check&name=$name&code=$code'>$name</a> : $body <BR>\n");
				}

			}
			if(open(IN,$filename_res)){
				@all=<IN>;
				close IN;
				foreach $i(@all){
						($name,$number,$body,$time,$pass)=split(/\t/,$i);
					push(@res,"$body<BR>\n");
				}
			}
				
			$table_default =~ s/$code/@prg<HR>@res/g;
		}
	}
	print "$table_default";
}



#
#汎用サブルーチン。使いまわし＆パクり。そしてだんだんと汎用でなくなってくるという様子
#


sub form_read {

if ($ENV{'REQUEST_METHOD'} eq "POST") { 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');

	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\t//g;
	$value =~ s/\r/<BR>/g;

	$FORM{$name} = $value;
}

$code=$FORM{'code'};
$function=$FORM{'function'};
$name=$FORM{'name'};
$number=$FORM{'number'};
$body=$FORM{'body'};
$pass=$FORM{'pass'};
$cr1=$FORM{'cr1'};
$cr2=$FORM{'cr2'};

$rh = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($rh eq $addr) { $rh = gethostbyaddr(pack('C4',split(/\./,$rh)),2) || $addr; }



$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('日','月','火','水','木','金','土');
$mon++;
$year=$year-100;

if($year<10){
	$year="0$year";
}
if($mon<10){
	$mon="0$mon";
}
if($mday<10){
	$mday="0$mday";
}
if($hour<10){
	$hour="0$hour";
}
if($min<10){
	$min="0$min";
}

$timenow="$year/$mon/$mday/$hour$min";
$time="$year/$mon/$mday/$hour$min";
$today = "$mon/$mday";
$today2= "$mon/$mday $hour:$min";
}

sub header {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
	print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
	print '<STYLE type="text/css">\n';
	print "<!--\n";
	print "body { font-size: $font_body pt }\n";
	print "a:hover { color: #c00000 }\n";
	print "big  { font-size: $font_big pt }\n";
	print "small { font-size: $font_small pt }\n";
	print "td { font-size: $font_td pt }\n";
	print "th { font-size: $font_th pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title px; }\n";
	print "-->\n";
	print "</STYLE>\n";

	print "</head>\n<body>\n";
	print "<a name='#top'>";
	print "<a href='$script?$salt'>リロード</a><BR>";
	print "<a href='#tukkomi'>ツッコミコーナー</a>／<a href='#regist'>鉢登録</a>／<a href='#result'>結果登録</a><BR>";


}

sub reload_header {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
	print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
	print "<META HTTP-EQUIV='Refresh' CONTENT='1;URL=$script$_[0]'>";
	print '<STYLE type="text/css">';
	print "<!--";
	print "body { font-size: $font_body pt }\n";
	print "a:hover { color: #c00000 }\n";
	print "big  { font-size: $font_big pt }\n";
	print "small { font-size: $font_small pt }\n";
	print "td { font-size: $font_td pt }\n";
	print "th { font-size: $font_th pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title px; }\n";
	print "-->";
	print "</STYLE>";
	print "</head>\n<body>\n";

}

sub footer {

	print "<HR>";
	print "<div align=right>Script by <a href='http://www.senobeya.com'>senobeya.com</a></div>\n";
	print "<div align=right>萎え $version</div>\n";
	print "</body></html>";
}



sub error_message {


        print "<h1>$_[0]</h1>\n";
	print "<h3>$_[1]</h3>\n";
	print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
	&footer;
        exit;
}


sub get_cookie {
	@pairs = split(/\;/,$ENV{'HTTP_COOKIE'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/\=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/\,/,$DUMMY{'NAEE'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/\:/, $pair);
		$COOKIE{$name} = $value;
	}

	$c_name   = $COOKIE{'name'};
	$c_pass   = $COOKIE{'pass'};

}

sub set_cookie { 
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)
						= gmtime(time + 60*24*60*60);

	$yearg += 1900;
	if ($secg  < 10)  { $secg  = "0$secg";  }
	if ($ming  < 10)  { $ming  = "0$ming";  }
	if ($hourg < 10)  { $hourg = "0$hourg"; }
	if ($mdayg < 10)  { $mdayg = "0$mdayg"; }

	$mong = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',
			'Oct','Nov','Dec') [$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
			'Friday','Saturday') [$wdayg];
	$date_gmt = "$youbi, $mdayg\-$mong\-$yearg $hourg:$ming:$secg GMT";

$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('日','月','火','水','木','金','土');
$mon++;
$year=$year-100;

if($year<10){
	$year="0$year";
}
if($mon<10){
	$mon="0$mon";
}
if($mday<10){
	$mday="0$mday";
}
if($hour<10){
	$hour="0$hour";
}
if($min<10){
	$min="0$min";
}

$timenow="$year/$mon/$mday/$hour$min";


	$cook="name\:$name\,pass\:$pass";
	print "Set-Cookie: NAEE=$cook; expires=$date_gmt\n";
}

sub make_salt{
	srand();
    $xx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        . "abcdefghijklmnopqrstuvwxyz"
        . "0123456789.";
    $salt = substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
}