--- mm-handler-2.1.10.back_22_12_2010 2010-11-08 14:47:40.000000000 +0100 +++ mm-handler-2.1.10.new 2011-01-04 11:15:12.000000000 +0100 @@ -176,7 +176,12 @@ # 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 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; }