;
$accesses = @lines;
close(IN);
print "ネットサーフナビゲータ\n";
&body;
print "
\n";
print "登録
\n";
print "
\n";
print "
\n";
print "\n";
exit;
}
sub form {
@pairs = split(/&/,$buffer);
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//>/g;
$value =~ s/"/"/g;
$value =~ s/\n//g;
$value =~ s/\*//g;
$value =~ s/\^//g;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'euc');
&jcode'convert(*name,'euc');
$FORM{$name} = $value;
}
}
sub regist {
$FORM{'how'} = "new";
✓
if (!open(OUT,">>$file")) { &error; }
print OUT "\[$date_now\] $name ^ $email ^ $page ^ $comment ^ $agent ^ $pwd\n";
close(OUT);
}
sub disp {
if (!open(IN,"$file")) { &error; }
@ININ = ;
$accesses = @ININ;
close(IN);
@lines = sort @ININ;
if ($FORM{'how'} eq "new") { @LOG = reverse(@lines); }
else { @LOG = @lines; }
print "ネットサーフナビゲータ\n";
&body;
if ($FORM{'how'} eq "new") { print "新しいデータからリストします。
\n"; }
else { print "古いデータからリストします。
\n"; }
if ($pass eq "on")
{
print "
\n";
}
print "