;
close (IN);
print "Content-type: text/html\n\n";
print "$main_title\n";
print "$body\n";
print "\n";
print "$main_title\n";
print "
\n";
print "$mes_top1\n";
print "$mes_top2\n";
print "$mes_top3\n";
print "\n";
print "\n";
print "\n" ;
}
# メイン画面表示。
sub out_main
{
&load_file ;
print "Content-type: text/html\n\n";
print "
$main_title\n";
print "$body\n";
print "\n";
print "$main_title
\n";
print "$FORM{'sel_theme'}\n";
print "
\n";
print "$mes_top1\n";
print "$mes_top2\n";
print "$mes_top3\n";
print "\n";
print "
\n";
print "\n" ;
# --- データ表示 ------------------------------------#
if ($FORM{'line_num'} eq '')
{
$line_num = 0;
}
else
{
$line_num = $FORM{'line_num'};
}
if ($FORM{'page'} eq '')
{
$page = 0;
}
else
{
$page = $FORM{'page'};
}
$line_now = 0;
while ($line_now <= $def-1 && $line_num <= $#LINES)
{
($out_date_num,$out_theme,$out_date_now,$out_name,$out_email,$out_title,$out_comment,$out_host,$out_browser) = split(/,/, $LINES[$line_num]);
$line_num ++ ;
if ($out_theme eq $FORM{'sel_theme'})
{
&out_onedata ;
$line_now++ ;
}
}
print "\n" ;
# --- 改ページ処理 ------------------------------------#
$i = $page * $def + 1 ;
$j = ($page + 1) * $def ;
$page++ ;
print "
\n";
# $#LINES >= 0ではない、0件処理をしたほうが良い？
if ($#LINES >= 0)
{
if ($line_num-1 != $#LINES)
{
print "| 新着順 $i \- $j | \n";
print "\n";
}
else
{
print "新着順 $i \-> 最後 | \n";
}
}
print "
\n\n";
}
# 全項目表示
sub out_alldata
{
&load_file ;
print "Content-type: text/html\n\n";
print "
$main_title\n";
print "$body\n";
print "\n";
print "$main_title
\n";
print "$FORM{'sel_theme'}\n";
print "
\n";
print "$mes_top1\n";
print "$mes_top2\n";
print "$mes_top3\n";
print "\n";
print "\n";
print "全項目は閲覧のみです。\n";
print "
\n";
print "\n" ;
# --- データ表示 ------------------------------------#
if ($FORM{'page'} eq '')
{
$page = 0;
}
else
{
$page = $FORM{'page'};
}
$page_end = $page + $def - 1;
if ($page_end > $#LINES)
{
$page_end = $#LINES;
}
foreach ($page .. $page_end)
{
($out_date_num,$out_theme,$out_date_now,$out_name,$out_email,$out_title,$out_comment,$out_host,$out_browser) = split(/,/, $LINES[$_]);
&out_onedata ;
}
print "\n" ;
# --- 改ページ処理 ------------------------------------#
$page_next = $page_end + 1;
$i = $page + 1;
$j = $page_end + 1;
print "
\n";
if ($#LINES >= 0)
{
if ($page_end != $#LINES)
{
print "| 新着順 $i \- $j | \n";
print "\n";
}
else
{
print "新着順 $i \-> 最後 | \n";
}
}
print "
\n\n";
}
# 一つの書込み単体を表示。
sub out_onedata
{
# 内容の中の自動リンク
$out_comment =~ s/(https?|ftp|gopher|telnet|whois|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/$1:\/\/$2<\/a>/g;
$out_comment =~ s/([\w|\!\#\$\%\'\=\-\^\`\\\|\~\[\{\]\}\+\*\.\?\/]+)\@([\w|\!\#\$\%\'\(\)\=\-\^\`\\\|\~\[\{\]\}\+\*\.\?\/]+)/$1\@$2<\/a>/g;
print "
\n";
print "$out_title" ;
# メールアドレスが記録されているデータにはリンクを付けて表示
if ($out_email ne '')
{
print " お名前：$out_name ■MAIL";
}
else
{
print " お名前：$out_name";
}
print " 投稿日：$out_date_now";
print "$out_theme
\n" ;
print " |
\n";
print "$out_comment\n";
# ホスト・ブラウザ情報を表示しない場合はこの一行を消去
print "$out_host($out_browser)
\n" ;
print "
\n";
}
# フッターを表示。
sub out_fetter
{
print "\n";
print "\n
\n";
print "終了\n";
print "\n";
if ($admin_url ne '')
{
print "
管理モード\n";
print "
\n";
}
# このスクリプトの著作権表示（かならず表示してください）
print "$CGI_VER\n";
print "
$error
\n";
print "@error_fields
\n";
print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.\n";
print "\n";
exit;
}