#!/usr/bin/perl #全室参加者表示ページ # 98/12/3 update(v4.2) by 普通 #==================================================================== #ご協力を頂いた方 #oidon #==================================================================== #==================================================================== #【？】# 既にあればそこまでのパスを指定します。 require './jcode.pl'; require './chat_env.cgi'; require './chat_lib.pl'; &env_init; ########################################################################################### print<<"__EOF__"; Content-type: text/html $title2 $hp_bcolor

参加者リスト

  • Ｃｈａｔ室へはブラウザのバックボタンで、お戻り下さいネ！
    __EOF__ foreach $roomno (@room_list) {&membdisp();} print<<"__EOF__";
    __EOF__ exit; sub membdisp { undef @mf_list; &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 ($icon eq 'y') { # print "に「$mf_chatname」さんがいらっしゃいます。入室日時は$mf_intimeでした。
    \n";} ##################　変更後　############################ if ($ficon eq 'y') { print "に「$mf_chatname」さんがいらっしゃいます。入室日時は$mf_intimeでした。
    \n";} ##################　変更はここまで ################## else { print "$mf_roomnameに「$mf_chatname」さんがいらっしゃいます。入室日時は$mf_intimeでした。
    \n";} } }