#!/usr/local/bin/perl

#このスクリプトはじゃわ＠中澤重人さん<jawa@big.or.jp> の
# FlasH BBS Pro 1.41 をベースに、
#水無月ばけら<bakera@star.email.ne.jp> が改造を施したものです。

$max_tree = 10; # リストに表示するツリーの数
$jcode	 = '../jcode.pl';
$retry = 3;

# [ メイン処理 ]

&check_code;
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; }
local(@pairs) = split(/&/,$buffer);
foreach $pair (@pairs) {
	local($name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	if ($name eq 'tree_del') { $tree_del[$value] = 1; $del_flag = 1; }
	elsif ($name eq 'del') { $del[$value] = 1; $del_flag = 1; }
	elsif ($name eq 'edit_no') { $edit_no = $value; $edit_flag = 1; }
	elsif ($name eq 'edit_tn') { $edit_tn = $value; $edit_flag = 1; }
	else { $FORM{$name} = &change_code($value); }
}
$ID = $FORM{'id'};
if ($ID eq 'html'){
	$password = "";
}else{
	$ID = 'flashbbs';
	$password = "";
}
if ($password ne $FORM{'pass'}) { &password_check; }

$log_dir = '../bbs_log/';
$logfile = "$log_dir$ID.log";

if ($FORM{'mode'} eq 'download') { &download; }
if ($FORM{'mode'} eq 'repair') { &repair; }
if ($FORM{'mode'} eq 'regist') { &regist; }
if ($del_flag) { &delete; }
if ($edit_flag) { &edit; } else { &ichiran; }
exit;

# [ パスワードのチェック ]

sub password_check {
	&html_header("アクセス制限");
	print<<"_EOF_";
<form action="./fbeditor.cgi" method="post">
<p>id: <input type="text" name="id" size="10"></p>
<p>pass: <input type="password" name="pass" size="10"></p>
<p><input type="submit" value="起動する"></p>
</form>
_EOF_
	&html_footer;
	exit;
}

# [ 一覧表示 ]
#

sub ichiran {
	&read_all;
	&html_header("一覧表\示");
	$size = (stat($logfile))[7];
	$tree = $FORM{'tree'};
	if ($tree > @logs) { $tree = 0; }
	if (!$tree) { $tree = 0; }
	$tree = int($tree/$max_tree)*$max_tree;
	print<<"_EOF_";
<form action="./fbeditor.cgi" method="post">
<input type="hidden" name="pass" value="$FORM{'pass'}">
<input type="hidden" name="id" value="$ID">
<p>ログファイルの容量は、約 $size バイト になっています。現在、<select name="tree">
_EOF_
	for ($i=0;$i<@logs;$i+=$max_tree) {
		$j=$i/$max_tree+1;
		if ($tree == $i) {
			print" <option value=\"$i\" selected>$j ページを\n";
		} else {
			print" <option value=\"$i\">$j ページを\n";
		}
	}
	print<<"_EOF_";
</select>編集しています。</p><hr>
<hr>
_EOF_
	$end_tree = $tree + $max_tree;
	if ($end_tree > @logs) { $end_tree = @logs; }
	for ($i=$tree;$i<$end_tree;$i++) {
		@datas = &divide_log($logs[$i]);
		$kiji = @datas;
		$tn = (&divide_data($logs[$i]))[0];
		print "<h3>ツリー No.$i</h3>";
		print "<p>(記事数 $kiji) <input type=\"checkbox\" name=\"tree_del\" value=\"$tn\">[ツリー削除]<br>";
		foreach (@datas) {
			local($no,$res,$lx,$tn,$title,$name,$email,$date,$act) = &divide_data($_);
			print "削<input type=\"checkbox\" name=\"del\" value=\"$no\">";
			for ($s=0; $s<$lx; $s++) { print "　"; }
			print "[$no]<a href=\"fbeditor.cgi?id=$ID&edit_no=$no&edit_tn=$tn&tree=$FORM{'tree'}&pass=$FORM{'pass'}\">$title</a> : $name <span class=\"date\">($date)</span><br>";
		}
		print '</p><p class="submit"><input type="submit" value="削除開始"> <input type="reset"></p><hr>';
	}
	print<<"_EOF_";
</form>
<form action="./fbeditor.cgi" method="post">
<input type="hidden" name="id" value="$ID">
<input type="hidden" name="pass" value="$FORM{'pass'}">
<input type="hidden" name="mode" value="download">
<input type="submit" value="ダウンロード">
</form>
<form action="./fbeditor.cgi" method="post">
<input type="hidden" name="id" value="$ID">
<input type="hidden" name="pass" value="$FORM{'pass'}">
<input type="hidden" name="mode" value="repair">
<input type="submit" value=" 最適化処理 ">
</form>

_EOF_
	&html_footer;
}

# [ 削除処理 ]
#

sub delete {
	&read_all;
	foreach $data (@logs) {
		if (!$tree_del[(&divide_data($data))[0]]) {
			@kiji_datas = &divide_log($data);
			$tree_data = '';$flag = 0;
			foreach $data (@kiji_datas) {
				if ($del[(&divide_data($data))[0]]) {
					local($no,$res,$lx,$tn,$temp,$temp,$temp,$date,$act,$file_pwd,$rhost,$ipad,$temp) = &divide_data($data);
					$data = "$no<>$res<>$lx<>$tn<><em>[管理者削除]</em><><em>管理者</em><><>null<>9<>Null<><><>この記事は削除されました。";
				}
				if ($flag) { $tree_data .= "<#>"; } else { $flag = 1; }
				$tree_data .= $data;
			}
			push (@new,"$tree_data\n");
		}
	}
	&write_file($count,$last_nj,@new);
}

# [ 編集処理 ]
#

sub edit {
	&read_all;
	&html_header("編集");
	$kiji_data = &search_no2data($edit_no,&divide_log(&search_no2data($edit_tn,@logs)));
	local($no,$res,$lx,$tn,$title,$name,$email,$date,$act,$tm_pwd,$rhost,$ipad,$comment) = &divide_data($kiji_data);
	$kiji_size = length($kiji_data);
	$comment_size = length($comment);
	$comment =~ s/<BR>/\n/g;
	print<<"_EOF_";
<form action="./fbeditor.cgi" method="post">
<p>編集項目を全て編集した後、[内容更新]を押して下さい。
<input type="hidden" name="id" value="$ID">
<input type="hidden" name="pass" value="$FORM{'pass'}">
<input type="hidden" name="mode" value="regist">
<input type="hidden" name="tree" value="$FORM{'tree'}">
<input type="hidden" name="no" value="$no">
<input type="hidden" name="tn" value="$tn"></p>
<p>タイトル:<input type="text" name="title" size="42" maxlength="80" value="$title"><br>ハンドル:<input type="text" name="name" size="42" maxlength="42" value="$name"><br>
Ｅメール:<input type="text" name=email size="42" maxlength="120" value="$email"><br>
<textarea name="comment" rows="8" cols="60">$comment</textarea></p>
<p class="submit"><input type="submit" value="内容更新">
<input type="reset"></p>
<p>記事情報: 記事番号=$no, 親記事番号=$res, 記事モード=$act</p>
<p>投稿者情報: 登録日時=$date, リモートホスト=$rhost, ＩＰアドレス=$ipad</p>
<p>記事サイズ=約 $kiji_size bytes, コメントサイズ=約 $comment_size bytes</p>
</form>
_EOF_
	&html_footer;
}

# [ 登録処理 ]
#

sub regist {
	&read_all;
	local($title,$name,$email,$comment) = ($FORM{'title'},$FORM{'name'},$FORM{'email'},$FORM{'comment'});
	$title =~ s/\r\n//g;
	$title =~ s/\r|\n//g;
	$name	=~ s/\r\n//g;
	$name	=~ s/\r|\n//g;
	$email =~ s/\r\n//g;
	$email =~ s/\r|\n//g;
	$comment =~ s/\r\n/<BR>/g;
	$comment =~ s/\r|\n/<BR>/g;
	if (length($title) > 80) {
		&error(1,"タイトルの記入漏れ、又は文字数制限を過えています。");
	} elsif (!$title) { $title = "無題"; }
	if ((!$name) || (length($name) > 42)) {
		&error(1,"名前の記入漏れ、又は文字数制限を過えています。");
	}
	if ((($email !~ /(.*)\@(.*)\.(.*)/) && ($email)) || (length($email) > 120)) {
		&error(1,"メールアドレスの間違い、又は文字数制限を過えています。");
	}
	if (!$comment) {
		&error(1,"メッセージの記入漏れです。");
	}
	foreach $data (@logs) {
		if ($FORM{'tn'} == (&divide_data($data))[0]) {
			@kiji_datas = &divide_log($data);
			$tree_data = '';$flag = 0;
			foreach $data (@kiji_datas) {
				if ($FORM{'no'} == (&divide_data($data))[0]) {
					local($no,$res,$lx,$tn,$temp,$temp,$temp,$date,$act,$file_pwd,$rhost,$ipad,$temp) = &divide_data($data);
					$data = "$no<>$res<>$lx<>$tn<>$title<>$name<>$email<>$date<>0<>$file_pwd<>$rhost<>$ipad<>$comment";
				}
				if ($flag) { $tree_data .= "<#>"; } else { $flag = 1; }
				$tree_data .= $data;
			}
			push (@new,"$tree_data\n");
		} else {
			push (@new,$data);
		}
	}
	&write_file($count,$last_nj,@new);
}

# [ ダウンロード ]
#

sub download {
	print "Content-type: application/octet-stream\n\n";
	open(LOG,$logfile) or  &error('読み込みエラー','ログの読み込みが出来ません。管理者に連絡してください。');
	print <LOG>;
	close(LOG);
	exit;
}

# [ 最適化処理 ]
#

sub repair {
	foreach $tree (@logs) {
		@datas = &divide_log($tree);
		foreach (@datas) {
			local($no) = &divide_data($_);
			$line = substr("0000",length($line)).$line;
			push(@num,"$no=$line");
			$line++;
		}
	}
	@num = sort(@num);
	for($i=0;$i<@num;$i++) {
		($no,$line) = (split(/=/,$num[$i]));
		$num = $i + 1;
		$num3[$no] = $num;
		$num = substr("0000",length($num)).$num;
		push(@num2,"$line=$num");
	}
	@num2 = sort(@num2);
	$line = 0;
	foreach $tree (@logs) {
		@datas = &divide_log($tree);
		$flag = 0; $tree_data = '';
		foreach (@datas) {
			local($no,$res,$lx,$tn,$title,$name,$email,$date,$act,$file_pwd,$rhost,$ipad,$comment) = &divide_data($_);
			($temp,$no) = (split(/=/,$num2[$line++]));
			if ($res ne 'root') { $res = $num3[$res]; }
			$tn = $num3[$tn];
			$kiji_data = "$no<>$res<>$lx<>$tn<>$title<>$name<>$email<>$date<>0<>$file_pwd<>$rhost<>$ipad<>$comment";
			if ($flag){ $tree_data = "$tree_data<#>$kiji_data"; }
			else { $tree_data = $kiji_data; $flag = 1; }
		}
		push(@new,"$tree_data\n");
	}

	&write_file($line,$last_nj,@new);
	&read_all;
}

# [ ヘッダー部分表示 ]
#

sub html_header {
	local($sub_title) = $_[0];
	print "Content-type: text/html; charset=$charset_code\n\n";
	print<<"_EOF_";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
 "http://www.w3.org/TR/html40/strict.dtd">
<html lang="ja">
<head>
<title>FlasH BBS Pro Editor [$sub_title]</title>
<style type="text/css"><!--p,h3{margin:0}p.submit{text-align:center}--></style>
</head>
<body>
<h1>FlasH BBS Pro Editor</h1>
<h2>$sub_title</h2>
_EOF_
}

# [ 著作権等の表示（必ずこのまま表示すること） ]
#

sub html_footer {
	print<<"_EOF_";
<hr>
<p><!-- 著作権表\示 （必ず表\示してください。） -->
FlasH BBS Pro Editor v1.40 [<a href="http://www7.big.or.jp/~jawa/">Shigeto Nakazawa</a>]
</p>
</body></html>
_EOF_
}

# [ データ処理関連汎用サブ ]
#

sub divide_log {
	local($data) = $_[0];
	chop($data);
	return split(/<#>/,$data);
}
sub divide_data {
	return split(/<>/,$_[0]);
}
sub search_no2data {
	local($no,@datas) = @_;
	local($data);
	foreach $data (@datas) {
		if ($no == (&divide_data($data))[0]) { return $data; }
	}
	return 0;
}

# [ 文字コード関連 ]
#

sub check_code {
	if (!(-r $jcode)) { &error(1,"jcode.pl がありません"); }
	require $jcode;
	local($text) = ord(substr("中澤",0,1));
	if ($text == 0xc3) { $mojicode = "euc"; $charset_code = "EUC-JP"; }
	elsif ($text == 0x92) { $mojicode = "sjis";$charset_code = "Shift_JIS"; }
	else { &error(1,"サポートしてない文字コードです"); }
}
sub change_code {
	local($text)=$_[0];
	&jcode'convert(*text,$mojicode);
	if ($mojicode eq 'sjis') { &jcode'h2z_sjis(*text); }
	if ($mojicode eq 'euc')	{ &jcode'h2z_euc(*text); }
	$text =~ s/</&lt;/g;
	$text =~ s/>/&gt;/g;
	return $text;
}

# [ 自動リンク処理（独自方式 v1.9 LE）]
#

sub auto_link {
	local($text) = $_[0];
	&jcode'convert(*text,'euc');
	$text =~ s/(http:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%]+)/<A HREF=\"$1\">$1<\/A>/ig;
	$text =~ s/(ftp:\/\/[\w\.\~\-\/]+)/<A HREF=\"$1\">$1<\/A>/ig;
	$text =~ s/([\w\.\-]+)\@([\w\.\-]+)/<A HREF=\"mailto\:$1\@$2\">$1\@$2<\/A>/ig;
	&jcode'convert(*text,$mojicode);
	return $text;
}

# [ 記録ファイルの処理 ]
#

sub write_file {
	my($count,$this_nj,@lines) = @_;

	#プロセスID からテンポラリファイル名を生成
	$pros = $$;
	$pros = time unless $pros;
	$tmp_file = "$ID$pros.tmp";

	#他のテンポラリファイルを検索
	opendir(DIR,$log_dir) or  &error('システムエラー','作業ディレクトリのオープンに失敗しました。管理者が何かを忘れている可能性があります。');
	@list = readdir(DIR);
	closedir(DIR);
	unless (@list) { &error('システムエラー','作業ディレクトリが完全に空です。'); }
	@lists = grep(/$ID.*\.tmp/,@list);

	#テンポラリファイルがある場合
	my($retry_counter) = $retry;
	while (@lists) {
		if (--$retry_counter <= 0) {
			#しびれを切らした
			foreach (@lists) {
				#テンポラリファイルを抹殺
				unlink("$log_dir$_") if (-e "$log_dir$_");
			}
			&error('ビジー','ただ今混雑しています。時間をおいて再度実行してください。');
		}
		sleep(1);
		opendir(DIR,"$log_dir");
		@list = readdir(DIR);
		closedir(DIR);
		@lists = grep(/$ID.*\.tmp/,@list);
	}

	#テンポラリファイルに書き込む
	open(WRITE,">$log_dir$tmp_file") or &error('書き込みエラー','記録ファイルの書き込みが出来ません。管理者に連絡してください。');
	print WRITE "$count\n";
	print WRITE "$this_nj\n";
	print WRITE @lines;
	close(WRITE);

	#もう一度他のテンポラリファイルを検索
	opendir(DIR,$log_dir);
	@list = readdir(DIR);
	closedir(DIR);
	@lists = grep(/$ID.*\.tmp/,@list);
	@lists = grep(!/$tmp_file/,@lists);#自分自身は除外
	if (@lists) {
		#他で書き込み中であれば書き込みを中止して終了
		unlink("$log_dir$tmp_file") if (-e "$log_dir$tmp_file");
		&error('書き込みの競合','同時に複数の書き込みが行われようとしたため、処理を中止しました。すこし時間をおいてから、再度ご利用下さい。');
	}

	rename("$log_dir$tmp_file",$logfile) or &error('書き込みの競合','書き込みに失敗しました。再度実行してください。');
	chmod 0666, $logfile;
}

# [ エラー処理 ]
#

sub error {
	($err,$err_msg) = @_;
	if ($err) {
		print "Content-type: text/html; charset=$charset_code\n\n";
		print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"><html lang="ja"><body>';
	}
	print<<"_EOF_";
<p>エラー:$err_msg</p>
</body></html>
_EOF_
	exit;
}

sub read_all{
	open(LOG,$logfile) or  &error('読み込みエラー','ログの読み込みが出来ません。管理者に連絡してください。');
	$count = <LOG>;
	chop($count);
	$last_nj = <LOG>;
	chop($last_nj);
	@logs = <LOG>;
	close(LOG);
}