#!/usr/local/bin/perl
#       ↑あなたが加入しているプロバイダの「perl」言語が使用できる
#         パスを指定します。一般的に「#!/usr/local/bin/perl」で大丈夫

#***************************************************************************************
#	△シンプルＢＢＳ Var 2.0▽
#		○Yuppies CGI
#			http://http://www.geocities.co.jp/Milano/1567/
#		○フリープログラム
#			使用条件:[Yuppies]へのリンクは消さないで下さい。
#		○質問、コメントはYumiまで。
#			Yuppi(Yumi Tanaka)
#				YUPPI@chat.club.or.jp
#
#		※パスワードの変更を行ってください。
#***************************************************************************************

#日本語コード変換モジュール
#require 'jcode.pl';

if (-f "jcode.pl") {
	$jflag = true;
	require "jcode.pl";
	$code = ord(substr("漢", 0, 1));
	if ($code == 0xb4) {
		$ccode = "euc";
		$hcode = "x-euc-jp";
	} elsif ($code == 0x1b) {
		$ccode = "jis";
		$hcode = "iso-2022-jp";
	} else {
		$ccode = "sjis";
		$hcode = "x-sjis";
	}
}


#****************************************************************************************
#*	初期設定  ---  ファイルから読み込みます						*
#****************************************************************************************
$reload = 'sbbs2.cgi';

if (!open(NOTE,"$setteifile")) { &error(bad_file); }
@settei = <NOTE>;
close(NOTE);

($max,$pagevew,$pass,$bbstitle,$mail,$home) = split(/,/,$settei[0]);
($bgcolor,$textcolor,$linkcolor,$vlinkcolor,$titlecolor,$titlesize,$bak) = split(/,/,$settei[1]);
($tp1b,$tcl1,$tcl2) = split(/,/,$settei[2]);
($nmcl,$nmtp,$nms,$tycl,$tys,$dtcl,$dts,$cmcl,$cms) = split(/,/,$settei[3]);
($re,$me,$de,$formtype,$write,$reset) = split(/,/,$settei[4]);
($fname,$fmail,$ftitle,$fcom,$fhp) = split(/,/,$settei[5]);
($TOP) = split(/,/,$settei[6]);

#****************************************************************************************
#*	その他設定									*
#****************************************************************************************

$setteifile = "sbbs2_settei.txt";
$datafile = "sbbs2.txt";

$CookieName = 'sbbs2';
&cookie_read;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$date_now = sprintf("%02d/%02d/%02d %02d:%02d",
			$year, $mon + 1, $mday, $hour, $min);

if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'}); 
} else { $formdata = $ENV{'QUERY_STRING'}; }

$ENV{'TZ'} = "GMT"; 
($c_sec,$c_min,$c_hour,$c_mday,$c_mon,$c_year,$c_wday,$c_yday,$c_isdst) = localtime(time + 30 * 86400);


@pairs = split(/&/,$formdata);
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/</&lt;/g;
	$value =~ s/>/&gt;/g;
	$value =~ s/\n//g;
	$value =~ s/\,//g;
	&jcode'convert(*value,'sjis');
	$FORM{$name} = $value;
}

if (!open(NOTE,"$datafile")) { &error(bad_file); }
@data = <NOTE>;
close(NOTE);

#****************************************************************************************
#*	クッキー読み込み								*
#****************************************************************************************
sub cookie_read {
	$cookies = $ENV{'HTTP_COOKIE'};
	@pairs = split(/;/,$cookies);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/,/,$DUMMY{$CookieName});
	foreach $pair (@pairs) {
		($name, $value) = split(/\!/, $pair);
		$COOKIE{$name} = $value;
	}
}

#****************************************************************************************
#*	動作分類									*
#****************************************************************************************

if ($FORM{'action'} eq "regist") { &regist; }
if ($FORM{'action'} eq "new") { &new; }
if ($FORM{'action'} eq "setteiregist") { &setteiregist; }
elsif ($FORM{'button'} eq "$de" && $FORM{'pass'} eq "$pass" ) { &settei_html; }
elsif ($FORM{'button'} eq "$me" && $FORM{'pass'} eq "$pass" ) { &delmode; }
elsif ($FORM{'action'} eq "delete") { &delete; }
else{ &html; }

