| line |
true |
false |
branch |
|
112
|
5 |
0 |
if ($self->param('TMPL_PATH')) |
|
167
|
2 |
1 |
if grep {$rm eq $_;} @free_modes |
|
170
|
1 |
0 |
if (not $self->session->param('loggedin')) |
|
182
|
0 |
0 |
unless defined $path |
|
183
|
0 |
0 |
if $path =~ /\.\./ |
|
184
|
0 |
0 |
if ($path =~ m[^([\w./-]+)$]) |
|
195
|
0 |
0 |
unless defined $filename |
|
197
|
0 |
0 |
if $filename =~ /\.\./ |
|
198
|
0 |
0 |
if ($filename =~ /^([\w.-]+)$/) |
|
230
|
2 |
0 |
if ($self->param('TMPL_PATH')) { } |
|
236
|
0 |
0 |
unless $template |
|
261
|
0 |
0 |
if $message |
|
296
|
0 |
0 |
unless ($q->param('username') and $q->param('password')) |
|
301
|
0 |
0 |
if ($auth->verify($q->param('username'), $q->param('password'))) { } |
|
367
|
0 |
0 |
unless (defined $dir) |
|
374
|
0 |
0 |
if ($dir eq '..') { } |
|
376
|
0 |
0 |
if ($workdir eq '') { } |
|
389
|
0 |
0 |
if ($dir =~ /\.\./) |
|
393
|
0 |
0 |
if ($dir =~ /^([\w.-]+)$/) { } |
|
397
|
0 |
0 |
if (-d $path) { } |
|
458
|
0 |
0 |
if (opendir my $dh, $path) |
|
459
|
0 |
0 |
if $_ ne '.' |
|
460
|
0 |
0 |
if ($workdir ne '' and $workdir ne '/') |
|
467
|
0 |
0 |
$full =~ /\.zip/i ? : |
|
|
0 |
0 |
$f eq '..' ? : |
|
|
0 |
0 |
$f eq '..' ? : |
|
492
|
0 |
0 |
if -d $file |
|
493
|
0 |
0 |
if -f $file |
|
499
|
0 |
0 |
if -d $file |
|
500
|
0 |
0 |
if -f $file |
|
506
|
0 |
0 |
if -d $file |
|
507
|
0 |
0 |
if -f $file |
|
524
|
0 |
0 |
unless ($filename) |
|
550
|
0 |
0 |
unless ($dir) |
|
575
|
0 |
0 |
unless $filename =~ /\.zip/i |
|
577
|
0 |
0 |
unless ($filename) |
|
586
|
0 |
0 |
unless (-e $filename) |
|
619
|
0 |
0 |
if (-e $new) |
|
638
|
0 |
0 |
unless ($old) |
|
647
|
0 |
0 |
unless (-e $old) |
|
655
|
0 |
0 |
if ($new eq '..') |
|
656
|
0 |
0 |
if ($workdir eq '') { } |
|
667
|
0 |
0 |
unless ($new) |
|
673
|
0 |
0 |
if (-d $new) |
|
696
|
0 |
0 |
if (ref $in ne 'IO::File') |
|
701
|
0 |
0 |
if ($file_name =~ /\.\./) |
|
705
|
0 |
0 |
if ($file_name =~ /^([\w.-]+)$/) { } |
|
707
|
0 |
0 |
if (open my $out, '>', 'File::Spec'->catfile($homedir, $workdir, $file_name)) { } |
|
737
|
0 |
0 |
unless ($dir) |