諸手続「$title2」

#!/usr/bin/perl #諸手続の表紙 # 99/1/31 update(v4.5) 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分"; #=============================================================== 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 { $seq = $in{'seq'}; $wind = $in{'wind'}; $java = $in{'java'}; $roomno = $in{'roomno'}; $profno = $in{'profno'}; $chatname = $in{'chatname'}; $color = $in{'color'}; #アクティブメンバーチェック &actmemcheck(); #############オリジナルスクリプト############# # if ($icon eq 'y') { # $roomdisp = "

"; # $roomdisp2 = "

"; ###################################### ############ここからフラッシュバージョン################ if ($ficon eq 'y') { $roomdisp = "

"; $roomdisp2 = "

"; ####################### ###############変更はここまで########################## ####################### } else { $roomdisp = $roomname; $roomdisp2 = $roomname; } print<<"__EOF__"; 諸手続「$title2」

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

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

発言文字色の変更！

__EOF__ if ($wind) {print "

__EOF__ #部屋移動表示 print "

他の部屋に移動！

\n"; if ($icon eq 'y') { print "移動先Ｃｈａｔ室アイコンをクリックして下さい。
\n"; foreach $no (@room_list) {&iroomsel();} } else { print "移動先Ｃｈａｔ室を選択して下さい。
\n"; &roomsel(); } ############################## #語りかけ表示 ################オリジナルスクリプト######### #if ($icon eq 'y') { ###########「フラッシュ用にイフ文を変更」####### if ($ficon eq 'y') { ##############変更はここまで############### print "

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

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

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

\n"; exit(0); } #カレント部屋属性取得 sub room_env { &ReadHeader ($roomno); ($f_roomname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_pass,$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 member { if (-s "${fbase}roommember$no.txt") {;} else {return;} $mem_on = '0'; undef @mf_list; &ReadMember ($no); 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 ($mem_on eq '0') { ###################オリジナルスクリプト################### # print "

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

\n"; ############################ ##################ここからフラッシュバージョン################# ############################ print "

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

\n"; ############################# #####################変更はここまで############################# ############################# print "

__EOF__ } } #参加者表示 sub member2 { if (-s "${fbase}roommember$no.txt") {;} else {return;} undef @mf_list; &ReadMember ($no); 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 "