| line |
!l |
l&&!r |
l&&r |
condition |
|
83
|
152 |
1 |
1 |
$args{'expect'} and ref $args{'expect'} ne "ARRAY" |
|
148
|
4 |
10 |
0 |
$ENV{'SCRIPT_NAME'} and $ENV{'DOCUMENT_ROOT'} |
|
|
4 |
0 |
5 |
$ENV{'SCRIPT_NAME'} and not $ENV{'DOCUMENT_ROOT'} |
|
158
|
2 |
2 |
1 |
"File::Spec"->file_name_is_absolute($ENV{'SCRIPT_NAME'}) and -r $ENV{'SCRIPT_NAME'} |
|
284
|
5 |
0 |
2 |
$self->{'site'} and $self->{'cgi_site'} |
|
300
|
0 |
2 |
1 |
defined $self->protocol and $self->protocol ne "http" |
|
329
|
0 |
0 |
5 |
$self->{'site'} and $self->{'cgi_site'} |
|
483
|
68 |
94 |
0 |
defined $self->{'paramref'} and !defined($args{'allow'}) || defined $self->{'allow'} && $args{'allow'} eq $self->{'allow'} |
|
511
|
6 |
0 |
63 |
$ENV{'GATEWAY_INTERFACE'} && $ENV{'REQUEST_METHOD'} |
|
551
|
40 |
0 |
1 |
defined $content_type and $content_type =~ m[multipart/form-data]i |
|
565
|
0 |
14 |
0 |
$self->{'max_upload_size'} >= 0 and $content_length > $self->{'max_upload_size'} |
|
740
|
75 |
3 |
2 |
$self->{'expect'} and &List::MoreUtils::none(sub {
$_ eq $key;
}
, @{$$self{"expect"};}) |
|
782
|
65 |
1 |
5 |
$FORM{$key} and $FORM{$key} ne $value |
|
838
|
17 |
4 |
4 |
$self->{'allow'} and not exists $self->{'allow'}{$field} |
|
1065
|
4 |
9 |
0 |
defined $remote and $self->{'cache'} |
|
1079
|
11 |
0 |
2 |
defined $device && $device =~ /blackberry|webos|iphone|ipod|ipad|android/i |
|
1080
|
11 |
2 |
0 |
$is_mobile and $self->{'cache'} |
|
|
2 |
0 |
0 |
$is_mobile and $self->{'cache'} and defined $remote |
|
1103
|
1 |
3 |
1 |
$ENV{'HTTP_USER_AGENT'} and $ENV{'HTTP_USER_AGENT'} =~ /.+(iPad|TabletPC).+/ |
|
1141
|
0 |
27 |
1 |
$rc and $self->{'logger'} |
|
1158
|
18 |
1 |
2 |
$ENV{'SCRIPT_URI'} and $ENV{'SCRIPT_URI'} =~ m[^(.+)://.+] |
|
1161
|
16 |
1 |
2 |
$ENV{'SERVER_PROTOCOL'} and $ENV{'SERVER_PROTOCOL'} =~ m[^HTTP/] |
|
1231
|
5 |
6 |
4 |
$ENV{'C_DOCUMENT_ROOT'} and -d $ENV{'C_DOCUMENT_ROOT'} |
|
1233
|
2 |
0 |
2 |
-d $dir and -w $dir |
|
1237
|
0 |
0 |
2 |
-d $dir and -w $dir |
|
1241
|
5 |
5 |
1 |
$ENV{'DOCUMENT_ROOT'} and -d $ENV{'DOCUMENT_ROOT'} |
|
1243
|
0 |
0 |
1 |
-d $dir and -w $dir |
|
1265
|
8 |
1 |
0 |
$ENV{'C_DOCUMENT_ROOT'} and -d $ENV{'C_DOCUMENT_ROOT'} |
|
|
4 |
2 |
3 |
$ENV{'DOCUMENT_ROOT'} and -d $ENV{'DOCUMENT_ROOT'} |
|
1312
|
4 |
0 |
5 |
defined $rc and length $rc |
|
|
4 |
2 |
3 |
defined $rc and length $rc and -d $rc |
|
|
2 |
0 |
3 |
defined $rc and length $rc and -d $rc and -w $rc |
|
1346
|
6 |
1 |
9 |
$remote and $agent |
|
1413
|
0 |
0 |
0 |
defined $remote and $self->{'cache'} |
|
1428
|
2 |
1 |
1 |
defined $is_robot and $self->{'logger'} |
|
1431
|
2 |
0 |
2 |
defined $is_robot && $is_robot |
|
1476
|
7 |
1 |
11 |
$remote and $agent |
|
1485
|
0 |
0 |
0 |
defined $remote and $self->{'cache'} |
|
1509
|
5 |
5 |
1 |
not $is_search and $agent =~ m[SeznamBot/] |
|
1512
|
5 |
6 |
0 |
$is_search and $self->{'cache'} |
|
1521
|
0 |
0 |
0 |
defined $hostname and $hostname =~ /google|msnbot|bingbot|amazonbot/ |
|
|
0 |
0 |
0 |
defined $hostname and $hostname =~ /google|msnbot|bingbot|amazonbot/ and not $hostname =~ /^google-proxy/ |
|
1676
|
2 |
0 |
1 |
$method eq "POST" and not defined $ENV{'CONTENT_LENGTH'} |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
483
|
93 |
0 |
1 |
!defined($args{'allow'}) || defined $self->{'allow'} && $args{'allow'} eq $self->{'allow'} |
|
511
|
43 |
1 |
19 |
$ENV{'REQUEST_METHOD'} eq "GET" or $ENV{'REQUEST_METHOD'} eq "HEAD" |
|
573
|
3 |
0 |
11 |
not defined $content_type or $content_type =~ m[application/x-www-form-urlencoded] |
|
745
|
11 |
56 |
11 |
not defined $ENV{'REQUEST_METHOD'} or $ENV{'REQUEST_METHOD'} eq "GET" |
|
747
|
3 |
0 |
64 |
$value =~ /(\%27)|(\')|(\-\-)|(\%23)|(\#)/xi or $value =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i |
|
|
3 |
0 |
64 |
$value =~ /(\%27)|(\')|(\-\-)|(\%23)|(\#)/xi or $value =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i or $value =~ /\w*((\%27)|(\'))((\%6F)|o|(\%4F))((\%72)|r|(\%52))/xi |
|
|
0 |
0 |
64 |
$value =~ /(\%27)|(\')|(\-\-)|(\%23)|(\#)/xi or $value =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i or $value =~ /\w*((\%27)|(\'))((\%6F)|o|(\%4F))((\%72)|r|(\%52))/xi or $value =~ /((\%27)|(\'))union/xi |
|
|
0 |
0 |
64 |
$value =~ /(\%27)|(\')|(\-\-)|(\%23)|(\#)/xi or $value =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i or $value =~ /\w*((\%27)|(\'))((\%6F)|o|(\%4F))((\%72)|r|(\%52))/xi or $value =~ /((\%27)|(\'))union/xi or $value =~ /select[[a-z]\s\*]from/xi |
|
|
0 |
0 |
64 |
$value =~ /(\%27)|(\')|(\-\-)|(\%23)|(\#)/xi or $value =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i or $value =~ /\w*((\%27)|(\'))((\%6F)|o|(\%4F))((\%72)|r|(\%52))/xi or $value =~ /((\%27)|(\'))union/xi or $value =~ /select[[a-z]\s\*]from/xi or $value =~ /\sAND\s1=1/xi |
|
|
0 |
0 |
64 |
$value =~ /(\%27)|(\')|(\-\-)|(\%23)|(\#)/xi or $value =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i or $value =~ /\w*((\%27)|(\'))((\%6F)|o|(\%4F))((\%72)|r|(\%52))/xi or $value =~ /((\%27)|(\'))union/xi or $value =~ /select[[a-z]\s\*]from/xi or $value =~ /\sAND\s1=1/xi or $value =~ /exec(\s|\+)+(s|x)p\w+/xi |
|
764
|
0 |
0 |
64 |
$value =~ m[((\%3C)|<)((\%2F)|/)*[a-z0-9\%]+((\%3E)|>)]xi or $value =~ /((\%3C)|<)[^\n]+((\%3E)|>)/i |
|
1058
|
1 |
0 |
13 |
$agent =~ m[(android|bb\d+|meego).+mobile|avantgo|bada/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|mobile.+firefox|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows ce|xda|xiino]i or substr($ENV{'HTTP_USER_AGENT'}, 0, 4) =~ m[1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-]i |
|
1317
|
0 |
0 |
3 |
not defined $dir or length $dir == 0 |
|
1318
|
1 |
2 |
0 |
$self->{'logdir'} ||= $dir |
|
1400
|
1 |
1 |
0 |
$referrer =~ /\)/ or &List::MoreUtils::any(sub {
$_ =~ /^$referrer/;
}
, @crawler_lists) |
|
1508
|
0 |
2 |
6 |
$browser->google || $browser->msn || $browser->baidu || $browser->altavista || $browser->yahoo || $browser->bingbot |
|
1519
|
0 |
0 |
0 |
gethostbyaddr(inet_aton($remote), 2) || $remote |
|
1676
|
0 |
1 |
3 |
$method eq "OPTIONS" or $method eq "DELETE" |