#!/usr/bin/perl
##############################################################################
# shiromuku(u)PET version 2.00
# Created 02/13/00
# Copyright 2000 Shiromuku
# Available at http://www.t-okada.com/cgi/
###############################################################################
# COPYRIGHT NOTICE （著作権の告示）  
# Copyright 2000 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 './su_pet_cfg.cgi';   #変えないこと

#ここから下の部分は、変更しなくて結構です。
#######################
&parse_data;

print "Content-type: text/html\n";
if ($usepasscookie == 1) {
	&get_cookie;
	$c_name = $COOKIE{'name'};
	$c_email = $COOKIE{'email'};
	$c_url = $COOKIE{'url'};
	$c_pass = $COOKIE{'pass'};
	$c_username = $COOKIE{'username'};
	$c_password = $COOKIE{'password'};
	if ($c_url eq '') {
   		$c_url = 'http://';
	}
}

if ($action eq "delete_image_go_c") {
	&delete_image_go_c;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "download_log") {
	&download_log;
	exit (0) ;
}

elsif ($action eq "admin") {
	$txtnum = &get_number ("$section$txtnumfile", '1');
	&return_admin;
	exit (0) ;
}

elsif ($action eq "admin_cat") {
	&return_admin_cat;
	exit (0) ;
}

elsif ($action eq "admin_enter") {
	&return_admin_enter;
	exit (0) ;
}

elsif ($action eq "selectadmin") {
	$txtnum = &get_number ("$section$txtnumfile", '1');
	$txtnum = $lastnum;
	&show_cat;
	exit (0) ;
}

elsif ($action eq "user_a") {
 	&user_a;
 	exit (0) ;
}

elsif ($action eq "user") {
 	&user_a;
 	exit (0) ;
}

elsif ($action eq "selectadmin_cat") {
	&select_admin_cat;
	exit (0) ;
}

elsif ($action eq "add_cat_go") {
	&add_cat_go;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "remove_cat_go") {
	&remove_cat_go;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "change_cat_go") {
	&change_cat_go;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "make_pass") {
	&make_pass;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "changepassgo") {
	&changepassgo;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "show_cat") {
	$txtnum = &get_number ("$section$txtnumfile", '1');
	&show_cat;
	exit (0) ;
}

elsif ($action eq "showlast") {
	$showsection = $FORM{'section'};
	$txtnum = $lastnum;
	&show_cat;
	exit (0) ;
}

elsif ($action eq "remove") {
	$txtnum = &get_number ("$section$txtnumfile", '1');
	&remove;
	&return_suc;
	exit (0) ;
}

elsif ($action eq "settei") {
	&settei;
	&return_cat_suc;
	exit (0) ;
}

elsif ($action eq "search_all_list") {
	$txtnum = &get_number ("$section$txtnumfile", '1');
	&search_all_list;
	exit (0) ;
}

elsif ($action eq "search_all_lists") {
	$txtnum = &get_number ("$section$txtnumfile", '1');
	&search_all_lists;
	exit (0) ;
}

&return_main;
exit (0) ;

############################
sub decrement_num {
	my ($file) = $_[0];
	my ($d_num) = $_[1];
	my ($d_nums) = $d_num-1;
	open(FILE,">$basedir/$file") || &error("ファイルがオープンできません。\n");
	&lock;
	print FILE "$d_nums"; 
	&unlock;
	close(FILE);
	return $d_nums;
}

############################
sub increment_catnum {
	$catnums = ++$catnum;
	open(FILE,">$basedir/$catnumfile") || die $!;
	&lock;
	print FILE "$catnums"; 
	&unlock;
	close(FILE);
}

############################
sub parse_data {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		&check_referer;
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
		@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;
			unless (($name eq "introduction") || ($name eq "title") || ($name eq "stylesheet") || ($name eq "back")) {
				$value =~ s/<!--(.|\n)*-->//g;
				$value =~ s/<([^>]|\n)*>//g;
				$value =~ s/<//g; 
				$value =~ s/</&lt;/ig;
				$value =~ s/>/&gt;/ig;
			}
			$value =~ s/\|\|\|//g;
			#$value =~ s/&/&amp;/g;
			$value =~ s/\r\n/<BR>/g;
			$value =~ s/\r/<BR>/g;
			$value =~ s/\n/<BR>/g;
			&jcode'convert(*value,$mycode);
			if ($mycode eq 'sjis') { &jcode'h2z_sjis(*value); }
			if ($mycode eq 'euc')  { &jcode'h2z_euc(*value); }
			$FORM{$name} = $value;
		}
		&get_var;
	}
}

############################
#管理用ページに入る
sub return_admin_enter {
	&head("管理用");
	if ($FORM{'cat'}){
		print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"admin_cat\">\n";
		&id_html;
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"総合管理用\"></CENTER>\n";
	}
	if ($FORM{'show'}){
		print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"admin\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$lastnum\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
		&id_html;
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"管理用\"></CENTER>\n";
	}
	print "</FORM><BR>\n";
	&foot;
}

############################
#総合管理用ページその１
sub return_admin_cat {
	&check_referer;
	&check_pass;
	&set_cookie;
	&head("カテゴリー及びパスワード管理用");
	&admin_html;
	&foot;
}

############################
#管理用ページその１
sub return_admin {
	&check_pass;
	&set_cookie;
	&head("管理用ページ");
	&admin_htmls;
	&foot;
}

