| line |
true |
false |
branch |
|
82
|
0 |
0 |
if defined $list and $list |
|
93
|
0 |
0 |
if defined $list{'-switches'} |
|
96
|
0 |
0 |
unless defined $_ |
|
100
|
0 |
0 |
if ($_ =~ /^\s*$/) { } |
|
108
|
0 |
0 |
unless defined $list{'-dir'} |
|
109
|
0 |
0 |
unless defined $list{'-qmail'} |
|
110
|
0 |
0 |
unless defined $list{'-name'} |
|
114
|
0 |
0 |
if (defined $list{'-host'}) { } |
|
115
|
0 |
0 |
unless $list{'-host'} eq $hostname |
|
121
|
0 |
0 |
if (-e $list{'-dir'}) |
|
128
|
0 |
0 |
if (system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-make", @commandline, $list{'-dir'}, $list{'-qmail'}, $list{'-name'}, $list{'-host'}) != 0) |
|
134
|
0 |
0 |
if (defined $VHOST) |
|
135
|
0 |
0 |
unless (defined $list{'-user'}) |
|
136
|
0 |
0 |
unless $list{'-user'} = $self->_getvhostuser($list{'-host'}) |
|
139
|
0 |
0 |
unless open INLOCAL, ">$list{'-dir'}/inlocal" |
|
154
|
0 |
0 |
unless defined $switches |
|
159
|
0 |
0 |
unless defined $_ |
|
163
|
0 |
0 |
if ($_ =~ /^\s*$/) { } |
|
171
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
173
|
0 |
0 |
unless -e "$$self{'LIST_NAME'}/config" or -e "$$self{'LIST_NAME'}/flags" |
|
176
|
0 |
0 |
unless open OUTHOST, "<$$self{'LIST_NAME'}/outhost" |
|
181
|
0 |
0 |
unless ($outhost eq $self->_getdefaultdomain) |
|
182
|
0 |
0 |
unless open INLOCAL, "<$$self{'LIST_NAME'}/inlocal" |
|
188
|
0 |
0 |
unless system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-make", @switch_list, $$self{'LIST_NAME'}) == 0 |
|
192
|
0 |
0 |
if (defined $inlocal) |
|
193
|
0 |
0 |
unless open INLOCAL, ">$$self{'LIST_NAME'}/inlocal" |
|
208
|
0 |
0 |
if (-e $$self{'LIST_NAME'} . '/flags') { } |
|
|
0 |
0 |
elsif (open CONFIG, '<' . $$self{'LIST_NAME'} . '/config') { } |
|
215
|
0 |
0 |
if (/^F:-(\w+)/) { } |
|
|
0 |
0 |
elsif (/^(\d):(.+)$/) { } |
|
220
|
0 |
0 |
if $value =~ /\S/ |
|
230
|
0 |
0 |
unless defined $options |
|
246
|
0 |
0 |
if ($list =~ m[^([\w\d\_\-\./\@]+)$]) { } |
|
248
|
0 |
0 |
if (-e "$list/lock") { } |
|
264
|
0 |
0 |
unless defined $stream |
|
265
|
0 |
0 |
if (defined $part) { } |
|
276
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
277
|
0 |
0 |
if (defined $part and $part) { } |
|
278
|
0 |
0 |
unless -e "$$self{'LIST_NAME'}/$part" |
|
279
|
0 |
0 |
if s/[\r\n]// |
|
281
|
0 |
0 |
if s/[\r\n]// |
|
284
|
0 |
0 |
if ($?) { } |
|
286
|
0 |
0 |
scalar @subscribers ? : |
|
296
|
0 |
0 |
unless @addresses |
|
297
|
0 |
0 |
unless $#addresses < 1 or $addresses[$#addresses] =~ /\@/ |
|
299
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
301
|
0 |
0 |
if (defined $part and $part) { } |
|
302
|
0 |
0 |
unless -e "$$self{'LIST_NAME'}/$part" |
|
304
|
0 |
0 |
unless $self->_checkaddress($address) |
|
305
|
0 |
0 |
unless system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-sub", "$$self{'LIST_NAME'}/$part", $address) == 0 |
|
310
|
0 |
0 |
unless $self->_checkaddress($address) |
|
311
|
0 |
0 |
unless system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-sub", $$self{'LIST_NAME'}, $address) == 0 |
|
322
|
0 |
0 |
unless @addresses |
|
323
|
0 |
0 |
unless $#addresses < 1 or $addresses[$#addresses] =~ /\@/ |
|
325
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
327
|
0 |
0 |
if (defined $part and $part) { } |
|
328
|
0 |
0 |
unless -e "$$self{'LIST_NAME'}/$part" |
|
330
|
0 |
0 |
unless $self->_checkaddress($address) |
|
331
|
0 |
0 |
unless system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-unsub", "$$self{'LIST_NAME'}/$part", $address) == 0 |
|
336
|
0 |
0 |
unless $self->_checkaddress($address) |
|
337
|
0 |
0 |
unless system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-unsub", $$self{'LIST_NAME'}, $address) == 0 |
|
348
|
0 |
0 |
unless $#addresses < 1 or $addresses[$#addresses] =~ /\@/ |
|
350
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
354
|
0 |
0 |
if (defined $part and $part) { } |
|
355
|
0 |
0 |
unless -e "$$self{'LIST_NAME'}/$part" |
|
358
|
0 |
0 |
if system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-issubn", "$$self{'LIST_NAME'}/$part") / 256 != 0 |
|
363
|
0 |
0 |
if system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-issubn", $$self{'LIST_NAME'}) / 256 != 0 |
|
375
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
384
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
393
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
402
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
411
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
420
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
433
|
0 |
0 |
if not -e "$filename" and get_version() >= 5 and $part ne 'conf-etc' and $part ne 'conf-lang' |
|
436
|
0 |
0 |
if (open PART, "<$filename") |
|
438
|
0 |
0 |
unless (/^#/) |
|
444
|
0 |
0 |
if (wantarray) { } |
|
449
|
0 |
0 |
if $self->_seterror($?) |
|
456
|
0 |
0 |
if (open PART, ">$$self{'LIST_NAME'}/$part") |
|
463
|
0 |
0 |
if $self->_seterror($?) |
|
471
|
0 |
0 |
if (get_version() >= 5 and ref $self and -e "$$self{'LIST_NAME'}/conf-etc") { } |
|
483
|
0 |
0 |
if get_version() < 5 |
|
493
|
0 |
0 |
if get_version() < 5 |
|
495
|
0 |
0 |
if ref $self |
|
499
|
0 |
0 |
if (ref $self) { } |
|
500
|
0 |
0 |
unless $conf_dir = $self->get_config_dir |
|
505
|
0 |
0 |
if (opendir DIR, "$conf_dir") { } |
|
511
|
0 |
0 |
if -e "$conf_dir/$item/text" |
|
515
|
0 |
0 |
if ref $self |
|
526
|
0 |
0 |
if get_version() < 5 |
|
527
|
0 |
0 |
if (-e "$$self{'LIST_NAME'}/conf-lang") { } |
|
540
|
0 |
0 |
if get_version() < 5 |
|
541
|
0 |
0 |
if ($lang eq 'default' or $lang eq '') { } |
|
542
|
0 |
0 |
if unlink "$$self{'LIST_NAME'}/conf-lang" |
|
544
|
0 |
0 |
if $self->setpart('conf-lang', "$lang") |
|
556
|
0 |
0 |
unless defined $charset |
|
558
|
0 |
0 |
if $charset eq '' |
|
573
|
0 |
0 |
if ($charset eq $default_charset or not $charset =~ /\S/) { } |
|
578
|
0 |
0 |
if $self->setpart('charset', "$charset") |
|
593
|
0 |
0 |
if (opendir DIR, "$$self{'LIST_NAME'}/text") |
|
597
|
0 |
0 |
unless ($seen{$item}) |
|
605
|
0 |
0 |
if (get_version() >= 5) |
|
607
|
0 |
0 |
unless -e $dirname |
|
608
|
0 |
0 |
if (opendir GLOBDIR, $dirname) |
|
612
|
0 |
0 |
unless ($seen{$item}) |
|
620
|
0 |
0 |
if ($#files > 0) { } |
|
632
|
0 |
0 |
if (-e "$$self{'LIST_NAME'}/text/$textfile") { } |
|
|
0 |
0 |
elsif (get_version() >= 5) { } |
|
636
|
0 |
0 |
unless -e "$filename" |
|
639
|
0 |
0 |
if (open PART, "<$filename") { } |
|
645
|
0 |
0 |
if (wantarray) { } |
|
664
|
0 |
0 |
unless -e "$$self{'LIST_NAME'}/text" |
|
665
|
0 |
0 |
if $self->setpart("text/$textfile", @content) |
|
675
|
0 |
0 |
if $textfile eq '' |
|
676
|
0 |
0 |
if (-e "$$self{'LIST_NAME'}/text/$textfile") { } |
|
689
|
0 |
0 |
if get_version() < 5 |
|
690
|
0 |
0 |
if $textfile eq '' |
|
691
|
0 |
0 |
if $textfile =~ /[^\w_\.-]/ |
|
692
|
0 |
0 |
if $self->is_text_default($textfile) |
|
693
|
0 |
0 |
unless unlink "$$self{'LIST_NAME'}/text/$textfile" |
|
716
|
0 |
0 |
if ref $self |
|
719
|
0 |
0 |
if (get_version() >= 4) { } |
|
739
|
0 |
0 |
if $version =~ /^[^:]*:\s+(.*)$/ |
|
740
|
0 |
0 |
if $version =~ /ezmlm-([\d\.]+)$/ |
|
741
|
0 |
0 |
if $version =~ /ezmlm-idx-([\d\.]+)$/ |
|
743
|
0 |
0 |
if (defined $ezmlm) { } |
|
|
0 |
0 |
elsif (defined $idx) { } |
|
746
|
0 |
0 |
if ($idx =~ /^(\d)/ and $1 >= 7) { } |
|
|
0 |
0 |
elsif ($idx =~ /^(\d)/ and $1 == 6) { } |
|
|
0 |
0 |
elsif ($idx =~ /^(\d)\.(\d)/ and $1 >= 5 and $2 == 1) { } |
|
|
0 |
0 |
elsif ($idx =~ /^(\d)/ and $1 >= 5) { } |
|
|
0 |
0 |
elsif ($idx =~ /^0\.(\d)/ and $1 >= 0) { } |
|
772
|
0 |
0 |
unless defined $Mail::Ezmlm::MYSQL_BASE and $Mail::Ezmlm::MYSQL_BASE |
|
773
|
0 |
0 |
unless defined $$self{'LIST_NAME'} |
|
776
|
0 |
0 |
if ($config =~ /-6\s+'(.+?)'\s*/) { } |
|
780
|
0 |
0 |
unless defined $host and defined $port and defined $user and defined $password and defined $database and defined $table |
|
784
|
0 |
0 |
unless system("$Mail::Ezmlm::EZMLM_BASE/ezmlm-mktab -d $table | $Mail::Ezmlm::MYSQL_BASE/mysql -h$host -P$port -u$user -p$password -f $database") == 0 |
|
792
|
0 |
0 |
if $self->_seterror(undef) |
|
801
|
0 |
0 |
if (defined $no and $no) { } |
|
802
|
0 |
0 |
if ($no < 0) { } |
|
819
|
0 |
0 |
unless defined $address |
|
820
|
0 |
0 |
unless $address =~ /^(\S+\@\S+\.\S+)$/ |
|
849
|
0 |
0 |
if (-e "$$self{'LIST_NAME'}/$file") |
|
854
|
0 |
0 |
unless ($opt_num == 5 and $temp =~ m[^/]) |
|
855
|
0 |
0 |
if $temp =~ /\S/ |
|
875
|
0 |
0 |
unless open EDITOR, "<$$self{'LIST_NAME'}/editor" |
|
876
|
0 |
0 |
unless open MANAGER, "<$$self{'LIST_NAME'}/manager" |
|
883
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/archived" |
|
884
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/digest" |
|
885
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/prefix" |
|
886
|
0 |
0 |
if $manager =~ /ezmlm-get -\w*s/ |
|
887
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/indexed" |
|
888
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/blacklist" or -e "$$self{'LIST_NAME'}/deny" |
|
889
|
0 |
0 |
if $manager =~ /ezmlm-manage -\w*l/ |
|
890
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/modpost" |
|
891
|
0 |
0 |
if $manager =~ /ezmlm-manage -\w*e/ |
|
892
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/public" |
|
893
|
0 |
0 |
if $manager =~ /ezmlm-request/ |
|
894
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/remote" |
|
895
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/modsub" |
|
896
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/text/trailer" |
|
897
|
0 |
0 |
if not $options =~ /m/ and $editor =~ /ezmlm-issubn \'/ or $editor =~ /ezmlm-gate/ |
|
899
|
0 |
0 |
if -e "$$self{'LIST_NAME'}/extra" or -e "$$self{'LIST_NAME'}/allow" |
|
904
|
0 |
0 |
unless 'cevz' =~ /$i/ or $options =~ /$i/i |
|
918
|
0 |
0 |
unless open VD, "<$Mail::Ezmlm::QMAIL_BASE/control/virtualdomains" |
|
920
|
0 |
0 |
if ($username) = /^\s*$hostname:(\w+)$/ |
|
932
|
0 |
0 |
unless open GETHOST, "<$Mail::Ezmlm::QMAIL_BASE/control/defaultdomain" or open GETHOST, "<$Mail::Ezmlm::QMAIL_BASE/control/me" |