#****************************************************************************************
#*	初期画面									*
#****************************************************************************************
sub html{

	print "Content-type: text/html\n\n";
	print "<html><head><title>$bbstitle</title></head>\n";
	print "<body bgcolor=$bgcolor text=$textcolor link=$linkcolor vlink=$vlinkcolor background=\"http://$back\"><!-- geoguide start --><div align=center><script language="javascript">var jps=382116062;var jpt=1541542018</script><script language="javascript" src="//bc-geocities.yahoo.co.jp/js/gg.js"></script></div><!-- geoguide end --><DIV ALIGN=CENTER><!--#geoguide--></DIV>\n";
	print "<center>\n";
	print "<font size=$titlesize color=$titlecolor>$bbstitle</font>\n";
	print "<br><br>\n";
	chop($TOP);
	$TOP =~ s/\r/<br>/g;
	$TOP =~ s/&lt;/</g;
	$TOP =~ s/&gt;/>/g;
	print "$TOP\n";

	if( $formtype == 0){ &form; }
	else{ &button_form; }

	$counter = @data-1;
	$view = $pagevew - 1;
	if ($FORM{'viewdata'} eq '') { $viewdata = 0; } else { $viewdata = $FORM{'viewdata'}; }
	$endview = $viewdata + ($pagevew - 1);
	if ($endview >= $counter) { $endview = $counter; }

	foreach($viewdata .. $endview){
		($date,$num,$name,$email,$homepage,$comment,$title) = split(/,/,$data[$_]);
		$comment =~ s/\r/<br>/g;
		print "<table border=$tp1b width=90%>\n";
		print "<tr>\n";
		if( $tcl1 eq ""){ print"<td bgcolor=$bgcolor nowrap>\n"; }
		else{ print"<td bgcolor=$tcl1 nowrap>\n"; }
		&title;
		&name;
		if( $nmtp == 1 ){
			if( $email ne "" ){
				print "&nbsp;&nbsp;Email:\n";
				print "<a href=mailto:\"$email\">$email</a>\n";
			}
		}
		if( $homepage ne ""){
			print "&nbsp;&nbsp;HP:\n";
			$dammy = $homepage;
			($check,$site) = split(/:/,$dammy);
			if( $check ne http or $check ne ftp ){ print "<a href=\"http://$homepage\">\n"; }
			else{ print "<a href=\"$homepage\">\n"; }
			print "$homepage</a>\n";
		}
		print "</td>\n";
		print "</tr>\n";
		print "<tr>\n";
		if( $tcl2 eq ""){ print"<td bgcolor=$bgcolor nowrap>\n"; }
		else{ print"<td bgcolor=$tcl2 nowrap>\n"; }
		print "<blockquote><br>\n";
		print "<font size=$cms color=$cmcl>\n";
		print "$comment\n";
		print "</font>\n";
		print "</blockquote>\n";
		print "</td>\n";
		print "</tr>\n";
		print"</table><br>\n";
	}

	print "</center>\n";

	$nextview = $view + 1;

	if ($endview < $counter) {
		print "<form method=POST action=sbbs2.cgi>\n";
			print "<input type=hidden name=viewdata value=\"$nextview\">\n";
			print "<input type=submit value=NEXT>\n";
		print "</form>\n";
	}

	if( $formtype == 0){
		print "<form action=sbbs2.cgi method=POST>\n";
		print "<input type=password size=10 name=pass>\n";
		print " <input type=submit name=button value=$me>\n";
		print " <input type=submit name=button value=$de>\n";
		print "</form>\n";
	}

	print "<p align=left>\n";
	print "<a href=mailto:\"$mail\">$mail</a>\n";
	print "<br>\n";
	print "△<a href=\"http://www.geocities.co.jp/Milano/1567/\">Yuppies CGI</a>▽\n";#この部分は消さないで
	print "</body></html>\n";
	exit;
}

