#! /usr/local/bin/perl
#
#ゆいちゃっとMulti1.1(tool.cgi)
#
#オプションCGI(ロムチェック&発言ランキング)
#
require './pref.cgi';
&init;
&jikan;
print "Content-type: text/html\n\n";
$node=$ENV{'QUERY_STRING'};
if($node eq 'rank'){
&rank; &romcheck;
}elsif($node =~s/^room=//){
&romcheck;
}
print "$node えら〜??\n";
&ended;
sub romcheck{
$room=$node;
print "
アクセス情報$metacode\n";
print "\n";
print "$body\n";
print "$title(部屋番号:$room)の参加者および、ロムの一覧です。(60秒リロード)
";
open(DBS,"$sanka_file$room") || &ended;
@lines = ;
close(DBS);
foreach $line (@lines) {
($timerec, $cname, $host,$dmy) = split(/\t/, $line);
if( $times-60 < $timerec){
$time2=$times-$timerec;
print "$cname($time2 秒前)
";
}
}
print <<"_HTML_";
とりあえず、話題に入れない初心者と、忙しい常連さんのロムは容認してます...ゆいは..。
名前のところには、mailtoでホスト名が入ってます。
ここをクリックしても意味ありません。