# admin.pl

## ■管理画面
sub admin {
	if ($in{'pass'} eq "") { &enter; }
	elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); }

	# 推薦
	if ($in{'job'} eq "reco" && $in{'no'}) {

		# ロック開始
		&lock() if ($lockkey);

		@data=();
		@cls1=();
		@cls2=();
		@reco=();
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco,$hos) = split(/<>/);

			$f=0;
			foreach $reco ( split(/\0/, $in{'no'}) ) {
				if ($no == $reco) {
					$f++;
					last;
				}
			}
			if ($f) {
				if ($reco == 0) { $reco=1; }
				else { $reco=0; }
				$_ = "$no<>$cls1<>$cls2<>$sub<>$url<>$nam<>$eml<>$pw<>$msg<>$tim<>$reco<>$hos<>\n";
			}
			push(@data,$_);
			push(@cls1,$cls1);
			push(@cls2,$cls2);
			push(@reco,$reco);
		}
		close(IN);

		# 三段ソート
		@data = @data[sort { $cls1[$a] <=> $cls1[$b]
			|| $reco[$b] <=> $reco[$a]
			|| $cls2[$a] <=> $cls2[$b] } 0 .. $#cls1];

		# 更新
		open(OUT,">$logfile") || &error("Write Error: $logfile");
		print OUT @data;
		close(OUT);

		# ロック解除
		&unlock if ($lockkey);

	# 削除
	} elsif ($in{'job'} eq "dele" && $in{'no'}) {

		# ロック開始
		&lock() if ($lockkey);

		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no) = split(/<>/);

			$f=0;
			foreach $del ( split(/\0/, $in{'no'}) ) {
				if ($no == $del) {
					$f++;
					unlink("$cntdir/$del.dat");
					last;
				}
			}
			if (!$f) { push(@data,$_); }
		}
		close(IN);

		# 更新
		open(OUT,">$logfile") || &error("Write Error: $logfile");
		print OUT @data;
		close(OUT);

		# ロック解除
		&unlock if ($lockkey);

	# 修正画面
	} elsif ($in{'job'} eq "edit" && $in{'no'}) {

		if ($in{'no'} =~ /\0/) { &error("修正は1記事づつです"); }

		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco,$hos) = split(/<>/);

			last if ($in{'no'} == $no);
		}
		close(IN);

		# 修正フォーム
		&admin_edit_form($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg);

	# 修正実行
	} elsif ($in{'job'} eq "edit2") {

		# 入力チェック
		&input_check('admin');

		# ロック開始
		&lock() if ($lockkey);

		@data=();
		@cls1=();
		@cls2=();
		@reco=();
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco,$hos) = split(/<>/);

			if ($in{'no'} == $no) {
				($cls1,$cls2) = split(/:/, $in{'cate'});
				$_ = "$no<>$cls1<>$cls2<>$in{'sub'}<>$in{'url'}<>$in{'name'}<>$in{'email'}<>$pw<>$in{'comment'}<>$tim<>$reco<>$hos<>\n";
			}
			push(@data,$_);
			push(@cls1,$cls1);
			push(@cls2,$cls2);
			push(@reco,$reco);
		}
		close(IN);

		# 三段ソート
		@data = @data[sort { $cls1[$a] <=> $cls1[$b]
			|| $reco[$b] <=> $reco[$a]
			|| $cls2[$a] <=> $cls2[$b] } 0 .. $#cls1];

		# 更新
		open(OUT,">$logfile") || &error("Write Error: $logfile");
		print OUT @data;
		close(OUT);

		# ロック解除
		&unlock if ($lockkey);

	# 新規登録フォーム
	} elsif ($in{'job'} eq "new" && $useType == 0) {

		&admin_new_form;

	# 新規登録
	} elsif ($in{'job'} eq "new2" && $useType == 0) {

		# 入力チェック
		&input_check('admin');

		# ロック開始
		&lock() if ($lockkey);

		($cls1[0],$cls2[0]) = split(/:/, $in{'cate'});
#		$mypw = &encrypt($in{'pw'});
		$time = time;
		&get_host;

		# データNo
		open(IN,"$numfile") || &error("Open Error: $numfile");
		@num = <IN>;
		close(IN);

		($num,$all) = split(/,/, $num[0]);
		$num++;

		$data[0] = "$num<>$cls1[0]<>$cls2[0]<>$in{'sub'}<>$in{'url'}<>$in{'name'}<>$in{'email'}<><>$in{'comment'}<>$time<>0<>$host<>\n";

		# ログ展開
		$url_flag=0;
		$reco[0] = 0;
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco,$hos) = split(/<>/);

			# 重複チェック
			if (!$w_url_regist && $in{'url'} eq $url) {
				$url_flag=1; last;
			}

			push(@data,$_);
			push(@cls1,$cls1);
			push(@cls2,$cls2);
			push(@reco,$reco);
		}
		close(IN);

		# 重複登録禁止
		if ($url_flag) { &error("このURLは既に登録済みです"); }
		if ($eml_flag) { &error("このE-mailは既に登録済みです"); }

		# 三段ソート
		@data = @data[sort { $cls1[$a] <=> $cls1[$b]
			|| $reco[$b] <=> $reco[$a]
			|| $cls2[$a] <=> $cls2[$b] } 0 .. $#cls1];

		# 更新
		open(OUT,">$logfile") || &error("Write Error: $logfile");
		print OUT @data;
		close(OUT);

		$all = @data;
		$num[1] =~ s/\n//;
		$i=0;
		$line2 = "$num,";
		foreach ( split(/,/, $num[1]) ) {
			$i++;
			$line2 .= "$_,";
			last if ($i >= $new_site);
		}

		open(OUT,">$numfile") || &error("Write Error: $numfile");
		print OUT "$num,$all,\n";
		print OUT "$line2\n";
		close(OUT);

		# ロック解除
		&unlock if ($lockkey);
	}

	if ($in{'class'} eq "") { $in{'class'} = 0; }

	&header;
	print <<EOM;