############################
#カテゴリー管理用ページその２
sub select_admin_cat {
	&check_pass;
	if ($FORM{'file_upload'}){
		&head("デザイン設定用画像ファイルのアップロード");
		print "<BR><HR><BR>\n";
		&show_files;
		print "<BR><CENTER><B>画像ファイルを選んで下さい。</B></CENTER>\n";
		print "<FORM ENCTYPE=\"multipart/form-data\" METHOD=\"POST\" ACTION=\"$cgi_r\">\n";
		print "<CENTER><TABLE WIDTH=\"60%\"><TR><TD>\n";
		print "<CENTER><INPUT TYPE=\"file\" NAME=\"uploaded_file\"><BR><BR></CENTER>\n";
		print "<BR><CENTER><INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"admin_up\"></CENTER>\n";
		&id_html;
		print "<BR><CENTER><INPUT TYPE=\"submit\" VALUE=\"アップロード\"></CENTER>\n";
		print "</FORM></TD></TR></TABLE></CENTER>\n";
		&foot;
	}

	if ($FORM{'delete_image'}){
		&head("ファイルの削除");
		print "<BR><HR WIDTH=\"80%\"><BR>\n";
		&show_files;
		print "<BR><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		&id_html;
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"delete_image_go_c\">\n";
		print "<BR><CENTER><TABLE WIDTH=\"50%\">\n";
		print "<TR><TD ALIGN=\"center\"><B>削除するデザイン設定用画像を選んで下さい。</B><BR><BR><SELECT NAME=\"img_url\">\n";
		opendir (DIR, "$c_basedir_h");
		foreach $filename ( readdir (DIR) ) {
			next if $filename eq '.';
			next if $filename eq '..';
			next if $filename eq '.htaccess';
			next if $filename eq 'index.html';
			next if $filename =~ /html$/;
			print "<OPTION VALUE=\"$filename\">$filename\n";
		}
		closedir (DIR);
		print "</SELECT></TD></TR>\n";
		print "</TABLE></CENTER>\n";
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"削除\">\n";
		print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM>\n";
		print "<BR><HR WIDTH=\"80%\"><BR>\n";
		&foot;
	}
	if ($FORM{'settei'}){
		&open_config;
		if ($t_width eq '') {
			$t_width="70%";
		}
		if ($image eq '') {
			$image="http://";
		}
		if ($bkgd_img eq '') {
			$bkgd_img="http://";
		}
		if ($line_url eq '') {
			$line_url="http://";
		}
		if ($icon_url eq '') {
			$icon_url="http://";
		}
		$back =~ s/<BR>/\n/g;
		$title =~ s/<BR>/\n/g;
		$introduction =~ s/<BR>/\n/g;
		$stylesheet =~ s/<BR>/\n/g;
		&head("デザインの設定をする");
		print "<BR><HR><BR>\n";
		&show_files;
		print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"settei\">\n";
		print "<BR><CENTER><TABLE WIDTH=\"90%\" BORDER=1 CELLSPACING=0 CELLPADDING=5>\n"; 
		print "<TR><TD><B><FONT SIZE=-1>ペット紹介コーナーのタイトル</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"d_title_color\" size=60 VALUE=\"$d_title_color\"><BR><BR></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>ペット紹介コーナーのタイトル部分</FONT></B></TD><TD><TEXTAREA ROWS=\"10\" COLS=\"60\" NAME=\"title\">$title</TEXTAREA><BR>HTMLのタグを使って自由にご記入できます。</TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>背景画像のURL</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"bkgd_img\" size=60 VALUE=\"$bkgd_img\"><BR>省略可</TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>区切り線画像のURL</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"line_url\" size=60 VALUE=\"$line_url\"><BR>省略可</TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>アイコン画像のURL</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"icon_url\" size=60 VALUE=\"$icon_url\"><BR>省略可</TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>背景色</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"bgcolor\" size=20 maxlength=50 VALUE=\"$bgcolor\"></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>記事のTABLEの色</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"table_color\" size=20 maxlength=50 VALUE=\"$table_color\"><BR>色をつけない場合は未記入にすること</TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>記事のTABLEの幅</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"t_width\" size=20 VALUE=\"$t_width\"></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>記事のタイトルの「色・大きさ・フォントの種類」</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"title_color\" size=60 VALUE=\"$title_color\"><BR><FONT SIZE=-1>（例：SIZE=3 COLOR=black）COLORのみ指定も可、半角英数字で記入のこと、色名と大きさは\"\"でくくらなくても良い</FONT></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>記事の文字の「色・大きさ・フォントの種類」</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"image\" size=60 VALUE=\"$image\"><BR><FONT SIZE=-1>（例：SIZE=3 COLOR=black）COLORのみ指定も可、半角英数字で記入のこと、色名と大きさは\"\"でくくらなくても良い</FONT></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>記事以外の文字の色</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"text_color\" size=20 maxlength=50 VALUE=\"$text_color\"></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>リンクの色</FONT></B></TD><TD><INPUT TYPE=\"text\" NAME=\"link_color\" size=20 maxlength=50 VALUE=\"$link_color\"></TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>上部に入れたい言葉・画像など</FONT></B></TD><TD><TEXTAREA ROWS=\"10\" COLS=\"60\" NAME=\"introduction\">$introduction</TEXTAREA><BR>HTMLのタグを使って自由にご記入できます。</TD></TR>\n";
		print "<TR><TD><B><FONT SIZE=-1>下部に入れたい言葉・画像など（戻り先など）</FONT></B></TD><TD><TEXTAREA ROWS=\"10\" COLS=\"60\" NAME=\"back\">$back</TEXTAREA><BR><FONT SIZE=-1>HTMLのタグを使って自由にご記入できます。</FONT></TD></TR>\n";
		if ($use_stylesheet==1) {
			print "<TR><TD><B><FONT SIZE=-1>スタイルシートの記述</FONT></B></TD><TD><TEXTAREA ROWS=\"10\" COLS=\"60\" NAME=\"stylesheet\">$stylesheet</TEXTAREA><BR><FONT SIZE=-1>HTMLのタグを使って自由にご記入できます。</FONT></TD></TR>\n";
		}
		print "</TABLE></CENTER><BR><BR>\n";
		&id_html;
		print "<P><BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"送信\">\n";
		print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM>\n";
		print "</FORM>\n";
		&foot;
	}

	if ($FORM{'add_cat'}){
		&check_pass;
		&set_cookie;
		&head("カテゴリーの追加");
		print "<BR><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"add_cat_go\">\n";
		print "<BR><CENTER><TABLE WIDTH=\"90%\">\n"; 
		print "<TR><TD><B>追加したいカテゴリー名</B><BR><INPUT TYPE=\"text\" NAME=\"cat_name_j\" SIZE=80 ><BR><BR></TD></TR>\n";
		print "<TR><TD><B>カテゴリーの説明</B><BR>\n";
		print "<TEXTAREA ROWS=\"5\" COLS=\"60\" NAME=\"cat_descrip\"></TEXTAREA><BR><BR></TD></TR></TABLE></CENTER>\n";
		&id_html;
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"送信\">\n";
		print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM>\n";
		print "</FORM>\n";
		&foot;
	}

	if ($FORM{'remove_cat'}){
		&check_pass;
		&set_cookie;
		&head("カテゴリーの削除");
		print "<CENTER><H4>注意</H4>カテゴリーを削除するとそこに含まれるレシピも同時に削除されます。</CENTER>\n";
		print "<BR><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		&id_html;
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"remove_cat_go\">\n";
		print "<BR><CENTER><TABLE BORDER=1 CELLSPACING=\"0\" WIDTH=\"60%\">\n"; 
		print "<TR><TD><B>下から選んで下さい</B></TD></TR>\n";
		open(FILE,"<$basedir/$catfile") || die $!;
		&lock;
		@cfile = <FILE>;
		&unlock;
		close(FILE);
		foreach (sort @cfile) {
			($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
			print "<TR><TD><INPUT TYPE=\"RADIO\" NAME=\"removesection\" VALUE=\"$section\">$cat_name_j</TD></TR>\n";
		}
		print "</TABLE></CENTER>\n";
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"削除\"></CENTER>\n";
		print "</FORM>\n";
		&foot;
	}

	if ($FORM{'change_cat'}){
		&check_pass;
		&set_cookie;

		open(FILE,"<$basedir/$catfile") || die $!;
		&lock;
		@cfile = <FILE>;
		&unlock;
		close(FILE);
		&head("カテゴリーの名前と説明の修正");
		foreach (sort @cfile) {
			($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
			print "<BR><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"change_cat_go\">\n";
			&id_html;
			print "<BR><CENTER><TABLE WIDTH=\"90%\">\n"; 
			print "<TR><TD><B>カテゴリー名</B><BR><INPUT TYPE=\"text\" NAME=\"cat_name_j\" SIZE=80 value=\"$cat_name_j\"><BR></TD></TR>\n";
			print "<TR><TD><B>カテゴリーの説明</B><BR>\n";
$cat_descrip =~ s/<BR>/\n/g;
			print "<TEXTAREA ROWS=\"5\" COLS=\"60\" NAME=\"cat_descrip\">$cat_descrip</TEXTAREA><BR><BR></TD></TR></TABLE></CENTER>\n";
			print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"修正\">\n";
			print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM>\n";
			print "</FORM>\n";
			print "<BR><P>\n";
			print "<BR><HR>\n";
			print "<BR><P>\n";
		}
		&foot;
	}

	if ($FORM{'changepass'}){
		&head("パスワードの変更");
		print "<CENTER>旧と新のパスワードおよびIDを入力して下さい。</CENTER>\n";
		print "<BR><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"changepassgo\">\n";
		print "<P><CENTER>旧ユーザID<INPUT TYPE=\"text\" NAME=\"oldUser\"></CENTER>\n";
		print "<P><CENTER>旧パスワード<INPUT TYPE=\"password\" NAME=\"oldPass\"></CENTER>\n";
		print "<P><CENTER>新ユーザID<INPUT TYPE=\"text\" NAME=\"newUser\"></CENTER>\n";
		print "<P><CENTER>新パスワード<INPUT TYPE=\"password\" NAME=\"newPass\"></CENTER>\n";
		print "<CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"送信\"></CENTER>\n";
		print "</FORM></BODY></HTML>\n";
	}
}

############################
#設定
sub settei {
	&check_pass;     
	&set_cookie;
	if ($bkgd_img !~ /^(f|ht)tp:\/\/.+\...+.*\.(jpg|bmp|gif|jpeg|JPG|JPEG|GIF)/) {$bkgd_img = ""; }
	if ($line_url !~ /^(f|ht)tp:\/\/.+\...+.*\.(jpg|bmp|gif|jpeg|JPG|JPEG|GIF)/) {$line_url = ""; }
	if ($icon_url !~ /^(f|ht)tp:\/\/.+\...+.*\.(jpg|bmp|gif|jpeg|JPG|JPEG|GIF)/) {$icon_url = ""; }
	$image =~ s/"/&quot;/g;
	$d_title_color =~ s/"/&quot;/g;
	$title_color =~ s/"/&quot;/g;
	open(FILE,">$basedir/$setteifile") || die $!;
	&lock;
	print FILE "settei|||$back|||$title|||$image|||$bkgd_img|||$line_url|||$icon_url|||$bgcolor|||$title_color|||$text_color|||$link_color|||$introduction|||$d_title_color|||$i_color|||$table_color|||$stylesheet|||$t_width|||end|||\n";
	&unlock;
	close(FILE);
}

############################
#設定用画像ファイルの削除
sub delete_image_go_c {
	&check_pass;
	unlink "$c_basedir_h/$img_url";
}

############################
#カテゴリーの追加
sub add_cat_go {
	&check_pass;
	&set_cookie;
	$catnum = &get_number ($catnumfile, '10');
	open(FILE,"<$basedir/$catfile") || &error("ファイルがオープンできません。\n");
	&lock;
	@cfile = <FILE>;
	&unlock;
	close(FILE);

	$cfile = @cfile;
	foreach (@cfile) {
		($mark,$sectionm,$cat_name_jm,$cat_descripm,$newdatem,$markend,$last)=split(/\|\|\|/,$_);
		if ($cat_name_j eq $cat_name_jm) {
			&error("そのカテゴリーはすでにあります。\n");
		}
	}
	$new_section = "$catnum";
	open(FILE,">>$basedir/$catfile") || die $!;
	&lock;
	print FILE "cat|||$new_section|||$cat_name_j|||$cat_descrip||||||end|||\n";
	&unlock;
	close(FILE);
	
	$txtnum = &get_number ("$new_section$txtnumfile", '1');
	$num = &get_number ("$new_section$numfile", '0');
	
	open(FILE,">$basedir/$new_section$txtnum\.txt") || &error("ファイルがオープンできません。\n");
	&lock;
	&unlock;
	close(FILE);
	&increment_catnum;
}

############################
#カテゴリーの削除
sub remove_cat_go {
	$removesection = $FORM{'removesection'};
	if ($removesection eq '') {
		&error("削除が出来ません。\n");
	}
	&check_pass;
	&set_cookie;
	open(FILE,"<$basedir/$catfile") || &error("ファイルがオープンできません。\n");
	&lock;
	@cfile = <FILE>;
	&unlock;
	close(FILE);

	open (FILE,">$basedir/$catfile");
	&lock;
	foreach (@cfile) {
		($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
		if (!($removesection eq $section)) {
				print FILE "$_"; 
		}
	}
	&unlock;
	close (FILE);
	$txtnum = &get_number ("$removesection$txtnumfile", '1');
	while ($txtnum >= 1) {
		open(FILE,"<$basedir/$removesection$txtnum\.txt") || &error("ファイルがオープンできません。\n");
		&lock(FILE);
		@afile = <FILE>;
		&unlock(FILE);
		close(FILE);
		foreach (@afile) {
				($markm,$datem,$timem,$replydatem,$replytimem,$namem,$emailm,$url_titlem,$urlm,$sectionm,$subjectm,$descripm,$picture_urlm,$materialm,$markendm,$lastm)=split(/\|\|\|/,$_);
			unlink "$basedir_h/$picture_urlm";
		}
		$txtnum = $txtnum-1;
		@afile = ();
	}
	unlink "$basedir/$removesection$numfile";
	unlink "$basedir/$removesection$txtnumfile";
	unlink glob ("$basedir/$removesection*.txt");
}

############################
#カテゴリーの説明の修正
sub change_cat_go {
	&check_pass;
	&set_cookie;
	open(FILE,"<$basedir/$catfile") || &error("ファイルがオープンできません。\n");
	&lock;
	@cfile = <FILE>;
	&unlock;
	close(FILE);

	open (FILE,">$basedir/$catfile");
	&lock;
	foreach (@cfile) {
		($markm,$sectionm,$cat_name_jm,$cat_descripm,$newdatem,$markend,$last)=split(/\|\|\|/,$_);
		if (!($section eq $sectionm)) {
			print FILE "$_"; 
		}
		else {
			print FILE "$markm|||$section|||$cat_name_j|||$cat_descrip|||$newdate|||end|||\n";
		}
	}
	&unlock;
	close (FILE);
}

############################
#パスワード変更
sub changepassgo {
	$username = $FORM{oldUser};
	$password = $FORM{oldPass};
	&check_pass;
	if ((!$FORM{newUser}) ||  ($FORM{newUser} eq "" ) || ($FORM{newUser} !~ /\w+/)) {
		&error("ID・パスワードに間違いがあります。\n");
	}
	if ((!$FORM{newPass}) || ($FORM{newPass} eq "") || ($FORM{newPass} !~ /\w+/)) {
		&error("ID・パスワードに間違いがあります。\n");
	}
	$new_pass = &crypt ($FORM{newPass}, 'aa');
	open(PASSWORD,">$basedir/$passfile") || &error("ファイルがオープンできません。\n");
	print PASSWORD "$FORM{newUser}:$new_pass\n";
	close(PASSWORD);
	$username = $FORM{newUser};
	$password = $FORM{newPass};
	&set_cookie;
}

############################
#パスワードの設定
sub make_pass {
	$filename = "$basedir/$passfile";
	if (-e $filename) {
		&error("エラーです。アクセスできません。\n");
	}
	else {
		if ((!$FORM{username}) ||  ($FORM{username} eq "" ) || ($FORM{username} !~ /\w+/)) {
			&error("IDに間違いがあります。\n");
		}
		if ((!$FORM{password}) || ($FORM{password} eq "") || ($FORM{password} !~ /\w+/)) {
			&error("パスワードに間違いがあります。\n");
		}
		$new_pass = &crypt ($password, 'aa');
		open(PASSWORD,">$basedir/$passfile") || &error("ファイルがオープンできません。\n");
		print PASSWORD "$username:$new_pass\n";
		close(PASSWORD);
		#$p_filename = "$basedir/$passfile";
		#chmod 0600, $p_filename;
		&set_cookie;
	}
}

############################
#削除の処理
sub remove{
	if (!$type) {
		&check_pass;
	}
	if ($type) {
		$replydate = &crypt ($replydate, 'aa');
	}
	$removedate = "$date|||$time";
	open(FILE,"<$basedir/$section$lastnum\.txt") || &error("ファイルがオープンできません。\n");
	&lock;
	@afile = <FILE>;
	&unlock;
	close(FILE);

	open (FILE,">$basedir/$section$lastnum\.txt");
	&lock;
	foreach (@afile) {
		($mark,$date,$time,$replydatem,$replytime,$name,$email,$url_title,$url,$sections,$subject,$descrip,$picture_urlm,$material,$markend,$last)=split(/\|\|\|/,$_);
		if (!(($removedate eq "$date|||$time") && ($replydate eq $replydatem))) {
			print FILE "$_"; 
		}
	}
	&unlock;
	close (FILE);
	$txtnum = &get_number ("$section$txtnumfile", '1');
	if ($lastnum == $txtnum) {
		$d_num = @afile;
		$d_num = $d_num - 1;
		if ($d_num == 0) {
			if ($lastnum != 1) {
				$txtnum = &decrement_num ("$section$txtnumfile",$txtnum);
				$lastnum = $txtnum;
			}
		}
	}
	unlink "$basedir_h/$picture_url";
}

############################
#メインページ
sub return_main {
	$filename = "$basedir/$passfile";
	if (-e $filename) {
		&open_config;
		if ($t_width eq '') {
			$t_width="70%";
		}
		$image =~ s/&quot;/"/g;
		$d_title_color =~ s/&quot;/"/g;
		$title_color =~ s/&quot;/"/g;
		open(FILE,"<$basedir/$catfile");
		&lock;
		@ccfile = <FILE>;
		&unlock;
		close(FILE);
		&head_html;
		if (@ccfile) {
			print "<BR><BR><CENTER><TABLE BORDER=0 WIDTH=\"$t_width\" CELLSPACING=\"0\" CELLPADDING=\"5\">\n";
			foreach (sort @ccfile) {
				($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
				$nums = &get_number ("$section$numsfile", '未登録');
				print "<TR><TD VALIGN=\"top\">\n";
				print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"show_cat\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\"><INPUT TYPE=\"SUBMIT\" VALUE=\"$cat_name_j\"></FORM></TD>\n";
				print "<TD VALIGN=\"top\"><FONT SIZE=-1>${cat_descrip}</FONT></TD>\n";
				&get_date;
				if ($nums eq $date) {
					$nums = "<FONT COLOR=red>Today</FONT>";
				}
				print "<TD NOWRAP VALIGN=\"top\"><FONT SIZE=-1>（${nums}）</FONT></TD></TR>\n";
			}
			print "</TABLE></CENTER>\n";
			print "<BR><BR>\n";
			print "<HR WIDTH=\"80%\">\n";
			print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"search_all_lists\">\n";
			&search_html;
			print "</FORM>\n";
			print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"search_all_list\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$txtnum\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\">\n";
			print "<CENTER><TABLE BORDER=0 CELLSPACING=\"0\"><TR>\n";
			print "<TD><FONT SIZE=-1>キーワード</FONT><INPUT TYPE=\"text\" NAME=\"searchword\" maxlength=100 SIZE=15></TD>\n";
			print "<TD><INPUT TYPE=\"SUBMIT\" VALUE=\"検索\"></TD></TR></TABLE></CENTER>\n";
			print "</FORM>\n";
			print "<HR WIDTH=\"80%\"><BR>\n";
			print "<BR><CENTER><H4>愛犬について投稿したい方は下記にご記入下さい。</H4></CENTER>\n";
			print "<FORM ENCTYPE=\"multipart/form-data\" METHOD=\"POST\" ACTION=\"$cgi_r\">\n";
			print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"add\">\n";
			print "<CENTER><TABLE WIDTH=\"80%\">\n";
			print "<TR><TH ALIGN=\"right\">カテゴリー</TH><TD><SELECT NAME=\"section\">\n";
			foreach (@ccfile) {
				($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
				if ($section){
					print "<OPTION VALUE=\"$section\">$cat_name_j\n";
				}
			}
			print "</SELECT></TD></TR>\n";
			&add_html;
			print "<CENTER><TABLE WIDTH=\"50%\"><TR><TH ALIGN=\"right\"><FONT SIZE=-1>修正・削除用パスワード（半角英数字10文字まで）</FONT></TH><TH><INPUT TYPE=\"password\" NAME=\"replydate\" SIZE=10 maxlength=10 VALUE=\"$c_pass\"></TH></TR></TABLE></CENTER>\n";
			print "<CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"送信\">\n";
			print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM><BR>\n";
			print "<HR WIDTH=\"80%\"><BR>\n";
		}
		print "<CENTER>$back</CENTER>\n";
		print "<DIV ALIGN=\"right\"><TABLE><TR><TD ALIGN=\"right\">\n";
		print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"admin_enter\">\n";
		print "<INPUT TYPE=\"SUBMIT\" NAME=\"cat\" VALUE=\"総合管理用\">\n";
		print "</FORM>\n";
		print "<FONT SIZE=-1><A HREF=\"http://www.t-okada.com/cgi/\" TARGET=_top>shiromuku(u)PET</A>&nbsp;$version</FONT></TD></TR></TABLE></DIV>\n";
		if ($show_ads==1) {
			print "<BR><CENTER>$adsbanner_bottom</CENTER>";
		}
		print "</BODY></HTML>\n";
	}
	else {
		open(FILE,">>$basedir/$catfile") || die $!;
		&lock;
		&unlock;
		close(FILE);
		&head("管理用ページ");
		print "<BR><CENTER><H4>IDとパスワードの設定をする</H4></CENTER>\n";
		print "<BR><CENTER>まず最初にIDとパスワードの設定をして下さい<BR></CENTER>\n";
		print "<BR><FORM METHOD=\"POST\"  ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"make_pass\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$lastnum\">\n";
		print "<CENTER>ユーザID<INPUT TYPE=\"text\" NAME=\"username\" maxlength=8>（半角英数字で８文字以内にして下さい。）</CENTER>\n";
		print "<CENTER>パスワード<INPUT TYPE=\"password\" NAME=\"password\" maxlength=8>（半角英数字で８文字以内にして下さい。）</CENTER>\n";
		print "<P><BR><CENTER><INPUT TYPE=\"SUBMIT\" NAME=\"settei\" VALUE=\"設定をする\"></CENTER>\n";
		print "</FORM>\n";
		print "</BODY></HTML>\n";
		exit;
	}
}

############################
#ログの保存
sub download_log{
	$showsection = $FORM{'section'};
	open(FILE,"<$basedir/$showsection$lastnum\.txt") || &error("ファイルがオープンできません。\n");
	&lock;
	@afile = <FILE>;
	&unlock;
	close(FILE);
	open(FILE,"<$basedir/$catfile");
	&lock;
	@cfile = <FILE>;
	&unlock;
	close(FILE);
	print "\n";
	print "<HTML>\n";
	print "<HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=Shift_JIS\">\n";
	print "<TITLE>Log</TITLE>\n";
	print "</HEAD><BODY>\n";
	foreach (@cfile) {
		($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
		if ($showsection eq $section) {
			&jcode'convert(*cat_name_j,'sjis');
			&jcode'convert(*cat_descrip,'sjis');         
			print "<CENTER><H2>$cat_name_j</H2></CENTER>\n";
			print "<CENTER>$cat_descrip</CENTER>\n";
			print "<P><HR><P>\n";
			if (@afile) {
				foreach (reverse sort @afile) {
					($mark,$date,$time,$replydate,$replytime,$name,$email,$url_title,$url,$section,$subject,$descrip,$picture_url,$material,$markend,$last)=split(/\|\|\|/,$_);
					$descrip="説明：<BR>$descrip";
					$picture_url="画像：<A HREF=\"$img_dir_url/$picture_url\">$img_dir_url/$picture_url</A>";
					&jcode'convert(*name,'sjis');
					&jcode'convert(*picture_url,'sjis');
					&jcode'convert(*subject,'sjis');
					&jcode'convert(*material,'sjis');
					&jcode'convert(*descrip,'sjis');
					&jcode'convert(*url_title,'sjis');
					print "<TABLE>\n";
					print "<TR><TD ALIGN=\"left\"><B><FONT COLOR=maroon>$name</FONT></B>(E-Mail:<A HREF=\"mailto:$email\">$email</A>&nbsp;&nbsp;URL:<A HREF=\"$url\">$url</A>)<BR>\n";
					print "<B>$subject</B>&nbsp;$url_title/$material\n";
					print "<FONT SIZE=-1>($date/$time)</FONT><BR>\n";
					if ($picture_url){
						if ($picture_url ne 'http://') {
							print "<BR>$picture_url<BR>\n";
						}
					}
					print "<BR>$descrip<BR>\n";
					print "</TD></TR></TABLE>\n";
					print "<BR><HR><BR>\n";
				}
			}
			last;
		}
	}
	&foot;
}

############################
#ペット紹介コーナーを見る
sub show_cat {
	&open_config;
	if ($bgcolor eq '') {
		$bgcolor="white";
	}
	if ($t_width eq '') {
		$t_width="70%";
	}
	$image =~ s/&quot;/"/g;
	$d_title_color =~ s/&quot;/"/g;
	$title_color =~ s/&quot;/"/g;
	$stylesheet =~ s/<BR>//g;
	$showsection = $FORM{'section'};
	open(FILE,"<$basedir/$showsection$txtnum\.txt") || &error("ファイルがオープンできません。\n");
	&lock;
	@afile = <FILE>;
	&unlock;
	close(FILE);
	print "\n";
	print "<HTML>\n";
	print "<HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=EUC-JP\">\n";
	print "<TITLE>$cat_name_j</TITLE>\n";
	if ($use_stylesheet==1) {
		print "$stylesheet\n";
	}
	print "</HEAD><BODY BGCOLOR=\"$bgcolor\" TEXT=\"$text_color\" BACKGROUND=\"$bkgd_img\" LINK=\"$link_color\" ALINK=\"$link_color\" VLINK=\"$link_color\">\n";
	if ($show_ads==1) {
		print "<BR><CENTER>$adsbanner_top</CENTER><BR><BR>";
	}
	print "<CENTER><H2>$cat_name_j</H2></CENTER>\n";
	print "<CENTER>$cat_descrip</CENTER>\n";
	print "<P><HR WIDTH=\"80%\"><BR>\n";
	if (@afile) {
		foreach (reverse sort @afile) {
			($mark,$date,$time,$replydate,$replytime,$name,$email,$url_title,$url,$sections,$subject,$descrip,$picture_url,$material,$markend,$last)=split(/\|\|\|/,$_);
			&body_html;
		}
		print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"search_all_lists\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$txtnum\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$showsection\">\n";
		print "<CENTER><TABLE BORDER=0 CELLSPACING=\"0\"><TR>\n";
		print "<TD><FONT SIZE=-1>キーワード</FONT><INPUT TYPE=\"text\" NAME=\"searchword\" maxlength=100 SIZE=15></TD>\n";
		print "<TD><INPUT TYPE=\"SUBMIT\" VALUE=\"検索\"></TD></TR></TABLE></CENTER>\n";
		print "</FORM><BR>\n";
		print "<HR WIDTH=\"80%\"><BR>\n";
		&last_html;
	}
	else {
		print "<CENTER>現在このカテゴリーに登録されているペットはありません。</CENTER><BR><BR>\n";
	}
	print "<P><CENTER>[<A HREF=\"$cgi?\">BACK</A>]</CENTER></P>\n";
	print "<DIV ALIGN=\"right\"><TABLE><TR><TD ALIGN=\"right\">\n";
	print "<FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"admin_enter\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$txtnum\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$showsection\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
	print "<INPUT TYPE=\"SUBMIT\" NAME=\"show\" VALUE=\"管理用\">\n";
	print "</FORM>\n";
	print "<FONT SIZE=-1><A HREF=\"http://www.t-okada.com/cgi/\" TARGET=_top>shiromuku(u)PET</A>&nbsp;$version</FONT></TD></TR></TABLE></DIV>\n";
	if ($show_ads==1) {
		print "<BR><CENTER>$adsbanner_bottom</CENTER>";
	}
	print "</BODY></HTML>\n";
}

############################
#表示用のHTML
sub body_html {
	$picture_url = "$img_dir_url/$picture_url";
	if ($use_blank==1) {
		$target = "_blank";
	}
	else {
		$target = "_top";
	}
	if ($table_color) {
		print "<CENTER><TABLE BORDER=0 WIDTH=\"$t_width\" CELLSPACING=\"0\" CELLPADDING=\"5\" BGCOLOR=\"$table_color\"><TR><TD>\n";
	}
	else {
		print "<CENTER><TABLE BORDER=0 WIDTH=\"$t_width\" CELLSPACING=\"0\" CELLPADDING=\"5\"><TR><TD>\n";
	}
	print "<TABLE BORDER=\"0\" CELLSPACING=\"0\" WIDTH=\"100%\" CELLPADDING=\"5\">\n";
	if ($icon_url){
		if ($icon_url ne 'http://') {
			print "<img src=$icon_url>\n";
		}
	}
	print "<TR><TD ALIGN=\"left\"><B><FONT $title_color>$subject</FONT></B>（<B>$url_title</B>/$material）\n";
	if ($date &&$time){
		print "<FONT SIZE=-1>記入日時$date/$time</FONT>\n";
	}
	print "</TD></TR>\n";
	if ($email){
		print "<TR><TD>投稿者<B><A HREF=\"mailto:$email\">$name</A></B>\n";
	}
	else {
		print "<TR><TD>投稿者<B>$name</B>\n";
	}
	if ($url){
		if ($url ne 'http://') {
			print "<B><A HREF=\"$url\">（HOME）</A></B>\n";
		}
	}
	print "</TD></TR>\n";
	print "</TABLE>\n";
	print "<TABLE BORDER=\"0\" CELLSPACING=\"0\" WIDTH=\"100%\" CELLPADDING=\"5\"><TR><TD ALIGN=\"left\">\n";
	if ($picture_url){
		if ($picture_url ne "$img_dir_url/") {
			if ($width) {
				print "<A HREF=\"$picture_url\" TARGET=$target><img src=\"$picture_url\" WIDTH=\"$width\" BORDER=0 ALIGN=left HSPACE=10 VSPACE=10></A>\n";
			}
			else {
				print "<A HREF=\"$picture_url\" TARGET=$target><img src=\"$picture_url\" BORDER=0 ALIGN=left HSPACE=10 VSPACE=10></A>\n";
			}
		}
	}
	print "<FONT $image>$descrip</FONT></TD></TR>\n";
	print "</TABLE>\n";
	unless (($FORM{'removearticle'}) || ($action eq "search_all") || ($action eq "search_all_list") || ($action eq "search_all_lists")) {
		print "<CENTER><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
		print "<TABLE><TR><TD><FONT SIZE=-1>PASS</FONT><INPUT TYPE=\"password\" NAME=\"replydate\" SIZE=10>\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"date\" VALUE=\"$date\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"time\" VALUE=\"$time\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$txtnum\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$showsection\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"user\">\n";
		print "</TD><TD><INPUT TYPE=\"SUBMIT\" NAME=\"removearticle\" VALUE=\"修正・削除\"></TD></TR></TABLE></FORM></CENTER>\n";
	}
	if ($FORM{'removearticle'}) {
		print "<FORM METHOD=\"POST\"  ACTION=\"$cgi\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"user_a\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$txtnum\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"date\" VALUE=\"$date\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"time\" VALUE=\"$time\">\n";
		&id_html;
		print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" NAME=\"removearticle\" VALUE=\"記事を修正・削除\"></CENTER>\n";
		print "</FORM><BR>\n";
	}
	print "</TD></TR></TABLE></CENTER><BR><BR>\n";
	
	if ($line_url) {
		if ($line_url ne 'http://') {
		print "<BR>\n";
		print "<CENTER><IMG SRC=\"$line_url\"></CENTER><BR>\n";
		}
	}
	elsif (($line_url eq '') && ($table_color eq '')) {
		print "<HR WIDTH=\"80%\">\n";
	}
	print "<BR>\n";
}

############################
#全記事条件検索処理
sub search_all_lists {
	$showsection = $FORM{'section'};
	$searchword = $FORM{'searchword'};
	&head("検索結果");
	print "<P><HR><P>\n";
	print "<CENTER>次の記事が条件に一致しました。<BR><BR>\n";
	while ($txtnum >= 1) {
		open(FILE,"<$basedir/$showsection$txtnum\.txt") || &error("ファイルがオープンできません。\n");
		&lock;
		@afile = <FILE>;
		&unlock;
		close(FILE);
		foreach (reverse @afile) {
			($mark,$date,$time,$replydate,$replytime,$name,$email,$url_title,$url,$section,$subject,$descrip,$picture_url,$material,$markend,$last)=split(/\|\|\|/,$_);
			$replydateandtimer= "$date|||$time";
			if ($descrip =~ /$searchword/i || $date =~ /$searchword/i || $subject =~ /$searchword/i || $url_title =~ /$searchword/i || $name =~ /$searchword/i || $material =~ /$searchword/i ) {
				&body_html;
				print "<P><BR>\n";
			}
		} 
		$txtnum = $txtnum-1;
		@afile = ();
	}
	print "</CENTER>\n";
	&foot;
}

############################
#全記事検索処理
sub search_all_list {
	$searchword = $FORM{'searchword'};
	if ($searchword eq '') {
		&error("キーワードを記入して下さい。\n");
	}
	&head("検索結果");
	print "<P><HR><P>\n";
	print "<CENTER>次の記事が<B>$searchword</B>に一致しました。<BR><BR>\n";
	open(FILE,"<$basedir/$catfile") || die $!;
	&lock;
	@csfile = <FILE>;
	&unlock;
	close(FILE);
	foreach (@csfile) {
		($mark,$section,$cat_name_jss,$cat_descripss,$newdatess,$markend,$last)=split(/\|\|\|/,$_);
		$txtnum = &get_number ("$section$txtnumfile", '1');
		while ($txtnum >= 1) {
			open(FILE,"<$basedir/$section$txtnum\.txt") || &error("ファイルがオープンできません。\n");
			&lock;
			@afile = <FILE>;
			&unlock;
			close(FILE);
			foreach (reverse @afile) {
				($mark,$date,$time,$replydate,$replytime,$name,$email,$url_title,$url,$sections,$subject,$descrip,$picture_url,$material,$markend,$last)=split(/\|\|\|/,$_);
				$replydateandtimer= "$date|||$time";
				if ($descrip =~ /$searchword/i || $date =~ /$searchword/i || $subject =~ /$searchword/i || $url_title =~ /$searchword/i || $name =~ /$searchword/i || $material =~ /$searchword/i ) {
					print "<BR>（カテゴリー）<B>$cat_name_jss</B><BR><BR>\n";
					&body_html;
					print "<P><BR>\n";
				}
			} 
			$txtnum = $txtnum-1;
			@afile = ();
		}
	}
	print "</CENTER>\n";
	&foot;
}

############################
#head部分のHTML
sub head_html {
	if ($bgcolor eq '') {
		$bgcolor="white";
	}
	$stylesheet =~ s/<BR>//g;
	print "\n";
	print "<HTML>\n";
	print "<HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=EUC-JP\">\n";
	print "<TITLE>$d_title_color</TITLE>\n";
	if ($use_stylesheet==1) {
		print "$stylesheet\n";
	}
	print "</HEAD><BODY BGCOLOR=\"$bgcolor\" TEXT=\"$text_color\" BACKGROUND=\"$bkgd_img\" LINK=\"$link_color\" ALINK=\"$link_color\" VLINK=\"$link_color\">\n";
	if ($show_ads==1) {
			print "<BR><CENTER>$adsbanner_top</CENTER><BR><BR>";
		}
	print "<CENTER><TABLE BORDER=\"0\" CELLSPACING=\"0\" WIDTH=\"80%\" CELLPADDING=\"5\"><TR><TD>\n";
	print "$title</TD></TR></TABLE></CENTER>\n";
	if ($introduction) {
		print "<CENTER><TABLE BORDER=\"0\" CELLSPACING=\"0\" WIDTH=\"80%\" CELLPADDING=\"5\"><TR><TD>\n";
		print "$introduction</TD></TR></TABLE></CENTER>\n";
	}
}

############################
#過去の記事を見る部分のHTML
sub last_html {
	$lastnum = $txtnum;
	$txtnum = &get_number ("$showsection$txtnumfile", '1');
	print "<CENTER>このページ<B>$lastnum</B></CENTER><BR>\n";
	print "<CENTER><TABLE WIDTH=\"50%\"><TR>\n";
	print "<TD ALIGN=\"center\"><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"showlast\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$showsection\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
	print "<SELECT NAME=\"txtnumber\">\n";
	print "<OPTION VALUE=\"$lastnum\" SELECTED>このページ\n";
	while (1<=$txtnum) {
		if ($txtnum != $lastnum) {
			print "<OPTION VALUE=\"$txtnum\">${txtnum}ページ\n";
		}
		$txtnum = $txtnum-1;
	}
	print "</SELECT>\n";
	print "<INPUT TYPE=\"SUBMIT\" VALUE=\"GO\"></FORM></TD>\n";
	print "</TR></TABLE></CENTER>\n";
	print "<BR>\n";
	$txtnum = $lastnum;
}

############################
#書き込み用のHTML
sub add_html {
	if (($action eq "user_a") || ($action eq "user")) {
		$c_name = $namem;
		$c_email = $emailm;
		$c_url = $urlm;
		$c_url_title = $url_titlem;
	}
	if ($picture_urlm eq '') {
		$picture_urlm = "http://";
	}
	print "<TR><TH ALIGN=\"right\" NOWRAP>投稿者名</TH><TD><INPUT TYPE=\"text\" NAME=\"name\" SIZE=40 value=\"$c_name\" maxlength=69></TD></TR>\n";
	print "<TR><TH ALIGN=\"right\" NOWRAP>E-Mail</TH><TD><INPUT TYPE=\"text\" NAME=\"email\" SIZE=40 value=\"$c_email\" maxlength=69></TD></TR>\n";
	print "<TR><TH ALIGN=\"right\" NOWRAP>URL</TH><TD><INPUT TYPE=\"text\" NAME=\"url\" SIZE=40 value=\"$c_url\" maxlength=69></TD></TR>\n";
	print "<TR><TH ALIGN=\"right\" NOWRAP>イヌの名前</TH><TD><INPUT TYPE=\"text\" NAME=\"subject\" SIZE=40 VALUE=\"$subjectm\" maxlength=100></TD></TR>\n";
	print "<TR><TH ALIGN=\"right\" NOWRAP><B>イヌの種類</TH><TD><INPUT TYPE=\"text\" NAME=\"url_title\" SIZE=40 value=\"$url_titlem\" maxlength=100></TD></TR>\n";
	print "<TR><TH ALIGN=\"right\" NOWRAP>イヌの性別</TH><TD><SELECT NAME=\"material\">\n";
	if ($materialm eq "男の子") {
		print "<OPTION VALUE=\"男の子\" SELECTED>男の子\n";
	}
	else {
		print "<OPTION VALUE=\"男の子\">男の子\n";
	}
	if ($materialm eq "女の子") {
		print "<OPTION VALUE=\"女の子\" SELECTED>女の子\n";
	}
	else {
		print "<OPTION VALUE=\"女の子\">女の子\n";
	}
	if ($materialm eq "不明") {
		print "<OPTION VALUE=\"不明\" SELECTED>不明\n";
	}
	else {
		print "<OPTION VALUE=\"不明\">不明\n";
	}
	print "</SELECT>\n";
	print "<BR></TD></TR>\n";
	print "<TR><TH ALIGN=\"right\" NOWRAP>アップロードする画像</TH><TD><INPUT TYPE=\"file\" NAME=\"uploaded_file\"><BR><FONT SIZE=2>$f_maxバイト以下にして下さい。（1000バイトは約1KBです。）\n";
	print "<BR>アップロード出来るファイルの拡張子は\n";
	foreach (@allowed_ext) {
		print "$_&nbsp;\n";
	}
	print "です。\n";
	print "</FONT>\n";
	if (($action eq "user_a") || ($action eq "user")) {
		print "<BR><FONT SIZE=2 COLOR=crimson>画像を変更したい場合のみ記入して下さい。</FONT>\n";
		print "<BR><INPUT TYPE=\"radio\" NAME=\"replytime\" VALUE=\"no\"><FONT SIZE=2 COLOR=crimson>画像を削除</FONT>\n";
	}
	print "</TD></TR>\n";
	$descripm =~ s/<BR>/\n/g;
	print "<TR><TH ALIGN=\"right\" NOWRAP>イヌの紹介</TH>\n";
	print "<TD><TEXTAREA ROWS=\"5\" COLS=\"40\" NAME=\"descrip\">$descripm</TEXTAREA></TD></TR></TABLE></CENTER>\n";
}

############################
#検索HTML
sub search_html {
	print "<CENTER><TABLE BORDER=0 CELLSPACING=\"0\"><TR>\n";
	print "<TD><FONT SIZE=-1>カテゴリー</FONT></TD><TD><SELECT NAME=\"section\">\n";
	foreach (@ccfile) {
		($mark,$section,$cat_name_j,$cat_descrip,$newdate,$markend,$last)=split(/\|\|\|/,$_);
		print "<OPTION VALUE=\"$section\">$cat_name_j\n";
	}
	print "</SELECT></TD>\n";
	print "<TD><FONT SIZE=-1>キーワード</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"searchword\" maxlength=100 SIZE=15></TD>\n";
	print "<TD><INPUT TYPE=\"SUBMIT\" VALUE=\"検索\"></TD></TR></TABLE></CENTER><BR>\n";
}

############################
#日時の取得
sub get_date {
	$ENV{'TZ'} = "JST-9";
	($secn,$minn,$hourn,$dayn,$monn,$yearn,$weekn,$yeardayn,$isdst) = localtime(time);
	$monn=$monn+1;
	$yearn=$yearn+1900;
	if ($monn<10)  {$monn="0$monn";}
	if ($dayn<10)  {$dayn="0$dayn";}
	if ($hourn<10) {$hourn="0$hourn";}
	if ($minn<10)  {$minn="0$minn";}
	if ($secn<10)  {$secn="0$secn";}
	$week = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$weekn];
	$date ="$yearn/$monn/$dayn/$week";
	$time ="$hourn\:$minn\:$secn";
}

############################
#修正・削除画面
sub user_a {
	if ($action eq "user_a") {
		&check_pass;
	}
	if ($action eq "user") {
		$test_pass = &crypt ($replydate, 'aa');
	}
	$removedate = "$date|||$time";
	&head("記事の修正・削除");
	open(FILE,"<$basedir/$section$lastnum\.txt") || &error("ファイルがオープンできません。\n");
	&lock;
	@afile = <FILE>;
	&unlock;
	close(FILE);
	foreach (@afile) {
		($mark,$datem,$timem,$replydatem,$replytimem,$namem,$emailm,$url_titlem,$urlm,$sectionm,$subjectm,$descripm,$picture_urlm,$materialm,$markend,$last)=split(/\|\|\|/,$_);
		if ($removedate eq "$datem|||$timem") {
			if ((($action eq "user") && ($replydatem eq $test_pass) && ($FORM{replydate} ne '')) || ($action eq "user_a")) {
				print "<BR><FORM ENCTYPE=\"multipart/form-data\" METHOD=\"POST\" ACTION=\"$cgi_r\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"modify\">\n";
				if ($action eq "user") {
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"type\" VALUE=\"user\">\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"replydate\" VALUE=\"$replydate\">\n";
				}
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"date\" VALUE=\"$date\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"time\" VALUE=\"$time\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$lastnum\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"picture_url\" VALUE=\"$picture_urlm\">\n";
				print "<CENTER><TABLE WIDTH=\"80%\">\n";
				&add_html;
				if ($action eq "user_a") {
					&id_html;
					print "<BR><INPUT TYPE=\"HIDDEN\" NAME=\"replydate\" VALUE=\"$replydatem\">\n";
				}
				print "<CENTER><INPUT TYPE=\"SUBMIT\" VALUE=\"修正\">\n";
				print "<INPUT TYPE=\"RESET\" VALUE=\"リセット\"></CENTER></FORM>\n";
				print " <BR><HR WIDTH=\"60%\"><BR>\n";
				print "<CENTER><FONT SIZE=2><B><FORM METHOD=\"POST\" ACTION=\"$cgi\">\n";
				if ($action eq "user") {
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"type\" VALUE=\"user\">\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"replydate\" VALUE=\"$replydate\">\n";
				}
				if ($action eq "user_a") {
					print "<CENTER>\n";
					&id_html;
					print "</CENTER>\n";
					print "<INPUT TYPE=\"HIDDEN\" NAME=\"replydate\" VALUE=\"$replydatem\">\n";
				}
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"date\" VALUE=\"$date\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"time\" VALUE=\"$time\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"txtnumber\" VALUE=\"$lastnum\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"section\" VALUE=\"$section\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"cat_name_j\" VALUE=\"$cat_name_j\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"remove\">\n";
				print "<INPUT TYPE=\"HIDDEN\" NAME=\"picture_url\" VALUE=\"$picture_urlm\">\n";
				print "<BR><INPUT TYPE=\"SUBMIT\" VALUE=\"削除\">\n";
				print "</FORM></B></FONT></CENTER>\n";
				print " <HR><BR><P>\n";
				last;
			}
		}
	}
	&foot;
}

############################
#設定ファイル読み込み
sub open_config {
	open(FILE,"<$basedir/$setteifile");
	&lock;
	$sfile = <FILE>;
	&unlock;
	close(FILE);
		($mark,$back,$title,$image,$bkgd_img,$line_url,$icon_url,$bgcolor,$title_color,$text_color,$link_color,$introduction,$d_title_color,$i_color,$table_color,$stylesheet,$t_width,$markend,$last)=split(/\|\|\|/,$sfile);
}

############################
#アップロードしたファイルの表示
sub show_files {
	print "<CENTER><TABLE WIDTH=\"90%\" BORDER=1 CELLSPACING=0 CELLPADDING=5><TR><TD>\n";
	print "あなたがアップロードされたデザイン設定用画像ファイルのURLは以下の通りです。デザイン設定、デザイン設定用画像の削除などの際にご利用下さい。<BR><BR>\n";
	opendir (DIR, "$c_basedir_h");
	foreach $filename ( readdir (DIR) ) {
		next if $filename eq '.';
		next if $filename eq '..';
		next if $filename eq '.htaccess';
		next if $filename eq 'index.html';
		next if $filename =~ /html$/;
		print "$c_img_dir_url/${filename}&nbsp;<A HREF=\"$c_img_dir_url/$filename\" TARGET=\"_blank\">見る</A><BR>\n";
	}
	closedir (DIR);
	print "</TD></TR></TABLE></CENTER>\n";
}