#****************************************************************************************
#*	新規書き込み									*
#****************************************************************************************
sub new {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$bbstitle</title></head>\n";
	print "<body bgcolor=$bgcolor text=$textcolor link=$linkcolor vlink=$vlinkcolor>\n";
	print "<center>\n";
	print "<font size=$titlesize color=$titlecolor>$bbstitle</font>\n";
	print "<br><br>\n";
	print "$TOP\n";
	print "<br><br>\n";

	&form;

	print "<p align=left>\n";
	print "<a href=mailto:\"$mail\">$mail</a>\n";
	print "<br>\n";
	print "△<a href=\"http://www.geocities.co.jp/Milano/1567/\">Yuppies CGI</a>▽\n";#この部分は消さないで
	print "</body></html>\n";
	exit;

}

#****************************************************************************************
#*	タイトル表示									*
#****************************************************************************************
sub title {
	print "<font size=$tys color=$tycl>\n";
	print "$title\n";
	print "</font>\n";
}

#****************************************************************************************
#*	掲示板の書き込み者の名前表示							*
#****************************************************************************************
sub name {
	if($nmtp == 1){
		print "<font size=$nms color=$nmcl>\n";
		print "$name\n";
		print "</font>\n";
		print "<font size=$dts color=$dtcl>\n";
		print "&nbsp;&nbsp;$date\n";
		print "</font>\n";
	}
	elsif($nmtp == 0){
		if( $email eq ""){
			print "<font size=$nms color=$nmcl>\n";
			print "$name\n";
			print "</font>\n";
		}
		else{
			print "<a href=mailto:\"$email\"><font size=$nms>\n";
			print "$name";
			print "</font></a>\n";
		}
		print "<font size=$dts color=$dtcl>\n";
		print "&nbsp;&nbsp;$date\n";
		print "</font>\n";
	}
}

#****************************************************************************************
#*	ボタン作成									*
#****************************************************************************************
sub button_form {
	print "<table border=3><tr>\n";
	print "<form action=sbbs2.cgi method=POST>\n";
	print "<input type=hidden name=action value=new>\n";
	print "<td><center><input type=submit name=button value=\"$re\"></td>\n";
	print "</form>\n";
	print "<form action=sbbs2.cgi method=POST>\n";
	print "<td><input type=password size=10 name=pass></td>\n";
	print "<td><input type=submit name=button value=\"$me\"></td>\n";
	print "<td><input type=submit name=button value=\"$de\"></td>\n";
	print "</form>\n";
	print "<td><center><a href=\"http://$home\"\'>Home Page</a></td>\n";
	print "</tr></table></form><br>\n";
}

#****************************************************************************************
#*	フォーム作成									*
#****************************************************************************************
sub form {
	print "<table cellspacing=0 cellpadding=0 >\n";
	print "<form action=sbbs2.cgi method=POST>\n";
	print "<input type=hidden name=action value=regist>\n";
		print "<tr>\n";
			print "<td align=center>$fname</td>\n";
			print "<td><input type=text size=30 name=name value=$COOKIE{'name'}></td>\n";
		print "</tr>\n";
		print "<tr>\n";
			print "<td align=center>$fmail</td>\n";
			print "<td><input type=text size=30 name=email value=$COOKIE{'email'}></td>\n";
		print "</tr>\n";
		print "<tr>\n";
			print "<td align=center>$fhp</td>\n";
			print "<td><input type=text size=30 name=homepage value=$COOKIE{'homepage'}></td>\n";
		print "</tr>\n";
		print "<tr>\n";
			print "<td align=center>$ftitle</td>\n";
			print "<td><input type=text size=30 name=title></td>\n";
		print "</tr>\n";
		print "<tr>\n";
			print "<td align=center NOWRAP>$fcom</td>\n";
			print "<td><textarea name=comment rows=7 cols=33></textarea></td>\n";
		print "</tr>\n";
		print "<tr>\n";
			print "<td></td>\n";
			print "<td><input type=submit value=\"$write\">&nbsp;&nbsp;<input type=reset value=\"$reset\"></td>\n";
		print "</tr>\n";
	print "</form>\n";
	print "</table><br>\n";

}

