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

sub getright 
{ 
     my($theid) = shift; 
 
     $theid = lc($theid); 
     $first_id='!'; 
     my $idpath   = $LOGOpath.$first_id."/"; 
          my $datapath = $idpath.$theid; 
 
     if(open(DATA,"<$datapath")) 
     { 
         @lines=; 
         close DATA; 
         my($theid,$crypass,$rightgroup)=split(/:/,$lines[0],4); 
         my($right,$group)=split(/\|/,$rightgroup); 
         return ($right,$group); 
     } 
     return (0,0); 
} 
1; #return true