#!/usr/bin/perl
#!/usr/bin/perl -w
#use strict;
#no strict 'vars';
#-------------------------------
# chat.cgi v2.32 (ShiftJIS)
# 2001.11. 9 MIYAMORI Yoshimasa
# (kan_ta@amcsys.com)
#-------------------------------
require '../../jcode.pl';
$charSep = ',';
$codeSjis = 'sjis';
$codeEuc = 'euc';
$myOut = $codeSjis;
#$myOut = $codeEuc;
$myFileMode = '666';
$myLogLimit = 400;
$myLogDisp = 40;
$myLogCompact = 20;
$myRomTime = 1800;
$myMailto = 'kan_ta@amcsys.com';
$myTitle = 'ちゃっとぺーじ♪';
$myUrl = '/cgi-bin/sample/chat/chat.cgi';
$myUrlHtml = '/sample/chat/chat.html';
$errFile = '../../../sample/chat/chat.err';
$lockFile = '../../../sample/chat/chat.lck';
$logFile = '../../../sample/chat/chat.log';
$tmpFile = '../../../sample/chat/chat.tmp';
$romFile = '../../../sample/chat/chat.rom';
&main;
exit;
sub dispLog {
local($rom, $romTime, $lastName) = @_;
local($s);
if ($romTime < 0) {
$s = '