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

#***************************************************************************************
#	△SlotBBS Var 1.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 = 'slbbs2.cgi';

#記事の記憶数・１ページの表示数
$max="100";
$pagevew="3";

#パスワード
$pass="abc777";#必ず変更

#キー保存ファイルの**の部分(slbbs**.txt)
$pasfile="aa";#必ず変更(この場合、slbbsaa.txtという空のファイルを作成)

#掲示板タイトル
$bbstitle="SlotBBS";

#メールアドレス・戻るURL
$mail='';
$home='';

#背景の色指定
$bgcolor="#111111";

#背景の画像URL
$back="";

#文字の色指定
$textcolor="#cccccc";
#リンク・訪れたリンクの色指定
$linkcolor="#6699CC";
$vlinkcolor="#cc9966";
#タイトルの色・大きさ指定
$titlecolor="#cccccc";
$titlesize="6";

#掲示板のTOPにコメントを入力できます。
$TOP="";

#記事のテーブルの設定です。
#テーブルの枠の太さ
$tpb="0";

#上段の背景色
$tcl1="#777777";#名前の部分の色
$tcl3="#333333";#タイトルの部分の色

#下段の背景色
$tcl2="#777777";#コメントの部分の色

#名前の色・大きさ
$nmcl="#cccccc"; $nms="4";
#タイトルの色・大きさ
$tycl="#ffffff"; $tys="3";
#日付の色・大きさ
$dtcl="#fffff0"; $dts="1";
#コメントの色・大きさ
$cmcl="#dddddd"; $cms="2";

#フォームのタイプ
#	0---書き込みフォームが初期画面に表示されます
#	1---ボタンフォームが初期画面に表示されます
$formtype="0";

#ボタンに表示する文字
$re="書き込み"; $me="メンテ";
$write="φ(。。)カキカキ";
$reset="ロ(。。)ケシケシ";

#フォームのタイトル
$fname="Your Name";
$fmail="E-mail";
$ftitle="Title";
$fcom="Comment";
$fhp="Home Page";

@c_type = ("+5Ｐ(^^ｖ♪","ＢＩＧo(^^o)(o^^)o","ＲＥＧo(^^o)","+20Ｐ小役(^^v♪","チャンスっ(^◇^)ノ","(--)");

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

$datafile = "slbbs.txt";
$pointfile = "slbbs$pasfile.txt";
$CookieName = 'slbbs';
&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 + 365 * 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;
	$value =~ s/\*!\+/\r/g;
	&jcode'convert(*value,'sjis');
	$FORM{$name} = $value;
}

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

