#!/usr/bin/perl #指定部屋への参加者表示 # 98/11/24 update(v4.11) by 普通 #==================================================================== #ご協力を頂いた方 #oidon"; # $roomdisp2 = ""; ##############フラッシュスクリプト################# if ($ficon eq 'y') { $roomdisp = ""; $roomdisp2 = ""; #################変更はここまで################### } else { $roomdisp = $roomname; $roomdisp2 = $roomname; } print<<"__EOF__"; $title2 ここは、$title - $roomdispです。
現在この部屋への参加者は以下の通りです。
戻りは、ブラウザのバックボタンでお願いしますね！
__EOF__ &ReadMember($roomno); $cnt = '0'; foreach (@mf_list) { ($mf_roomno,$mf_roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/); print "「$mf_chatname」さんが日時$mf_intimeに参加！。
\n"; $cnt = '1'; } if ($cnt eq '0') {print "どなたも居ませんねぇ〜
\n";} print "
\n"; exit; } #部屋属性取得 sub roomset { &ReadHeader($roomno); ($roomname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_pass,$hf_ccolor,$dmy) = split(/｜|\n/,$hf_list); } sub error { print<<"__EOF__"; $title2
ここに入る為の情報に誤りがあります。
__EOF__ exit(0); }