#****************************************************************************************
#*	カスタマイズ									*
#****************************************************************************************
sub settei_html {

	print "Content-type: text/html\n\n";
	print "<html><head><title>カスタマイズフォーム</title></head>\n";
	print "<body bgcolor=$bgcolor text=$textcolor link=$linkcolor vlink=$vlinkcolor>\n";
	print "<center>\n";
	print "カスタマイズフォーム\n";

	$dammy = "$bgcolor$textcolor$linkcolor$vlinkcolor$titlecolor$tcl1$tycl$nmcl$dtcl$cmcl$tcl2";
	($dd,$bgcolor,$textcolor,$linkcolor,$vlinkcolor,$titlecolor,$tcl1,$tycl,$nmcl,$dtcl,$cmcl,$tcl2)=split(/#/,$dammy);

	print "<form action=sbbs2.cgi method=POST>\n";
	print "<table>\n";
	print "<tr><td align=center>\n";
	print "<hr>\n";
	print "全体の設定です\n";
	print "<br>\n";
	print "<font color=$vlinkcolor>色の指定は１６進数で</a>\n";
	print "<hr>\n";
	print "</td></tr>\n";
	print "<tr><td>\n";
		print "掲示板タイトル\n";
		print "<input type=text size=20 name=bbstitle value=\"$bbstitle\"><br>\n";
		print "掲示板タイトルカラー\n";
		print "#<input type=text size=10 name=titlecolor value=$titlecolor>\n";
		print "掲示板タイトルサイズ\n";
		print "<input type=text size=2 name=titlesize value=$titlesize><br>\n";
		print "ＴＯＰ、タイトルの下にコメントを入れられます[タグＯＫ]<br>\n";
		print "<textarea name=TOP rows=4 cols=33>$TOP</textarea><br><br>\n";
	print "</td></tr>\n";
	print "<tr><td>\n";
		print "背景使う画像のURL\n";
		print "http://<input type=text size=40 name=back value=$back><br>\n";
		print "背景色\n";
		print "#<input type=text size=10 name=bgcolor value=$bgcolor>\n";
		print "テキスト色\n";
		print "#<input type=text size=10 name=textcolor value=$textcolor><br>\n";
		print "リンク色\n";
		print "#<input type=text size=10 name=linkcolor value=$linkcolor>\n";
		print "訪れたリンク色\n";
		print "#<input type=text size=10 name=vlinkcolor value=$vlinkcolor><br><br>\n";
		print "最大記憶記事数\n";
		print "<input type=text size=5 name=max value=$max>\n";
		print "1ページの記事数\n";
		print "<input type=text size=5 name=pagevew value=$pagevew><br>\n";
		print "パスワード[<b>最初は必ず変更してください</b>]\n";
		print "<input type=text size=10 name=pass value=$pass><br>\n";
		print "あなたのメールアドレス\n";
		print "<input type=text size=50 name=mail value=\"$mail\"><br>\n";
		print "Homeとして戻るＵＲＬ\n";
		print "http://<input type=text size=50 name=hp value=\"$home\"><br>\n";
	print "</td></tr>\n";
	print "<tr><td>\n";
	print "<hr>\n";
	print "<center>ボタン＆フォームの設定です</center>\n";
	print "<hr>\n";
		print "初期画面に書き込みフォームを出すかボタンフォームを出すかを選択<br>\n";
		if( $formtype == 0 ){ print "<input type=radio name=formtype value=0 checked>\n";}
		else{ print "<input type=radio name=formtype value=0>\n";}
		print "書き込みフォーム\n";
		if( $formtype == 1 ){ print "<input type=radio name=formtype value=1 checked>\n";}
		else{ print "<input type=radio name=formtype value=1>\n";}
		print "ボタンフォーム<br><br>\n";
		print "ボタンの文字です<br><br>\n";
		print "ボタンフォーム<br>\n";
		print "新規書き込みボタン：<input type=text size=15 name=re value=\"$re\">\n";
		print "メンテナンスボタン：<input type=text size=15 name=me value=\"$me\"><br>\n";
		print "デザイン変更ボタン：<input type=text size=15 name=de value=\"$de\">\n";
		print "<br><br>書き込みフォーム<br>\n";
		print "書き込みボタン：<input type=text size=15 name=write value=\"$write\">\n";
		print "リセットボタン：<input type=text size=15 name=reset value=\"$reset\"><br>\n";
		print "<br><br>書き込みフォームの横の文字<br>\n";
		print "名前：<input type=text size=10 name=fname value=\"$fname\">\n";
		print "メール：<input type=text size=10 name=fmail value=\"$fmail\"><br>\n";
		print "ＨＰ：<input type=text size=10 name=fhp value=\"$fhp\">\n";
		print "タイトル：<input type=text size=10 name=ftitle value=\"$ftitle\"><br>\n";
		print "コメント：<input type=text size=10 name=fcom value=\"$fcom\"><br>\n";
		
	print "</td></tr>\n";
	print "<tr><td>\n";
	print "<hr>\n";
	print "<center>記事の設定です</center>\n";
	print "<hr>\n";
		print "テーブルの枠の設定\n";
		print "<input type=text size=2 name=tp1b value=$tp1b>\n";
		print "：「0」で枠を消せます\n";

		print "<table border=$tp1b width=90%>\n";
		print "<tr>\n";
		if( $tcl1 eq ""){ print"<td bgcolor=#$bgcolor nowrap>\n"; }
		else{ print"<td bgcolor=#$tcl1 nowrap>\n"; }
		print "上段の色\n";
		print "#<input type=text size=10 name=tcl1 value=$tcl1><br>\n";
		print "タイトルの色\n";
		print "#<input type=text size=10 name=tycl value=$tycl>\n";
		print "タイトルの大きさ\n";
		print "<input type=text size=2 name=tys value=$tys><br>\n";
		print "名前の色\n";
		print "#<input type=text size=10 name=nmcl value=$nmcl>\n";
		print "名前の大きさ\n";
		print "<input type=text size=2 name=nms value=$nms><br>\n";
		print "日付の色\n";
		print "#<input type=text size=10 name=dtcl value=$dtcl>\n";
		print "日付の大きさ\n";
		print "<input type=text size=2 name=dts value=$dts>\n";
		print "<hr>\n";
		print "□タイプを選択してください\n";
		print "<hr>\n";	

		if( $nmtp == 1 ){ print "<input type=radio name=nmtp value=1 checked>\n";}
		else{ print "<input type=radio name=nmtp value=1>\n";}
		print "<font size=$nms color=#$nmcl>\n";
		print "name\n";
		print "</font>\n";
		print "<font size=$dts color=#$dtcl>\n";
		print "&nbsp;&nbsp;$date_now\n";
		print "</font>\n";
		print "&nbsp;&nbsp;EMail:\n";
		print "<a href=mailto:\"○○\@××.△△\">○○\@××.△△</a>\n";
		print "&nbsp;&nbsp;HP:\n";
		print "<a href=\"http://××.△△\">\n";
		print "http://××.△△</a><br><br>\n";

		if( $nmtp == 0 ){ print "<input type=radio name=nmtp value=0 checked>\n";}
		else{ print "<input type=radio name=nmtp value=0>\n";}
		print "<a href=mailto:\"○○\@××.△△\"><font size=$nms>\n";
		print "name";
		print "</font></a>\n";
		print "<font size=$dts color=#$dtcl>\n";
		print "&nbsp;&nbsp;$date_now\n";
		print "</font>\n";
		print "&nbsp;&nbsp;HP:\n";
		print "<a href=\"http://××.△△\">\n";
		print "http://××.△△</a>\n";

		print "</td>\n";
		print "</tr>\n";
		print "<tr>\n";
		if( $tcl2 eq ""){ print"<td bgcolor=#$bgcolor nowrap>\n"; }
		else{ print"<td bgcolor=#$tcl2 nowrap>\n"; }
		print "下段の色\n";
		print "#<input type=text size=10 name=tcl2 value=$tcl2>\n";
		print "コメントの色\n";
		print "#<input type=text size=10 name=cmcl value=$cmcl>\n";
		print "コメントの大きさ\n";
		print "<input type=text size=2 name=cms value=$cms>\n";
		print "</td>\n";
		print "</tr>\n";
		print"</table><br>\n";
	print "<input type=hidden name=action value=setteiregist>\n";
	print "<input type=submit value=ＯＫ>\n";
	print "カスタマイズに関して、意見・希望があればお知らせください\n";
	print "</td></tr>\n";
	print "</table>\n";
	print "<p align=left>\n";
	print "<a href=mailto:\"$mail\">$mail</a>\n";
	print "<br>\n";
	print "△<a href=\"http://www.geocities.co.jp/Milano/1567/\">Yuppies CGI</a>▽\n";#この部分は消さないで
	print "</body></html>\n";
	exit;

}

#****************************************************************************************
#*	掲示板のカスタマイズデータを保存						*
#****************************************************************************************
sub setteiregist {

	chop($FORM{'TOP'});

	$sdata[0] = "$FORM{'max'}\,$FORM{'pagevew'}\,$FORM{'pass'}\,$FORM{'bbstitle'}\,$FORM{'mail'}\,$FORM{'hp'}\n";
	$sdata[1] = "#$FORM{'bgcolor'}\,#$FORM{'textcolor'}\,#$FORM{'linkcolor'}\,#$FORM{'vlinkcolor'}\,#$FORM{'titlecolor'}\,$FORM{'titlesize'}\,$FORM{'back'}\n";
	$sdata[2] = "$FORM{'tp1b'}\,#$FORM{'tcl1'}\,#$FORM{'tcl2'}\n";
	$sdata[3] = "#$FORM{'nmcl'}\,$FORM{'nmtp'}\,$FORM{'nms'}\,#$FORM{'tycl'}\,$FORM{'tys'}\,#$FORM{'dtcl'}\,$FORM{'dts'}\,#$FORM{'cmcl'}\,$FORM{'cms'}\n";
	$sdata[4] = "$FORM{'re'}\,$FORM{'me'}\,$FORM{'de'}\,$FORM{'formtype'}\,$FORM{'write'}\,$FORM{'reset'}\n";
	$sdata[5] = "$FORM{'fname'}\,$FORM{'fmail'}\,$FORM{'ftitle'}\,$FORM{'fcom'}\,$FORM{'fhp'}\n";
	$sdata[6] = "$FORM{'TOP'}\n";


	if (!open(NOTE,">$setteifile")) { &error(bad_file); }
	print NOTE @sdata;
	close(NOTE);

	print "Location: $reload" . '?' . "\n\n";
}

#****************************************************************************************
#*	掲示板の書き込みデータを保存							*
#****************************************************************************************
sub regist {
	if ($FORM{'name'} eq "") { &error(bad_name); }
	if ($FORM{'comment'} eq "") { &error(bad_comment); }

	if ($c_year < 10)  { $c_year = "0$c_year"; }
	if ($c_sec  < 10)  { $c_sec  = "0$c_sec";  }
	if ($c_min  < 10)  { $c_min  = "0$c_min";  }
	if ($c_hour < 10)  { $c_hour = "0$c_hour"; }
	if ($c_mday < 10)  { $c_mday = "0$c_mday"; }
	
	$y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday";
	$youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [$c_wday];
	$m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun";
	$m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec";
	$month = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11) [$c_mon];
	$date_gmt = "$youbi, $c_mday\-$month\-$c_year $c_hour:$c_min:$c_sec GMT";
	$cook="name\!$FORM{'name'}\,email\!$FORM{'email'}\,hp\!$FORM{'homepage'}";

	print "Set-Cookie: $CookieName=$cook; expires=$date_gmt\n";

	$i = 1;
	foreach $dammy (@data){
		if( $i <= $max ){ push(@new,$dammy); }
		$i++;
	}

	$count = @data;
	if ($count < 1) {
		#記事がない場合は、コードを１に
		$new_num = 1;
	} else {
		#記事ある場合は、最後に投稿された記事のコードに１プラスする
		($date,$num,$name,$email,$homepage,$comment) = split(/\,/,$data[0]);
		$new_num = $num + 1;
	}

	
	$value = "$date_now\,$new_num\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'homepage'}\,$FORM{'comment'}\,$FORM{'title'}\n";

	unshift(@new,$value);

	if (!open(NOTE,">$datafile")) { &error(bad_file); }
	print NOTE @new;
	close(NOTE);

	print "Location: $reload" . '?' . "\n\n";
}

