|
_SOJI
&tail;
}
#■発言画面更新
sub koushin {
if ($FORM{'reload'}) {
$ref = "\n";
}
print <<_BODY;
Content-type: text/html;CHARSET=$chars
$ref
$body
$msg
_BODY
open(DB,"$chat_dat"); @lines = ; close(DB);
@lines = splice(@lines,0,$dismax);
foreach (@lines) { print "$_\n"; }
&tail;
}
#■書込
sub write {
open(DB,"$chat_dat"); @lines = ; close(DB);
&hostname;
if ($#lines >= $max) { pop(@lines); } # 最大数超時、最初の発言(最終行)削除
if ($ip) {
$host = "[$host]";
} else {
$host = "";
}
if ($FORM{'action'} eq 'enter') {
unshift(@lines,"$doorman > $ent1 $FORM{'name'}$host $ent2 ($date_now)
\n");
} elsif ($FORM{'action'} eq 'out') {
unshift(@lines,"$doorman > $out1 $FORM{'name'}$host $out2 ($date_now)
\n");
} else {
unshift(@lines,"$FORM{'name'} > $FORM{'chat'}$host($date_now)
\n");
}
if ($lockkey) { &lock;}
if (!open(DB,">$chat_dat")) { &err('チャットファイルへ書けんで。'); }
print DB @lines;
close(DB);
if (-e $lockfile){ unlink($lockfile); }
}
#■ロック
sub lock{
$flag = 0;
foreach (1 .. 2){
if (-e $lockfile){ sleep(1); }
else{
if (!open(LOCK,">$lockfile")) { &err('ロックファイルに書けまへんわ。'); }
close(LOCK);
$flag = 1;
last;
}
}
if ($flag == 0){ &err('書込が重なりよった、もう一度書き込んでや。'); }
}
#■ヘッダー
sub header {
print <<_HEAD;
Content-type: text/html;CHARSET=$chars
$body
$dis_title
_HEAD
}
#■フッター
sub tail {
print <<_TAIL;
$copyright
|