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

sub checkmaster 
{ 
        my($username,$room) = @_; 
        $username = lc($username); 
        if(open(ROOMLIST, "<$ChatRoomListFile")) 
        { 
	      @roomlines=;  
              close ROOMLIST; 
              foreach $roomline(@roomlines) 
              { 
               	   my ($roomname,$usernum,$master)=split(/:/,$roomline); 
               	   if($room eq $roomname) 
               	   { 
                       @masterlist = split(/\|/,$master); 
                       foreach $themaster(@masterlist) 
                       { 
                       	   return 0 if($username eq $themaster); 
                       } 
                   } 
              } 
        } 
        return 1; 
} 
1; #return true