#!/usr/mesh/bin/perl
#
# ツリー型掲示板 Ver1.11
#
# Copyright (C) 1998 CGI Arkadia All rights reserved.
# Script written by Shintaro Wakayama.
#
# ■標準的なディレクトリ階層
# public_html ┬ cgi-bin ─ tree_bbs ┬ tree_bbs.cgi
#             │                     └ jcode.pl
#             └ index.html
#
# ■パーミッション
# --------------------------------------------------
# ファイル名             アクセス権
# --------------------------------------------------
# tree_bbs                 777（ディレクトリ）
# tree_bbs.cgi             755（プログラム）
# jcode.pl                 755（ライブラリ）
# --------------------------------------------------

require 'jcode.pl';

$text = "#000000";
$link = "#0000FF";
$vlink = "#800080";
$alink = "#FF0000";
$bgcolor = "#FFFFFF";
$background = "";
$title_name = "ツリー型掲示板";
$home = "http://www2s.biglobe.ne.jp/~arkadia/cgi/";

&main;

sub main
{
	&get_cookie;
	&decode;
	&file_check;

	if ($form{'function'} eq "write" && !&form_check) {
		&set_cookie;
		&message_write;
		&tree_view_html;
	} elsif ($form{'no'} != 0) {
		&message_view_html;
	} else {
		&tree_view_html;
	}
}

