返信機能付き掲示板

　ある程度機能が充実して来ると、やはり記事毎に返信できる返信機能が欲しくなって来ますね(^.^)ここら辺になって来るとちょっとややこしいですが、頑張って実装して見ましょう。

変更部分

　まず記事一覧表示部分で、親記事とその返信記事とに分類しなくてはいけないので、その為の処理を施します。そして親記事に返信のためのボタンを追加し、且つそのボタンを押した事によって、その親記事の下に返信書き込みが追加される処理を施します。ここで記事削除機能の為のラジオボタンを、記事コード番号表示に変更している点に注意して下さい。なにぶん<form>タグがかなり増えたもので、記事削除ボタン一つで処理しようとすると、結局こうなってしまいました。

　この部分も、全ての記事に一つずつ削除ボタンを付けるのであれば、元のままのラジオボタン使用でも行けるかと思います。そのような掲示板もよく見かけますよね(^^ゞ

実際のソース

　では実際のソースを見てみましょう。該当の変更箇所は色を変えて示しています。よく注意してご覧になって下さい。

#!/usr/bin/perl
# ↑あなたが加入しているプロバイダの｢perl｣言語が使用できるパスを指定します。
# 一般的には｢#!/usr/local/bin/perl｣か「#!/user/bin/perl」で大丈夫。
require '../jcode.pl';
$bbs_title = '返信機能付き掲示板';
$datafile = 'keijiban6.txt';
$cgi_name = 'keijiban6.cgi'; #ここで使うCGIスクリプトの名前
$max = 100; #記事の最大記憶数
$pageview = 10; #1ページの記事表示数
$passwd = '****'; #管理者用パスワード
#タグの許可 'yes'/'no'
$tag_flag = 'yes';
#==============初期設定が必要なのはここまでです=================================
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon = sprintf("%02d", $mon + 1);
$day = sprintf("%02d", $day);
$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
$date_now = "$year年$mon月$day日 $hour時$min分";
$softagent = $ENV{'HTTP_USER_AGENT'}; #訪問者のブラウザを取得
$hostaddr = &domain_name; #訪問者のホスト名を取得
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $QUERY_DATA = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$QUERY_DATA);
foreach $pair (@pairs) {
　($name, $value) = split(/=/, $pair);
　$value =~ tr/+/ /;
　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
　$value =~ s/</&lt;/g;
　$value =~ s/>/&gt;/g;
　$value =~ s/\n//g;
　$value =~ s/\,//g;
　&jcode'convert(*value,'sjis');
　$FORM{$name} = $value;
}
if (!open(NOTE,"$datafile")) { &error(bad_file); }
@DATA = <NOTE>;
close(NOTE);
if ($FORM{'action'} eq 'delete') {
　if ($FORM{'password'} eq '') { &error(not_pass); }
　if ($FORM{'delcode'} < 1) { &error(bad_code); }
　$i = 0; $match = 0;
　foreach $line (@DATA) {
　　($date,$code,$ress,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$line);
　　if ($FORM{'delcode'} == $code) {
　　　if ($FORM{'password'} eq $pass || $FORM{'password'} eq $passwd) {
　　　　splice(@DATA,$i,1);
　　　　$match = 1; last;
　　　}
　　}
　　$i++;
　}
　if ($match) {
　　if (!open(NOTE,">$datafile")) { &error(bad_file); }
　　print NOTE @DATA;
　　close(NOTE);
　}
*ページの最下部に表示する記事削除の為の処理部分に、削除したい記事の番号を書き込むテキストボックスを設けるように変更している為、ここのnameに当たる「delcode」を使って処理を行います。

*返信機能の追加の為に、何番の記事に対しての返信であるのかを表す変数$ressを追加しています。返信記事の場合に限り、変数$ressに値が格納されます。
} elsif ($FORM{'action'} eq 'regist') {
　if ($FORM{'comment'} ne '') {
　　if ($FORM{'name'} eq '') { &error(bad_name); }
　　if ($tag_flag eq 'yes') { $FORM{'comment'} = &tag_change($FORM{'comment'}); }
　　$count = @DATA;
　　if ($count > $max) { pop (@DATA); }
　　if ($count < 1) {
　　　$new_code = 1;
　　} else {
　　　($date,$code,$ress,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$DATA[0]);
　　　$new_code = $code + 1;
　　}
　　$value = "$date_now\,$new_code,$FORM{'ress'}\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'HP'}\,$FORM{'subject'}\,$FORM{'comment'}\,$FORM{'pass'}\,$hostaddr\,$softagent\n";
　　unshift(@DATA,$value);
　　if (!open(NOTE,">$datafile")) { &error(bad_file); }
　　print NOTE @DATA;
　　close(NOTE);
　}
}
*返信機能の追加の為に、何番の記事に対しての返信であるのかを表す変数$ressを追加しています。
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>" . $bbs_title . "</title></head>\n";
print "<body bgcolor=#FFFFDD text=#000000 link=#FF0000 vlink=#FF0000>\n";
print "<form action=$cgi_name method=POST>\n";
print "<input type=hidden name=action value=regist>\n";
print "<center><font size=6>" . $bbs_title . "</font></center>\n";
print "<center><font size=-1 color='red'>お名前とコメントは、必ずご記入下さい。親記事を削除すると、返信記事も削除されます。尚、記事の最大記録数は100件です。</font></center>\n";
print "<table border=0 cellspacing=1>\n";
print "<tr><td align=right>お名前</td>\n";
print "<td><input type=text size=29 name=name></td></tr>\n";
print "<tr><td align=right>E-mail</td>\n";
print "<td><input type=text size=29 name=email></td></tr>\n";
print "<tr><td align=right>HomePage</td>\n";
print "<td><input type=text size=50 name=HP></td></tr>\n";
print "<tr><td align=right>題名</td>\n";
#返信の場合は題名を挿入
if ($FORM{'flags'} eq 'return') {
　$FORM{'subject'} =~ s/RE://g; #レスのレスを防ぐ為「RE:」を削除
　print "<td><input type=text size=50 name=subject value=RE:" . $FORM{'subject'} . "></td>\n";
} else { print "<td><input type=text size=50 name=subject></td>\n"; }
print "</tr>\n";
print "<tr><td align=right>コメント</td>\n";
print "<td><textarea name=comment rows=4 cols=60></textarea></td></tr>\n";
print "<tr><td align=right>削除キー</td>\n";
print "<td><input type=password size=10 name=pass>\n";
print "<font size=-1 color='red'>　*英数8文字以上推奨</font></td></tr>\n";
if ($FORM{'flags'} eq 'return') {
　print "<tr><td></td><td><input type=submit value=「$FORM{'subject'}」へ返信>\n";
　print "<input type=hidden name=ress value=$FORM{'code'}></td></tr>\n";
} else {
　print "<tr><td></td><td><input type=submit value=書き込み>";
　print " <input type=reset value=取り消し></td></tr>\n";
}
print "</table></form>\n";
*親記事を削除するとその返信記事も削除されてしまうので、一応警告文を掲載しておきます。文が長くなるので、一行に収まるように字の大きさを調整！

