$title2

#!/usr/bin/perl #全室参加者表示ページ # 99/06/05 update(v5.0) by 普通 #==================================================================== #ご協力を頂いた方 #oidon #==================================================================== #==================================================================== #【？】# 既にあればそこまでのパスを指定します。 require './jcode.pl'; require './chat_env.cgi'; require './chat_lib.pl'; &env_init; ########################################################################################### print "Content-type: text/html\n\n"; print "$title2\n"; print<<"__EOF__"; $hp_bcolor 参加者リスト - $title
戻りは、ブラウザのバックボタンでお願いしますね！

__EOF__ &roomenv_set(); $dsw = 0; foreach $roomno (@room_list) { if (!($roomenv{$roomno} eq '2')) {&membdisp();} } if ($dsw eq '0') {print "どなたも居ませんねぇ～。
\n";} print<<"__EOF__";

__EOF__ exit; sub membdisp { undef @mf_list; &rom_proc(); $rom_count = 0; foreach (@mf_list) { next if (!($_)); ($tmf_roomno,$tmf_roomname,$tmf_chatname,$tmf_inenv,$tmf_inproc,$tmf_yobi) = split(/｜|\n/); ($tmf_ccolor,$tmf_seq,$tmf_java,$tmf_yobi11,$tmf_yobi12) = split(/,/,$tmf_inenv); ($tmf_ipaddr,$tmf_intime,$tmf_latime,$tmf_agent,$tmf_profno,$tmf_yobi21) = split(/,/,$tmf_inproc); ($sec9,$min9,$hour9,$mday9,$mon9,$year9,$wday9,$yday9,$isdst9) = localtime($tmf_intime); $mon9++; $time9 = "$mon9月$mday9日$hour9時$min9分$sec9秒"; ###############フラッシュ用に修正#################### if ($ficon eq 'y') {$roomdisp = "

";} else {$roomdisp = "$tmf_roomname";} if ($tmf_ipaddr eq 'ROM') { if ($rom_nmmd eq '1') {$rom_count++;} else { print "$roomdispでは「$tmf_chatname」さんがＲＯＭ中です。
\n"; $dsw = 1; } } else { print "$roomdispに「$tmf_chatname」さん：入室日時は$time9です。
\n"; $dsw = 1; } } if ($rom_nmmd eq '1' && $rom_count > 0) { print "$roomdispでは$rom_count人さんがＲＯＭ中です。
\n"; $dsw = 1; } } #参加者・ＲＯＭ精査 sub rom_proc { $memcnt = 0; $fupdate = 0; &LockReadMember($roomno); foreach (@mf_list) { ($bmf_roomno,$bmf_roomname,$bmf_chatname,$bmf_inenv,$bmf_inproc,$bmf_yobi) = split(/｜|\n/); ($bmf_ipaddr,$bmf_intime,$bmf_latime,$bmf_agent,$bmf_profno,$bmf_yobi21) = split(/,/,$bmf_inproc); if ($bmf_ipaddr eq 'ROM') { $timewk = time - $bmf_intime; if ($timewk > $rom_time) {$_ = '';} } else { $timewk = time - $bmf_latime; if ($timewk > $aout_time) { $_ = ''; $fupdate = 1; } else {$memcnt++;} } } &UnlockWriteMember($roomno); } sub roomenv_set { foreach $no (@room_list) { &ReadHeader ($no); ($thf_roomname,$thf_intime,$thf_outtime,$thf_memcnt,$thf_page,$thf_ccolor,$thf_roomenv,$thf_roompass,$thf_bkurl,$thf_yobi1,$thf_yobi2,$thf_yobi3) = split(/｜|\n/,$hf_list); ($thf_roomenvi1,$thf_roomenvi2,$thf_roomenvo,$thf_roomenvd,$thf_imaxcnt) = split(/,/,$thf_roomenv); $roomenv{$no} = $thf_roomenvd; } }