\n"; print "\n"; print " | \n"; print "\n";
}
print " \n"; print "$write\n"; print " $linkname\n"; print " | \n";
print "
\n"; print "\n"; print " | \n"; print "\n";
}
print " \n"; print " $linkname\n"; print " \n";
print "Produced by BooBooClub \n";
print "\n";
if($margin != 0){
print "\n"; print " | \n";
print "
\n\n"; foreach $bgbdat(@bgbdats){ chomp $bgbdat; ($time,$name,$mail,$txt,$count) = split(/,/,$bgbdat); $time = substr($time,0,16); if($mail ne ""){ print "$name "; } else{ print "$name "; } print "($time) -$count-\n"; print "
"; print "
"; print "$txt\n\n"; print "
\n"; } if($nonext != 1){ print "$blink\n"; } if($noback != 1){ print "$nlink\n"; } print "
\n"; print "\n"; print " | \n"; print "\n";
}
print "記帳エラー\n"; print "お名前とメッセージをお書きください。 \n"; print "ブラウザのバックボタンで戻ってください。\n"; print " \n"; if($margin != 0){ print " | \n";
print "