$title2

#!/usr/bin/perl #入室 # 99/1/31 update(v4.5) by 普通 #==================================================================== #ご協力を頂いた方 #oidon"; # $roomdisp2 = "

"; ################################ #ここからフラッシュ用に変更 ################################ if ($ficon eq 'y') { $roomdisp = "

"; $roomdisp2 = "

"; ############################## ##################　変更はここまで ################## ############################## } else { $roomdisp = $roomname; $roomdisp2 = $roomname; } if ($http_ref =~ /chat_top\./i) {;} else {$link_print = "

Support HomePage:ＺｏｏＣｈａｔ広場\n";} print<<"__EOF__"; $title2

ここは、$title - $roomdispです。

__EOF__ if ($hf_roompass) {print "

ご案内>この部屋はプライベートモードに設定されています。
\n"; print "ご案内>入室パスワードは部屋主催者まで、問い合わせ下さい。\n"; &busy_color();} elsif ($hf_roomenv) {print "

ご案内>この部屋はＲＯＭ拒否モードに設定されています。\n"; &busy_color();} else {&room_disp();} print<<"__EOF__";

$link_print __EOF__ exit(0); } #入室者／利用中発言色の表示 sub busy_color { $lcnt = 0; &ReadMember($roomno); 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/); if ($memb_list == 1) { if ($lcnt == 0) {print "
ご案内>現在の入室者は$mf_chatnameさん\n";} else {print "、$mf_chatnameさん\n";} }else{ if ($lcnt == 0) {print "
ご案内>現在の利用中発言色は$ccolor_smp\n";} else {print "／$ccolor_smp\n";} } } if ($lcnt == 0) {;} else {print "です。
\n";} } #発言表示 sub room_disp { $lcnt = 0; &ReadComment ($roomno); foreach (@cf_list) { next if /【(.+)：(\d+)】/; s///g; print $hf_line, $_; last if (++$lcnt > $dmax); } } #部屋属性取得 sub roomset { &ReadHeader($roomno); ($roomname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_roompass,$hf_ccolor,$dmy) = split(/｜|\n/,$hf_list); if ($hf_ccolor) {@ccolor = split(/,/,$hf_ccolor);} else {@ccolor = ('#000000','#00FF00','#0000FF','#FFCC00','#770000','#CC6633','#00AA00','#000099','#FF9900','#FF66FF','#33CCFF','#9900FF','#FF0000','#DDDD00');} } sub get_cookie { # クッキーを取得 $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{'Zoo_Chat'}); foreach $pair (@pairs) { ($name, $value) = split(/:/, $pair); $COOKIE{$name} = $value; } $c_chatname = $COOKIE{'name'}; # $c_email= $COOKIE{'email'}; } 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);} } sub error { print<<"__EOF__"; $title2 $hp_bcolor

ここに入る為の情報に誤りがあります。

__EOF__ exit(0); }