if (!open(NOTE,"$pointfile")) { &error(bad_file); }
@pointdata = <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; }
elsif ($FORM{'action'} eq "check") { &check; }
elsif ($FORM{'action'} eq "new") { &new; }
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>SlotBBS</title></head>\n";
	print "<body bgcolor=$bgcolor text=$textcolor link=$linkcolor vlink=$vlinkcolor background=\"$back\"><!-- geoguide start --><div align=center><script language="javascript">var jps=382116062;var jpt=1541542019</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";

	print "<b>\n";
	if($COOKIE{'name'} ne "" && $COOKIE{'p'} ne ""){
		foreach $numcheck ( @pointdata ){
		($id,$name,$pass1,$pass2,$point,$rt) = split(/\,/,$numcheck);
		if( $COOKIE{'id'} eq $id){
		print "<font size=-1>現在$COOKIE{'name'}さん<font color=#ffffdd><b>$pointＰ</b></font>です(^^)\n";
		print "---ありがとう\n"; last;}
		}
	}
	else{	print "<font size=-1><b>書き込みよろしく</b>\n";}
	print "<br>\n";

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

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

	foreach($viewdata .. $endview){
		($date,$num,$name,$email,$homepage,$comment,$title,$sn,$po,$sp,$rt,$inum) = split(/,/,$data[$_]);
		$comment =~ s/\r/<br>/g;
		$comment =~ s/&lt;/</g;
		$comment =~ s/&gt;/>/g;
		($sn1,$sn2,$sn3,$s_type) = split(/\+/,$sn);

		print "<table border=1>\n";
		print "<tr><td>\n";

		print "<table border=$tpb cellspacing=0 cellpadding=5 width=600>\n";
		print "<tr><td width=300 nowrap bgcolor=$tcl3>\n";
		print "<b><font size=$nms color=$nmcl>\n";
		print "&nbsp;$name\n";
		print "</font></b>\n";
		if( $email ne "" ){
			print "&nbsp;\n";
			print "<a href=mailto:\"$email\">[Email]</a>\n";
		}
		if( $homepage ne ""){
			print "&nbsp;\n";
			$dammy = $homepage;
			($check,$site) = split(/:/,$dammy);
			if( $check eq "http" or $check eq "ftp" ){ print "<a href=\"$homepage\">\n"; }
			else{ print "<a href=http://\"$homepage\">\n"; }
			print "[Home]</a>\n";
		}
		print "</td>\n";
		print "<td width=130 nowrap align=center bgcolor=#ffffff>\n";
		print "<img src=\"./image/s$sn1.gif\" width=32 height=32>\n";
		print "<img src=\"./image/s$sn2.gif\" width=32 height=32>\n";
		print "<img src=\"./image/s$sn3.gif\" width=32 height=32>\n";
		print "</td>\n";
		print "<td width=170 nowrap bgcolor=$tcl3>\n";
		print "<font size=-1 color=#dddddd><b>\n";
		print " +" . $po . "P\n";
		print "</b></font>\n";
		print "<font size=-1 color=#ffdddd><b>\n";

		print "" .$c_type[$s_type]. "\n";

		print "</b></font>\n";
		print "</td>\n";
		print "<td width=40 nowrap bgcolor=$tcl3>\n";
		print "<font size=-1 color=#dddddd><b>\n";
		print "". $sp . "P\n";
		print "</b></font>\n";
		print "</font>\n";
		print "</td>\n";

		print "</tr>\n";
		print "<tr>\n";
		if( $tcl1 eq ""){ print"<td width=600 bgcolor=$bgcolor NOWRAP colspan=4>\n"; }
		else{ print"<td width=600 bgcolor=$tcl1 NOWRAP colspan=4>\n"; }
		print"<b>&nbsp;&nbsp;&nbsp;\n";
		print "<font size=$tycl1 color=$dtcl>\n";
		&title;	
		print "</font></b>\n";
		print "<font size=$dts color=$dtcl>\n";
		print "&nbsp;$date\n";
		print "</td>\n";
		print "</tr>\n";
		print "<tr>\n";
		if( $tcl2 eq ""){ print"<td bgcolor=$bgcolor>\n"; }
		else{ print"<td bgcolor=$tcl2 colspan=4>\n"; }
		print "<blockquote>\n";
		print "<font size=$cms color=$cmcl>\n";
		if($cmcl2 == 1){	print "<b>$comment</b>\n";}
		elsif($cmcl2 == 0){print "$comment\n";}
		print "</font>\n";
		print "</blockquote>\n";
		print "</td></tr>\n";
		print"</table>\n";
		print "</td></tr>\n";
		print "</table><br>\n";


	}

	print "</center>\n";

	$nextview = $endview + 1;

	if ($endview < $counter) {
		print "<form method=POST action=$reload>\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=$reload method=POST>\n";
		print "<input type=password size=10 name=pass>\n";
		print " <input type=submit name=button value=$me>\n";
		print "</form>\n";
	}

	print "<p align=left>\n";
	print "<a href=mailto:$mail>$mail</a>\n";
	print "<a href=$home>Go To Home</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 "<a href=$home>Go To Home</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 "&nbsp;&nbsp;$title\n";
	print "</font>\n";
}

#****************************************************************************************
#*	ボタン作成
#****************************************************************************************
sub button_form {
	print "<table border=3><tr>\n";
	print "<form action=$reload 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=$reload 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 "</form>\n";
	print "<td><center><a href=\"http://$home\"\'>Home Page</a></td>\n";
	print "</tr></table></form><br>\n";
}

#****************************************************************************************
#*	フォーム作成
#****************************************************************************************
sub form {	
	print "<form action=$reload method=POST>\n";
	print "<input type=hidden name=action value=check>\n";
	print "<table border=0>\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 "<td rowspan=4>\n";
			print "<font size=-1>\n";
			print "<br>スロットタイプＢＢＳです(^^)<br>\n";
			print "<br><font color=#ffdddd>チャンス目</font>を引くと、<br>\n";
			print "次回の貴方の書き込みは<br>チャンス♪♪<br>\n";
			print "<br>ボーナス柄の並びでチャンス目です♪♪\n";
			print "	</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{'hp'}></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 colspan=2><textarea name=comment rows=7 cols=50></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\"><br>\n";
			print "キー１<input type=text value=\"$COOKIE{'pass1'}\" name=pass1 size=10>&nbsp;&nbspキー２<input type=text value=\"$COOKIE{'pass2'}\" name=pass2 size=10>\n";				print "</td>\n";
		print "</tr>\n";
		print "<tr>\n";
		print "<td colspan=3><center>\n";
			print "<table border cellpadding=4><tr><td>\n";
			print "<font size=2 color=#cccccc>\n";
			print "↑２つのキーで書き込み者を認識します↑\n";
			print "<br>◆どこから繋いでも、この２つのキーだけ同じなら同一人物とみなします<br>\n";
			print "　もし以前のキーがフォーム内に出ていなかったら自分で同じ物を入れてください・・・<br>\n";
			print "◇キーは<b><font color=#1e90ff>４文字以上の数字・文字</font></b>でお願いしますm(_ _)m<br>\n";
			print "◆キーを忘れた場合は連絡ください。保管してありますのでお教えいたします♪♪<br>\n";
			print "</td></tr></table>\n";
			print "</td></tr>\n";
	print "</form>\n";
	print "</table><br>\n";

}

