#!/usr/bin/perl
##############################################################################
# shiromuku(l2)BBS version 3.12
# Created 04/24/2002
# Copyright 2002 Shiromuku
# Available at http://www.t-okada.com/cgi/
###############################################################################
# COPYRIGHT NOTICE （著作権の告示）  
# Copyright 2002 Shiromuku All Rights Reserved.
# This script can be used and modified free of charge as long as you don't change this header or any of the parts that give me credit for writing this. （このスクリプトは無償で使用または改変できます。ただしこの著作権の告知と上記のコメント、及びCGIにより生成されるHTML表示下部にある著作権表示部は変えないで下さい。）
# By using this script you agree to indemnify me from any liability that might arise from its use.  In simple English, if this script somehow makes your computer run amuck and kill the pope, it's not my fault.（このスクリプトを使用することにより、使用者はその使用によって起こる可能性のあるいかなる事柄に対する責務についても、私Shiromukuに免責の保証を与えることに同意したものとします。）
# Redistributing and selling the code for this program without prior written consent is expressly forbidden.（前もって書面での承諾を得ることなくこのプログラムのコードを再配布したり売ったりすることは 明確に禁じられています。）

#######################
require './jcode.pl';
require './sl2_bbs_lib.cgi';

#######################
use strict;
my $gl = &get_globals("sl2_bbs_gl.cgi");
$gl->{version} = "version 3.12";

my ($form, $filename);
if ($ENV{'CONTENT_LENGTH'} || $ENV{'QUERY_STRING'}) {$form = &parse_data($gl);}
my $config = &open_config ($gl, $form);

my %HoD = ();
@HoD{"gl", "config", "form"} = ($gl, $config, $form);

if ($ENV{'REQUEST_METHOD'} eq "POST") {
	if ($form->{action} eq "admin_enter") {&return_admin_enter(\%HoD);}
	elsif ($form->{action} eq "show_icon") {&show_icon(\%HoD);}
	elsif ($form->{action} eq "reply") {&check_login(\%HoD); &return_reply(\%HoD);}
	elsif ($form->{action} eq "search_all") {&check_login(\%HoD); &search_all(\%HoD);}
	elsif ($form->{action} eq "showlast") {&check_login(\%HoD); &return_html(\%HoD);}
	elsif ($form->{action} eq "user") {&user(\%HoD);}
	elsif ($form->{action} eq "user_a") {&user(\%HoD);}
	exit (0) ;
}
else {
	if ($form->{action} eq "show_icon") {&show_icon(\%HoD); exit (0);}
	$filename = "$gl->{basedir}/$gl->{passfile}";
	if (-e $filename) {&return_login(\%HoD);}
	else {
		&head("管理用ページ", \%HoD);
		print "<BR><CENTER><H4>管理用パスワードとログインパスワードの設定をする</H4></CENTER>\n";
		print "<BR><CENTER>まず最初に管理用パスワードとログインパスワードの設定をして下さい<BR></CENTER>\n";
		print "<BR><form METHOD=\"POST\"  ACTION=\"$gl->{cgi_a}\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"make_pass\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"log\">\n";
		print "<CENTER><TABLE BORDER=1 CELLPADDING=5 CELLSPACING=0>\n";
		print "<TR><TD>パスワード</TD><TD><INPUT TYPE=\"password\" NAME=\"password\" maxlength=8><BR>（半角英数字で８文字以内にして下さい。）</TD></TR>\n";
		print "<TR><TD>管理用パスワード</TD><TD><INPUT TYPE=\"password\" NAME=\"password1\" maxlength=8><BR>（確認のためもう一度）</TD></TR>\n";
		print "<TR><TD>ログインパスワード</TD><TD><INPUT TYPE=\"password\" NAME=\"l_password\" maxlength=8><BR>（半角英数字で８文字以内にして下さい。）</TD></TR>\n";
		print "<TR><TD>ログインパスワード</TD><TD><INPUT TYPE=\"password\" NAME=\"l_password1\" maxlength=8><BR>（確認のためもう一度）</TD></TR>\n";
		print "</TABLE></CENTER>\n";
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" NAME=\"config\" VALUE=\"設定をする\"></CENTER>\n";
		print "</form>\n";
		print "</BODY></HTML>\n";
	}
}
exit (0) ;