sub get_cookie
{
	foreach(split(/\;/,$ENV{'HTTP_COOKIE'})) {
		($name, $value) = split(/=/);
		$name =~ s/ //g;
		if ($name eq "tree_bbs") {
			($cookie_name, $cookie_mail, $cookie_url) = split(/\"/, $value);
			$cookie_url =~ s/http:\/\///;
			last;
		}
	}
}

sub set_cookie
{
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = gmtime(time+(30*24*60*40));
	$cookie_expire = sprintf("%s,%02d %s %04d %02d:%02d:02d GMT",
				("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$wday],
				$mday,
				("Jan","Feb","Mar","Apr","May","Jun",
				 "Jul","Aug","Sep","Oct","Nov","Dec")[$mon],
				$year + 1900,
				$hour,
				$min,
				$sec);

	print "Set-Cookie: tree_bbs=$form{'name'}\"$form{'mail'}\"$form{'url'}; expires=$cookie_expire\n";
}

sub form_check
{
	open(LOGFILE, "log.txt");
	@logfile = <LOGFILE>;
	close(LOGFILE);

	$logfile = pop(@logfile);
	chop($logfile);
	($log_resno, $log_no, $log_title, $log_name, $log_mail, $log_url, $log_date, $log_message) = split(/\"/, $logfile);

	if (!($form{'name'} && $form{'title'} && $form{'message'}) || length($form{'message'}) > 5000 || $form{'message'} eq $log_message) {
		1;
	} else {
		0;
	}
}

sub file_check
{
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year += 1900;
	$mon++;
	$thisday = ('日','月','火','水','木','金','土')[$wday];
	if ($sec  < 10)  {$sec  = "0$sec";}
	if ($min  < 10)  {$min  = "0$min";}
	if ($hour < 10)  {$hour = "0$hour";}
	if ($mday < 10)  {$mday = "0$mday";}
	if ($mon  < 10)  {$mon  = "0$mon";}

	$date = "$year年$mon月$mday日 $thisday曜日 $hour時$min分$sec秒";

	unless (-e "log.txt") {
		open(LOGFILE, ">log.txt");
		close(LOGFILE);
	}
}

sub message_write
{
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year += 1900;
	$mon++;
	$thisday = ('日','月','火','水','木','金','土')[$wday];
	if ($sec  < 10)  {$sec  = "0$sec";}
	if ($min  < 10)  {$min  = "0$min";}
	if ($hour < 10)  {$hour = "0$hour";}
	if ($mday < 10)  {$mday = "0$mday";}
	if ($mon  < 10)  {$mon  = "0$mon";}

	$update = "$year年$mon月$mday日 $thisday曜日 $hour時$min分$sec秒";
	if ($form{'url'} eq "http://") {
		$form{'url'} = "";
	}

	open(LOGFILE, "log.txt");
	@logfile = <LOGFILE>;
	close(LOGFILE);

	$no = @logfile + 1;

	open(LOGFILE, ">>log.txt");
	flock(LOGFILE, 2);
	printf(LOGFILE "%d\"%d\"%s\"%s\"%s\"%s\"%s\"%s\n", $form{'resno'}, $no, $form{'title'}, $form{'name'}, $form{'mail'}, $form{'url'}, $update, $form{'message'});
	flock(LOGFILE, 8);
	close(LOGFILE);
}

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) {
		($form_name, $form_value) = split(/=/, $pair);
		$form_value =~ tr/+/ /;
		$form_value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
		&jcode'convert(*form_value, 'sjis');
		$form_value =~ s/&/&amp;/g;
		$form_value =~ s/\"/&quot;/g;
		$form_value =~ s/</&lt;/g;
		$form_value =~ s/>/&gt;/g;
		$form_value =~ s/\r\n/<br>/g;
		$form_value =~ s/\r/<br>/g;
		$form_value =~ s/\n/<br>/g;
		$form{$form_name} = $form_value;
	}
}

sub title_list
{
	local($resno, $level) = @_;

	open(LOGFILE, "log.txt");
	@logfile = <LOGFILE>;
	close(LOGFILE);

	@logfile = reverse(@logfile);

	foreach $logfile (@logfile) {
		($log_resno, $log_no, $log_title, $log_name, $log_mail, $log_url, $log_date, $log_message) = split(/\"/, $logfile);

		if ($log_resno == $resno) {
			if ($level == 0) {
				printf("<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\" bgcolor=\"#DCDCFF\">\n");
			} else {
				printf("<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\">\n");
			}
			printf("  <tr>\n");
			printf("    <td>%s&lt;%d&gt; <a href=\"tree_bbs.cgi?no=%d\">%s</a> &lt;%s&gt;</td>\n", &space($level), $log_no, $log_no, $log_title, $log_name);
			printf("    <td align=\"right\"><small>■%s</small></td>\n", $log_date);
			printf("  </tr>\n");
			printf("</table>\n");

			&title_list($log_no, $level + 1);
		}
	}
}

sub space
{
	local($space) = @_;
	
	$buffer = "";

	for ($i = 0; $i < $space; ++$i) {
		$buffer = $buffer."　　　";
	}

	$buffer;
}


sub tree_view_html
{
	open(LOGFILE, "log.txt");
	@logfile = <LOGFILE>;
	close(LOGFILE);

	$count = @logfile;

	printf("Content-type: text/html\n\n");
	printf("<html>\n");
	printf("\n");
	printf("<head>\n");
	printf("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">\n");
	printf("<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 3.0\">\n");
	printf("<title>%s</title>\n", $title_name);
	printf("</head>\n");
	printf("\n");
	printf("<body bgcolor=\"%s\" background=\"%s\" text=\"%s\" link=\"%s\" vlink=\"%s\" alink=\"%s\">\n", $bgcolor, $background, $text, $link, $vlink, $alink);
	printf("\n");
	printf("<table border=\"0\" cellpadding=\"0\" align=\"right\">\n");
	printf("  <tr>\n");
	printf("    <td bgcolor=\"#B4B4FF\" width=\"10\"></td>\n");
	printf("    <td><small><a href=\"%s\">ホームへ戻る</a>｜<font color=\"#C0C0C0\">ツリー型掲示板</font></small></td>\n", $home);
	printf("  </tr>\n");
	printf("</table>\n");
	printf("\n");
	printf("<p><big><font color=\"#B4B4FF\">▼</font>ツリー型掲示板</big></p>\n");
	printf("\n");
	printf("<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" align=\"right\">\n");
	printf("  <tr>\n");
	printf("    <td><small>メッセージ数：%d件</small></td>\n", $count);
	printf("  </tr>\n");
	printf("</table>\n");
	printf("\n");
	printf("<hr noshade size=\"1\" color=\"#000000\">\n");
	printf("\n");

	&title_list(0, 0);

	printf("\n");
	printf("<hr noshade size=\"1\" color=\"#000000\">\n");
	printf("\n");
	printf("<p><font color=\"#B4B4FF\">▼</font>新規メッセージ</p>\n");
	printf("\n");
	printf("<form method=\"POST\" action=\"tree_bbs.cgi\">\n");
	printf("  <input type=\"hidden\" name=\"function\" value=\"write\">\n");
	printf("  <input type=\"hidden\" name=\"resno\" value=\"0\">\n");
	printf("  <table border=\"0\" cellpadding=\"0\" width=\"100%%\">\n");
	printf("    <tr>\n");
	printf("      <td rowspan=\"12\" bgcolor=\"#B4B4FF\" width=\"10\"></td>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■名前</td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"name\" size=\"20\" value=\"%s\"></td>\n", $cookie_name);
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■タイトル</td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"title\" size=\"20\"></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■電子メールアドレス　<small>※無ければ記入しないでください。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"mail\" size=\"20\" value=\"%s\"></td>\n", $cookie_mail);
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■ホームページアドレス　<small>※無ければ記入しないでください。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"url\" size=\"20\" value=\"http://%s\"></td>\n", $cookie_url);
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■メッセージ　<small>※ＨＴＭＬタグは使用できません。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><textarea rows=\"5\" name=\"message\" cols=\"40\"></textarea></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■送信　<small>※消去ボタンを押すと上記フォーム内容が全て消去されます。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"submit\" value=\"送信\" name=\"B1\"> <input type=\"reset\" value=\"消去\"\n");
	printf("      name=\"B2\"></td>\n");
	printf("    </tr>\n");
	printf("  </table>\n");
	printf("</form>\n");
	printf("\n");
	printf("<hr noshade size=\"1\" color=\"#000000\">\n");
	printf("\n");
	printf("<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\">\n");
	printf("  <tr>\n");
	printf("    <td align=\"right\">Copyright (C) 1998 <a href=\"http://www2s.biglobe.ne.jp/~arkadia/cgi/\">CGI Arkadia</a> All rights reserved.<br>\n");
	printf("    This script written by Shintaro Wakayama.</td>\n");
	printf("  </tr>\n");
	printf("</table>\n");
	printf("</body>\n");
	printf("</html>\n");
}

