;
close(DB);
$password = shift(@lines);
chop($password);
($header,$password) = split(/:/,$password);
if ($password =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; }
if ($FORM{'action'} eq 'password') { &encode; }
if (-z $file) { $first = 1; &password; exit; }
elsif ($header ne 'MiniBBSv8') { &error('データエラー',"$file のデータ形式はこの簡易ＢＢＳでは使えません."); }
$cookies = $ENV{'HTTP_COOKIE'};
@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/,/,$DUMMY{$reload});
foreach $pair (@pairs) {
($name, $value) = split(/:/, $pair);
$COOKIE{$name} = $value;
}
if ($FORM{'admin'} eq 'change') { &password; exit; }
if ($FORM{'action'} eq 'remove') { &remove; }
elsif ($FORM{'action'} eq 'regist') { ®ist; }
&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";
#--- 記録記事の出力 ----------------------------------#
@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 "