#!/usr/bin/perl #待機 # 99/1/31 update(v4.5) by 普通 #==================================================================== #ご協力を頂いた方 #oidon$chatname";} else {$chatname_disp = $chatname;} &actmemcheck(); ##############オリジナルスクリプト################### # if ($icon eq 'y') { # $roomdisp = ""; # $roomdisp2 = ""; #################フラッシュバージョン############### if ($ficon eq 'y') { $roomdisp = " "; $roomdisp2 = " "; ###################変更はここまで####################### } else { $roomdisp = $roomname; $roomdisp2 = $roomname; } } #初回待機モード sub main1 { &waitmsg(); &hp_disp(); exit(0); } #２回目以降待機モード sub main2 { &hp_disp(); exit(0); } #待機モードメッセージ表示 sub waitmsg { $times = time; &WriteComment ($roomno,"「$chatname_disp」は待機モードに移行。\[$date$rhost\]
\n"); } #待機ページ表示 sub hp_disp { $times = time; $b_chatname = $chatname; $e_chatname = &encode($b_chatname); $color2 = $color; $color2 =~ s/#/%23/; if ($in{'entime'}) { $meta = ""; } else { $meta = ""; } print<<"__EOF__"; ここは、$title2のＣｈａｔ室です、ただ今待機中。 $meta __EOF__ #発言内容の表示 &prcom2(); ######復帰################################################## print<<"__EOF__";
__EOF__ ######Ｂｅｌｌ############################################## if ($in{'entime'}) { print<<"__EOF__";
__EOF__ } else { print<<"__EOF__";
__EOF__ } ######全参加者を見る################################################## print<<"__EOF__";

ここは、$title - $roomdispで、待機中です。

「$chatname」さん。どなたかお待ちですか？お見えになるといいですね！
現在、ここ待機中では$rtime秒おきに自動リロードしています。戻るのは上の「復帰」ボタンです。
__EOF__ exit(0); } #アクティブメンバーチェック sub actmemcheck { &ReadMember ($roomno); foreach (@mf_list) { ($mf_roomno,$roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/); if ($chatname eq $mf_chatname) {return;} } &actmemerr(); } #投稿内容の表示 sub prcom2 { $lcnt = 0; $bell = ''; &ReadComment ($roomno); foreach (@cf_list) { if (s///g) { next if ($1 ne $myid && $2 ne $myid); $_ = "$_"; } if ($in{'entime'} && s///g) { if ($1 > $in{'entime'}) { $bell = 1; } } print $mf_line, $_; last if (++$lcnt > $dmax); } if ($bell) { print "\n"; } } #エンコード処理 sub encode { $_[0] =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; $_[0] =~ s/\s/+/g; $_[0]; } #エラー表示 sub error { print<<"__EOF__"; $title2 $hp_bcolor
ここに入る為の情報に誤りがあります。
__EOF__ exit(0); } #エラー表示 sub werror { print<<"__EOF__"; $title2 $hp_bcolor
待機状態になってませんよぉ〜。
__EOF__ exit(0); } #エラー表示 sub actmemerr { print<<"__EOF__"; $title2 $hp_bcolor
ここに発言する為の情報が不足しています。
__EOF__ exit(0); }