############################
sub parse_data {
	my $gl = shift;
	my ($buffer, @pairs, $pair, $name, %form, $value);
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		if ($gl->{check_referer} == 1) {&check_referer($gl);}
		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;
		$value =~ s/\|\|\|//g;
		$value =~ s/</&lt;/ig; 
		$value =~ s/>/&gt;/ig;
		$value =~ s/\r\n/<BR>/g;
		$value =~ s/\r/<BR>/g;
		$value =~ s/\n/<BR>/g;
		jcode::convert(\$value,$gl->{mycode});
		if ($gl->{mycode} eq 'sjis') {jcode::h2z_sjis(\$value); }
		if ($gl->{mycode} eq 'euc')  {jcode::h2z_euc(\$value); }
		$form{$name} = $value;
	}
	return \%form;
}

############################
#loginページ
sub return_login{
	my$HoD = shift;
	my$cookie;
	my%boardname = split(/\,/,$HoD->{gl}{boardname});
	if ($HoD->{gl}{usepasscookie} == 1) {$cookie = &get_cookie (\%boardname);}
	&head_html(\*STDOUT,$HoD);
	print "$HoD->{config}{c2_title}\n";
	print "$HoD->{config}{c2_l_introduction}\n";
	print "<FORM METHOD=\"POST\" ACTION=\"$HoD->{gl}{cgi}\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"showlast\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"type\" VALUE=\"login\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"log\">\n";
	print "<CENTER>PASS<INPUT TYPE=\"password\" NAME=\"l_password\" value=\"$cookie->{l_password}\" maxlength=8 SIZE=10></CENTER>\n";
	print "<CENTER><INPUT TYPE=\"checkbox\" NAME=\"cookie_set\" VALUE=\"yes\" CHECKED>このパスワードを記憶させる</CENTER>\n";
	print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"ログイン\"></CENTER>\n";
	print "</FORM><BR>\n";
	&foot_html1 (\*STDOUT, $HoD);
}

############################
#修正・削除画面
sub user {
	my $HoD = shift;
	my(@u_data, $test_pass, $flag);
	if ($HoD->{form}{mynum} eq "") {&error("番号を入力して下さい。\n", $HoD);}
	if ($HoD->{form}{action} eq "user_a") {&check_pass ($HoD);}
	if ($HoD->{form}{action} eq "user") {
		if ($HoD->{form}{pass} eq "") {&error("パスワードを入力して下さい。\n", $HoD);}
		$test_pass = &crypt ($HoD->{form}{pass}, 'aa', $HoD);
	}
	open(LOG,"<$HoD->{gl}{basedir}/$HoD->{gl}{yourname}_$HoD->{form}{txtnumber}\.cgi") || &error("ファイルがオープンできません。\n", $HoD);
	while (<LOG>) {
		next if /^\d+$/;
		chomp;
		@u_data = split(/\|\|\|/,$_);
		if ($HoD->{form}{mynum} == $u_data[2]) {
			if ((($HoD->{form}{action} eq "user") && ($u_data[11] eq $test_pass) && ($HoD->{form}{pass} ne '')) || ($HoD->{form}{action} eq "user_a")) {
				$HoD->{config}{c1_image} = "記事[$HoD->{form}{mynum}]の修正・削除";
				&head_html(\*STDOUT,$HoD);
				print "<CENTER><H3>記事[$HoD->{form}{mynum}]の修正・削除</H3></CENTER>\n";
				if ($HoD->{form}{action} eq "user_a") {
					print "<CENTER><FONT SIZE=2>投稿者情報&nbsp;$u_data[13]</FONT></CENTER><BR>\n";
				}
				if ($u_data[12]) {
					print "<CENTER><TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"5\"><TR>\n";
					print "<TD VALIGN=bottom ALIGN=center>\n";
					&img_html($u_data[12],$HoD);
					print "<TD>\n";
					print "</TR></TABLE></CENTER><BR>\n";
				}
				$u_data[9] =~ s/<BR>/\n/g;
				if ($HoD->{config}{use_html} != 1) {
					$u_data[9] =~ s/<B>(.*?)<\/B>/&lt;B&gt;$1&lt;\/B&gt;/ig;
					$u_data[9] =~ s/<FONT (.*?)>(.*?)<\/FONT>/&lt;FONT $1&gt;$2&lt;\/FONT&gt;/ig;
					$u_data[9] =~ s/<a href=([^>]+)>(.*?)<\/a>/&lt;a href=$1&gt;$2&lt;\/a&gt;/ig;
					$u_data[9] =~ s/<([^>]|\n)*>//g;
				}
				print "<form ENCTYPE=\"multipart/form-data\" METHOD=\"POST\" ACTION=\"$HoD->{gl}{cgi_r}\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"l_password\" VALUE=\"$HoD->{form}{l_password}\">\n";
				if ($HoD->{form}{action} eq "user") {
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"modify_u\">\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"pass\" VALUE=\"$HoD->{form}{pass}\">\n";
				}
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$HoD->{form}{txtnumber}\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"mynum\" VALUE=\"$u_data[2]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"marktop\" VALUE=\"$u_data[0]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"u_file1\" VALUE=\"$u_data[12]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"width1\" VALUE=\"$u_data[14]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"height1\" VALUE=\"$u_data[15]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"p_num\" VALUE=\"$u_data[1]\">\n";
				print "<CENTER>\n";
				&table_html ($HoD);
				&add_html ($HoD, \@u_data);
				print "</TD></TR>\n";
				print "</TABLE></CENTER></TD></TR></TABLE></CENTER><BR>\n";
				if ($HoD->{form}{action} eq "user_a") {
					&id_html1($HoD);
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"modify\">\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"pass\" VALUE=\"$u_data[11]\">\n";
				}
				print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"修正\">\n";
				print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM>\n";
				print "<BR><HR WIDTH=\"60%\">\n";
				print "<form METHOD=\"POST\" ACTION=\"$HoD->{gl}{cgi_a}\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"l_password\" VALUE=\"$HoD->{form}{l_password}\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"img_url\" VALUE=\"$u_data[12]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"marktop\" VALUE=\"$u_data[0]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"mynum\" VALUE=\"$u_data[2]\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$HoD->{form}{txtnumber}\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"p_num\" VALUE=\"$u_data[1]\">\n";
				if ($HoD->{form}{action} eq "user") {
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"remove_u\">\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"pass\" VALUE=\"$HoD->{form}{pass}\">\n";
				}
				if ($HoD->{form}{action} eq "user_a") {
					&id_html1($HoD);
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"removemaingo\">\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"pass\" VALUE=\"$u_data[11]\">\n";
				}
				print "<CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"削除\"></CENTER>\n";
				print "</FORM>\n";
				&back_html($HoD);
				&foot_html (\*STDOUT, $HoD);
				$flag = 1;
				last;
			}
			else {
				&error("ID・パスワードに間違いがあります。\n", $HoD);
			}
		}
		else { 
			$flag = 0;
		}
	}
	close(LOG);
	if ($flag == 0) {
		&error("正しい番号を入力して下さい。\n", $HoD);
	}
}

