----- Command Infomation ----- argc is 1 argv is bbs00.cgi ----- Script Infomation of bbs00.cgi----- #!/usr/local/bin/perl5 # 超簡易掲示板 # by Naotoshi Haraguchi # 2001/03/20 Last modified unshift(@INC, "."); require "util.pl"; $textfile = "./bbs00.dat"; #掲示板テキストファイル #掲示板テキストファイルが無ければ初期ファイルを作成 if(! -f $textfile){ open(TEXT, "> $textfile") || &exitERR("bbs00.cgi: $textfile を作成出来ません。"); close(TEXT); } #掲示板テキストファイルへのアクセス open(TEXT, "< $textfile") || &exitERR("bbs00.cgi: $textfile をオープン出来ません。"); @bbstext = ; #全掲示板テキストファイルの読込み close(TEXT); #掲示板の表示 print <<"END_OF_TOP"; Content-type: text/html 超簡易掲示板

超簡易掲示板

.CGIへ戻る

END_OF_TOP foreach $i (@bbstext){ print $i; } print <<"END_OF_BOTTOM"; END_OF_BOTTOM exit(0);