sub message_view_html
{
	open(LOGFILE, "log.txt");
	@logfile = <LOGFILE>;
	close(LOGFILE);

	foreach $logfile (@logfile) {
		($log_resno, $log_no, $log_title, $log_name, $log_mail, $log_url, $log_date, $log_message) = split(/\"/, $logfile);

		if ($form{'no'} == $log_resno) {
			++$i;
		} elsif ($form{'no'} == $log_no) {
			$no      = $log_no;
			$title   = $log_title;
			$name    = $log_name;
			$mail    = $log_mail;
			$url     = $log_url;
			$date    = $log_date;
			$message = $log_message;
		}
	}

	printf("Content-type: text/html\n\n");
	printf("<html>\n");
	printf("\n");
	printf("<head>\n");
	printf("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">\n");
	printf("<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 3.0\">\n");
	printf("<title>&lt;%d&gt; %s</title>\n", $no, $title);
	printf("</head>\n");
	printf("\n");
	printf("<body bgcolor=\"%s\" background=\"%s\" text=\"%s\" link=\"%s\" vlink=\"%s\" alink=\"%s\">\n", $bgcolor, $background, $text, $link, $vlink, $alink);
	printf("\n");
	printf("<table border=\"0\" cellpadding=\"0\" align=\"right\">\n");
	printf("  <tr>\n");
	printf("    <td bgcolor=\"#B4B4FF\" width=\"10\"></td>\n");
	printf("    <td><small><a href=\"%s\">ホームへ戻る</a>｜<a href=\"tree_bbs.cgi\">ツリー型掲示板</a></small></td>\n", $home);
	printf("  </tr>\n");
	printf("</table>\n");
	printf("\n");
	printf("<p><big><font color=\"#B4B4FF\">▼</font>&lt;%d&gt; \n", $no);
	printf("%s</big></p>\n", $title);
	printf("\n");
	printf("<table border=\"0\" cellpadding=\"0\" width=\"100%%\">\n");
	printf("  <tr>\n");
	printf("    <td bgcolor=\"#B4B4FF\" width=\"10\"></td>\n");
	printf("    <td><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\" bgcolor=\"#DCDCFF\">\n");
	printf("      <tr>\n");
	printf("        <td>■%s</td>\n", $name);
	printf("        <td align=\"right\"><small>■%s</small></td>\n", $date);
	printf("      </tr>\n");
	printf("    </table>\n");
	printf("    <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\">\n");
	printf("      <tr>\n");
	printf("        <td>%s</td>\n", $message);
	printf("      </tr>\n");
	printf("    </table>\n");

	if ($url ne "http://" && $url) {
		printf("    <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\">\n");
		printf("      <tr>\n");
		printf("        <td align=\"right\">url : &lt;<a href=\"%s\">%s</a>&gt;</td>\n", $url, $url);
		printf("      </tr>\n");
		printf("    </table>\n");
	}
	if ($mail) {
		printf("    <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\">\n");
		printf("      <tr>\n");
		printf("        <td align=\"right\">mail : &lt;<a href=\"mailto:%s\">%s</a>&gt;</td>\n", $mail, $mail);
		printf("      </tr>\n");
		printf("    </table>\n");
	}
	printf("    </td>\n");
	printf("  </tr>\n");
	printf("</table>\n");
	printf("\n");
	printf("<hr noshade size=\"1\" color=\"#000000\">\n");
	printf("\n");
	printf("<p><font color=\"#B4B4FF\"><big>▼</big></font>");

	if ($i == 0) {
		printf("このメッセージにはレスが付けられていません。</p>\n");
	} else {
		printf("このメッセージには%dつのレスが付けられています。</p>\n", $i);
	}

	printf("\n");

	&title_list($form{'no'}, 0);

	printf("\n");
	printf("<hr noshade size=\"1\" color=\"#000000\">\n");
	printf("\n");
	printf("<p><font color=\"#B4B4FF\">▼</font>&quot;&lt;%d&gt; \n", $no);
	printf("%s&quot;についてのレス</p>\n", $title);
	printf("\n");
	printf("<form method=\"POST\" action=\"tree_bbs.cgi\">\n");
	printf("  <input type=\"hidden\" name=\"function\" value=\"write\">\n");
	printf("  <input type=\"hidden\" name=\"resno\" value=\"%d\">\n", $form{'no'});
	printf("  <table border=\"0\" cellpadding=\"0\" width=\"100%%\">\n");
	printf("    <tr>\n");
	printf("      <td rowspan=\"12\" bgcolor=\"#B4B4FF\" width=\"10\"></td>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■名前</td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"name\" size=\"20\" value=\"%s\"></td>\n", $cookie_name);
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■タイトル</td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"title\" size=\"20\"></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■電子メールアドレス　<small>※無ければ記入しないでください。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"mail\" size=\"20\" value=\"%s\"></td>\n", $cookie_mail);
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■ホームページアドレス　<small>※無ければ記入しないでください。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"text\" name=\"url\" size=\"20\" value=\"http://%s\"></td>\n", $cookie_url);
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■メッセージ　<small>※ＨＴＭＬタグは使用できません。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><textarea rows=\"5\" name=\"message\" cols=\"40\"></textarea></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td bgcolor=\"#DCDCFF\">■送信　<small>※消去ボタンを押すと上記フォーム内容が全て消去されます。</small></td>\n");
	printf("    </tr>\n");
	printf("    <tr>\n");
	printf("      <td><input type=\"submit\" value=\"送信\" name=\"B1\"> <input type=\"reset\" value=\"消去\"\n");
	printf("      name=\"B2\"></td>\n");
	printf("    </tr>\n");
	printf("  </table>\n");
	printf("</form>\n");
	printf("\n");
	printf("<hr noshade size=\"1\" color=\"#000000\">\n");
	printf("\n");
	printf("<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%%\">\n");
	printf("  <tr>\n");
	printf("    <td align=\"right\">Copyright (C) 1998 <a href=\"http://www2s.biglobe.ne.jp/~arkadia/cgi/\">CGI Arkadia</a> All rights reserved.<br>\n");
	printf("    This script written by Shintaro Wakayama.</td>\n");
	printf("  </tr>\n");
	printf("</table>\n");
	printf("</body>\n");
	printf("</html>\n");
}