掲示板（kentさんの所のsunbbs）に１分おきにリフレッシュする方法
kentさんの所の掲示板のsunbbsについてです。
自動で掲示板を１分おきとか２分おきに自動更新する方法を
探しています。
リフレッシュの文を入れればいいのかもしれませんが
どこにどのようにいれればいいのか分かりません。
よろしくお願いします。
下に関係のありそうなところをコピーいたします。
違うかもしれませんが。
#-------------------------------------------------
# HTML生成処理
#-------------------------------------------------
sub html_regist {
local($i,$next,$back,$data);
local($file,$page) = @_;
open(WR,">$file") || &error("Write Error: $file");
print WR &header('HTML');
# リンク部
print WR "<B><font color=\"$p_color\">$point2</font>";
print WR "<a href=\"$home\" target=\"_top\">Home</a>\n";
if (!$whatsnew) {
print WR "<font color=\"$p_color\">$point</font>";
print WR "<a href=\"$script?mode=form\">Post</a>\n";
}
print WR "<font color=\"$p_color\">$point</font>";
print WR "<a href=\"$script?mode=find\">Search</a>\n";
# 過去ログ
if ($pastkey) {
print WR "<font color=\"$p_color\">$point</font>";
print WR "<a href=\"$script?mode=past\">Log</a>\n";
}
print WR "<font color=\"$p_color\">$point</font>";
print WR "<a href=\"$script?mode=admin\">Admin</a></B>\n<div align=center>\n";
# タイトル部
if ($t_gif eq '') {
print WR "<font color=\"$t_color\" size=6><b style=\"font-size:$t_size\">$title</b></font>\n";
} else {
print WR "<img src=\"$t_gif\" width=$tg_w height=$tg_h alt=\"$title\">\n";
}
# ひとことメッセージを表示
$message =~ s/\r\n/<br>/g;
$message =~ s/\r/<br>/g;
$message =~ s/\n/<br>/g;
print WR "<P>$message</div><hr>\n";
# 記事を展開
if ($page == 2) {
$next = $pagelog+1;
$last = $max;
} else {
$next = 0;
$last = $pagelog;
}
$i=0;
open(IN,"$logfile") || &error("Open Error: $logfile");
while ($data = <IN>) {
$i++;
if ($i < $next) { next; }
if ($i > $last) { last; }
print WR &log_view($data, $page);
}
close(IN);
if (!$whatsnew) { print WR "<table align=left><tr>\n"; }
# 次／前ページのリンクを生成
if (@lines > $pagelog && $page == 1) {
print WR "<td><form action=\"$htm_url$nexthtm\">";
print WR "<input type=submit value=\"次ページ\"></td></form>\n";
} elsif (@lines > $pagelog && $page == 2) {
print WR "<td><form action=\"$htm_url$htmfile\">";
print WR "<input type=submit value=\"前ページ\"></Td></form>\n";
}
print WR "</table>\n";
# 削除フォーム
if (!$whatsnew) {
print WR "<table align=right><tr><td>\n";
print WR "<form action=\"$script\" method=\"POST\">\n";
print WR "記事No <input type=text name=no size=4>\n";
print WR "削除キー <input type=password name=pwd size=4>\n";
print WR "<input type=hidden name=mode value=userdel>\n";
print WR "<input type=submit value='記事削除'></td></form></table><br clear=all>\n";
}
# 著作権を表示（削除不可）
print WR "<div align=center style='font-size:10px;font-family:Verdana,Helvetica,Arial'><!-- $ver -->\n";
print WR "- <a href='http://www.kent-web.com/' target='_top'>SunBoard</a> -\n";
print WR "</div>\n</body>\n</html>\n";
close(WR);
}
お礼
そういったルールで書かれているのですね。大変参考になりました。 おかげさまでうまくいきました。迅速丁寧なご回答、ありがとうございました！