#****************************************************************************************
#*	ユーザー確認
#****************************************************************************************
sub check {
	if ($FORM{'name'} eq "") { &error(bad_name); }
	if ($FORM{'comment'} eq "") { &error(bad_comment); }
	if ($FORM{'pass1'} eq "") { &error(bad_pass); }
	if ($FORM{'pass2'} eq "") { &error(bad_pass); }

	$check = 0;
	if(@pointdata != ""){
		$i = 0;
		foreach $data (@pointdata){
			($id,$name,$pass1,$pass2,$point,$rt) = split(/\,/,$data);
			$key[$i] = "『$pass1, $pass2 』<br>";
			if( $FORM{'pass1'} eq $pass1 && $FORM{'pass2'} eq $pass2){
			     $who=$name; 
			     $user = $id;
			     if($COOKIE{'id'} ne "" && $COOKIE{'id'} eq $id){
					$check = 1;
					&regist; last;
				  }
			     elsif($COOKIE{'id'} ne "" && $COOKIE{'id'} ne $id){$type = 1; $check = 2; last;}
			     elsif($COOKIE{'id'} eq ""){ $type = 2; $check = 2; last;}
			}
		$i++;
		}
	}
	else{ $check = 3; &regist; last;}
	if( $check == 0){ &regist; last;}

	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><font size=6>\n";
	print "<center>ＷＨＯ ＡＲＥ ＹＯＵ？</font><hr>\n";

	print "<b>同じキー『$FORM{'pass1'} , $FORM{'pass2'}』が検出されました</b><br><br>\n";
		print "<form action=$reload method=POST>\n";
		print "<input type=hidden name=action value=regist>\n";
		print "<table width=500 height=100 border=1><tr><td bgcolor=$tcl2>\n";
		print "<center>\n";
		$c_dammy =$FORM{'comment'};
		$c_dammy =~ s/\r/\*!\+/g;
		print "あなたが以前に『<b>$who</b>』さんで書き込みをしていればＯＫをおして下さい<br><br>\n";
		print "<input type=hidden name=check value=1>\n";
		print "<input type=hidden name=user value=$user>\n";
		print "<input type=hidden name=name value=$FORM{'name'}>\n";
		print "<input type=hidden name=comment value=$c_dammy>\n";
		print "<input type=hidden name=title value=$FORM{'title'}>\n";
		print "<input type=hidden name=email value=$FORM{'email'}>\n";
		print "<input type=hidden name=homepage value=$FORM{'homepage'}>\n";
		print "<input type=hidden name=pass1 value=$FORM{'pass1'}>\n";
		print "<input type=hidden name=pass2 value=$FORM{'pass2'}>\n";
		print "<input type=submit value=\"ＯＫ\">\n";
		print "</td></tr></table>\n";
		print "</form>\n";

	if( $type == 1){
		print "<br><table width=500 height=100 border=1><tr><td bgcolor=$tcl2>\n";
		print "<center><br>\n";
		print "『$COOKIE{'name'}』さんのキーは『$COOKIE{'pass1'},$COOKIE{'pass2'}』です。<br><br>\n";
		print "変更される場合＆違うユーザーの場合は、<br>もう一度違うキーを入力して下さい<br>\n";
		print "「戻る」ボタンで戻ってください<br><br>\n";
		print "</td></tr></table>\n";
	}

	if( $type == 2){
		print "<br><table width=500 height=100 border=1><tr><td bgcolor=$tcl2>\n";
		print "<center>\n";
		print "<br>以前に書き込んでくれた方ならキーが違っています。<br>\n";
		print "「戻る」ボタンで戻ってください<br><br>\n";
		print "</td></tr></table>\n";
		print "<br><table width=500 height=100 border=1><tr><td bgcolor=$tcl2>\n";
		print "<font size=5>\n";
		print "<center>初めての書き込みの場合</font><hr width=80% size=1>\n";
		print "ごめんなさい、キーの変更を・・・<br>\n";
		print "「戻る」ボタンで戻ってください<br>\n";
		print "</td></tr></table>\n";

	}
	print "<br>\n";
	print "このキーはスロットのポイント加算だけに反映される物ですので<br>\n";
	print "記事の書き込みにはなんの影響もありません。<br>";

	print "<br><b>キーの変更は新しいキーを入力して「変更」と掲示板に書き込んでくれれば<br>\n";
	print "ポイントの変更など処理します</b><br>\n";

	print "</center></body></html>\n";

}

