Escape dots in minilist names to semicolons
See http://www.lifewithqmail.com/lwq.html#dots-in-extensions
This commit is contained in:
parent
04cf86b808
commit
2bfb550947
|
@ -24,6 +24,9 @@ if ($ARGV[1]){
|
|||
|
||||
foreach my $list (@lists){
|
||||
my $name = $list->key;
|
||||
# dots must be escaped by replacing them with a :
|
||||
# see http://www.lifewithqmail.com/lwq.html#dots-in-extensions
|
||||
$name =~ s/\./:/g;
|
||||
unless ($list->prop('type') eq 'minilist'){
|
||||
warn "Account $name is not a mailinglist account.\n";
|
||||
next;
|
||||
|
|
Loading…
Reference in New Issue
Block a user