部屋動作モード一覧（$title2）

#!/usr/bin/perl #部屋動作モード一覧 # 99/06/05 update(v2.0) by 普通 #==================================================================== #ご協力を頂いた方 #oidon部屋動作モード一覧（$title2）\n"; print<<"__EOF__"; $hp_bcolor

部屋動作モード一覧（$title）

__EOF__ #####フラッシュバージョン変更点##以下のスクリプトから$titleを削除しました########## if ($room_count eq 1) { print " - Ｃｈａｔ室（入口）へ戻る。\n";} elsif ($in{'end'}) { print " - Ｃｈａｔ室（入口）へ戻る。\n";} else { print " - Ｃｈａｔ室（部屋選択）へ戻る。\n";} print<<"__EOF__";

部屋名称部屋動作モード __EOF__ if ($in{'roomno'}) { $roomno = $in{'roomno'}; &roomdisp(); } else { foreach $roomno (@room_list) {&roomdisp();} } print<<"__EOF__";

Ver:$ver __EOF__ exit; #各室状況の表示 sub roomdisp { $hf = "${fbase}chati$roomno.txt"; open (HF,"$hf"); flock (HF,1) if $FLK; $hf_list = ; close (HF); flock (HF,8) if $FLK; ($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_roomenvi1,$bhf_roomenvi2,$bhf_roomenvo,$bhf_roomenvd,$bhf_imaxcnt) = split(/,/,$bhf_roomenv); $d_msg2 = ''; $d_msg3 = ''; $d_msg4 = ''; $d_msg5 = ''; $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]; } $wk_page = $bhf_pgbody; $wk_page =~ y/a-z/A-Z/; if ($wk_page =~ /.*BGCOLOR=\W*#(\w{6}).*>.*/) { $wk_bgcolor = " BGCOLOR=#$1 "; } else { $wk_bgcolor = ''; } if ($wk_page =~ /.*TEXT=\W*#(\w{6}).*>.*/) { $wk_txcolor1 = ""; $wk_txcolor2 = ""; } else { $wk_txcolor1 = ''; $wk_txcolor2 = ''; } print "\n"; if (!$bhf_roomenvi1 && !$bhf_roomenvi2 && !$bhf_roompass && $bhf_imaxcnt eq '') { $d_msg1 = "

入室に関しては特に制限ありません。";} elsif (!$bhf_roomenvi2 && $bhf_roomenvi1 eq '1') { $d_msg1 = "

プライベート設定されています、入室には入室パスワードが必要です。
　入室パスワードは管理人までお問い合わせ下さい。";} elsif (!$bhf_roomenvi2 && $bhf_roomenvi1 eq '2') { $d_msg1 = "

参加者パスワード設定されています、入室には入室パスワードが必要です。
　最初に入室する方が設定出来ます。";} elsif ($bhf_roomenvi2 && $bhf_roomenvi1 eq '1') { $d_msg1 = "

プライベート設定されています、入室には入室パスワードが必要です。
　入室パスワードは管理人までお問い合わせ下さい。
　又、プロフィール登録されている方のみ入室が可能\です。";} elsif ($bhf_roomenvi2 && $bhf_roomenvi1 eq '2') { $d_msg1 = "

参加者パスワード設定されています、入室には入室パスワードが必要です。
　最初に入室する方が設定出来ます。
　又、プロフィール登録されている方のみ入室が可能\です。";} elsif ($bhf_roomenvi2) { $d_msg1 = "

プロフィール登録されている方のみ入室が可能\です。";} elsif ($bhf_roompass) {$d_msg1 = "

入室パスワードが設定されています。";} if ($bhf_roomenvo) { $d_msg2 = "

会話ログは在室人数が０人で自動的に消去されます。";} if ($bhf_roomenvd eq '1') { $d_msg3 = "

ＲＯＭ不可です。";} elsif ($bhf_roomenvd eq '2') { $d_msg3 = "

ＲＯＭ不可＆内緒モードです。他の方からは参加状況も見えません。";} if ($bhf_imaxcnt || $bhf_imaxcnt eq '0') { $d_msg4 = "

入室は$bhf_imaxcnt人まで可能\です。";} if (($bhf_imaxcnt eq '2') && ($bhf_roomenvo) && ($bhf_roomenvd eq '2')) { $d_msg5 = "

旧２ショットモード設定です。";} ################フラッシュバージョンへ変更################ if ($ficon eq 'y') { print "

$wk_txcolor1$d_msg1$d_msg2$d_msg3$d_msg4$d_msg5$wk_txcolor2\n";} ################################################## else { print "$wk_txcolor1$bhf_roomname$wk_txcolor2$wk_txcolor1$d_msg1$d_msg2$d_msg3$d_msg4$d_msg5$wk_txcolor2\n";} if ($bhf_bkurl) { print "

$wk_txcolor1この部屋からの退室時は$wk_txcolor1こちら$wk_txcolor2に行きます。$wk_txcolor2\n";} } #アクセス制限チェック 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); } }