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

sub allowin 
{         
	&get_form_data; 
        if($formdata{'ToWho'} eq "") 
        { 
	    &chatshowmsg; 
            exit 0; 
        } 
        $objid = lc($formdata{'ToWho'}); 
         
        if(($UserData{'Room'} eq "main") && ($UserData{'Group'} ne 99)) 
        {#Only root can kick user from main room! 
	    &chatshowmsg; 
            exit 0; 
        } 
 
        MyDo $do_chatcheckmaster; 
        if ((&checkmaster($UserData{'User'},$UserData{'Room'}) ne 0)&&($UserData{'Group'} ne 99)) 
        {#See wether the quest is come from the right user 
	    &chatshowmsg; 
            exit 0; 
        } 
 
        my $forbididfile = "$ChaTempFilePath$UserData{'Room'}.out"; 
        &lock("$forbididfile"); 
        if(open(FDB,"$forbididfile")) 
        { 
        	@lines = ; 
        	close FDB; 
        	if(open(FDB,">$forbididfile")) 
        	{ 
        	   foreach $line(@lines) 
        	   { 
        	   	#chomp($line); 
        	   	($id) = split(/:/,$line); 
        	   	print FDB $line if($id ne $objid); 
        	   } 
        	   close FDB; 
        	} 
        } 
        &unlock("$forbididfile"); 
         
	#Get curent time 
        $message = "$UserData{'Nick'}($UserData{'User'}) ÔÊÐí $formdata{'ToWho'} ½øÈëÁÄÌìÊÒ!"; 
        &UpdateChatData(10, $UserData{'User'},$UserData{'Room'},$UserData{'Nick'},$message); 
        &chatshowmsg; 
} 
1; #return true