#****************************************************************************************
#*	削除モード									*
#****************************************************************************************
sub delmode {
	$count = @data;
	if ($count < 1) { &html; }

	print "Content-type: text/html\n\n";
	print "<html><head><title>メンテナンス</title></head>\n";
	print "<body bgcolor=$bgcolor text=$textcolor link=$linkcolor vlink=$vlinkcolor>\n";
	print "<center>\n";
	print "メンテナンス\n";

	print "<table>\n";
	print "<tr>\n";
	print "<form action=sbbs2.cgi method=POST>\n";
		print "<td><input type=hidden name=action value=delete>\n";
		print "削除番号：<input type=text size=39 name=delnum>\n";
		print " <input type=submit value=削除><br>\n";
		print "<font size=2>スペースで区切って番号を入力すれば同時に削除できます[半角]</font></td>\n";
	print "</form>\n";
	print "<form action=sbbs2.cgi method=POST>\n";
		print "<input type=hidden name=action value=delete>\n";
		print "<input type=hidden name=del value=all>\n";
		print "<td><input type=submit value=全消去><br>\n";
		print "<font size=2>全ての記事を消します</font></td>\n";
	print "</form>\n";
	print "</tr>\n";
	print "</table>\n";
	print "<hr>\n";
	foreach $line (@data) {
		($date,$num,$name,$email,$homepage,$comment) = split(/\,/,$line);
		print "<table border=0 width=100%>\n";
		print "<tr>\n";
			print "<td width=5% valign=top>[$num]</td>\n";
			print "<td valign=top>\n";
				#メールアドレスが記入されていればリンクをつける
				if ($email ne '') { print "<b><a href=mailto:" . $email . ">" . $name . "</a></b>\n"; }
				else { print "<b>" . $name . "</b>\n"; }
				print "<font size=-1>$date</font><br>\n";
				print "$comment\n";
			print "</td>\n";
		print "</tr></table>\n";
		print "<hr>\n";
	}
	print "<form action=sbbs2.cgi method=POST>\n";
		print "<input type=hidden name=action value=delete>\n";
		print "削除番号：<input type=text size=39 name=delnum>\n";
		print " <input type=submit value=削除><br>\n";
		print "<font size=2>スペースで区切って番号を入力すれば同時に削除できます</font>\n";
	print "</form>\n";
	exit;
}

