#!/usr/bin/perl


require 'petit-lib.pl';
require 'petit-ini.cgi';
$cgipath="delete.cgi";
$buffer = $ENV{'QUERY_STRING'};

require 'cgi-lib.pl';
ReadParse(*form);

$mode = $form{'mode'};
$style_data = "$URLdata"."petit-style.dat";
$lockfile = './lock/petit.lock';

if($mode eq "check"){✓}
elsif($mode eq "pass"){&mod;}
elsif($mode eq "Delete"){&del;}
else{⊤}



sub top {

&header;

print <<"EOL";
<link href= "$petit_style"  rel="stylesheet" type="text/css">
   	<br />
  	<div align="center"> 
 	 <form name="form1" method="post" action="$cgipath?$buffer ">
 	 パスワード<input name="password" type="password">
	<input type="hidden" name="mode" value="check">
	<input type="submit" name="Submit" value="ログイン">
	</form>
    </div>

EOL
&footer;
}



#認証-------------------------------------------------------

sub check{
if ($form{'password'} eq $admin_pass){
&mod;

}
else{
&error("パスワードが違います");
}
}


sub mod{

&lock; 
open (IN,"log/$buffer.dat") || &error("データファイルが読み込みできません。");
@log_data = <IN>;
close IN;
&unlock; 

if(!@log_data){&error("コメントがありません");}


&header;

print'<SCRIPT LANGUAGE="JavaScript">';
print"\n";
print'<!--';
print"\n";

 
	  
foreach  $dat(@log_data) {
@line = split(/<>/,$dat);
 print <<"EOL";
	  function dialog$line[0](msg)
   		 {
			flag = confirm(msg);
			if(flag==true) document.form$line[0].submit();
          }

EOL
	}

print'//-->';
print'</script>';


print <<"EOL";
<div align="center">
<br><br><br>コメント管理ページ<br><br>
	
	<table width="800" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
	 <tr bgcolor="#FFFFFF">
	  <td align="center">No.</td>
	  <td align="center">名前</td>
	  <td align="center">日付</td>
	  <td align="center">メッセージ</td>
	   <td align="center">mail</td>
	    <td align="center">site</td>
		<td align="center">IP</td>
		<td align="center">取消</td>
	 </tr>

EOL

foreach $dat(@log_data){

$dat =~ s/\r//;
$dat =~ s/\n//;
$dat =~ s/<br>/\n/;
$dat =~ s/\\\\/\\/ig;

@line = split(/<>/,$dat);
@number = split(/_/,$line[0]);

	%TD=&get_date(0,$line[5]);
	$time_num="$TD{year}/$TD{mon}/$TD{day} $TD{hour}:$TD{min}";

	print <<"EOL";
	<form method="POST" action="$cgipath?$number[0]" name=form$line[0]>
	 <tr bgcolor="#FFFFFF">
	  <td align="center">$number[1]<input type="hidden" name="id" value=$line[0]></td>
	  
	  <td>$line[1]</td>
	  <td>$time_num</td>
	  <td>$line[4]</td>
	   <td align="center"><a href="mailto:$line[2]">mail</a></td>
	   <td align="center"><a href="$line[3]">site</td>
	   <td>$line[6]</td>
	   
	<td align="center"><input type="button"  value="Delete" onClick=dialog$line[0]("No.$number[1]を削除しますか？")>
	
	</td>
	 </tr>
		 <input type="hidden" name="mode" value="Delete">
		  <input type="hidden" name="pass" value="$pass">
	 	</form>
EOL

}
print <<"EOL";
</table>
</div>
EOL

&footer;
}


sub del{

&lock; 
open (IN,"log/$buffer.dat") || &error("データファイルが読み込みできません。");
@log_data = <IN>;
close IN;

foreach $dat(@log_data){

@line = split(/<>/,$dat);

if($line[0] eq $form{'id'}){$dat = "";}

push @log_d ,$dat;
}


open (OUT,">log/$buffer.dat") || &error("logフォルダのパーミッションを確認して下さい。");
print OUT @log_d;
close OUT;

open (IN,"log/petit-recent.dat") || &error("データファイルが読み込みできません。");
@log_data = <IN>;
close IN;

foreach $dat(@log_data){

@line_d = split(/<>/,$dat);

if($line_d[0] eq $form{'id'}){$dat = "";}

push @log_dd ,$dat;
}


open (OUT,">log/petit-recent.dat") || &error("logフォルダのパーミッションを確認して下さい。");
print OUT @log_dd;
close OUT;
&unlock; 

&header;
print <<"EOL";
	<br><br><br>
	<form method="POST" action= "$cgipath?$buffer">
	メッセージを削除しました。<input type="submit"  value="　一覧表\示　" >
	 <input type="hidden" name="mode" value="pass">
	</form>
EOL
&footer;

}




__END__