chat-checkip.pl

来自「java开发的聊天室」· PL 代码 · 共 24 行

sub checkip
{
	#$userip=$ENV{'REMOTE_ADDR'};
	open(PASSWD,"$filehead$kickipfile");
   @lines = <PASSWD>;  
   close(PASSWD);  
@myip1=split('\.',$userip);
#模糊踢人支持通配符如：202.97.228.*
   foreach $line(@lines) {  
       chop($line);  
	   @kickip1=split('\.',$line);
      if ((($kickip1[0] eq '*') || ($myip1[0] eq $kickip1[0]))
&&(($kickip1[1] eq '*') || ($myip1[1] eq $kickip1[1]))
&&(($kickip1[2] eq '*') || ($myip1[2] eq $kickip1[2]))
&&(($kickip1[3] eq '*') || ($myip1[3] eq $kickip1[3])))  {  
	  	#print $line;
			require "$chathead/chat-logout.pl";
   			&return_kickipout; 
			exit;
      }  
   }  
}
  
1;