| line |
true |
false |
branch |
|
60
|
0 |
0 |
unless $zip->writeToFileNamed($zipfile) == 0 |
|
82
|
0 |
0 |
unless $zip->writeToFileNamed($zipfile) == 0 |
|
94
|
0 |
0 |
unless ($zipname =~ /^([^.]+)\.(.+)\.out\.zip$/) |
|
100
|
0 |
0 |
if ($zip->read($zipfile) != 0) |
|
107
|
0 |
0 |
unless (defined $doc_member) |
|
110
|
0 |
0 |
unless (defined $doc_member) |
|
113
|
0 |
0 |
unless (defined $doc_member and defined $idx_member) |
|
120
|
0 |
0 |
if (defined $outdir) |
|
125
|
0 |
0 |
if ($zip->extractMember($doc_member, $doc_path) != 0) |
|
129
|
0 |
0 |
if ($zip->extractMember($idx_member, $idx_path) != 0) |
|
149
|
0 |
0 |
if (defined $outdir) |
|
151
|
0 |
0 |
unless chdir $outdir |
|
156
|
0 |
0 |
if ($doc =~ /pdf$/i) { } |
|
177
|
0 |
0 |
if ($rv != 0) |
|
184
|
0 |
0 |
unless move($doc, $cible) |
|
188
|
0 |
0 |
if ($format eq 'DOCUBASE') { } |
|
|
0 |
0 |
elsif ($format eq 'SCOPMASTER') { } |
|
196
|
0 |
0 |
if ($$cfg{'EDTK_TYPE_ENV'} ne 'Test') |
|
197
|
0 |
0 |
if $doc =~ /pdf$/i |
|
202
|
0 |
0 |
if (defined $outdir) |
|
217
|
0 |
0 |
unless my $ftp = 'Net::FTP'->new($$cfg{'EDMS_FTP_HOST'}, 'Port', $$cfg{'EDMS_FTP_PORT'}) |
|
219
|
0 |
0 |
unless $ftp->login($$cfg{'EDMS_FTP_USER'}, $$cfg{'EDMS_FTP_PASS'}) |
|
221
|
0 |
0 |
unless $ftp->binary |
|
223
|
0 |
0 |
unless $ftp->cwd($$cfg{'EDMS_FTP_DIR_DOCS'}) |
|
230
|
0 |
0 |
unless $ftp->put($doc) |
|
234
|
0 |
0 |
unless $ftp->cwd |
|
236
|
0 |
0 |
unless $ftp->cwd($$cfg{'EDMS_FTP_DIR_IDX'}) |
|
238
|
0 |
0 |
unless $ftp->put($index) |
|
250
|
0 |
0 |
unless open my $fh, '<', $idx |
|
260
|
0 |
0 |
if ($$vals{'ED_SEQDOC'} != $lastdoc) { } |
|
261
|
0 |
0 |
if ($lastdoc != 0) |
|
278
|
0 |
0 |
if $$vals{$_} |
|
286
|
0 |
0 |
if ($lastdoc != 0) |
|
312
|
0 |
0 |
unless open my $fh, '>', $edmsidx |
|
320
|
0 |
0 |
if ($$vals{'ED_DOCLIB'} =~ /pdf$/i) { } |
|
329
|
0 |
0 |
unless ($$vals{'ED_DTEDTION'} =~ /^(\d{4})(\d{2})(\d{2})$/) |
|
337
|
0 |
0 |
if ($$vals{'ED_IDEMET'} =~ /^\D{1}\d{3}/) { } |
|
365
|
0 |
0 |
unless open my $fh, '>', $xmlfile |
|
372
|
0 |
0 |
if ($pagenum == 1) |
|
395
|
0 |
0 |
unless $numpgs > 1 |
|
402
|
0 |
0 |
if (defined $$cfg{'EDMS_BIN_GS'} and $$cfg{'EDMS_BIN_GS'} ne '') { } |
|
405
|
0 |
0 |
if ($gs != 0) |
|
410
|
0 |
0 |
if ($rv != 0) |
|
434
|
0 |
0 |
if (not defined $$refOpt{'ED_REFIDDOC'} or $$refOpt{'ED_REFIDDOC'} eq '') |
|
437
|
0 |
0 |
if (not defined $$refOpt{'ED_SOURCE'} or $$refOpt{'ED_SOURCE'} eq '') |
|
440
|
0 |
0 |
if (not defined $$refOpt{'ED_IDDEST'} or $$refOpt{'ED_IDDEST'} eq '') |
|
443
|
0 |
0 |
if (not defined $$refOpt{'ED_NOMDEST'} or $$refOpt{'ED_NOMDEST'} eq '') |
|
446
|
0 |
0 |
if (not defined $$refOpt{'ED_IDEMET'} or $$refOpt{'ED_IDEMET'} eq '') |
|
449
|
0 |
0 |
if (not defined $$refOpt{'ED_OWNER'} or $$refOpt{'ED_OWNER'} eq '') |
|
452
|
0 |
0 |
if (not defined $$refOpt{'ED_CORP'} or $$refOpt{'ED_CORP'} eq '') |
|
463
|
0 |
0 |
if (not defined $$refOpt{'ED_DTEDTION'} && $$refOpt{'ED_DTEDTION'} =~ /^(\d{4})(\d{2})(\d{2})$/) { } |
|
499
|
0 |
0 |
unless open my $fh, ">>$index" |