| line |
true |
false |
branch |
|
60
|
0 |
1 |
if (@_) |
|
87
|
0 |
0 |
if (@_) |
|
101
|
0 |
0 |
if ($x != 0) { } |
|
107
|
0 |
0 |
if $nb > $x |
|
120
|
1 |
16 |
if (@_) |
|
131
|
1 |
0 |
if ($url =~ m[^(http://[^/]*)]) { } |
|
|
0 |
0 |
elsif ($url =~ m[^(http://[^/]*)]) { } |
|
|
0 |
0 |
elsif ($url =~ m[^(file:///[^/]*)]) { } |
|
142
|
0 |
0 |
if (@_) |
|
153
|
0 |
0 |
if ($$rc{'cgi'} and $$rc{'cgi'}->param('file')) |
|
156
|
0 |
0 |
if ($file =~ /.*\\(.*)$/) |
|
159
|
0 |
0 |
unless copy($tmpfile, $file) |
|
162
|
0 |
0 |
unless ($$rc{'email'}) |
|
163
|
0 |
0 |
unless ($$rc{'titre'}) |
|
164
|
0 |
0 |
unless ($$rc{'categorieAuto'}) |
|
173
|
0 |
0 |
unless $sth->execute |
|
181
|
0 |
0 |
if ($$rc{'orig'}) |
|
199
|
0 |
0 |
if $$self{'DEBUG'} |
|
217
|
0 |
0 |
if ($res == -1) { } |
|
229
|
0 |
0 |
unless $idp |
|
248
|
0 |
0 |
if ($res == -1) { } |
|
271
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
279
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
287
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
298
|
0 |
0 |
if ($sth->execute) { } |
|
300
|
0 |
0 |
if $row[0] |
|
303
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . 'responsable') |
|
305
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . 'inscription') |
|
307
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . 'local_url') |
|
319
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . $id . 'categorie') |
|
321
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . $id . 'links') |
|
323
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . $id . 'relation') |
|
325
|
0 |
0 |
unless $$self{'DBH'}->do('drop table ' . $self->pre_tbl . $id . 'stats') |
|
327
|
0 |
0 |
unless $$self{'DBH'}->do('delete from ' . $self->pre_tbl . "local_url where id=$id") |
|
330
|
0 |
0 |
unless $$self{'DBH'}->do('delete from ' . $self->pre_tbl . "responsable where id=$id") |
|
351
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
376
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
385
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
393
|
0 |
0 |
unless $$self{'DBH'}->do($requete) |
|
402
|
0 |
0 |
unless ($path) |
|
403
|
0 |
0 |
unless ($path) |
|
405
|
0 |
0 |
if $id |
|
409
|
0 |
0 |
if (not -w $path or -e $file and not -w $file) |
|
411
|
0 |
0 |
unless ($dump and -x $dump) |
|
413
|
0 |
0 |
if (-x $_ . '/mysqldump') |
|
416
|
0 |
0 |
unless ($dump and -x $dump) |
|
419
|
0 |
0 |
if (-e $file and not unlink($file)) |
|
424
|
0 |
0 |
if (not $id) { } |
|
426
|
0 |
0 |
if $id |
|
434
|
0 |
0 |
if ($$self{'_PASSWORD'}) { } |
|
437
|
0 |
0 |
if ($$self{'_HOST'}) { } |
|
441
|
0 |
0 |
if (not $id) { } |
|
467
|
0 |
0 |
unless system($_) == 0 |
|
480
|
0 |
0 |
unless ($path) |
|
481
|
0 |
0 |
unless ($path) |
|
483
|
0 |
0 |
unless (-r $file) |
|
484
|
0 |
0 |
unless ($dump and -x $dump) |
|
486
|
0 |
0 |
if (-x $_ . '/mysql') |
|
489
|
0 |
0 |
unless ($dump and -x $dump) |
|
495
|
0 |
0 |
if $$self{'_PASSWORD'} |
|
496
|
0 |
0 |
if $$self{'_HOST'} |
|
498
|
0 |
0 |
unless system($c) == 0 |
|
514
|
0 |
0 |
unless ($rep{'responsable'}) |
|
517
|
0 |
0 |
if ($rep{'racine'}) |
|
557
|
0 |
0 |
unless $id |
|
630
|
0 |
0 |
if ($l > 80) |
|
671
|
0 |
0 |
if ($sth->execute) { } |
|
694
|
0 |
0 |
unless $sth->execute |
|
708
|
0 |
0 |
unless $sth->execute |