#!/usr/bin/perl

#投稿記事をファイルに最大数までファイルに保存
#設定数だけ、ページ単位に表示
#Eメールの記入があれば、表示欄のクリックメール起動
#URLの記入があれば、記事からリンク
#削除キーがあれば、本人が削除可能

$ver = 'small BBS'; # バージョン情報


# 文字コード変換ライブラリ取り込み
require './jcode.pl';

{
 # スクリプト名
 $script = "./bbs.cgi";
 # ログファイル名
 $logfile = "./bbs.log";
 # 設定ファイル
 $setfile = "./bbs.ini";

 # method形式 (POST/GET)
 $method = 'POST';
 # タグ許可 (0=no 1=yes)
 $tagkey = 0;
 # URLの自動リンク (0=no 1=yes)
 $autolink = 1;

# ホスト名取得方式
#  1 : gethostbyaddr関数で取得
 $gethostbyaddr = 0;

  #$ENV{'REQUEST_METHOD'}='GET';
  #$ENV{'QUERY_STRING'}="mode=update&name=mito&no=7&comment=567";


 #設定ファイルで初期設定する
 &set_file;
 #FORM の解析
 &decode;

 if ($mode eq 'regist') { &regist; }
 if ($mode eq 'usrdel') { &usrdel; }
 if ($mode eq 'update') { &usrdel;&regist; }

 #掲示板のページを生成
 &html;

}


#  設定処理 #
sub set_file {
#  設定ファイル読み込み #
	open(IN,"$setfile") || &error("Open Error : $setfile");
	$data = <IN>;
	close(IN);

	($title,$t_color,$t_size,$ImgT,$bg,$bc,$tx,$lk,$vl,$al,$face,$b_size,$sub_color,
      $max,$home,$p_log,$deny,$mailto) = split(/<>/, $data);

	# ポイント数
	$t_size .= 'pt';
	$s_size = ($b_size - 1) . 'pt';
	$b_size .= 'pt';

}

#  記事表示処理  #
sub html {

	&header;

	print "<center>\n";
	# タイトル
	if ($ImgT) {
		print "<img src=\"$ImgT\" alt=\"$title\">\n";
	} else {
		print "<font color=\"$t_color\" size=5><b style=\"font-size: $t_size\">$title</b></font>\n";
	}

	print <<"EOM";
<hr width="90%">
[<a href="$home" >トップに戻る</a>]
[<a href="bbsform.cgi">投稿する</a>]
[<a href="bbsmng.cgi">管理用</a>]
<hr width="90%">
</center>
EOM

#記事の表示開始
	# ページ区切り処理
	$start = $in{'page'} + 1;
	$end   = $in{'page'} + $p_log;

#startからendページまで表示
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$i=0;
	while ($line=<IN>) {
		local($temp) = $xx;
		$i++;
		if ($i < $start) { next; }
		if ($i > $end) { last; }

		($no,$date,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/,$line);
		if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
		if ($url) { $url = "<a href=\"http://$url\" target='_blank'>http://$url</a>"; }
		# URL自動リンク
		if ($autolink) { &auto_link($com); }

		print "<hr>[<b>$no</b>] <font color=\"$sub_color\"><b>$sub</b></font>\n";
		print "投稿者：<b>$name</b> 投稿日：$date<br>\n";
		print "<blockquote>$com<P>$url</blockquote>\n";
		#編集ボタン
		print "<form action=\"bbsform.cgi\" method=\"$method\">\n";
		print "<input type=hidden name=\"mode\" value=\"$no\">\n";
		print "<input type=submit value=\"編集\" >\n";
		print "</form>\n";
	
	}
#記事表示終了
	close(IN);

	$next_page = $in{'page'} + $p_log;
	$back_page = $in{'page'} - $p_log;

#前のページボタン
	print "<hr><table width='100%'><tr>\n";
	if ($back_page >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$back_page\">\n";
		print "<input type=submit value=\"前の$p_log件\">\n";
		print "</td></form>\n";
	}

#次のページボタン
	if ($next_page < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$next_page\">\n";
		print "<input type=submit value=\"次の$p_log件\">\n";
		print "</td></form>\n";
	}

#削除ボタン
	print "<td nowrap align=right width='95%'>\n";
	print "<form action=\"$script\" method=\"$method\">\n";
	print "<input type=hidden name=mode value=\"usrdel\">\n";
	print "記事No<input type=text name=no size=3>\n";
	print "削除キー<input type=password name=pwd size=4 maxlength=8>\n";
	print "<input type=submit value=\"削除\">\n";
	print "</td></form></tr></table>\n";

	exit;
}


