/[smecontribs]/rpms/perl-Ezmlm/contribs9/perl-Ezmlm-0.08-2-dirsubdir.patch
ViewVC logotype

Annotation of /rpms/perl-Ezmlm/contribs9/perl-Ezmlm-0.08-2-dirsubdir.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Fri Apr 22 09:13:02 2016 UTC (8 years, 6 months ago) by unnilennium
Branch: MAIN
CVS Tags: perl-Ezmlm-0_08-4_el6_sme, HEAD 
Initial import
1 unnilennium 1.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) {
admin@koozali.org
 ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed