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

sub chatonline 
{ 
        my $lowid = lc($UserData{'User'}); 
 
        if(open(USERLIST,"$chatdatadir/$UserData{'Room'}$DATA")) 
        { 
                @userlines=; 
                close(USERLIST); 
                $usernum=@userlines; 
        } 
        else 
        { 
                 &somerror("系统正忙，或者这个聊天室已经被删除了!","$ChatURLpath",1); 
        } 
 
        my $nowtime = time; 
 
        print "Content-type: text/html\nPragma: no-cache\n\n"; 
        print qq~ 
         
         
         
 
 
 
         
        
 
  
 
    
 
 
 
  
 
   
 
   
 
   
 
   
 
  
 
 
  
 
   
 
   
 
   
 
   
 
  
 
  
 
   
 
          
        ~; 
          
         if(open(ROOMLIST, "<$ChatRoomListFile")) 
         { 
	      @roomlines=;  
              close ROOMLIST; 
              for $roomline(@roomlines) 
              {#$room:1:$lowid:1:1 
              	   ($roomname,$usernum,$master,$visible,$nouse)=split(/:/,$roomline,5); 
$usernum=$usernum+1; 
                   if($UserData{'Room'} eq $roomname) 
                   { 
                        print "*$roomname:$usernum\n"; 
                   } 
               	   elsif(($visible ne 0)||($UserData{'Group'} eq 99)) 
               	   { 
                        print ""; 
                        if($visible eq 0) 
                        { 
                        	print "\(H)"; 
                        } 
                        print "$roomname:$usernum\n"; 
               	   } 
              } 
         } 
         my $usernum = @userlines; 
$usernum=$usernum+1;          
print qq~ 
  
    
 
   
 
  
 
  
 
   
 
  
 
  
 
   
 
    
转换房间
 
    
 
   
 
 
 
 
[所有人]
 
小精灵         
 ~; 
                
            my $userlist = ""; 
            foreach $userline(@userlines) 
            { 
               ($userid,$entertime,$therandnum,$ip,$nickname,$tails)=split(/:/,$userline,6); 
               next if($nickname eq ""); 
               $userlist .= "$userid=$nickname:"; 
               if($userid eq $lowid) 
               { 
                      print "*$nickname\n"; 
                      next; 
               } 
               else 
               { 
                   print ""; 
                   print "#" if($UserData{$userid} eq "f"); 
                   print "$nickname\n"; 
               } 
            } 
            $userlist = substr($userlist,0,-1) if($userlist); 
             
      
   print qq~ 
           
           [过滤](#)
[恢复]    
 
  
 
 
       
          
         ~; 
} 
1;