#  書きこみ処理 (送信ボタン）
sub regist {
	# フォーム内容をチェック
  #print "*****redist******\n";

	if ($in{'name'} eq "" || $in{'comment'} eq "" ) { &error("名前または記事が入力されていません"); }
	if ($in{'pwd'} eq "") { &error("パスワードが入力されていません"); }

	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);

	($tno,$tdate,$tname,$tmail,$tsub,$tcom) = split(/<>/, $lines[0]);
	if ($in{'name'} eq "$tname" && $in{'comment'} eq "$tcom") {
		&error("同じ記事です");
	}
	#投稿サイトのIPを取得する
	&get_host();
	# 記事番号を増加
	$no = $tno + 1;
	# 削除キーを設定
	if ($in{'pwd'} ne "") { $PW = $in{'pwd'}; }
	# 最大記事数以上なら最後の記事を削除後、記事を追加
	while ($max <= @lines) { pop(@lines); }
	unshift(@lines,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$PW<>\n");

#記事配列をファイルに書き出す
	open(OUT,">$logfile") || &error("Write Error : $logfile");
	print OUT @lines;
	close(OUT);

	#利用者情報をクッキーに記録する
	&set_cookie;
}


#  書き込み者による記事削除  #
sub usrdel {
  #print "****usedel*****\n";

	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);

	$flag=0;
	@new=();
	foreach (@lines) {
		($no,$date,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/);
		if ($in{'no'} eq "$no") { $flag=1; $PWD=$pw; }
		else { push(@new,$_); }
	}

	if ($flag == 0) { &error("該当記事が見当たりません"); }
	# 削除キーを照合
	if ($in{'pwd'} ne "$PWD") { &error("パスワードが違います"); }

	# ログを更新
	open(OUT,">$logfile") || &error("Write Error : $logfile");
	print OUT @new;
	close(OUT);
}

#----------------#
#  FORM 入力解析 #
#----------------#
sub decode {
	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;

		# S-JISコード変換
		&jcode'convert(*value,'sjis');

		# タグ処理
		if ($tagkey) { $value =~ s/<>/&lt;&gt;/g; }
		else {
			$value =~ s/&/&amp;/g;
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
		}

		# 改行処理
		if ($name eq "comment") {
			$value =~ s/\r\n/<br>/g;
			$value =~ s/\r/<br>/g;
			$value =~ s/\n/<br>/g;
		} else {
			$value =~ s/\r//g;
			$value =~ s/\n//g;
		}

		# 削除情報
		if ($name eq 'del') { push(@DEL,$value); }
		$in{$name} = $value;
	}

	$mode = $in{'mode'};
	$in{'url'} =~ s/^http\:\/\///;
	if ($in{'sub'} eq "") { $in{'sub'} = "無題"; }

	# 日時の取得
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);

	# 日時のフォーマット
	@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
			$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);
}

#--------------#
#  HTMLヘッダ  #
#--------------#
sub header {
	$head_flag = 1;
	print "Content-type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE TYPE="text/css">
<!--
body,tr,td,th { font-size: $b_size; font-family: "$face" }
small { font-size: $s_size }
-->
</STYLE>
<title>$title</title></head>
<body background="$bg" bgcolor="$bc" text="$tx" link="$lk" vlink="$vl" alink="$al">
EOM
}
#--------------#
#  エラー処理  #
sub error {
#	if ($lockkey) { &unlock; }

	&header if (!$head_flag);
	print "<center><hr width='75%'><P><h3>ERROR !</h3>\n";
	print "<P><font color=red><B>$_[0]</B></font>\n";
	print "<P><hr width='75%'></center>\n";
	print "</body></html>\n";
	exit;
}

#----------------#
#  ホスト名取得  #
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	if ($gethostbyaddr) {
		if ($host eq "" || $host eq "$addr") {
			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
		}
	}
	if ($host eq "") { $host = $addr; }
}


#  クッキーの発行  #
sub set_cookie {
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg)	= gmtime(time + 60*24*60*60);

	@mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	$date_g = sprintf("%s, %02d\-%s\-%04d %02d:%02d:%02d GMT",
		$week[$wdayg],$mdayg,$mons[$mong],$yearg+1900,$hourg,$ming,$secg);

	$cook="name\:$in{'name'}\,email\:$in{'email'}\,url\:$in{'url'}\,pwd\:$in{'pwd'}";
	print "Set-Cookie: nBBS=$cook; expires=$date_g\n";
}




#--------------#
#  自動リンク  #
#--------------#
sub auto_link {
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\" target='_top'>$2<\/a>/g;
}