#! /usr/bin/perl
#  ↑　あんネットは以上の通り

　途中略

#　日本語コード変換ライブラリの指定
require 'jcode.pl';

###########################################################################################
#
# 初期設定
#sendmailのパス　あんネットは以下の通り
$sendmail = '/usr/lib/sendmail';
#受け取り人のメールアドレス　掲示板へ投稿された時にメールで受け取るためのアドレス
$mailto = 'xxxx@ann.co.jp';

#　設置するＵＲＬを設定
#　ＣＧＩプログラムのファイル名を書く　掲示板投稿後に起動するＣＧＩ　まちゅ
#$reload = 'http://www.ann.co.jp/spt/keiji01.cgi'; コメントとしていれて置こう　まちゅ
$reload = 'keiji01.cgi';

#  内容が書き込まれる記録ファイルのパスを設定　ＣＧＩプログラム名と同じにしましょう　まちゅ
$file = 'keiji01.dat';

#  削除モード移行パスワードの設定　削除覧に入力して不要な投稿を消す時のパスワード　まちゅ
$password = 'xxxxx';

#  掲示板の名前　掲示板のタイトルを書く　まちゅ
$title = 'テストの掲示板';

#  書き込み件数の最大登録数の設定です。この件数を超えると、古いものから削除されていきます。
#  これを'0'に設定すれば記録され続けます。　まちゅ
$max = '50';

#  海外サーバ等で時差が生じる場合は修正します
#    海外時間に＋９時間する場合　= localtime(time + 9*60*60);
#    海外時間に−９時間する場合　= localtime(time - 9*60*60);
#   （参考）timeには1970年からの秒数が入っています
#　サーバーは富山にあるので時間の調整は要りません　だから0*60*60　まちゅ

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + 0*60*60);

#  クッキーを格納する名前を設定する
#    複数の簡易ＢＢＳまたは他スクリプトで同じ名前のクッキーを使用すると弊害がある場合があります。
#    任意の英数字を設定します。ひとつの設置であればこのままでいいでしょう。　これは適当　まちゅ
$cookie_name = 'ann';

　途中略

#  ＣＧＩで出力されたデータをＨＴＭＬとして認識させるヘッダの出力
print "Content-type: text/html\n\n";

#　ＨＴＭＬ（画面）の出力　ＨＴＭＬ表示はこのようになります
#　　行は詰めること。ソース上で行を空けたい場合（改行）は\nを使うこと。
#　　画面に表示された時に化ける文字にはその直後に\を記入する。（例：機能\、表\示）
#---------------------------------------------------------------------------------------#
print ＜＜"EOF";
＜html＞＜head＞＜title＞$title＜/title＞＜/head＞
＜a href="index.htm"＞＜b＞ホームへ戻る＜/b＞＜/a＞
＜body bgcolor="#FBD337"＞\n
＜font size=+2＞＜b＞$title＜/b＞＜/font＞＜p＞
＜font color="#0080ff"＞＜h3＞＜b＞テストの掲示板にようこそ！
メッセージをお待ちしています。＜/b＞＜/h3＞＜/font＞＜p＞
＜form method="post" action="$reload"＞
＜input type=hidden name="action" value="regist"＞\n
投稿者:＜input type=text name="name" size="30" value="$COOKIE{'name'}"＞＜br＞
メールアドレス:＜input type=text name="email" size="50" value="$COOKIE{'email'}"＞＜br＞
＜input type=checkbox name="cookie" value="on" checked＞
投稿者/メールアドレスをブラウザに記憶させる＜br＞
題名：＜input type=text name="subject" size=30＞＜p＞
内容:＜i＞（適宜改行をいれてください。半角カンマは記録できません。）＜/i＞＜br＞
＜textarea name="value" rows="5" cols="70"＞＜/textarea＞＜p＞
ホームページリンク（任意で記入して下さい）
：＜input type=text name="url" size=60 value="http://"＞＜br＞
　＜input type=submit value="投稿"＞＜input type=reset value="Reset"＞＜p＞
＜font size=-1＞＜i＞新しい記事から表\示します。最高$max件の記事が記録され、それを超えると
古い記事から削除されます。＜/i＞＜/font＞＜br＞
EOF