checkreferrer.cgi

来自「学生信息系统,这个程序设置非常简单」· CGI 代码 · 共 15 行

sub checkreferrer {
   if (!($ENV{'HTTP_REFERER'})) {&errorip;}
   elsif ($valid) {
	$servertemp =0;
	@validserver=split(/\|/,$valid);
	foreach $line (@validserver) {
	if  (($ENV{'HTTP_REFERER'} =~ /^http:\/\/$line/i) || ($ENV{'HTTP_REFERER'} =~ /^$line/i)) 
         {$servertemp =1; last; }
	}
	unless ($servertemp ==1) {
 		if ($ENV{'HTTP_USER_AGENT'} =~ /si/i)  {&errorip;}
		elsif ($job =~ /logout|login/) {&errorip;}
	}
    }
}