| line |
true |
false |
branch |
|
62
|
0 |
0 |
if (defined $_[1]) |
|
76
|
0 |
0 |
if (not defined $args{'zconf'}) { } |
|
78
|
0 |
0 |
if ($$self{'zconf'}->error) |
|
94
|
0 |
0 |
if ($$self{'zconf'}->configExists('mail')) |
|
97
|
0 |
0 |
if ($$self{'zconf'}->error) |
|
163
|
0 |
0 |
if ($self->error) |
|
172
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
183
|
0 |
0 |
unless (defined $matched[0]) |
|
209
|
0 |
0 |
if ($self->error) |
|
217
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
232
|
0 |
0 |
unless (defined $avars{$$self{'required'}{'imap'}[$requiredInt]}) |
|
245
|
0 |
0 |
if (not $avars{'useSSL'}) { } |
|
264
|
0 |
0 |
unless ($imap) |
|
293
|
0 |
0 |
if ($self->error) |
|
301
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
316
|
0 |
0 |
unless (defined $avars{$$self{'required'}{'maildir'}[$requiredInt]}) |
|
330
|
0 |
0 |
unless ($maildir) |
|
358
|
0 |
0 |
if ($self->error) |
|
366
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
381
|
0 |
0 |
unless (defined $avars{$$self{'required'}{'mbox'}[$requiredInt]}) |
|
395
|
0 |
0 |
unless ($mbox) |
|
423
|
0 |
0 |
if ($self->error) |
|
431
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
445
|
0 |
0 |
unless (defined $avars{$$self{'required'}{'pop3'}[$requiredInt]}) |
|
465
|
0 |
0 |
if ($pop->State eq 'AUTHORIZATION') |
|
475
|
0 |
0 |
if ($pop->State eq 'DEAD') |
|
505
|
0 |
0 |
if ($self->error) |
|
513
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
528
|
0 |
0 |
unless (defined $avars{$$self{'required'}{'smtp'}[$requiredInt]}) |
|
544
|
0 |
0 |
if ($avars{'useSSL'}) { } |
|
550
|
0 |
0 |
unless ($smtp) |
|
560
|
0 |
0 |
unless (defined $smtp) |
|
569
|
0 |
0 |
unless ($smtp->auth($avars{'auth'}, $avars{'user'}, $avars{'pass'})) |
|
578
|
0 |
0 |
unless ($smtp->mail($avars{'from'})) |
|
634
|
0 |
0 |
if (defined $_[1]) |
|
641
|
0 |
0 |
if ($self->error) |
|
647
|
0 |
0 |
unless (defined $args{'type'}) |
|
655
|
0 |
0 |
unless (defined $$self{'required'}{$args{'type'}}) |
|
663
|
0 |
0 |
unless ($$self{'zconf'}->setNameLegit($args{'account'})) |
|
674
|
0 |
0 |
unless (defined $args{$$self{'required'}{$args{'type'}}[$requiredInt]}) |
|
698
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
740
|
0 |
0 |
if (defined $_[1]) |
|
747
|
0 |
0 |
if ($self->error) |
|
753
|
0 |
0 |
unless (defined $args{'account'}) |
|
758
|
0 |
0 |
unless (defined $args{'account'} and (defined $args{'subject'} and defined $args{'body'})) |
|
766
|
0 |
0 |
if ($$self{'error'}) |
|
772
|
0 |
0 |
unless (defined $args{'cc'} or defined $args{'to'}) |
|
781
|
0 |
0 |
unless ($mail) |
|
789
|
0 |
0 |
if (defined $args{'to'}) |
|
795
|
0 |
0 |
if (defined $args{'cc'}[0]) |
|
869
|
0 |
0 |
if (defined $_[1]) |
|
876
|
0 |
0 |
if ($self->error) |
|
881
|
0 |
0 |
unless (defined $args{'account'}) |
|
886
|
0 |
0 |
unless (defined $args{'account'} and (defined $args{'subject'} and defined $args{'body'})) |
|
894
|
0 |
0 |
if ($$self{'error'}) |
|
900
|
0 |
0 |
unless (defined $args{'quiet'}) |
|
905
|
0 |
0 |
unless (defined $args{'cc'}[0] or defined $args{'to'}[0]) |
|
913
|
0 |
0 |
if (defined $args{'dontSign'} and $args{'dontSign'}) |
|
919
|
0 |
0 |
if ($Aargs{'usePGP'}) |
|
922
|
0 |
0 |
if ($$self{'error'}) |
|
927
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'clearsign') |
|
931
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'signencrypt') |
|
938
|
0 |
0 |
if ($Aargs{'usePGP'}) { } |
|
939
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'clearsign') |
|
941
|
0 |
0 |
if ($args{'quiet'}) |
|
947
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'mimesign') |
|
949
|
0 |
0 |
if ($args{'quiet'}) |
|
956
|
0 |
0 |
if (defined $Aargs{'PGPdigestAlgo'}) |
|
971
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'signencrypt') |
|
983
|
0 |
0 |
if ($args{'quiet'}) |
|
989
|
0 |
0 |
if (defined $args{'to'}) |
|
995
|
0 |
0 |
if (defined $args{'cc'}[0]) |
|
1000
|
0 |
0 |
if (defined $args{'in-reply-to'}) |
|
1015
|
0 |
0 |
unless (-e $args{'files'}[$int]) |
|
1051
|
0 |
0 |
if ($self->error) |
|
1058
|
0 |
0 |
unless (defined $var{'default/fetchable'}) |
|
1062
|
0 |
0 |
if ($var{'default/fetchable'} eq '') |
|
1087
|
0 |
0 |
if ($self->error) |
|
1092
|
0 |
0 |
unless (defined $account) |
|
1100
|
0 |
0 |
if ($$self{'error'}) |
|
1105
|
0 |
0 |
unless ($fetchable) |
|
1118
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
1147
|
0 |
0 |
if ($self->error) |
|
1154
|
0 |
0 |
unless (defined $var{'default/sendable'}) |
|
1158
|
0 |
0 |
if ($var{'default/sendable'} eq '') |
|
1183
|
0 |
0 |
if ($self->error) |
|
1189
|
0 |
0 |
unless (defined $account) |
|
1197
|
0 |
0 |
if ($$self{'error'}) |
|
1202
|
0 |
0 |
unless ($sendable) |
|
1215
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
1237
|
0 |
0 |
if ($self->error) |
|
1244
|
0 |
0 |
unless (defined $var{'default/imap'}) |
|
1248
|
0 |
0 |
if ($var{'default/imap'} eq '') |
|
1268
|
0 |
0 |
if ($self->error) |
|
1274
|
0 |
0 |
unless (defined $account) |
|
1282
|
0 |
0 |
if ($$self{'error'}) |
|
1293
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
1322
|
0 |
0 |
if ($self->error) |
|
1331
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
1339
|
0 |
0 |
unless ($self->accountExists($account)) |
|
1352
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
1380
|
0 |
0 |
if ($self->error) |
|
1389
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
1397
|
0 |
0 |
unless ($self->accountExists($account)) |
|
1408
|
0 |
0 |
if ($$self{'deliverable'}[$int] eq $split[0]) |
|
1454
|
0 |
0 |
if (defined $_[3]) |
|
1461
|
0 |
0 |
if ($self->error) |
|
1467
|
0 |
0 |
unless ($self->deliverable($account)) |
|
1475
|
0 |
0 |
if ($account =~ m[^exec/]) |
|
1476
|
0 |
0 |
unless ($self->deliverExec($account, $mail)) |
|
1483
|
0 |
0 |
if ($account =~ m[^imap/]) |
|
1484
|
0 |
0 |
unless ($self->deliverIMAP($account, $mail, \%args)) |
|
1519
|
0 |
0 |
if ($self->error) |
|
1525
|
0 |
0 |
if (!$account =~ m[^exec/]) |
|
1533
|
0 |
0 |
unless (defined $$self{'zconf'}{'conf'}{'mail'}{'accounts/' . $account . '/deliver'}) |
|
1543
|
0 |
0 |
if ($$pipe{'error'}) |
|
1554
|
0 |
0 |
if ($$pipe{'error'}) |
|
1592
|
0 |
0 |
if (defined $_[3]) |
|
1599
|
0 |
0 |
if ($self->error) |
|
1605
|
0 |
0 |
if (!$account =~ m[^imap/]) |
|
1614
|
0 |
0 |
if ($$self{'error'}) |
|
1620
|
0 |
0 |
unless (defined $args{'folder'}) |
|
1622
|
0 |
0 |
unless (defined $$self{'zconf'}{'conf'}{'mail'}{'accounts/' . $account . '/inbox'}) |
|
1634
|
0 |
0 |
unless ($select) |
|
1643
|
0 |
0 |
unless ($append) |
|
1677
|
0 |
0 |
if ($self->error) |
|
1683
|
0 |
0 |
unless (defined $account) |
|
1689
|
0 |
0 |
unless (defined $account) |
|
1696
|
0 |
0 |
unless ($self->fetchable($account)) |
|
1707
|
0 |
0 |
if ($account =~ m[^pop3/]) |
|
1709
|
0 |
0 |
unless (defined $fetched) |
|
1716
|
0 |
0 |
if ($account =~ m[^mbox/]) |
|
1718
|
0 |
0 |
unless (defined $fetched) |
|
1725
|
0 |
0 |
if ($account =~ m[^maildir/]) |
|
1727
|
0 |
0 |
unless (defined $fetched) |
|
1734
|
0 |
0 |
if ($account =~ m[^imap/]) |
|
1736
|
0 |
0 |
unless (defined $fetched) |
|
1759
|
0 |
0 |
if ($self->error) |
|
1768
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
1776
|
0 |
0 |
unless ($self->accountExists($account)) |
|
1786
|
0 |
0 |
if ($$self{'fetchable'}[$int] eq $split[0]) |
|
1817
|
0 |
0 |
if ($self->error) |
|
1823
|
0 |
0 |
unless ($self->fetchable($account)) |
|
1831
|
0 |
0 |
unless (defined $$self{'zconf'}{'conf'}{'mail'}{'accounts/' . $account . '/inbox'}) |
|
1840
|
0 |
0 |
if ($$self{'error'}) |
|
1846
|
0 |
0 |
unless ($imap->select($$self{'zconf'}{'conf'}{'mail'}{'accounts/' . $account . '/inbox'})) |
|
1862
|
0 |
0 |
if ($?) |
|
1872
|
0 |
0 |
if ($$self{'error'}) |
|
1878
|
0 |
0 |
unless ($imap->store($countInt, '+flags', '(\\deleted)')) |
|
1912
|
0 |
0 |
if ($self->error) |
|
1918
|
0 |
0 |
unless ($self->fetchable($account)) |
|
1927
|
0 |
0 |
if ($$self{'error'}) |
|
1941
|
0 |
0 |
if ($?) |
|
1951
|
0 |
0 |
if ($$self{'error'}) |
|
1957
|
0 |
0 |
unless ($maildir->message($countInt)->delete) |
|
1990
|
0 |
0 |
if ($self->error) |
|
1996
|
0 |
0 |
unless ($self->fetchable($account)) |
|
2005
|
0 |
0 |
if ($$self{'error'}) |
|
2020
|
0 |
0 |
if ($?) |
|
2030
|
0 |
0 |
if ($$self{'error'}) |
|
2036
|
0 |
0 |
unless ($mbox->message($countInt)->delete) |
|
2069
|
0 |
0 |
if ($self->error) |
|
2075
|
0 |
0 |
unless ($self->fetchable($account)) |
|
2084
|
0 |
0 |
if ($$self{'error'}) |
|
2095
|
0 |
0 |
if ($?) |
|
2106
|
0 |
0 |
if ($$self{'error'}) |
|
2112
|
0 |
0 |
unless ($pop->Delete($countInt)) |
|
2145
|
0 |
0 |
if ($self->error) |
|
2152
|
0 |
0 |
unless (defined $f{'formatter/marginLeft'}) |
|
2156
|
0 |
0 |
unless (defined $f{'formatter/marginRight'}) |
|
2160
|
0 |
0 |
unless (defined $f{'formatter/squeeze'}) |
|
2164
|
0 |
0 |
unless (defined $f{'formatter/ignoree'}) |
|
2168
|
0 |
0 |
unless (defined $f{'formatter/justify'}) |
|
2172
|
0 |
0 |
unless (defined $f{'formatter/tabspace'}) |
|
2212
|
0 |
0 |
if ($self->error) |
|
2219
|
0 |
0 |
if ($$self{'zconf'}->error) |
|
2230
|
0 |
0 |
if (defined $returned{'formatter/marginLeft'}) { } |
|
2237
|
0 |
0 |
if (defined $returned{'formatter/marginRight'}) { } |
|
2244
|
0 |
0 |
if (defined $returned{'formatter/squeeze'}) { } |
|
2251
|
0 |
0 |
if (defined $returned{'formatter/ignore'}) { } |
|
2258
|
0 |
0 |
if (defined $returned{'formatter/justify'}) { } |
|
2265
|
0 |
0 |
if (defined $returned{'formatter/tabspace'}) { } |
|
2307
|
0 |
0 |
if ($self->error) |
|
2313
|
0 |
0 |
unless (defined $option) |
|
2324
|
0 |
0 |
if ($$self{'legal'}{'formatter'}[$int] eq $option) |
|
2330
|
0 |
0 |
unless ($matched) |
|
2338
|
0 |
0 |
if (not defined $value) { } |
|
2340
|
0 |
0 |
if ($$self{'zconf'}->error) |
|
2348
|
0 |
0 |
if ($$self{'zconf'}->error) |
|
2358
|
0 |
0 |
if ($$self{'zconf'}->error) |
|
2385
|
0 |
0 |
if ($self->error) |
|
2432
|
0 |
0 |
if ($self->error) |
|
2441
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
2449
|
0 |
0 |
unless ($self->accountExists($account)) |
|
2495
|
0 |
0 |
if ($self->error) |
|
2501
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
2527
|
0 |
0 |
if (defined $_[1]) |
|
2534
|
0 |
0 |
if ($self->error) |
|
2540
|
0 |
0 |
unless ($$self{'zconf'}->configExists('mail')) |
|
2541
|
0 |
0 |
if ($$self{'zconf'}->createConfig('mail')) |
|
2571
|
0 |
0 |
if ($self->error) |
|
2577
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
2613
|
0 |
0 |
if (defined $_[1]) |
|
2620
|
0 |
0 |
if ($self->error) |
|
2626
|
0 |
0 |
unless (defined $args{'type'}) |
|
2634
|
0 |
0 |
unless (defined $$self{'legal'}{$args{'type'}}) |
|
2642
|
0 |
0 |
unless ($$self{'zconf'}->setNameLegit($args{'account'})) |
|
2653
|
0 |
0 |
unless ($self->accountExists($account)) |
|
2674
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
2710
|
0 |
0 |
if ($self->error) |
|
2716
|
0 |
0 |
if ($$self{'zconf'}{'error'}) |
|
2764
|
0 |
0 |
if (defined $_[1]) |
|
2771
|
0 |
0 |
if ($self->error) |
|
2776
|
0 |
0 |
unless (defined $args{'account'}) |
|
2781
|
0 |
0 |
unless (defined $args{'mail'}) |
|
2790
|
0 |
0 |
if ($$self{'error'}) |
|
2801
|
0 |
0 |
if ($?) |
|
2813
|
0 |
0 |
if ($?) |
|
2825
|
0 |
0 |
if ($?) |
|
2834
|
0 |
0 |
unless ($smtp->data) |
|
2841
|
0 |
0 |
unless ($smtp->datasend($args{'mail'})) |
|
2850
|
0 |
0 |
unless ($smtp->dataend) |
|
2857
|
0 |
0 |
unless ($smtp->quit) |
|
2867
|
0 |
0 |
if ($args{'save'}) |
|
2868
|
0 |
0 |
unless (defined $acctArgs{'saveTo'}) |
|
2875
|
0 |
0 |
if ($acctArgs{'saveTo'} =~ /^$/) |
|
2883
|
0 |
0 |
if ($$self{'error'}) |
|
2892
|
0 |
0 |
if ($$self{'error'}) |
|
2918
|
0 |
0 |
if ($self->error) |
|
2927
|
0 |
0 |
if (not defined $split[1] or defined $split[3]) |
|
2935
|
0 |
0 |
unless ($self->accountExists($account)) |
|
2943
|
0 |
0 |
if (!$account =~ m[^smtp/]) |
|
2972
|
0 |
0 |
if ($self->error) |
|
2978
|
0 |
0 |
unless ($self->accountExists($account)) |
|
2986
|
0 |
0 |
unless (defined $body) |
|
2995
|
0 |
0 |
if ($$self{'error'}) |
|
3000
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'mimesign') |
|
3007
|
0 |
0 |
if (defined $Aargs{'PGPdigestAlgo'}) |
|
3012
|
0 |
0 |
unless (defined $Aargs{'pgpType'}) |
|
3020
|
0 |
0 |
unless (defined $Aargs{'PGPkey'}) |
|
3032
|
0 |
0 |
if ($types[$int] eq $Aargs{'pgpType'}) |
|
3038
|
0 |
0 |
unless ($matched) |
|
3047
|
0 |
0 |
unless (mkdir $bodydir) |
|
3057
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'mimesign') |
|
3062
|
0 |
0 |
unless (open BODYWRITE, '>' . $bodyfile) |
|
3080
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'clearsign') |
|
3083
|
0 |
0 |
if ($? ne '0') |
|
3093
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'mimesign') |
|
3096
|
0 |
0 |
if ($? ne '0') |
|
3106
|
0 |
0 |
if ($Aargs{'pgpType'} eq 'signencrypt') |
|
3109
|
0 |
0 |
if ($? ne '0') |
|
3162
|
0 |
0 |
if ($$self{'perror'}) |