diff options
| author | Mark Sapiro <msapiro@value.net> | 2011-01-04 15:46:00 -0800 |
|---|---|---|
| committer | Mark Sapiro <msapiro@value.net> | 2011-01-04 15:46:00 -0800 |
| commit | 1584b7fac294eb6eb3bc000f3a3e5f79fe013a3f (patch) | |
| tree | 857bea2c76a5175d1ea09fdcd3b9db0c7503e6c6 /contrib/mm-handler-2.1.10 | |
| parent | 20e82fb48403adac142f2a65064e63ef99f21568 (diff) | |
| download | mailman2-1584b7fac294eb6eb3bc000f3a3e5f79fe013a3f.tar.gz mailman2-1584b7fac294eb6eb3bc000f3a3e5f79fe013a3f.tar.xz mailman2-1584b7fac294eb6eb3bc000f3a3e5f79fe013a3f.zip | |
- Updated contrib/mm-handler-2.1.10 to better handle lists with names that
look like admin addresses. Bug #697161.
Diffstat (limited to '')
| -rw-r--r-- | contrib/mm-handler-2.1.10 | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/contrib/mm-handler-2.1.10 b/contrib/mm-handler-2.1.10 index a920b10d..1ff5703d 100644 --- a/contrib/mm-handler-2.1.10 +++ b/contrib/mm-handler-2.1.10 @@ -176,7 +176,12 @@ sub split_addr { # If an undefined action, restore list name $list = $addr; $cmd = "post"; + } elsif (! list_exists($list) and list_exists("$list-$cmd")) { + # Supposed command is actually part of list name, restore list name + $list = $addr; + $cmd = "post"; } + ## Otherwise use $list and $cmd as already assigned return ($list, $cmd); @@ -186,8 +191,8 @@ sub split_addr { sub list_exists { my ($name) = @_; - return 1 if (-f "$MMLISTDIR/$list/config.pck"); - return 1 if (-f "$MMLISTDIR/$list/config.db"); + return 1 if (-f "$MMLISTDIR/$name/config.pck"); + return 1 if (-f "$MMLISTDIR/$name/config.db"); return 0; } |