@@ -2,20 +2,20 @@
require ' jcode.pl'
# データファイル所在
# データファイル所在
$datafile =' memo.html'
# ログデータファイル所在
# ログデータファイル所在
$logfile =' log.html'
# ホームページ
$myhome =" http://legendworld.iaigiri.com /"
# ホームページ
$myhome =" http://scratch.mit.edu /"
# 管理者名
$myname =" リヴァイア "
# 管理者名
$myname =" noty2008 "
# 作成日
$madeday =" 2007/7/3（火 ）"
# 作成日
$madeday =" 2022/4/1（金 ）"
print " Content-type:text/html\n\n "
@@ -35,134 +35,132 @@ $text=$cgi{'text'};
$homepagename=$cgi{' homepagename' };
$txtcolor=$cgi{' txtcolor' };
$bgcolors=$cgi{' bgcolors' };
$write=$cgi{' mode' }; #書き込み処理の設定
$write=$cgi{' mode' }; #書き込み処理の設定
#時間設定初期値
#時間設定初期値
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;
#時間設定
#時間設定
$time = sprintf("%02d/%02d %02d:%02d", $mon+1, $mday, $hour, $min);
#データファイル書き込み
#データファイル書き込み
if($write){
open(FILE, ">$datafile");
print FILE "<center><table border=\"1\" width=\"700\" bgcolor=\"$bgcolors\"><tr><td>名前：$name(<a href=\"$lv\">$homepagename</A>) [$time]</td></tr><tr><td><font color=\"$txtcolor\"><pre>$text</pre></font></td></tr></table></center>\n";
print FILE "<center><table border=\"1\" width=\"700\" bgcolor=\"$bgcolors\"><tr><td>名前：$name(<a href=\"$lv\">$homepagename</A>) [$time]</td></tr><tr><td><font color=\"$txtcolor\"><pre>$text</pre></font></td></tr></table></center>\n";
close(FILE);
}
#ログファイル書き込み
#ログファイル書き込み
if($write){
open(FILE, ">>$logfile");
print FILE "<hr>名前：$name（$lv) [$time]<br>$text\n";
print FILE "<hr>名前：$name（$lv) [$time]<br>$text\n";
close(FILE);
}
#ヘッダ
#ヘッダ
print <<HED;
<html>
<head>
<title>みんなの広告板</title>
<title>みんなの広告板</title>
</head>
<body>
<font size="5">みんなの広告板</font><br>
・<A Href="use.html" target="_blank">利用方法</A><br>
・<A Href="$myhome">戻る</A><br>
<font size="5">みんなの広告板</font><br>
・<A Href="use.html" target="_blank">利用方法</A><br>
・<A Href="$myhome">戻る</A><br>
<br>
<br>
<hr>
<br>
HED
#データファイル読み込み
#データファイル読み込み
open(FILE, "<$datafile");
@lines=<FILE>;
close(FILE);
print @lines;
#投稿画面
#投稿画面
print <<EOF;
<br>
<hr>
<br>
<font size="4">投稿画面</font><br>
<font size="4">投稿画面</font><br>
<form method="post" action="every-board.cgi">
名前：<br><input name="name" size="40" value="$name"><br>
ホームページ：<br><input name="lv" size="40" value="$lv"><br>
ホームページの名前：<br><input name="homepagename" size="50" maxlength="50" value="$homepagename"><br>
コメント：<br><textarea name="text" cols="70" rows="20"></textarea><br>
文字色：<select name="txtcolor">
<option value="#000000">黒
<option value="#ff0000">赤
<option value="#00ff00">緑
<option value="#0000ff">青
<option value="#ffff00">黄
<option value="#ffa500">オレンジ
<option value="#ff8c00">ダークオレンジ
<option value="#8b0000">ダークレッド
<option value="#da0b00">ダークブラウン
<option value="#ff00ff">マゼンタ
<option value="#ff1493">ディープピンク
<option value="#0000cd">ミディアムブルー
<option value="#5f9ea0">ケーデットブルー
<option value="#20b2aa">ライトシーグリーン
<option value="#228b22">フォレストグリーン
<option value="#adff2f">黄緑
<option value="#bdb76b">ダークカーキ
<option value="#660000">茶
<option value="#CCCCCC">銀
<option value="#ffd700">金
<option value="#ffffff">白
<option value="#B7410E">赤錆
<option value="#393E7A">青錆
<option value="#800080">紫
</select>
背景：<select name="bgcolors">
<option value="#ffffff">白
<option value="#000000">黒
<option value="#ff0000">赤
<option value="#00ff00">緑
<option value="#0000ff">青
<option value="#ffff00">黄
<option value="#ffa500">オレンジ
<option value="#ff8c00">ダークオレンジ
<option value="#8b0000">ダークレッド
<option value="#da0b00">ダークブラウン
<option value="#ff00ff">マゼンタ
<option value="#ff1493">ディープピンク
<option value="#0000cd">ミディアムブルー
<option value="#5f9ea0">ケーデットブルー
<option value="#20b2aa">ライトシーグリーン
<option value="#228b22">フォレストグリーン
<option value="#adff2f">黄緑
<option value="#bdb76b">ダークカーキ
<option value="#660000">茶
<option value="#CCCCCC">銀
<option value="#ffd700">金
<option value="#B7410E">赤錆
<option value="#393E7A">青錆
<option value="#800080">紫
名前：<br><input name="name" size="40" value="$name"><br>
ホームページ：<br><input name="lv" size="40" value="$lv"><br>
ホームページの名前：<br><input name="homepagename" size="50" maxlength="50" value="$homepagename"><br>
コメント：<br><textarea name="text" cols="70" rows="20"></textarea><br>
文字色：<select name="txtcolor">
<option value="#000000">黒
<option value="#ff0000">赤
<option value="#00ff00">緑
<option value="#0000ff">青
<option value="#ffff00">黄
<option value="#ffa500">オレンジ
<option value="#ff8c00">ダークオレンジ
<option value="#8b0000">ダークレッド
<option value="#da0b00">ダークブラウン
<option value="#ff00ff">マゼンタ
<option value="#ff1493">ディープピンク
<option value="#0000cd">ミディアムブルー
<option value="#5f9ea0">ケーデットブルー
<option value="#20b2aa">ライトシーグリーン
<option value="#228b22">フォレストグリーン
<option value="#adff2f">黄緑
<option value="#bdb76b">ダークカーキ
<option value="#660000">茶
<option value="#CCCCCC">銀
<option value="#ffd700">金
<option value="#ffffff">白
<option value="#B7410E">赤錆
<option value="#393E7A">青錆
<option value="#800080">紫
</select>
背景：<select name="bgcolors">
<option value="#ffffff">白
<option value="#000000">黒
<option value="#ff0000">赤
<option value="#00ff00">緑
<option value="#0000ff">青
<option value="#ffff00">黄
<option value="#ffa500">オレンジ
<option value="#ff8c00">ダークオレンジ
<option value="#8b0000">ダークレッド
<option value="#da0b00">ダークブラウン
<option value="#ff00ff">マゼンタ
<option value="#ff1493">ディープピンク
<option value="#0000cd">ミディアムブルー
<option value="#5f9ea0">ケーデットブルー
<option value="#20b2aa">ライトシーグリーン
<option value="#228b22">フォレストグリーン
<option value="#adff2f">黄緑
<option value="#bdb76b">ダークカーキ
<option value="#660000">茶
<option value="#CCCCCC">銀
<option value="#ffd700">金
<option value="#B7410E">赤錆
<option value="#393E7A">青錆
<option value="#800080">紫
</select><br><br>
<input type="submit" value="投稿">
<input type="reset" value="クリア"><br>
<input type="submit" value="投稿">
<input type="reset" value="クリア"><br>
<input type="hidden" name="mode" value="1">
</form><br>
<br>
<A href="$myhome">戻る</A><br>
<A href="$myhome">戻る</A><br>
<br>
<FORM NAME="ok">
<INPUT TYPE=TEXT NAME="pass">
<INPUT TYPE=BUTTON VALUE="管理画面" ONCLICK="location.href=document.ok.pass.value+' .cgi' ;">
<INPUT TYPE=BUTTON VALUE="管理画面" ONCLICK="location.href=document.ok.pass.value+' .cgi' ;">
</FORM><br>
<br>
<font size="2">user by $myname $madeday</font><br>
<!--以下著作権表示により修正禁止-->
<font size="2">made by リヴァイア from <A Href="http://legendworld.iaigiri.com/">Legend World</A><br>
<!--ここまで-->
<font size="2">made by noty2008 from <A Href="http://scratch.mit.edu">noty2008</A><br>
</body>
</html>
EOF
exit;
exit;
