#!/usr/local/bin/perl

$www="";
$target="target=\"_nickyTool\"";
#$lcolor="#c0c080"; $tcolor="#808040";
$lcolor="#e0e0e0";
$tcolor="#c0c0c0";
$bcolor="#c0c0c0";

sub open_year_dir()
{
	my($dir)=@_[0];
	my($dfh, $fname, @ydlist);

	$dfh=opendir(RDY, "./$dir");
	@ydlist=readdir(RDY);
	close(RDY);
	for $fname( @ydlist )
	{
		if( $fname !~ /^\.$|^\.\.$/ )
		{
			@file_list[$file_num++]="./$dir/$fname";
		}
	}
}

sub open_current_dir()
{
	my($rfh, $dirname);
	opendir(RD,"./");
	for $dirname( readdir(RD) )
	{
		if( $dirname =~ /^[1-9][0-9][0-9][0-9]$/ )
		{
			&open_year_dir($dirname);
		}
	}
	close(RD);
}

sub get_other_file()
{
	my($fname);

	undef @other_list;
	$other_num=0;

	for $fname(@file_list)
	{
		if( $fname !~ /\.nky$|\.cmnt$/ )
		{
			@other_list[$other_num++]=$fname;
		}
	}
}

sub get_nky_file()
{
	my($fname);

	undef @nky_list;
	$nky_num=0;

	for $fname(@file_list)
	{
		if( $fname =~ /\.nky$|\.cmnt$/ )
		{
			@nky_list[$nky_num++]=$fname;
		}
	}
}

sub get_NoLink()
{
	my($fname, $fname_pch, @list, $oname, $flag);

	undef @nolink_list;
	$nolink_num=0;

	for $oname(@other_list)
	{
		$fname=&BaseName($oname);

		#pchファイルの場合は検索方法を変える必要がある
		if( $fname =~ /\.pch$|\.spch$/ )
		{
			$fname =~ s/\.pch$|\.spch$//;
		}
		elsif( $fname =~ /\.thumb\./ )
		{
			$fname =~ s/\.thumb\./\./;
		}
		open(RD, "grep -l $fname ./[1-9][0-9][0-9][0-9]/*.nky|");
		if( !<RD> )
		{
			@nolink_list[$nolink_num++]=$oname;
		}
		close(RD);
	}
}

