- 全体の流れ
まず、変数を初期化し、set_file 関数でページの設定を行います。次に、decode()でFORMデータを解析し、連想配列 %in にセットします。$modeは、隠しフォームで設定される情報で、これが、regist のとき、記事の追加処理を、update のとき、記事の更新処理をします。
ｈｔｍｌ 関数でページを表示します。
#設定ファイルで初期設定する
&set_file();
#FORM の解析
&decode();
if ($mode eq 'regist') { ®ist; }
if ($mode eq 'usrdel') { &usrdel; }
if ($mode eq 'update') { &usrdel;®ist; }
#掲示板のページを生成
&html();
ページの先頭に、「投稿」、「管理用」のフォームがあり、このボタンを押すと、bbsform.cgi、または、bbdmng.cgi のスクリプトに接続します。また、表示の最後に、必要に応じて、「次」または「前」のページを表示するボタンをフォームタグで生成します。このボタンを押すと、現在の記事番号を 隠しフォーム page に設定して、同じ bbs.cgi を呼び直します。
各記事には編集ボタンがあります。このボタンを押すと、記事番号 no を隠しフォームに設定して、bbsform.cgi を呼び出します。ここで、記事の編集を行います。
- 記事の文字処理:docode
フォームの解析を行うdecode処理で、Perl得意の文字変換処理をしています。&valueは各項目の文字列です。
最初のFORM処理では、+に置き換えられている空白記号を元に戻し、16進文字に変換されている漢字などの特殊コードを元に戻します。&jcode'convert(*value,'sjis'); は文字コードをsjisに統一しています。
次のタグ処理は、< > などのタグ記号を、>などの文字に変換し、htmlで表示したときタグとして解釈されるのを防ぎます。
改行処理は、改行記号を <br> に変換し、html として表示する場合、改行されるための処理です。改行の表現は、ＯＳやシステムで異なるため、ここでは、\r\n、\r、\n、を改行として扱います。
#FORM処理
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# S-JISコード変換
&jcode'convert(*value,'sjis');
# タグ処理
if ($tagkey) { $value =~ s/<>/<>/g; }
else {
$value =~ s/&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
}
# 改行処理
if ($name eq "comment") {
$value =~ s/\r\n/<br>/g;
$value =~ s/\r/<br>/g;
$value =~ s/\n/<br>/g;
} else {
$value =~ s/\r//g;
$value =~ s/\n//g;
}
- 記事の表示：html関数
html関数で記事を表示します。ここで、$startと$endは表示開始と終了の番号です。next;
は、次の繰り返しに進む制御文です。split(/<>/,$line) は $line から各項目を切り出します。$con が記事の内容になります。$mailの指定があれば、名前に mailto の参照をつけます。
#startからendページまで表示
open(IN,"$logfile") || &error("Open Error : $logfile");
$i=0;
while ($line=<IN>) {
local($temp) = $xx;
$i++;
if ($i < $start) { next; }
if ($i > $end) { next; }
($no,$date,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/,$line);
if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>";
}
if ($url) { $url = "<a href=\"http://$url\" target='_blank'>http://$url</a>";
}
if ($autolink) { &auto_link($com); }
print "<hr>[<b>$no</b>] <font color=\"$sub_color\"><b>$sub</b></font>\n";
print "投稿者：<b>$name</b> 投稿日：$date<br>\n";
print "<blockquote>$com<P>$url</blockquote>\n";
}
#記事表示終了
close(IN);
以下のようなページが表示されます。
投稿用のページは、このページの先頭の「投稿する」ボタンを押すと bbsform.cgi に接続し、表示されます。また、同じ位置の「管理用」ボタンから、管理人用の bbsmng.cgi にも接続します。
- 記事の削除：usrdel
更新処理は、削除と追加機能で実行します。ここでは、指定記事を削除する処理を説明します。
最初にログファイルを開き、配列@linesに記録します。次に、foreach文で、$in{'no'} と同じ記事番号の記事を探します。$in{'no'} は隠しフォームで指定される、削除する記事番号です。同じ番号でなければ、@newにコピーします。
記事に記録されたパスワード:PWDと、フォームで指定されたパスワード $in{'pwd'} を比較し、同じでなければ エラーメッセージを表示しログファイルを更新せずに終了します。同じ場合、@newでログファイルを更新します。
sub usrdel {
#print "****usedel*****\n";
open(IN,"$logfile") || &error("Open Error : $logfile");
@lines = <IN>;
close(IN);
$flag=0;
@new=();
foreach (@lines) {
($no,$date,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/);
if ($in{'no'} eq "$no") { $flag=1; $PWD=$pw; }
else { push(@new,$_); }
}
if ($flag == 0) { &error("該当記事が見当たりません"); }
# 削除キーを照合
if ($in{'pwd'} ne "$PWD") { &error("パスワードが違います"); }
# ログを更新
open(OUT,">$logfile") || &error("Write Error : $logfile");
print OUT @new;
close(OUT);
}
- 記事の追加：regist
この関数は、投稿フォームを作成する cgi：bbsform.cgi より利用されます。記事の内容が不足する場合、追加処理をしないでエラーメッセージを表示し終了します。
次に、ログファイルを@linesに読み出し、先頭記事と投稿された記事が同じかどうか調べます。同じ内容の場合、追加処理をしません。&get_host();で投稿したサイトのIP番号を調べ、記事番号とともにログファイルに書き出します。また、、クッキーへの書き出しを行います。
sub regist {
#print "*****redist******\n";
if ($in{'name'} eq "" || $in{'comment'} eq "" ) { &error("名前または記事が入力されていません"); }
if ($in{'pwd'} eq "") { &error("パスワードが入力されていません"); }
open(IN,"$logfile") || &error("Open Error : $logfile");
@lines = <IN>;
close(IN);
($tno,$tdate,$tname,$tmail,$tsub,$tcom) = split(/<>/, $lines[0]);
if ($in{'name'} eq "$tname" && $in{'comment'} eq "$tcom") {
&error("同じ記事です");
}
#投稿サイトのIPを取得する
&get_host();
# 記事番号を増加
$no = $tno + 1;
# 削除キーを設定
if ($in{'pwd'} ne "") { $PW = $in{'pwd'}; }
# 最大記事数以上なら最後の記事を削除後、記事を追加
while ($max <= @lines) { pop(@lines); }
unshift(@lines,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$PW<>\n");
#記事配列をファイルに書き出す
open(OUT,">$logfile") || &error("Write Error : $logfile");
print OUT @lines;
close(OUT);
#利用者情報をクッキーに記録する
&set_cookie();
}
- ソース
全体のソースはこちらからご覧ください。
