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 |