|
_SOJI
&tail;
}
#■発言画面更新
sub koushin {
if ($FORM{'reload'}) {
$ref = "\n";
}
print <<_BODY;
Content-type: text/html;CHARSET=$chars
$ref
$body
_BODY
# 入室者表示(00/06/09)
open(DB,"$member"); @MEMBER = ; close(DB);
$ninzu = $#MEMBER + 1;
print "只今の入室者：（$ninzu人） ";
foreach $mem (@MEMBER) {
print "$mem ";
}
print "
\n";
open(DB,"$chat_dat"); @lines = ; close(DB);
@lines = splice(@lines,0,$dismax);
foreach (@lines) { print "$_"; }
&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");
# 入室者リスト更新(00/06/09)
open(DB,"$member"); @MATE = ; close(DB);
@NEWMATE = ();
foreach $mate (@MATE) {
$mate =~ s/\n//g;
if ($mate ne $FORM{'name'}) {
push(@NEWMATE,"$mate\n");
}
}
push(@NEWMATE,"$FORM{'name'}\n");
open(DB,"> $member");
print DB @NEWMATE;
close(DB);
} elsif ($FORM{'action'} eq 'out') {
unshift(@lines,"$doorman > $out1 $FORM{'name'}$host $out2 ($date_now)
\n");
} elsif ($FORM{'chat'}) {
unshift(@lines,"$FORM{'name'} > $FORM{'chat'}$host($date_now)
\n");
}
# あいづち(00/06/09)
if ($FORM{'chat'}) {
foreach $ai (@aiduchi) {
&jcode'convert(*ai,"euc"); # EUC変換
if ($ai =~ /(.*)\,(.*)/) {
$q = $1; $a = $2;
$c = $FORM{'chat'};
&jcode'convert(*c,"euc"); # EUC変換
if ($q ne '') {
if ($c =~ /$q/ ) {
&jcode'convert(*a,$jcode); # 変換
unshift(@lines,"$doorman > $a ($date_now)
\n"); last;
}
}
}
}
}
# msg書込(00/06/09)
if ($msg) {
unshift(@lines,"$msg
\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
|