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

sub senttitle 
{ 
        $UserData{'Room'}    = "main"  if($UserData{'Room'} eq ""); 
        $UserData{'Bgcolor'} = "black" if($UserData{'Bgcolor'} eq ""); 
         if(open(USERLIST,"$chatdatadir/$UserData{'Room'}$DATA")) 
        { 
                @userlines=; 
                close(USERLIST); 
                $usernum=@userlines; 
        } 
        else 
        { 
                 &somerror("系统正忙，或者这个聊天室已经被删除了!","$ChatURLpath",1); 
        } 
        my $usernum = @userlines; 
$usernum=$usernum+1;  
 
        print "Content-type: text/html\nPragma: no-cache\n"; 
        print "\n"; 
        print qq| 
            
 
 
 
 
 
 
 
 
 
 
 
  
 
    
 
 
    
本室现在一共同有$usernum人
 
    
 
        |; 
        if(open(Header,"$chatdatadir/$UserData{'Room'}$HEAD")) 
        { 
        	foreach(
) 
        	{ 
        		print $_; 
        	} 
                close Header; 
        } 
        print "
\n"; 
} 
1;