| 1 |
--- Ezmlm-0.08.2/Ezmlm.pm.dirsubdir 2016-04-19 02:54:10.000000000 -0400 |
| 2 |
+++ Ezmlm-0.08.2/Ezmlm.pm 2016-04-19 10:12:50.000000000 -0400 |
| 3 |
@@ -276,7 +276,7 @@ |
| 4 |
($self->_seterror(-1, 'must setlist() before returning subscribers()') && return undef) unless(defined($self->{'LIST_NAME'})); |
| 5 |
if(defined($part) && $part) { |
| 6 |
($self->_seterror(-1, "$part part of $self->{'LIST_NAME'} does not appear to exist in subscribers()") && return undef) unless(-e "$self->{'LIST_NAME'}/$part"); |
| 7 |
- @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'}/$part`; |
| 8 |
+ @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'} $part`; |
| 9 |
} else { |
| 10 |
@subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'}`; |
| 11 |
} |
| 12 |
@@ -302,7 +302,7 @@ |
| 13 |
($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in sub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part"); |
| 14 |
foreach $address (@addresses) { |
| 15 |
next unless $self->_checkaddress($address); |
| 16 |
- system("$EZMLM_BASE/ezmlm-sub", "$self->{'LIST_NAME'}/$part", $address) == 0 || |
| 17 |
+ system("$EZMLM_BASE/ezmlm-sub", "$self->{'LIST_NAME'}", $part, $address) == 0 || |
| 18 |
($self->_seterror($?) && return undef); |
| 19 |
} |
| 20 |
} else { |
| 21 |
@@ -328,7 +328,7 @@ |
| 22 |
($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in unsub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part"); |
| 23 |
foreach $address (@addresses) { |
| 24 |
next unless $self->_checkaddress($address); |
| 25 |
- system("$EZMLM_BASE/ezmlm-unsub", "$self->{'LIST_NAME'}/$part", $address) == 0 || |
| 26 |
+ system("$EZMLM_BASE/ezmlm-unsub", "$self->{'LIST_NAME'}", $part, $address) == 0 || |
| 27 |
($self->_seterror($?) && return undef); |
| 28 |
} |
| 29 |
} else { |
| 30 |
@@ -355,7 +355,7 @@ |
| 31 |
($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in issub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part"); |
| 32 |
foreach $address (@addresses) { |
| 33 |
$ENV{'SENDER'} = $address; |
| 34 |
- undef($issub) if ((system("$EZMLM_BASE/ezmlm-issubn", "$self->{'LIST_NAME'}/$part") / 256) != 0) |
| 35 |
+ undef($issub) if ((system("$EZMLM_BASE/ezmlm-issubn", "$self->{'LIST_NAME'}", $part) / 256) != 0) |
| 36 |
} |
| 37 |
} else { |
| 38 |
foreach $address (@addresses) { |
Parent Directory
| 
Revision Log
| 
Revision Graph