#****************************************************************************************
#*	掲示板の書き込みデータを保存
#****************************************************************************************
sub regist {

	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";

	$i = 0;
	foreach $data (@pointdata){
		$newdata[$i] = $data;
	$i++;
	}

	if($FORM{'check'} == 1){
		$user = $FORM{'user'};
		($id,$name,$pass1,$pass2,$point,$rt) = split(/\,/,$pointdata[$user]);
			&point;
			$newdata[$user]="$user\,$name\,$FORM{'pass1'}\,$FORM{'pass2'}\,$pp\,$r\n";
			$iid = $user;
	}
	elsif($check == 1){
		($id,$name,$pass1,$pass2,$point,$rt) = split(/\,/,$pointdata[$user]);
			&point;
			$newdata[$user]="$user\,$name\,$FORM{'pass1'}\,$FORM{'pass2'}\,$pp\,$r\n";
			$iid = $user;
	}
	elsif($check == 0){
		$rt = 0;
		$point = 0;
		&point;
		$j = @pointdata;
		$iid = $j;
		$newdata[$j]="$j\,$FORM{'name'}\,$FORM{'pass1'}\,$FORM{'pass2'}\,$pp\,$r\n";
	}
	elsif($check == 3){
		$rt = 0;
		$point = 0;
		&point;
		$jj = 0;
		$iid = $jj;
		$newdata[0]="$jj\,$FORM{'name'}\,$FORM{'pass1'}\,$FORM{'pass2'}\,$pp\,$r\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,$title,$sn,$po,$sp,$rt) = split(/\,/,$data[0]);
		$new_num = $num + 1;
	}
	
	$value = "$date_now\,$new_num\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'homepage'}\,$FORM{'comment'}\,$FORM{'title'}\,$snum\,$p\,$pp\,$r\,$iid\n";

	unshift(@new,$value);

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

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

	$cook="name\!$FORM{'name'}\,email\!$FORM{'email'}\,hp\!$FORM{'homepage'},pass1\!$FORM{'pass1'}\,pass2\!$FORM{'pass2'}\,p\!$pp\,id\!$iid";

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

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

#****************************************************************************************
#*	ポイント計算
#****************************************************************************************
sub point{

	@number = (0,1,2,3,4,5);
	srand;
	$r[1] = $number[rand(@number)];
	$r[2] = $number[rand(@number)];
	$r[3] = $number[rand(@number)];

	$r = 0;
	$p = 10;
	$s_type = 5;

	if($rt == 0){
		if($r[1] == $r[2] && $r[1] == $r[3]){
			if($r[1] == 0 or $r[1] == 1){
				$p = 100 ;
				$s_type = 1;
			}
		
			if($r[1] == 3){
				$p = 50 ;
				$s_type = 2;
			}	

			if($r[1] == 2 or $r[1] == 4){
				$p = 30 ;
				$s_type = 3;
			}
			if($r[1] == 5){
			$p = 15 ;
			$s_type = 0;
			}
		}

		elsif($r[1] == 0 or $r[1] == 1 or $r[1] == 3){
			if($r[2] == 0 or $r[2] == 1 or $r[2] == 3){
				if($r[3] == 0 or $r[3] == 1 or $r[3] == 3){
				$s_type = 4;
				$r = 1;
			}}
		}

		elsif($r[1] == 5){
			$p = 15 ;
			$s_type = 0;
		}
	}
	else{
		@number = (0,1,3);
		srand;
		$r[1] = $number[rand(@number)];
		$r[2] = $r[1];
		$r[3] = $r[1];

		if($r[1] == 0 or $r[1] == 1){ $p = 100 ; $s_type = 1;}
		if($r[1] == 3){ $p = 50 ; $s_type = 2;}
	}

	$snum = "$r[1]+$r[2]+$r[3]+$s_type";

	$pp = $p + $point;
}

#****************************************************************************************
#*	削除モード
#****************************************************************************************
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=$reload 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=$reload 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,$title,$sn,$po,$sp,$rt) = 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=$reload 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,$title,$sn,$po,$sp,$rt) = 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 = 'コメントが記入されていません。'; }
	elsif ($error eq "bad_pass") { $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>