line |
true |
false |
branch |
70
|
74 |
0 |
unless $class |
121
|
0 |
0 |
if $$self{'CFG'}{'tmp_clear'} |
131
|
0 |
0 |
if 1 < rand 100 |
141
|
0 |
0 |
if length $$self{'tmp_dir'} < 4 |
144
|
0 |
0 |
if length $$self{'tmp_suffix'} < 4 |
148
|
0 |
0 |
if ($file =~ /$$self{'tmp_suffix'}$/) |
150
|
0 |
0 |
unless $file =~ /tmp/ |
152
|
0 |
0 |
if time - $last_mod > $$self{'expired'} |
165
|
0 |
0 |
unless (-d $$self{'tmp_dir'}) |
170
|
0 |
0 |
unless -d $dir |
171
|
0 |
0 |
unless (-d $dir) |
178
|
0 |
0 |
unless open my $fh, '>>', $$self{'file'} |
188
|
0 |
0 |
unless -e $$self{'file'} |
190
|
0 |
0 |
unless open my $fh, '<', $$self{'file'} |
202
|
0 |
0 |
unless -e $$self{'file'} |
204
|
0 |
0 |
unless open my $fh, '>', $$self{'file'} |
205
|
0 |
0 |
if $data |
216
|
0 |
0 |
if $ENV{'HTTP_X_REMOTE_ADDR'} and !$remote || $remote =~ /^(127|192)\./ |
448
|
0 |
0 |
if $name |
457
|
0 |
0 |
if $class |
487
|
0 |
0 |
if $cookie =~ /_delete$/ |
490
|
0 |
0 |
unless $cookie =~ /_delete$/ |
500
|
1 |
0 |
unless $$self{'c_get'}{$name} |
501
|
0 |
0 |
unless $pass |
518
|
0 |
0 |
unless $pass |
530
|
0 |
0 |
unless $path |
533
|
0 |
0 |
if $domain |
541
|
0 |
0 |
unless $path |
554
|
2 |
0 |
unless $ENV{'HTTP_COOKIE'} |
559
|
0 |
0 |
unless $value |
560
|
0 |
0 |
if $value eq 'deleted' |
615
|
1 |
0 |
unless $$self{'sess'} |
619
|
0 |
0 |
if time > $expire |
620
|
0 |
0 |
if $session_name ne $$self{'session_prefix'} |
631
|
0 |
0 |
unless $pass |
647
|
0 |
0 |
unless $$self{'user'} |
670
|
1 |
0 |
unless $clength or $ENV{'QUERY_STRING'} |
673
|
0 |
0 |
if $$self{'top_container'}{'php_wrapper'} and $clength > $$self{'CFG'}{'tmp_upload'} * 1024 and $$self{'CFG'}{'tmp_upload'} |
680
|
0 |
0 |
if $$self{'save_buffer'} |
681
|
0 |
0 |
if $$self{'top_container'}{'php_wrapper'} |
720
|
0 |
0 |
unless $fh |
776
|
0 |
0 |
unless $$self{'CGI'} |
778
|
0 |
0 |
if ($ENV{'REQUEST_METHOD'} ne 'GET') |
779
|
0 |
0 |
if $$self{'CGI'}->raw_saved(\$buffer, 8192) |
788
|
0 |
0 |
unless $$self{'CGI'} |
790
|
0 |
0 |
if ($ENV{'REQUEST_METHOD'} ne 'GET') |
840
|
1 |
0 |
if $file |
858
|
0 |
1 |
if $$self{'file'} =~ /php$/i |
905
|
1 |
0 |
if ($this_dir =~ m[^/]) { } |
917
|
1 |
0 |
if ($file_path =~ m[^([-\@\w.\\/]+)$]) |
962
|
7 |
31 |
if ref $$self{'CFG'}{$key} eq 'ARRAY' |
963
|
1 |
37 |
if ref $$self{'CFG'}{$key} eq 'HASH' |
973
|
0 |
0 |
if $ENV{'HTTP_X_REMOTE_ADDR'} and !$ENV{'REMOTE_ADDR'} || $ENV{'REMOTE_ADDR'} =~ /^(127|192|169|10)\./ |
1040
|
0 |
1 |
unless $$self{'top_container'}{'max_inter'}-- |
1071
|
1 |
8 |
if $$self{'souce_types'}{$type} =~ /[\,\s]?${extension}[\,\s]?/i |
1074
|
1 |
0 |
if ($$self{'type'} eq 'html') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'nsql') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'php') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'perl') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'txt') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'bash') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'python') { } |
|
0 |
0 |
elsif ($$self{'type'} eq 'js') { } |
1108
|
1 |
0 |
if (open my $fh, '<', "$$self{'file_name'}") { } |
1173
|
1 |
0 |
if $$self{'file_souce'}[0] =~ /{:\s*NES/i or '' |
1179
|
1 |
0 |
if ($param[0]) |
1191
|
0 |
1 |
unless $script |
1192
|
0 |
1 |
if $script eq 'none' |
1224
|
0 |
0 |
unless ($$self{'content_obj'}{'is_binary'}) |
1324
|
0 |
0 |
if ($self_file eq $top_file) |
1347
|
0 |
0 |
if ($self_file eq $top_file) |
1370
|
0 |
0 |
if ($script eq 'none') |
1377
|
0 |
0 |
if ($script) |
1396
|
0 |
0 |
unless $$self{'top_container'}{'in_inc'}{$script_dir} |
1400
|
0 |
0 |
unless ($return) |
1403
|
0 |
0 |
if $@ =~ /ModPerl::Util::exit/ |
1405
|
0 |
0 |
if $@ |
1406
|
0 |
0 |
unless defined $return |
1407
|
0 |
0 |
unless $return |
1427
|
0 |
0 |
unless $status |
1517
|
0 |
0 |
if @{$$self{'file_script'};} |
1526
|
0 |
0 |
if defined $old_fh |
1557
|
0 |
0 |
if @{$$self{'file_script'};} |
1559
|
0 |
0 |
if ($main::MOD_PERL) { } |
1612
|
0 |
0 |
if $$self{'file_name'} eq $$self{'top_container'}{'file'} |
1623
|
0 |
0 |
unless $$self{'php_wrapper'} |
1626
|
0 |
0 |
if $$self{'php_wrapper'} |
1628
|
0 |
0 |
if ($$self{'php_wrapper'} or $main::MOD_PERL) |
1639
|
0 |
0 |
if ($main::MOD_PERL) { } |
1648
|
0 |
0 |
if ($$self{'php_wrapper'}) { } |
1649
|
0 |
0 |
if ($ENV{'REQUEST_METHOD'} ne 'GET') |
1650
|
0 |
0 |
if ($$self{'query'}{'save_buffer'}) { } |
1669
|
0 |
0 |
if $error |
1680
|
0 |
0 |
if ($$self{'php_wrapper'}) { } |
1681
|
0 |
0 |
if ($ENV{'REQUEST_METHOD'} ne 'GET') |
1682
|
0 |
0 |
if ($$self{'query'}{'save_buffer'}) { } |
1705
|
0 |
0 |
if ($$self{'php_wrapper'}) |
1708
|
0 |
0 |
unless $$self{'is_binary'} |
1722
|
0 |
0 |
unless $$self{'TAG_HTTP-headers'} |
1752
|
0 |
0 |
if @{$$self{'file_script'};} |
1757
|
0 |
0 |
if ($main::MOD_PERL) { } |
1863
|
2 |
1 |
if $out |
2037
|
0 |
3 |
unless $params |
2061
|
3 |
0 |
if $this |
2062
|
3 |
0 |
if $this |
2064
|
3 |
0 |
unless ($skip_inclusion) |
2065
|
0 |
3 |
if ($this =~ /$$self{'pre_start'}/) |
2069
|
0 |
3 |
if ($this =~ /$$self{'tag_start'}/) |
2087
|
0 |
2 |
if ($tag =~ /^$$self{'tag_expre'}$/) { } |
|
0 |
2 |
elsif ($tag =~ /^$$self{'tag_tpl'}$/) { } |
|
0 |
2 |
elsif ($tag =~ /^$$self{'tag_sql'}$/) { } |
|
0 |
2 |
elsif ($tag =~ /^$$self{'tag_hash'}$/) { } |
|
0 |
2 |
elsif ($tag =~ /^$$self{'tag_include'}$/) { } |
|
2 |
0 |
elsif ($tag =~ /^$$self{'tag_var'}$/) { } |
|
0 |
0 |
elsif ($tag =~ /^$$self{'tag_env'}$/) { } |
|
0 |
0 |
elsif ($tag =~ /^$$self{'tag_plugin'}$/) { } |
2136
|
0 |
2 |
if $value =~ /^\d*$/ |
2146
|
0 |
0 |
if ($key =~ /^yes_tag_(.*)/) { } |
2149
|
0 |
0 |
if $key =~ /^yes_/i |
2154
|
2 |
0 |
unless $$self{'security_options'}{'no_br'} |
2156
|
0 |
2 |
if $$self{'security_options'}{'no_sql'} |
2157
|
2 |
0 |
if $$self{'security_options'}{'no_nes'} |
2158
|
2 |
0 |
if $$self{'security_options'}{'no_html'} |
2172
|
0 |
1 |
if !$block =~ /$$self{'tag_start'}\s*$$self{'tag_nes'}/ |
2212
|
0 |
0 |
if ($tag =~ /^:-:var:-:$/) |
2214
|
0 |
0 |
if (defined $$self{'tags'}{$var}) { } |
2224
|
0 |
0 |
if ($tag =~ /^:-:env:-:$/) |
2226
|
0 |
0 |
if (defined $$self{'top_container'}{'nes_env'}{$var}) { } |
2238
|
0 |
0 |
if eval $expre |
2252
|
0 |
0 |
unless ($file) |
2289
|
0 |
0 |
if ($name_hash =~ /$$self{'tag_field'}/) |
2311
|
0 |
0 |
unless $sql =~ /^SELECT/ |
2318
|
0 |
0 |
if ($sql =~ /$$self{'pre_start'}/) |
2333
|
0 |
0 |
if ($$self{'container'}{'type'} eq 'nsql') |
2399
|
0 |
0 |
if $var =~ /^q_/ |
2400
|
0 |
0 |
if $var =~ /^q_/ |
2418
|
0 |
0 |
if ($tag =~ /^$tag_plugin$/i) |
2420
|
0 |
0 |
unless ($handler) |
2549
|
0 |
2 |
unless $value |
2557
|
0 |
2 |
if (not $tags) { } |
2570
|
0 |
2 |
unless $value |
2602
|
0 |
0 |
if ($main::MOD_PERL2) |
2610
|
0 |
0 |
if ($main::MOD_PERL1) |
2623
|
0 |
0 |
if $ref eq 'SCALAR' or $ref eq 'REF' |
2624
|
0 |
0 |
if $ref eq 'HASH' |
2625
|
0 |
0 |
if $ref eq 'ARRAY' |