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

sub broadcast 
{ 
        if($UserData{'Group'} ne 99) 
        {#See wether the quest is come from the right user 
	    &chatshowmsg; 
            exit 0; 
        } 
 
	&get_form_data; 
        if($formdata{'message'} eq "") 
        { 
	    &chatshowmsg; 
            exit 0; 
        } 
 
        my $message = $formdata{'message'}."(ÏûÏ¢)"; 
        if(open(ROOMLIST, "<$ChatRoomListFile")) 
        { 
	      @roomlines=;  
              close ROOMLIST; 
              foreach $roomline(@roomlines) 
              { 
               	   ($roomname)=split(/:/,$roomline,2); 
                   &UpdateChatData(9, $UserData{'User'},$roomname,$UserData{'Nick'},$message); 
              } 
        } 
        &chatshowmsg; 
} 
1; #return true