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


sub chatreloadonline 
{ 
        my $lowid = lc($UserData{'User'}); 
 
        if(open(USERLIST,"$chatdatadir/$UserData{'Room'}$DATA")) 
        { 
                @userlines=; 
                close(USERLIST); 
        print "content-type: text/html\nPragma: no-cache\n\n"; 
            my $userlist = ""; 
            foreach $userline(@userlines) 
            { 
               ($userid,$entertime,$therandnum,$ip,$nickname,$tails)=split(/:/,$userline,6); 
               next if($nickname eq ""); 
               $userlist .= "$userid=$nickname:"; 
            } 
            $userlist = substr($userlist,0,-1) if($userlist); 
             
         print qq~ 
         
         
         
          
         ~; 
        } 
        else 
        { 
        	print "Content-type: text/html\nPragma: no-cache\n\nNo..."; 
        } 
} 
1;