----- Command Infomation -----
argc is 1 argv is bbs00w.cgi
----- Script Infomation of bbs00w.cgi-----
#!/usr/local/bin/perl5
# 簡易掲示板書込みルーチン
# by Naotoshi Haraguchi
# 2001/03/20 Last modified
unshift(@INC, ".");
require "util.pl";
$textfile = "./bbs00.dat"; #掲示板テキストファイル
#パラメータの取得
%rcv = &getparam("euc"); #パラメータをEUCコードで取得
$rcv{'content'} =~ s/\n/
\n/g; #内容の改行部分にタグを挿入
#掲示板テキストファイルが無ければ初期ファイルを作成
if(! -f $textfile){
open(TEXT, "> $textfile") || &exitERR("bbs00w.cgi: $textfile を作成出来ません。");
close(TEXT);
}
#掲示板テキストファイルへのアクセス
&lockopen(TEXT, "+< $textfile") || &exitERR("bbs00w.cgi: $textfile をロックオープン出来ません。");
@bbstext = ; #全掲示板テキストファイルの読込み
seek(TEXT, 0, 0);
print TEXT "
\n";
print TEXT "題名 : $rcv{'title'}
\n";
print TEXT "お名前 : $rcv{'name'}
\n";
print TEXT "メールアドレス : $rcv{'e-mail'}
\n";
print TEXT "Webページ : $rcv{'url'}
\n";
print TEXT "内容 :
$rcv{'content'}
\n";
foreach $i (@bbstext){
print TEXT $i;
}
&unlockclose(TEXT,$textfile);
#掲示板の表示
print <
登録処理完了
登録処理を完了しました。
掲示板に戻る