| line |
true |
false |
branch |
|
72
|
0 |
0 |
if -d $$self{'output_dir'} or not $$self{'mkdir'} |
|
73
|
0 |
0 |
unless mkdir $$self{'output_dir'}, $$self{'mkdir'} |
|
82
|
0 |
0 |
unless opendir DIRECTORY, $dir |
|
84
|
0 |
0 |
if $file =~ /^\.\.?$/ |
|
86
|
0 |
0 |
if (my($f) = $path =~ /^(.+)$/) |
|
87
|
0 |
0 |
unless unlink $f |
|
91
|
0 |
0 |
unless rmdir $dir |
|
100
|
0 |
0 |
$$self{'types_action'} eq 'include' ? : |
|
107
|
0 |
0 |
if exists $$self{'exclude_types'} and scalar @{$$self{'exclude_types'};} |
|
108
|
0 |
0 |
if (scalar @{$$self{'content_types'};}) |
|
114
|
0 |
0 |
$$last[0] ? : |
|
116
|
0 |
0 |
if (defined $fh_tmp) |
|
137
|
0 |
0 |
if defined $fh_tmp |
|
138
|
0 |
0 |
if ($header) |
|
140
|
0 |
0 |
if (not $mbox and $base eq '0' and /$patterns[4]/o) |
|
141
|
0 |
0 |
if (exists $_[0]{$tree}{$key}) { } |
|
|
0 |
0 |
elsif (/$patterns[6]/o) { } |
|
143
|
0 |
0 |
if (s/$patterns[5]/ /o) |
|
145
|
0 |
0 |
if (ref $_[0]{$tree}{$key} eq 'ARRAY') |
|
149
|
0 |
0 |
if (ref $_[0]{$tree}{$key} eq 'HASH') { } |
|
151
|
0 |
0 |
if $key eq 'subject' and $_[0]{$tree}{$key} =~ /\?\=$/o |
|
156
|
0 |
0 |
if (exists $h_hash{$key} and exists $_[0]{$tree}{$key}{'value'}) { } |
|
|
0 |
0 |
elsif ($key eq 'subject' and $$args{'decode_subject'}) { } |
|
161
|
0 |
0 |
unless $$_[0] |
|
162
|
0 |
0 |
unless $$_[1] |
|
166
|
0 |
0 |
if (/$patterns[1]/o) |
|
167
|
0 |
0 |
if defined $fh |
|
170
|
0 |
0 |
if ($key eq 'received' or $key eq 'x-received') |
|
174
|
0 |
0 |
unless (exists $_[0]{$tree}{$key}) |
|
175
|
0 |
0 |
exists $h_hash{$key} ? : |
|
179
|
0 |
0 |
if not $checkhdr and length $_ <= 2 and /$patterns[2]/o |
|
181
|
0 |
0 |
if (exists $_[0]{$tree}{'content-type'} and exists $_[0]{$tree}{'content-type'}{'value'}) |
|
183
|
0 |
0 |
if (exists $_[0]{$tree}{'content-type'}{'boundary'} and $_[0]{$tree}{'content-type'}{'value'} =~ m[multipart/\w+]o) { } |
|
|
0 |
0 |
elsif ($_[0]{$tree}{'content-type'}{'value'} eq 'message/rfc822') { } |
|
185
|
0 |
0 |
if ($$res[1]) { } |
|
186
|
0 |
0 |
$mbox ? : |
|
191
|
0 |
0 |
if ($$res[1]) { } |
|
192
|
0 |
0 |
$mbox ? : |
|
200
|
0 |
0 |
unless defined $_ |
|
201
|
0 |
0 |
if (/$patterns[3]/o) |
|
203
|
0 |
0 |
$$args{'output_dir'} ? : |
|
211
|
0 |
0 |
unless $$res[1] |
|
216
|
0 |
0 |
unless (defined $fh) |
|
218
|
0 |
0 |
if (exists $_[0]{$tree}{'content-type'} and exists $_[0]{$tree}{'content-type'}{'value'}) { } |
|
219
|
0 |
0 |
if $_[0]{$tree}{'content-type'}{'value'} =~ m[^multipart/\w+$]o or $_[0]{$tree}{'content-type'}{'value'} eq 'message/rfc822' |
|
221
|
0 |
0 |
unless ($exclude) |
|
222
|
0 |
0 |
if (exists $_[0]{$tree}{'content-transfer-encoding'} and exists $_[0]{$tree}{'content-transfer-encoding'}{'value'}) |
|
225
|
0 |
0 |
if ($_[0]{$tree}{'content-transfer-encoding'}{'value'} eq 'base64' or $_[0]{$tree}{'content-transfer-encoding'}{'value'} eq 'quoted-printable' and $boundary) |
|
228
|
0 |
0 |
$$args{'output_dir'} ? : |
|
229
|
0 |
0 |
$boundary ? : |
|
240
|
0 |
0 |
if $$res[1] |
|
241
|
0 |
0 |
unless $$res[2] |
|
243
|
0 |
0 |
unless ($_ = $$res[0]) |
|
247
|
0 |
0 |
if ($mbox and /$patterns[4]/o and scalar @{[split(/\./o, $tree, 0)];} > 2) |
|
255
|
0 |
0 |
if ($mbox and /$patterns[4]/o) |
|
256
|
0 |
0 |
if (scalar @{[split(/\./o, $tree, 0)];} > 2) { } |
|
258
|
0 |
0 |
$boundary ? : |
|
260
|
0 |
0 |
if defined $fh |
|
267
|
0 |
0 |
length $_ <= 2 && /$patterns[2]/o ? : |
|
268
|
0 |
0 |
unless defined $fh or not $tmp |
|
269
|
0 |
0 |
if ($boundary) |
|
270
|
0 |
0 |
if (index($_, "--$boundary--") >= 0) |
|
271
|
0 |
0 |
if defined $fh |
|
272
|
0 |
0 |
if ($mbox and scalar @{[split(/\./o, $tree, 0)];} == 2) { } |
|
278
|
0 |
0 |
if (index($_, "--$boundary") >= 0) |
|
279
|
0 |
0 |
if defined $fh |
|
282
|
0 |
0 |
if ($ph) |
|
283
|
0 |
0 |
if $_[0]{$base}{'content-type'}{'value'} eq 'message/rfc822' |
|
291
|
0 |
0 |
unless not $exclude and $ph |
|
292
|
0 |
0 |
if ($check_ctype and $$args{'check_ctype'}) |
|
294
|
0 |
0 |
if (length $tmpbuff > 64) |
|
296
|
0 |
0 |
if (my $ct = set_content_type($tmpbuff, $_[0]{$tree}{'content-type'}{'value'})) |
|
301
|
0 |
0 |
$$args{'types_action'} ? : |
|
|
0 |
0 |
$$args{'types_action'} ? : |
|
|
0 |
0 |
$$args{'types_action'} ? : |
|
|
0 |
0 |
scalar keys %{$$args{'ctypes'};} ? : |
|
|
0 |
0 |
exists $$args{'ctypes'}{$_[0]{$tree}{'content-type'}{'value'}} ? : |
|
|
0 |
0 |
if ($exclude = exists $$args{'ctypes'}{$_[0]{$tree}{'content-type'}{'value'}} ? $$args{'types_action'} ? 0 : 1 : (scalar keys %{$$args{'ctypes'};} ? $$args{'types_action'} ? 1 : 0 : ($$args{'types_action'} ? 0 : 1))) |
|
303
|
0 |
0 |
if (defined $fh) |
|
312
|
0 |
0 |
unless (defined $fh) |
|
314
|
0 |
0 |
$$args{'output_dir'} ? : |
|
317
|
0 |
0 |
if defined $fh |
|
320
|
0 |
0 |
if (defined $fh) |
|
321
|
0 |
0 |
if (not $ftmp and length $_ <= 2 and /$patterns[2]/o) |
|
325
|
0 |
0 |
if ($ftmp) |
|
329
|
0 |
0 |
$_[0]{$tree}{'content-transfer-encoding'}{'value'} eq 'quoted-printable' ? : |
|
330
|
0 |
0 |
unless exists $_[0]{$tree}{'content-length'} |
|
331
|
0 |
0 |
if (($ctlength += length $_) >= $_[0]{$tree}{'content-length'}) |
|
332
|
0 |
0 |
if defined $fh |
|
338
|
0 |
0 |
if defined $fh |
|
351
|
0 |
0 |
if ($path =~ /^(.+)$/) |
|
352
|
0 |
0 |
unless open FILE, ">$path" |
|
362
|
0 |
0 |
if /$patterns[0]/o |
|
371
|
0 |
0 |
if (exists $$h{'content-disposition'}{'filename'}) { } |
|
|
0 |
0 |
elsif (exists $$h{'content-type'}{'name'}) { } |
|
|
0 |
0 |
elsif (exists $$h{'content-type'}{'value'}) { } |
|
381
|
0 |
0 |
unless exists $$h{'content-transfer-encoding'}{'value'} |