############################
#返信書き込み用ページ
sub return_reply{
	my $HoD = shift;
	my (@r_data, @r_datax, $res_num);
	$HoD->{config}{c1_t_comment} ="<FONT SIZE=2><B>Reply to the Message&nbsp;[$HoD->{form}{mynum}]</B></FONT>";
	$HoD->{config}{c1_image} = "Reply to the Message&nbsp;[$HoD->{form}{mynum}]";
	$HoD->{config}{c2_title} = "<CENTER><H3>Reply to the Message&nbsp;[$HoD->{form}{mynum}]</H3></CENTER><BR><BR>";
	&head_html(\*STDOUT,$HoD);
	print "$HoD->{config}{c2_title}\n";
	open(LOG,"<$HoD->{gl}{basedir}/$HoD->{gl}{yourname}_$HoD->{form}{txtnumber}\.cgi") || &error("ファイルがオープンできません。\n");
	while (<LOG>) {
		chomp;
		@r_data = split(/\|\|\|/,$_);
		if (($r_data[0] eq "petadmin")  && ($r_data[2] == $HoD->{form}{mynum})) {
			@r_datax = @r_data;
			print "<CENTER>\n";
			&table_html ($HoD);
			&subj_date_name_hp_html ("main", \@r_data, $HoD);
		}
		elsif (($r_data[0] eq "reply")  && ($r_data[1] == $HoD->{form}{mynum})) {
			if ($HoD->{config}{border_color}) {
				print "<HR SIZE=\"1\" WIDTH=\"90%\" COLOR=\"$HoD->{config}{border_color}\">\n";
			}
			else {
				print "<HR SIZE=\"1\" WIDTH=\"90%\" COLOR=\"$HoD->{config}{text_color}\">\n";
			}
			&subj_date_name_hp_html ("reply", \@r_data, $HoD);
		}
	}
	close(LOG);
	print "</TD></TR></TABLE></CENTER></TD></TR></TABLE></CENTER><BR><BR>\n";
	print "<BR>\n";
	&add_form_html("reply", $HoD, \@r_datax);
	print "<BR><BR>\n";
	&back_html($HoD);
	&foot_html (\*STDOUT, $HoD);
}