<form action="$script" method="POST">
<input type=submit value="メニューへ"></form>
<hr>
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=hidden name=page value="$page">
<input type=hidden name=pass value="$in{'pass'}">
分類：
<select name=class>
EOM

	foreach $i (0 .. $#class) {
		@part = split(/,/, $class[$i]);

		if ($in{'class'} == $i) {
			print "<option value=\"$i\" selected>$part[0]\n";
		} else {
			print "<option value=\"$i\">$part[0]\n";
		}
	}

	print <<EOM;
</select>
<input type=submit value="切替"></form>
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=hidden name=page value="$page">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=class value="$in{'class'}">
処理：
<select name=job>
<option value="">▼選択
EOM

	if ($useType == 0) {
		print "<option value=\"new\">新規\n";
	}

	print <<EOM;
<option value="reco">推薦
<option value="edit">修正
<option value="dele">削除
</select>
<input type=submit value="送信する">
<dl>
EOM

	# ログ展開
	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco,$hos) = split(/<>/);

		# カテゴリ抽出
		next if ($cls1 != $in{'class'});

		# ページ繰り越し
		$i++;
		next if ($i < $page + 1);
		next if ($i > $page + $admin_view);

		@posi = split(/,/, $class[$cls1]);
		($date,$mdate) = &get_time($tim);

		if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
		if (length($msg) > 50) { $msg = substr($msg,0,50) . '...'; }

		print "<dt><hr><input type=checkbox name=no value=\"$no\">\n";
		print "<font color=red>[推薦]</font>\n" if ($reco == 1);
		print "<b>$sub</b> [ $posi[0] &gt; $posi[$cls2] ]
		管理者：$nam 【$hos】 - $date
		<dd>[参照先] <a href=\"$url\">$url</a>
		<dd>[紹介文] <span style='font-size:11px'>$msg</span>\n";
	}
	close(IN);

	print <<EOM;
<dt><hr>
</dl>
</form>
EOM

	# ページ繰り越し数を認識
	$next = $page + $admin_view;
	$back = $page - $admin_view;

	# 繰り越しボタン
	print "<table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=hidden name=class value=\"$in{'class'}\">\n";
		print "<input type=submit value=\"前の$admin_view件\"></form></td>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=hidden name=class value=\"$in{'class'}\">\n";
		print "<input type=submit value=\"次の$admin_view件\"></form></td>\n";
	}

	print <<EOM;
</tr></table>
</body>
</html>
EOM
	exit;
}

## ■修正フォーム
sub admin_edit_form {
	local($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg) = @_;

	&header;
	print <<EOM;
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=hidden name=job value="edit2">
<input type=hidden name=pass value="$in{'pass'}">
<input type=submit value="前画面へ"></form>
<ul>
<li>変更部分のみを修正して、送信ボタンを押してください。
</ul>
<form action="$script" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="admin">
<input type=hidden name=job value="edit2">
<input type=hidden name=no value="$in{'no'}">
EOM

	&myform($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg);

	print <<EOM;
</table>
<p>
<input type=submit value=" 送信する ">
</form>
</body>
</html>
EOM
	exit;
}

## ■新規登録フォーム
sub admin_new_form {
	&header;
	print <<EOM;
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=hidden name=job value="edit2">
<input type=hidden name=pass value="$in{'pass'}">
<input type=submit value="前画面へ"></form>
<ul>
<li>必要内容を入力してください。
<li>「メールアドレス」は任意です。
</ul>
<form action="$script" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="admin">
<input type=hidden name=job value="new2">
EOM

	&myform();

	print <<EOM;
</table>
<p>
<input type=submit value=" 送信する ">
</form>
</body>
</html>
EOM
	exit;
}

## ■入室画面
sub enter {
	&header;
	print <<EOM;
<div align="center">
パスワードを入力してください。
<p>
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=password name=pass size=8>
<input type=submit value="ログイン">
</form>
</div>
</body>
</html>
EOM
	exit;
}


1;