*返信記事の書き込みの場合（$FORM{'flags'} eq 'return'）に、「題名」の部分の内容を定型処理しています。又同時に、送信ボタンの表示も定型処理しています。
foreach $line (@DATA) {
　($date,$code,$ress,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$line);
　$new = 'false';
　if ($ress > 0) { $new = 'true'; }
　if ($new eq 'false') { push(@NEW,$line); }
}
*データファイルから親記事に当たるものだけを抜き出す処理です。条件（$ress > 0）と言うのは返信記事を意味します。条件（$new eq 'false'）に当たる親記事だけを抜き出して、配列変数@NEWに格納して行きます。

*push関数は、配列（@NEW）の末尾に要素（$line）を追加する関数です。
if ($FORM{'pline'} eq '') { $pline = 0; } else { $pline = $FORM{'pline'}; }
$end_data = @NEW - 1;
$page_end = $pline + ($pageview - 1);
if ($page_end >= $end_data) { $page_end = $end_data; }
foreach ($pline .. $page_end) {
　($date,$code,$ress,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$NEW[$_]);
*前の処理で抜き出した親記事だけ（@NEW）を使って記事数を数えています。
　$comment = &inline_link($comment);
　$comment =~ s/\r/<br>/g;
　print "<form method=POST action=$cgi_name>\n";
　print "<hr>\n";
　print "[" . $code . "]\n";
　print "<font color='blue' size=4><b>$subject</b></font>\n";
　if ($email ne "") {
　　print "<a href=mailto:$email><strong> $name</strong></a>\n";
　} else { print "<strong> $name</strong>\n"; }
　if ($HP ne "") { print "<a href=$HP target=_top> HomePage</a>\n"; }
　print "<font size=-1> $date</font> <input type=submit value=返信>\n";
　print "<input type=hidden name=flags value=return>\n";
　print "<input type=hidden name=code value=" . $code . ">\n";
　print "<input type=hidden name=subject value=" . $subject . ">\n";
　print "<blockquote>$comment<br><br>\n";
　print "<font size=-1>[$host] $agent</font><br><br>\n";
*返信記事を書き込む為のボタンを表示します。送信する内容は数種類ありますので、要注意！又、<form>タグとの兼ね合いから、今までのラジオボタンを廃止して、記事番号表示に切り替えています。
　foreach $ressline (@DATA) {
　　($date2,$code2,$ress2,$name2,$email2,$HP2,$subject2,$comment2,$pass2,$host,$agent) = split(/\,/,$ressline);
　　$comment2 = &inline_link($comment2);
　　$comment2 =~ s/\r/<br>/g;
　　if ($code eq $ress2) {
　　　print "◆RE:[" . $code2 . "]\n";
　　　if ($email2 ne "") {
　　　　print "<a href=mailto:$email2><strong> $name2</strong></a>\n";
　　　} else { print "<strong> $name2</strong>\n"; }
　　　if ($HP2 ne "") { print "<a href=$HP2 target=_top> HomePage</a>\n"; }
　　　print "<font size=-1> $date2</font>\n";
　　　print "<blockquote>$comment2<br><br>\n";
　　　print "<font size=-1>[$host] $agent</font></blockquote>\n";
　　}
　}
　print "</blockquote></form>\n";
}
*元の@DATAから、条件（$code eq $ress2）に合致する返信記事だけを表示します。当然変数名は、親記事処理部分と重ならないように変えています。
print "<hr>\n";
print "<form method=POST action=$cgi_name>\n";
print "<input type=hidden name=action value=delete>\n";
print "記事番号：<input type=text size=10 name=delcode>";
print " 削除用パスワード：<input type=password size=10 name=password>";
print " <input type=submit value=削除>\n";
print "</form>\n";
$next_line = $page_end + 1;
if ($page_end != $end_data) {
　print "<form method=POST action=$cgi_name>\n";
　print "<input type=hidden name=pline value=$next_line>\n";
　print "<input type=submit value=次のページへ>\n";
　print "</form>\n";
}
print "</body></html>\n";
exit;
*記事削除処理を、記事番号をテキストボックスに書き込む方法に変更しました。
#====================訪問者のホスト名を取得するサブルーチン======================
sub domain_name {
　local($addr) = $ENV{'REMOTE_ADDR'};
　local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
　if ($_ eq '') { $_ = $addr; }
　$_;
}
#===================インラインリンクを有効にするサブルーチン====================
sub inline_link {
　local($_) = $_[0];
　$_ =~ s/([^=^\"]|^)((http|ftp):[!#-9A-~]+)/$1<a href=$2 target=_top>$2<\/a>/g;
　$_ =~ s/([!#-9A-~\-\_]+\@[!#-9A-~\-\_\.]+)/<a href=mailto:$1>$1<\/a>/g;
　$_;
}
#===========================タグを復帰するサブルーチン==========================
sub tag_change {
local($_) = $_[0];
1 while s/(.*)(&lt;(img([!-:A-~\s\=]+))&gt;)/$1<img$4>/i;
1 while s/(.*)(&lt;(font[\s\w\=\#\"\']+)\&gt;(.*)\&lt;\/font\&gt;)/$1<$3>$4<\/font>/i;
1 while s/(.*)(&lt;(b)&gt;(.*)&lt;\/b&gt;)/$1<b>$4<\/b>/i;
1 while s/(.*)(&lt;(i)&gt;(.*)&lt;\/i&gt;)/$1<i>$4<\/i>/i;
1 while s/(.*)(\[\[(.+)\]\])/$1<table border=4><tr><td>$3<\/td><\/tr><\/table>/i;
$_;
}
#================================エラー処理ルーチン=============================
sub error {
$error = $_[0];
if ($error eq "bad_file") { $msg = 'ファイルのオープン、入出力に失敗しました。'; }
elsif ($error eq "bad_name") { $msg = 'お名前が記入されていません。'; }
elsif ($error eq "bad_comment") { $msg = 'コメントが記入されていません。'; }
elsif ($error eq "not_pass") { $msg = 'パスワードが記入されていません。'; }
elsif ($error eq "bad_code") { $msg = '削除記事番号が不正です。'; }
else { $msg = '原因不明のエラーで処理を継続できません。'; }
print "Content-type: text/html\n\n";
print "<html><head><title>" . $bbs_title . "</title></head>\n";
print "<body bgcolor=#FFFFDD text=#000000 link=#FF0000 vlink=#FF0000>\n";
print "<center><h2>エラーです！</h2>\n";
print "やり直して下さい。<hr>\n";
print "<b>" . $msg . "</b></center>\n";
print "</body></html>\n";
exit;
}

標準掲示板　前へ

HOME

次へ　スペシャル掲示板