;
close(DB);
if (-z "$tmp_dir\/$file") { $first = 1; &password; exit; }
elsif (@lines[0] =~ /MiniBBSv8/) { &error('データエラー',"$file のデータ形式は簡易ＢＢＳv8シリーズのものと思われますので使えません."); }
elsif (!(@lines[0] =~ /MiniBBSv9/)) { &error('データエラー',"$file のデータはこの簡易ＢＢＳでは使えない構造である可能性があります."); }
&html;
exit;
sub html {
#--- 入力フォーム画面 --------------------------------#
print "Content-type: text/html\n\n";
print "$title\n";
print "$body\n";
print "$title
\n";
print "$msg_top1\n";
print "$msg_top2\n";
print "$msg_top3\n";
print "
";
print "$msg_mid1\n";
print "$msg_mid2\n";
print "$msg_mid3
\n";
print "
\n\n";
#--- 記録記事の出力 ----------------------------------#
@lines = reverse(@lines);
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }
$page_end = $page + $def - 1;
if ($page_end > $#lines) { $page_end = $#lines; }
print "