#****************************************************************************************
#*	記事の削除									*
#****************************************************************************************
sub delete {

	if ($FORM{'del'} eq "all"){ @new = ""; }
	else{
		@delcode = split(/ /,$FORM{'delnum'});

		$count = @delcode;
		if ($count eq 0) { &html; }

		foreach $line (@data) {
			($date,$num,$name,$email,$homepage,$comment) = split(/\,/,$line);
			$check = "false";
			foreach $delchecker (@delcode) {
				if ($num eq $delchecker) { $check = "true"; }
			}
			if ($check eq "false") { push (@new,$line); }
		}
	}

	if (!open(NOTE,">$datafile")) { &error(bad_file); }
	print NOTE @new;
	close(NOTE);
	&html;
}

#****************************************************************************************
#*	エラールーチン									*
#****************************************************************************************
sub error{

	$error = $_[0];

	if( $error eq "bad_file"){ $em = "ファイルのオープンに失敗しました"; }
	elsif ($error eq "bad_name") { $em = 'おなまえが記入されていません。'; }
	elsif ($error eq "bad_comment") { $em = 'コメントが記入されていません。'; }

	print "Content-type: text/html\n\n";
	print "<html><head><title>エラー</title></head>\n";
	print "<body bgcolor=$bgcolor text=$textcolor link=$linkcolor vlink=$vlinkcolor>\n";
	print "<p><br><br><font size=6>\n";
	print "<center>ＥＲＲＯＲ</font><hr>\n";
	print "$em\n";
	print "<br><br>「戻る」ボタンで戻ってください</hr></center>\n";
	print "</body></html>\n";
	exit;
}

<!-- text below generated by geocities.jp --></object></layer></div></span></style></noscript></table></script></applet><script language="javascript" src="//bc-geocities.yahoo.co.jp/js/geov2.js"></script><script language="javascript">geovisit();</script>