標準掲示板

　では最後に、インラインリンク機能とタグチェインジ機能とを付けて、標準の掲示板の完成と行きましょう。「返信機能付き掲示板」については、又今度！(^^ゞ

変更部分

　以前に「各種定型サブルーチン」の章で紹介した、インラインリンク機能とタグチェインジ機能とを、サブルーチンで実装します。インラインリンクは記事表示部分で$commentに処理を施して内容を渡すようにします。又、タグチェインジ機能は、if文でタグの許可・不許可を選択出来るようにして、同じく$commentに処理を施してからその内容を渡します。

実際のソース

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

#!/usr/bin/perl
# ↑あなたが加入しているプロバイダの｢perl｣言語が使用できるパスを指定します。
# 一般的には｢#!/usr/local/bin/perl｣か「#!/user/bin/perl」で大丈夫。
require '../jcode.pl';
$bbs_title = '標準掲示板';
$datafile = 'keijiban5.txt';
$cgi_name = 'keijiban5.cgi'; #ここで使うCGIスクリプトの名前
$max = 100; #記事の最大記憶数
$pageview = 10; #1ページの記事表示数
$passwd = '****'; #管理者用パスワード
#タグの許可 'yes'/'no'
$tag_flag = 'yes';
*タグの許可、不許可を変数$tag_flagに格納して選択出来るようにします。
#==============初期設定が必要なのはここまでです=================================
($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{'code'} < 1) { &error(bad_code); }
　$i = 0; $match = 0;
　foreach $line (@DATA) {
　　($date,$code,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$line);
　　if ($FORM{'code'} == $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);
　}
} 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,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$DATA[0]);
　　　$new_code = $code + 1;
　　}
　　$value = "$date_now\,$new_code,$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);
　}
}
*最初の条件分岐の処理内容を変えています。まずコメントが書き込まれている場合を想定して、名前がなければエラー表示処理を、$tag_flagの値が「yes」であれば、コメント内容にタグ復帰処理を施しています。
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 color='red'>お名前とコメントは、必ずご記入下さい。尚、記事の最大記録数は50件です。</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";
print "<td><input type=text size=50 name=subject></td></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";
print "<tr><td></td><td><input type=submit value=書き込み>";
print " <input type=reset value=取り消し></td></tr>\n";
print "</table></form>\n";
if ($FORM{'pline'} eq '') { $pline = 0; } else { $pline = $FORM{'pline'}; }
$end_data = @DATA - 1;
$page_end = $pline + ($pageview - 1);
if ($page_end >= $end_data) { $page_end = $end_data; }
print "<form action=$cgi_name method=POST>\n";
print "<input type=hidden name=action value=delete>\n";
foreach ($pline .. $page_end) {
　($date,$code,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$DATA[$_]);
　　$comment = &inline_link($comment);
　　$comment =~ s/\r/<br>/g;
　　print "<hr>\n";
　　print "<input type=radio name=code value=$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>\n";
　　print "<blockquote>$comment</blockquote>\n";
　　print "<font size=-1>[$host] $agent</font>\n";
　}
print "<hr>\n";
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;
*$commentの内容をインラインリンク処理を施して返しています。
#====================訪問者のホスト名を取得するサブルーチン======================
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;
}

1頁の記事表示数を指定！　前へ

HOME

次へ　返信機能付き掲示板