############################
#全記事検索処理
sub search_all {
	my $HoD = shift;
	my ($filename, $i, @match, $page_maxs, $p, $ps, $lines, @s_data, $cat_data, $cat_name_j,$lastnumx,$pp,$s_num, $p_flag, %last); 
	my $searchword = $HoD->{form}{searchword}; 
	my $next_page = $HoD->{form}{next_page};
	my $yourname = $HoD->{gl}{yourname};
	if ($searchword eq '') {&error("キーワードを記入して下さい。\n", $HoD);}
	$searchword =~ s/　/ /g;
	my @searchword = split(' ', $searchword);
	$HoD->{config}{c1_image} = "Search";
	$HoD->{config}{c2_title} = "<CENTER><H3>Search</H3></CENTER>";
	$HoD->{config}{c2_introduction} = "";
	&head_html(\*STDOUT,$HoD);
	print "<CENTER>\n";
	print "<BR><B>【$searchword】</B>の検索結果です\n";
	open (LFILE,">$HoD->{gl}{basedir}/$HoD->{gl}{lockfile}") or &error("ファイルがオープンできません。\n", $HoD);
	eval("flock(LFILE, 2)");
	opendir (DIR, "$HoD->{gl}{basedir}");
	foreach $filename ( readdir (DIR) ) {
		if ($filename =~ /^$yourname\_(\w+)\.cgi$/o) {
			$lastnumx = $1;
			open(FILE,"<$HoD->{gl}{basedir}/$filename") or &error("ファイルがオープンできません。\n", $HoD);
			while (<FILE>) {
				next if /^\d+$/;
				$pp = 0;
				foreach $i (@searchword) {
					if (index($_,$i) >= 0) {
						$pp++;
						if ($HoD->{form}{s} eq 'or') {
							last;
						}
					}
					else {
						$pp = 0;
						if ($HoD->{form}{s} eq 'and') {
							last;
						}
					}
				}
				$_ .= $lastnumx;
				push (@match, $_) if ($pp > 0);
			}
			$s_num = @match;
			close(FILE);
		}
	}
	closedir (DIR);
	eval("flock(LFILE, 8)");
	close(LFILE);
	if ($s_num) {
		print "---&nbsp;該当記事: <B>$s_num</B>件<BR><BR>\n";
		if (!$HoD->{form}{next_page}) { $page_maxs = $HoD->{config}{n_page_max}; $p = 0; $HoD->{form}{next_page} = 0; $ps = 0;}
		else { $page_maxs = $HoD->{form}{next_page} + $HoD->{config}{n_page_max}; $p = 0; $ps = $HoD->{form}{next_page};}
		foreach $lines (@match) {
			my @line = split(/\n/,$lines);
			chomp $line[0];
			@s_data = split(/\|\|\|/,$line[0]);
			$HoD->{form}{txtnumber} = $line[1];
			if  ($p >= $page_maxs) {
				$p_flag = 1;
				last;
			}
			if  (($p < $page_maxs) && ($p >= $HoD->{form}{next_page})) {
				&table_html ($HoD);
				&subj_date_name_hp_html ("main", \@s_data, $HoD);
				&back_html ($HoD);
				print "</TD></TR></TABLE></CENTER></TD></TR></TABLE><BR>\n";
				$ps++;
			}
			$p++;
		}
		$last{ps} = $ps;
		$last{page_maxs} = $page_maxs;
		$last{p_flag} = $p_flag;
		$HoD->{last} = {%last};
		&last_html ($HoD);
	}
	else {
		print "<BR><FONT SIZE=2>該当する記事はありませんでした。</FONT><BR>\n";
	}
	&search_html ($HoD);
	print "</CENTER>\n";
	&back_html($HoD);
	&foot_html (\*STDOUT, $HoD);
}

############################
#アイコンの表示
sub show_icon {
	my $HoD = shift;
	my @icon_data;
	my $file = &file_open("$HoD->{gl}{basedir}/$HoD->{gl}{iconfile}");
	$HoD->{config}{c1_image} = "Icon";
	$HoD->{config}{c2_title} = "<CENTER><H3>Icon</H3></CENTER>";
	&head_html(\*STDOUT,$HoD);
	print "<CENTER><H3>Icon</H3></CENTER>\n";
	print "<CENTER><TABLE BORDER=1 WIDTH=\"60%\" CELLSPACING=\"0\" CELLPADDING=\"5\">\n";
	foreach (@{$file}) {
		@icon_data = split(/\|\|\|/,$_);
		print "<TR><TH><IMG SRC=\"$HoD->{gl}{icon_dir_url}/$icon_data[2]\"></TH><TH><FONT SIZE=2>$icon_data[3]</FONT></TH><TR>\n";
	}
	print "</TABLE></CENTER>\n";
	print "<BR><CENTER><FONT SIZE=2>ブラウザを閉じて戻って下さい。</FONT></CENTER>\n";
	print "</BODY></HTML>\n";
}