諸手続「$title2」

#!/usr/bin/perl #諸手続の表紙 # 99/06/05 update(v5.0) by 普通 #==================================================================== #ご協力を頂いた方 #oidon #==================================================================== #【？】# 既にあればそこまでのパスを指定します。 require './jcode.pl'; require './chat_env.cgi'; require './chat_lib.pl'; &env_init; ########################################################################################### ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon++; $date_now = "$year年$mon月$mday日$hour時$min分"; $date = "$mon月$mday日$hour時$min分"; $time = "$mday日$hour時$min分"; $times = time; $ipaddr = $ENV{'REMOTE_ADDR'}; $ipaddr =~ s/\.//g; #=============================================================== if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); $in{$name} = $value; } #=============================================================== print "Content-type: text/html\n\n"; if ($in{'roomno'} && $in{'chatname'}) { &main();} else {&error("このスクリプトを動作させる為の情報が不足しています。");} exit; sub main { $roomno = $in{'roomno'}; #Ｃｈａｔ室Ｎｏ &roomset(); #部屋属性取得 $chatname = $in{'chatname'}; #ハンドル名 &rom_proc(); #参加者登録、登参加者・ＲＯＭ精査 $profno = $bmf_profno; #プロフィールＮｏ $java = $bmf_java; #java script利用可否 $seq = $bmf_seq; #ささやき受付可否 $color = $bmf_ccolor; #発言文字カラー $wind = $in{'wind'}; #フレーム動作セット $room_count = @room_list; #部屋数セット #部屋表現セット #############フラッシュバージョンへ変更########### if ($icon eq 'y') { # $roomdisp = "

"; # $roomdisp2 = "

"; $roomdisp = "

"; $roomdisp2 = "

"; }else{ $roomdisp = $bhf_roomname; $roomdisp2 = $bhf_roomname; } print "諸手続「$title2」\n"; print<<"__EOF__"; $hp_bcolor

「$chatname」さん！どぉ～もぉ～。どの様な手続きを？

$roomdispへ戻るには、ブラウザのバックボタンでお願いします。

発言文字色の変更！

__EOF__ if ($wind) {print "

__EOF__ if ($room_count > 1) { #１部屋モード確認 #部屋移動表示 print "

他の部屋に移動！

\n"; if ($icon eq 'y') { print "移動先Ｃｈａｔ室アイコンをクリックして下さい。
\n"; foreach $no (@room_list) {&iroomsel();} } else { print "移動先Ｃｈａｔ室を選択して下さい。
\n"; &roomsel(); } #語りかけ表示 $callmem = ''; if ($icon eq 'y') { print "

\n"; foreach $no (@room_list) {&member();} } else { print<<"__EOF__";

他部屋の参加者殿へ語りかけ！

__EOF__ } if (!($callmem)) {print "■語りかけの相手が見つかりませんでした。
\n";} print "

\n"; } if ($func_prof) {&profreg();} #プロフィール登録・修正 print "

\n"; exit(0); } #部屋属性取得 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_pgbody,$bhf_line) = split(/,/,$bhf_page); ($bhf_roomenvi1,$bhf_roomenvi2,$bhf_roomenvo,$bhf_roomenvd,$bhf_imaxcnt) = split(/,/,$bhf_roomenv); @ccolor = split(/,/,$bhf_ccolor); } #各部屋の参加者表示（あいこん部屋表示） sub member { if ($roomenvd{$no} eq '2') {return;} #部屋属性：表示＝内緒 if (-s "${fbase}roommember$no.txt") {;} else {return;} $mem_on = '0'; undef @mf_list; &ReadMember ($no); foreach (@mf_list) { ($tmf_roomno,$tmf_roomname,$tmf_chatname,$tmf_inenv,$tmf_inproc,$tmf_yobi) = split(/｜|\n/); ($tmf_ipaddr,$tmf_intime,$tmf_latime,$tmf_agent,$tmf_profno,$tmf_yobi21) = split(/,/,$tmf_inproc); if (!($tmf_ipaddr eq 'ROM')) { if ($mem_on eq '0') { print "

部屋の参加者殿へ語りかけ！

\n"; print "

__EOF__ } } #各部屋の参加者表示（文字部屋表示） sub member2 { if ($roomenvd{$no} eq '2') {return;} #部屋属性：表示＝内緒 if (-s "${fbase}roommember$no.txt") {;} else {return;} undef @mf_list; &ReadMember ($no); foreach (@mf_list) { ($tmf_roomno,$tmf_roomname,$tmf_chatname,$tmf_inenv,$tmf_inproc,$tmf_yobi) = split(/｜|\n/); ($tmf_ipaddr,$tmf_intime,$tmf_latime,$tmf_agent,$tmf_profno,$tmf_yobi21) = split(/,/,$tmf_inproc); if (!($tmf_ipaddr eq 'ROM')) { ##################################################Option:001 by Add Start # ($tmf_call,$tmf_dmy) = split (/,/,$tmf_yobi); # if ($tmf_call eq 'yes') {print "