sub Delete_NoLink()
{
my($i, $j, $fsize);
my($sec, $min, $wday, $yday, $dst, $year, $month, $day, $hour, $day, $temp);

&get_nky_file();
&get_other_file();
&get_NoLink();

if( $#nolink_list >= 0)
{
print <<Delete_NoLink_EOF;

<center><b>削除したいファイルを選択してください</b>
<br><br>
<table><tr><td>
<hr size=1>
<ol>
<li>削除したいファイルの左にあるチェックボックスをクリックします。
<li>削除したいファイルが決定したら、画面下にある『Delete File』ボタンをクリックします。
</ol>
<ul>
<li>ここに表示されているファイルは全てnicky!で使われていないファイルです。
<li>ファイルネームをクリックするとファイルを開きます。
</ul>
<hr size=1>
</td></tr></table>
Delete_NoLink_EOF

	print "<form method=\"post\" action=\"./nickyTool.cgi?MODE=DeleteFile\">\n";
	&put_HiddenPassWord();
	print "<table bgcolor=$bcolor border=0 cellpadding=4 cellspacing=1px>";
	print "<tr bgcolor=$tcolor>";
	print "<td align=center><Font Color=#f0f0f0>File Name</Font></td>";
	print "<td align=center><Font Color=#f0f0f0>Size</Font></td>";
	print "<td align=center><Font Color=#f0f0f0>Date</Font></td>";
	print "</tr>";

	for($i=0; $i<$nolink_num; )
	{
		print "<tr>";

			if( @nolink_list[$i] )
			{
				print "<td  bgcolor=$lcolor nowrap>";
				print "<input type=\"checkbox\" name=\"DeleteFile\" value=\"@nolink_list[$i]\" >";
				if( @nolink_list[$i] =~ /\.pch$/ )
				{
					print "<a href=\"./nicky.cgi?Pch_File=@nolink_list[$i]?Pch_Speed=-1?MODE=PaintBBSDraw\" $target>";
				}
				else
				{
					print "<a href=\"$www@nolink_list[$i]\" $target>";
				}
				print "@nolink_list[$i++]</a>";
				print "</td>";
				print "<td  bgcolor=$lcolor align=right>";
				$fsize=(stat(@nolink_list[$i-1]))[7];
				print $fsize."Byte";
				print "</td>";
				print "<td bgcolor=$lcolor>";
				($sec,$min,$hour,$day,$month,$year,$wday,$yday,$dst)=localtime((stat(@nolink_list[$i-1]))[10]);
				$temp=sprintf("%04d/%02d/%02d %02d:%02d:%02d", $year+1900, $month+1, $day, $hour, $min,$sec);
				print $temp;
				print "</td>";
			}

		print "</tr>";
	}
	print "</table>";
	print "<br>";
	print "<input type=\"hidden\" name=\"MODE\" value=\"DeleteFileExec\">";
	print "<input type=\"submit\" name=\"Dummy\" value=\"DeleteFile\">";
	print "</form>\n";

	print "</center>";
}
else
{

print "<center><b>リンクされていない画像はありません</b></center><BR><BR>";
&PutReturnMenu();
}

}

sub Delete_Junk_File()
{
my($i, $j);

print <<DeleteJunkFile_EOF;

<center><b>削除したいファイルを選択してください</b>
<br><br>
<table><tr><td>
<hr size=1>
<ul>
<li>削除したいファイルの左にあるチェックボックスをクリックします。
<li>ファイルネームをクリックするとファイルを開きます。<br>
画像ファイルは画像が表示され、pchファイルは再生します。
<li>削除したいファイルが決定したら、画面下にある『Delete File』ボタンをクリックします。
</ul>
<hr size=1>
</td></tr></table>
DeleteJunkFile_EOF

	&get_other_file();

	print "<form method=\"post\" action=\"./nickyTool.cgi?MODE=DeleteFile\">\n";
	&put_HiddenPassWord();
	print "<table bgcolor=$lcolor border=0 cellpadding=4 cellspacing=4>";
	for($i=0; $i<$other_num; )
	{
		print "<tr>";
		for($j=0;$j<3;$j++)
		{
			print "<td nowrap>";
			if( @other_list[$i] )
			{
				print "<input type=\"checkbox\" name=\"DeleteFile\" value=\"@other_list[$i]\" >";
				if( @other_list[$i] =~ /\.pch$/ )
				{
					print "<a href=\"./nicky.cgi?Pch_File=@other_list[$i]?Pch_Speed=-1?MODE=PaintBBSDraw\" $target>";
				}
				else
				{
					print "<a href=\"$www@other_list[$i]\" $target>";
				}
				print "@other_list[$i++]</a>";
			}
			print "</td>";
		}
		print "</tr>";
	}
	print "</table>";
	print "<br>";
	print "<input type=\"hidden\" name=\"MODE\" value=\"DeleteFileExec\">";
	print "<input type=\"submit\" name=\"Dummy\" value=\"DeleteFile\">";
	print "</form>\n";

	print "</center>";
}

sub put_HiddenPassWord()
{
	print "<input type=\"hidden\" name=\"PassWord\" value=\"$PassWord\">";
}

sub check_PassWord()
{
	my($pass)=@_[0];
	my($key, $str);

	open(RD, "./NickyAdmin.cgi");
	$str=<RD>;
	close(RD);

	if( $str eq crypt($pass, $ENV{SCRIPT_NAME}) ){
		return 1;
	}
	$key=$ENV{REQUEST_URI};
	if( $str eq crypt($pass, $key) ){
		return 1;
	}
	$key =~ s/\+/ /g;
	$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ego;
	if( $str eq crypt($pass, $key) ){
		1;
	}else{
		0;
	}
}

sub get_Value()
{
	for $str(@_)
	{
		($arg, $val)=split(/=/, $str);
		$val =~ s/\+/ /g;
		$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ego;
		if( $arg eq "DeleteFile" )
		{
			@delete_list[$delete_num++]=$val;
		}
		elsif( $arg eq "SelectMonth" )
		{
			@month_list[$month_num++]=$val;
		}
		elsif( $arg eq "SelectArcFile" )
		{
			@arcfile_list[$arcfile_num++]=$val;
		}
		else
		{
			${$arg}=$val;
		}
	}
}

sub PutLogo()
{
print <<PUTLOGO_EOF
<center>
<font face="Times New Roman" size="6px"><b>nicky!Tools</b></font>
<table border=0 width=50%><tr><td align=right>Ver 2004/01/15</td></tr></table>
<hr size="1" noshade width="50%">
PUTLOGO_EOF
}

sub PutMenu()
{
($pass)=@_[0];

print "<FORM METHOD=\"POST\" ACTION=\"./nickyTool.cgi\">";
if( !$pass )
{
	print "<input type=\"password\" name=\"PassWord\" value=\"\" size=\"12\"><BR><BR>";
}
else
{
	&PutLogo();
	&put_HiddenPassWord();
}
print <<PUTMENU_EOF

<table border=0 width=50%>
<tr><td>
<input type="radio" name="MODE" value="DeleteNoLinkFile" CHECKED>
</td>
<td><b>未使用ファイル削除</b></td></tr>
<tr><td></td><td>日記で使われていないファイルを削除します</td></tr>
<tr><td><br></td><td></td></tr>
<tr><td>
<input type="radio" name="MODE" value="Archive and Delete">
</td>
<td><b>アーカイブと削除</b></td></tr>
<tr><td></td><td>日記ファイルをアーカイブもしくは削除します</td></tr>
<tr><td><br></td><td></td></tr>
<tr><td>
<input type="radio" name="MODE" value="unArchive">
</td>
<td><b>解凍とアーカイブファイル削除</b></td></tr>
<tr><td></td><td>アーカイブファイルの解凍や、アーカイブファイルの削除を行います</td></tr>
</table>
<hr size=1 noshade width=50%>
<BR>
<input type="submit" name="DUMMY" value="実行">
</FORM>
<table border=0 width=50%><tr><td align="right">
<table border=0><tr><td>
<font size=2>
※<b>アーカイブ</b><br>　複数のファイルを１つのファイルにまとめること
</font>
</td></tr></table>
</td></tr></table>
</center>
PUTMENU_EOF

}

sub input_PassWord()
{
&PutLogo();
print <<INPUT_PASSWORD_EOF
nicky!と同じパスワードを入力してください<BR><hr size="1" noshade width="50%" >
INPUT_PASSWORD_EOF

;
&PutMenu(0);
}

sub BaseName()
{
	local($c);

	split(/\/|\\|\:/, $_[0]);
	for (@_)
	{
		$c = $_;
	}

	$c;
}

sub DeleteFileExec()
{
if( $delete_num )
{
	print "以下のファイルを削除しました。<BR><BR>";
	for($i=0;$i<$delete_num;$i++)
	{
		print "@delete_list[$i]<BR>\n";
		unlink(@delete_list[$i]);
	}
}
else
{
print <<DeleteFileExec_EOF
ファイルが選択されませんでした。<BR><BR>
DeleteFileExec_EOF

}
print "<form method=\"post\" action=\"./nickyTool.cgi?MODE=DeleteFile\">\n";
&put_HiddenPassWord();
print "<input type=\"hidden\" name=\"MODE\" value=\"DeleteNoLinkFile\">";
print "<input type=\"submit\" name=\"Dummy\" value=\"戻る\">";
print "</form>";
}

#アーカイブ＆削除実行
sub ArchiveDone()
{
	my(@ymlist, $fname, $dust, $ly, $lm, $fn, $ay, $y, $m);
	my($arcname, @alist, $alist_num);

	$alist_num=0;
	undef @alist;
	&PutLogo();
	if( $SelectArchive eq "Yes" )
	{
		print "アーカイブ完了<BR>";
		print "<hr size=1 noshade width=50%>";
	}
	print "<table border=0><tr><td>";
	&get_nky_file();
	@ymlist=sort @nky_list;

	for $fn( @month_list )
	{
		$y=substr($fn, 0, 4);
		$m=substr($fn, 4, 2);
		$arcname=sprintf("nicky%04d%02d.nac", $y, $m);
		if( $SelectArchive eq "Yes" )
		{
			open(WAC, ">$arcname");
			binmode(WAC);
			@alist[$alist_num++]=$arcname;
		}
		for $fname( @ymlist )
		{
			my(@st, $ctime, $fsize, $str, $df);
			($dust, $ly, $fn) = split(/\//, $fname);
			$lm = substr($fn, 0, 2);

			#この条件に引っかかったファイルをアーカイブする
			if( ($y == $ly) && ($m == $lm) )
			{
				@st=stat($fname);
				$ctime=@st[9];
				$fsize=@st[7];
#				print "$fname, $ctime, $fsize<BR>";
				if( $SelectArchive eq "Yes" )
				{
					print WAC "$fname,$ctime,$fsize,";
				}
				undef $str;
				open(RD, $fname);
				binmode(RD);
				while(<RD>)
				{
					$str.=$_;
				}
				if( $SelectArchive eq "Yes" )
				{
					print WAC $str;
				}
				close(RD);
				if( $SelectDelete eq "Yes" )
				{
					unlink( $fname );
				}
				if( $fname =~ /\.nky/ )
				{
					my($d, $t, $ms, $gfname, $l, $c);
					my($pch);
					($d,$t,$ms,$gfname,$l,$c)=split(/\x01/, $str);
					$df="\./$y/$gfname";
					@st=stat($df);
					$fsize=@st[7];
					if( ($gfname) && ($fsize) )
					{
						$ctime=@st[9];
#						print "$df, $ctime, $fsize<BR>";
						if( $SelectArchive eq "Yes" )
						{
							print WAC "$df,$ctime,$fsize,";
						}
						undef $str;
						if( $SelectArchive eq "Yes" )
						{
							open(RD, $df);
							binmode(RD);
							while(<RD>)
							{
								print WAC $_;
							}
							close(RD);
						}
						if( $SelectDelete eq "Yes" )
						{
							unlink( $df );
						}
						$pch=$gfname;
						$pch=~s/\..*$/\.pch/;
						$df="\./$y/$pch";
						@st=stat($df);
						$fsize=@st[7];
						if( $fsize )
						{
							$ctime=@st[9];
#							print "$df, $ctime, $fsize<BR>";
							if( $SelectArchive eq "Yes" )
							{
								print WAC "$df,$ctime,$fsize,";
							}
							undef $str;
							if( $SelectArchive eq "Yes" )
							{
								open(RD, $df);
								binmode(RD);
								while(<RD>)
								{
									print WAC $_;
								}
								close(RD);
							}
							if( $SelectDelete eq "Yes" )
							{
								unlink( $df );
							}
						}
					}
				}
			}
		}
		if( $SelectArchive eq "Yes" )
		{
			close(WAC);
		}
	}

	print "</td></tr></table>";
	if( $alist_num )
	{
		print "<table bordert=0 width=50%><tr><td>";
		print "下のリンクを右クリック→『対象をファイルに保存』→『ファイルの種類＝全てのファイル』と操作してPCに保存してください<BR>";
		print "<center>";
		for $fname(@alist)
		{
			print "<a href=\"./$fname\">$fname</a><BR>";
		}
		print "</center>";
		print "</td></tr></table>";
	}
	elsif( $SelectDelete eq "Yes" )
	{
		print "削除しました";
	}
	print "</center>";
	&PutReturnMenu();
}

sub ArchiveSelect()
{
	my($i,$fn,$y, $m);

	print "<center><table border=0><tr><td>";
	if( ($month_num == 0) || ($SelectArchive ne "Yes") && ($SelectDelete ne "Yes") )
	{
		&PutLogo();
		print "<BR>アーカイブ／削除する月と『Archive』もしくは『Delete』を選択してください";
		&PutReturnMenu();
		print "</td></tr></table></center>";
		print "</body></html>";
		exit;
	}
	print "次のファイルを<br>";

	if( $SelectArchive eq "Yes" )
	{
		print "アーカイブし";
	}
	if( $SelectDelete eq "Yes" )
	{
		print "削除し";
	}
	print "ます";

	print "<form method=\"post\" action=\"./nickyTool.cgi?MODE=ArchiveDone\">";
	print "<hr size=1 noshade>";
	for $fn(@month_list)
	{
		$y=substr($fn, 0, 4);
		$m=substr($fn, 4, 2);
		print "　<input type=\"hidden\" name=\"SelectMonth\" value=\"$fn\" >";
		print "$y年$m月<BR>";
	}
	print "<hr size=1 noshade>";
	print "</td></tr><tr><td align=right>";
	&put_HiddenPassWord();
	print "<input type=\"hidden\" name=\"SelectArchive\" value=\"$SelectArchive\" >";
	print "<input type=\"hidden\" name=\"SelectDelete\" value=\"$SelectDelete\" >";
	print "<input type=\"submit\" name=\"Archive\" value=\"実行\">";

	print "</td></tr></table></center>";
}

sub PutMonthTAG()
{
	my($y, $m)=(@_[0], @_[1]);
	my($str);

	$str=sprintf("%04d%02d", $y, $m);
	print "　<input type=\"checkbox\" name=\"SelectMonth\" value=\"$str\" >";
	print "$m月:$str<BR>";
}

sub ArchiveAndDelete()
{
	my($fname);
	my(@ymlist);
	my($oy, $om, $ly, $lm, $fn, $dust);

	undef $oy, $om;

	&PutLogo();
	&get_nky_file();
	print "<table border=0 width=50%><tr><td>";
	if( $nky_num )
	{
		print "削除またはアーカイブする月を選択してください<BR>";
	}
	else
	{
		print "日記ファイルがありません";
		&PutReturnMenu();
		print "</td></tr></table></body></html>";
		exit;
	}
	print "<hr size=1 noshade>";

	print "<form method=\"post\" action=\"./nickyTool.cgi?MODE=ArchiveSelect\">\n";
	@ymlist=sort @nky_list;
	for $fname( @ymlist )
	{
		($dust, $ly, $fn) = split(/\//, $fname);
		$lm = substr($fn, 0, 2);
		if( $ly != $oy )
		{
			print "<font size=5><b>$ly年</b></font><br>";
			&PutMonthTAG($ly, $lm);
			$oy=$ly;
			$om=$lm;
		}
		if( $lm != $om )
		{
			&PutMonthTAG($ly, $lm);
			$om=$lm;
		}
	}

	print "<center>";
	print "<hr size=1 noshade>";
	print "　<input type=\"checkbox\" name=\"SelectArchive\" value=\"Yes\"> Archive";
	print "　<input type=\"checkbox\" name=\"SelectDelete\" value=\"Yes\" > Delete";

	print "<br><br>\n";
	&put_HiddenPassWord();
	print "<input type=\"submit\" name=\"Archive\" value=\"Select\">";
	print "</center>";

	print "</td></tr></table></center>";
	print "</body></html>";
}

sub unArchive()
{
	my($fname);
	my($y, $m, $count, $str);

	&PutLogo();
	print "<table border=0 width=50%><tr><td>";

	print "<form method=\"post\" action=\"./nickyTool.cgi\">\n";
	$count=0;
	undef $str;
	opendir(RD, "\./");
	for $fname (readdir(RD))
	{
		if( $fname =~ /^nicky[0-9][0-9][0-9][0-9][0-1][0-9]\.nac$/ )
		{
			$y=substr($fname, 5, 4);
			$m=substr($fname, 9, 2);
			$str.="　<input type=\"checkbox\" name=\"SelectArcFile\" value=\"$fname\"> $y年$m月　<a href=\"\./$fname\">$fname</a><BR>";
			$count++;
		}
	}

	if( $count )
	{
		print "月と解凍／削除を選択してください";
		print "<hr size=1 noshade>";
		print $str;
	}
	else
	{
		print "アーカイブファイルがありません。";
		print "<hr size=1 noshade>";
		&PutReturnMenu();
		print "</table></td></tr></body></html>";
		exit;
	}
	print "<center>";
	print "<hr size=1 noshade>";

	print "<br>\n";
	&put_HiddenPassWord();
	print "<input type=\"hidden\" name=\"MODE\" value=\"unArcFileSelect\">";
	print "　<input type=\"checkbox\" name=\"ArchiveMonth\" value=\"Yes\"> 解凍　";
	print "　<input type=\"checkbox\" name=\"ArchiveFileDelete\" value=\"Yes\"> アーカイブファイル削除";
	print "<br><br>\n";
	print "<input type=\"submit\" name=\"unArchive\" value=\"実行\">";
	print "</center>";

	print "</td></tr></table></center>";
	print "</body></html>";
}

sub PutReturnMenu()
{
	print "<center>";
	print "<form method=\"post\" action=\"./nickyTool.cgi\">\n";
	&put_HiddenPassWord();
	print "<input type=\"hidden\" name=\"MODE\" value=\"PutMenu\">";
	print "<input type=\"submit\" name=\"DUMMY\" value=\"メニューに戻る\">";
	print "</center>";
}

sub unArchiveFileSelect()
{
	my($fname, $fn, $fsize, $atm, $count, $str1, $str2);

	&PutLogo();
	if( !$arcfile_num )
	{
		print "解凍する月を選択してください";
		&PutReturnMenu();
		print "</center></body></html>";
		exit;
	}
	if( ($ArchiveMonth ne "Yes") && ($ArchiveFileDelete ne "Yes") )
	{
		print "解凍またはアーカイブファイル削除を選択してください";
		&PutReturnMenu();
		print "</center></body></html>";
		exit;
	}
	if( $ArchiveMonth eq "Yes" )
	{
		print "解凍";
	}
	if( $ArchiveFileDelete eq "Yes" )
	{
		print "　アーカイブファイル削除";
	}

	print "<BR>";
	print "<table border=0 width =50%><tr><td>";
	print "<hr size=1 noshade>";

	for $fname(@arcfile_list)
	{
		print "アーカイブファイル=[$fname]<br>";
		if( $ArchiveMonth eq "Yes" )
		{
			undef $str1;
			open(RD, $fname);
			binmode(RD);
			while(<RD>)
			{
				$str1.=$_;
			}
			close(RD);

			while( ($fn, $atm, $fsize, $str1)=split(/,/, $str1, 4) )
			{
#				print "filename=$fn, tm=$atm, size=$fsize<BR>";
				$str2=substr($str1, 0, $fsize);
				open(WD, ">$fn");
				binmode(WD);
				print WD $str2;
				close(WD);
				utime $atm, $atm, $fn;

				$str1=substr($str1, $fsize);
			}
		}
		if( $ArchiveFileDelete eq "Yes" )
		{
			unlink($fname);
		}
	}

	&PutReturnMenu();
	print "</td></tr></table></center>";
	print "</body></html>";
}
#S.Kano

print "Content-type: text/html\n\n";

$delete_num=0;
undef @delete_list;
$month_num=0;
undef @month_list;

split(/\?/, $ENV{'QUERY_STRING'});
&get_Value(@_);

undef $a;
while(<STDIN>) { $a.=$_; }
split(/&/, $a);
&get_Value(@_);

print <<HTML_HEAD_EOF;
<html><head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=EUC-JP">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
</head>
<body bgcolor="#f0f0f0" text="#000000" link="#000000" vlink="#000000">
HTML_HEAD_EOF

if( !&check_PassWord($PassWord) )
{
	&input_PassWord();
	print "</body></html>";
	exit;
}

undef @file_list;
$file_num=0;
&open_current_dir();

if( $MODE eq "DeleteFileExec" )
{
	&DeleteFileExec();
}
elsif( $MODE eq "DeleteFile" )
{
	&Delete_Junk_File();
}
elsif( $MODE eq "DeleteNoLinkFile" )
{	# ファイル選択
	&Delete_NoLink();
}
elsif( $MODE eq "Archive and Delete" )
{
	&ArchiveAndDelete();
}
elsif( $MODE eq "unArchive" )
{
	&unArchive();
}
elsif( $MODE eq "ArchiveSelect" )
{
	&ArchiveSelect();
}
elsif( $MODE eq "ArchiveDone" )
{
	&ArchiveDone();
}
elsif( $MODE eq "unArcFileSelect" )
{
	&unArchiveFileSelect();
}
elsif( $MODE eq "PutMenu" )
{
	&PutMenu(1);
}

print "</body></html>";