| line |
true |
false |
branch |
|
47
|
0 |
0 |
ref $unknown ? : |
|
65
|
0 |
0 |
if (defined $$self{'debug'}) { } |
|
81
|
0 |
0 |
if ($status =~ /(off|0|disable)/i) { } |
|
92
|
0 |
0 |
if ($mode =~ /(1tom|1to1)/i) |
|
104
|
0 |
0 |
unless (-e $emlf) |
|
137
|
0 |
0 |
unless ($sender_list and $rpient_list) |
|
152
|
0 |
0 |
if $mail_count =~ /^\d+$/ |
|
153
|
0 |
0 |
if $mail_count == 0 |
|
156
|
0 |
0 |
if $mail_mode =~ /1tom/i |
|
167
|
0 |
0 |
if $mail_mode =~ /1to1/i |
|
169
|
0 |
0 |
if ($org =~ /\.eml$/i) { } |
|
170
|
0 |
0 |
unless open INPUT, $org |
|
181
|
0 |
0 |
unless my $msg = 'MIME::Lite'->new('From', $mSender, 'To', $mRecepient, 'Subject', "${mail_subject}: $mail_mode " . $gCOUNT, 'Type', 'multipart/mixed') |
|
193
|
0 |
0 |
unless $msg->attach('Type', 'TEXT', 'Data', $mail_text_bd) |
|
198
|
0 |
0 |
unless $msg->attach('Type', $gMediaTypes{$ext}, 'Path', $org, 'Filename', $org, 'Disposition', 'attachment') |
|
208
|
0 |
0 |
if ($$self{'mail_count'} == $gCOUNT) |
|
214
|
0 |
0 |
if $mail_mode =~ /1to1/i |
|
219
|
0 |
0 |
if $mail_mode =~ /1tom/i and $socketClosed != 1 |
|
239
|
0 |
0 |
unless ($sender_list and $rpient_list and $mail_body) |
|
249
|
0 |
0 |
if $mail_count =~ /^\d+$/ |
|
250
|
0 |
0 |
if $mail_count == 0 |
|
253
|
0 |
0 |
if $mail_mode =~ /1tom/i |
|
262
|
0 |
0 |
if $mail_mode =~ /1to1/i |
|
267
|
0 |
0 |
if ($$self{'mail_count'} == $gCOUNT) |
|
273
|
0 |
0 |
if $mail_mode =~ /1to1/i |
|
279
|
0 |
0 |
if $mail_mode =~ /1tom/i and $socketClosed != 1 |
|
299
|
0 |
0 |
unless ($recv_data =~ /^250/) |
|
308
|
0 |
0 |
unless ($recv_data =~ /^250/) |
|
317
|
0 |
0 |
unless ($recv_data =~ /^354/) |
|
325
|
0 |
0 |
unless ($recv_data =~ /^250/) |
|
339
|
0 |
0 |
unless my $mail_socket = 'IO::Socket::INET'->new('PeerAddr', $mail_host, 'PeerPort', $mail_port, 'Proto', 'tcp') |
|
348
|
0 |
0 |
if $debug |
|
353
|
0 |
0 |
unless ($recv_data =~ /^250/) |
|
368
|
0 |
0 |
unless ($recv_data =~ /^221/) |
|
383
|
0 |
0 |
if $debug |
|
391
|
0 |
0 |
if (-e "$_/LWP/media.types") |
|
400
|
0 |
0 |
if $_ =~ /^#/ |
|
404
|
0 |
0 |
if scalar @part < 2 |