#!/usr/bin/perl #指定部屋への参加者表示 # 99/06/05 update(v5.0) by 普通 #==================================================================== #ご協力を頂いた方 #oidon"; # $roomdisp2 = ""; $roomdisp = ""; $roomdisp2 = ""; #################################################### } else { $roomdisp = $bhf_roomname; $roomdisp2 = $bhf_roomname; } print "$title2\n"; print<<"__EOF__"; $bhf_pgbody ここは、$title - $roomdispです。
現在この部屋への参加者は以下の通りです。
戻りは、ブラウザのバックボタンでお願いしますね！
__EOF__ if ($bhf_roomenvd eq '2') { print "この部屋は参加者照会は出来ないんですよぉ〜
\n"; } else { $dsw = 0; $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 ($tmf_ipaddr eq 'ROM') { if ($rom_nmmd eq '1') {$rom_count++;} else {print "「$tmf_chatname」さんがＲＯＭ中！。
\n";} } else { print "「$tmf_chatname」さん：入室日時は$time9です。
\n"; } $dsw = '1'; } if ($dsw eq '0') {print "どなたも居ませんねぇ〜。
\n";} else { if ($rom_nmmd eq '1' && $rom_count > 0) {print "ＲＯＭ中！さんが$rom_count人、いらっしゃいます〜。
\n";} } } print "
Ver:$ver\n"; exit; } #参加者・ＲＯＭ精査 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 roomset { &ReadHeader($roomno); ($bhf_roomname,$bhf_intime,$bhf_outtime,$bhf_memcnt,$bhf_page,$bhf_ccolor,$bhf_roomenv,$bhf_roompass,$bhf_bkurl,$bhf_yobi1,$bhf_yobi2,$bhf_yobi3) = split(/｜|\n/,$hf_list); $bhf_page =~ s/body/BODY/gi; @page_set = split(/,/,$bhf_page); if ($bhf_page =~ /.+BODY.+BODY.+/) { if ($bgmode eq '1') { $bhf_pgbody = $page_set[0]; $bhf_pgbody2 = $page_set[1]; } else { $bhf_pgbody = $page_set[1]; $bhf_pgbody2 = $page_set[0]; } $bhf_line = $page_set[2]; } else { $bhf_pgbody = $page_set[0]; $bhf_pgbody2 = $page_set[0]; $bhf_line = $page_set[1]; } ($bhf_roomenvi1,$bhf_roomenvi2,$bhf_roomenvo,$bhf_roomenvd,$bhf_imaxcnt) = split(/,/,$bhf_roomenv); } sub error { print "$title2\n"; print<<"__EOF__"; $hp_bcolor
このスクリプトを動作させる為の情報が不足しています。
__EOF__ exit(0); }