$title2

#!/usr/bin/perl #表紙 # 99/1/31 update(v4.5) by 普通 #==================================================================== #ご協力を頂いた方 #oidon\n"; # $disp2 = "

\n"; ################################################################### #####################フラッシュバージョンへ変更################# if ($ficon eq 'y') { $disp1 = "

\n"; $disp2 = "

\n"; #####################変更はここまで############### } else { $disp1 = "\n"; $disp2 = "\n"; } if ($ranking) {$disp9 = "

発言ランキング\n"}; if ($func_prof) {$disp8 = "

プロフィール一覧・更新\n"}; print<<"__EOF__"; Content-type: text/html $title2 $hp_bcolor $disp1

$title $disp2

「入室、状況見学」はそれぞれの「部屋名称」ボタンをクリックしてください。
「現在の入室者照会」はそれぞれの「ご利用人数」をクリックしてください。
「参加履歴照会」はここです。
現在のご利用人数の確認は適宜リロードして下さい。 $disp9 $disp8
チャットメニューへ戻る。

\n"; &roomdisp(); } print<<"__EOF__";

部屋名称最新日時ご利用
　人数入室退室 __EOF__ foreach $roomno (@room_list) { print "

管理専用

Zoo Chat v4.5　　　　　　　　　　　　
Script written:普通のサラリーマン
Design&Arenged:Ｏｉｄｏｎ　　　　　　
Flash(Design&Arenged):たぁきい　　　　　　
Support HomePage:ＺｏｏＣｈａｔ広場

__EOF__ exit; #各室状況の表示 sub roomdisp { $times = time; $fupdate = 0; $hf = "${fbase}chati$roomno.txt"; open (HF,"+<$hf"); flock (HF,2) if $FLK; $hf_list = ; ($f_rname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_roompass,$hf_ccolor,$dmy) = split(/｜|\n/,$hf_list); if ($f_memcnt > 0) {&roomchk();} ###################オリジナルスクリプト################### # if ($icon eq 'y') { # print "

$f_intime$f_outtime$f_memcnt人\n";} ###################フラッシュバージョンへ変更################## if ($ficon eq 'y') { print "

$f_intime$f_outtime$f_memcnt人\n";} ######################変更はここまで################# else { print "$f_rname$f_intime$f_outtime$f_memcnt人\n";} #自動退室対象時の部屋表紙ファイルの参加人数クリア if ($fupdate eq 1) { seek (HF,0,0); truncate (HF,0); $hf_list = "$f_rname｜$f_intime｜$f_outtime｜0｜$hf_bgcolor｜$hf_txcolor｜$hf_line｜$hf_roomenv｜$hf_roompass｜$hf_ccolor｜\n"; print HF $hf_list; } close (HF); flock (HF,8) if $FLK; } #入室者Ｚｅｒｏ以外時の発言ファイルの最終時間チェック＆入室メンバーファイル消去 sub roomchk { undef @cf_list; &ReadComment ($roomno); foreach (@cf_list) { if (//) { $atime = $times - $1; if ($atime > $rel_time) { &DeleteMember($roomno); $f_memcnt = 0; $fupdate = 1; } return; } } } sub ng_check { $a_ng = '0'; foreach(@ng_ipa){if($ENV{'REMOTE_ADDR'} =~ /^$_/){$a_ng = '1';}} foreach(@ng_rmh){if($ENV{'REMOTE_HOST'} =~ /^$_/){$a_ng = '1';}} if($a_ng eq '1'){ print "Content-type: text/html\n"; print "Status: 401\n\n"; exit(0); } }