www.pudn.com > coolchat.zip > chatonline.pl

#!/usr/bin/perl 
 
        $| = 1; 
 
        require "e:/company/qzrb/cgi-bin/music/cgi/chat.cfg"; 
 
        my $ChatRoomListFile="$chatdatadir/roomlist.ROM"; 
        my $DATA            = ".DAT"; 
 
        print "Content-type: text/html\n\n"; 
        print "\n"; 
        print "\n"; 
        if(open(ROOMLIST, "<$ChatRoomListFile")) 
        { 
	      my @roomlines=; 
              close ROOMLIST; 
              for $roomline(@roomlines) 
              {#$room:1:$lowid:1:1 
              	   my($roomname,$usernum,$master,$visible,$nouse)=split(/:/,$roomline,5); 
$usernum=$usernum+1;                    
if($visible eq 1) 
                   { 
                        print "$roomname  ($usernumÈË)\n"; 
                        if(open(USERLIST,"<$chatdatadir/$roomname$DATA")) 
                        { 
                        	for() 
                        	{ 
                        		my($userid,$entertime,$therandnum,$ip,$nickname)=split(/:/); 
                        		print "($userid)$nickname\n"; 
                        	} 
                        	close USERLIST; 
                        } 
print "(robot)С¾«Áé\n";                           
print "============\n"; 
                   } 
              } 
        } 
        print "\n"; 
 
        exit;