#!/usr/bin/perl #参加履歴照会 # 98/06/05 update(v2.0) by 普通 #==================================================================== #ご協力を頂いた方 #oidon #==================================================================== require './chat_env.cgi'; require './chat_lib.pl'; &env_init; $ver = '2.0'; #=============================================================== 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; $in{$name} = $value; } #=============================================================== $room_count = @room_list; #部屋数セット print "Content-type: text/html\n\n"; print "$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__ &ReadLog(); foreach (@lf_list) {print;} print<<"__EOF__";
Ver:$ver __EOF__