From 58bd26889cfaf4bb7cbc4bda113f33d1786ed5db Mon Sep 17 00:00:00 2001
From: lars <lars@systemausfall.org>
Date: Tue, 11 Jul 2006 01:49:33 +0000
Subject: [PATCH] fixed handling of list addresses containing a dot

---
 TODO          | 2 ++
 changelog     | 2 +-
 ezmlm-web.cgi | 5 ++++-
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/TODO b/TODO
index 346829c..24cd77c 100644
--- a/TODO
+++ b/TODO
@@ -1,5 +1,7 @@
 clearsilver-Infos updaten
 
+die nicht-Abonnenten-Listen (allow/deny/mod) sagen trotzdem: "x AbonnentInnen"
+
 charset support for idx <= 5.0
 
 suppress success message, if no new subscriber addresses were selected for adding
diff --git a/changelog b/changelog
index 33639d3..a0ca8ed 100644
--- a/changelog
+++ b/changelog
@@ -6,7 +6,7 @@ Version 3.2 - 04/14/02006
  * handling of empty settings for ezmlm-idx 5.0 fixed (closes #21)
  * script for creating binary suid wrappers added
  * bug in MySQL support fixed
- * treatment of the special character "dot" in listname fixed
+ * treatment of the special character "dot" in listname and list address fixed
 
 Version 3.1.4 - 03/26/02006
  * new setting: DOTQMAIL_DIR (useful for multi domain vpopmail setups)
diff --git a/ezmlm-web.cgi b/ezmlm-web.cgi
index 696234c..49deedc 100755
--- a/ezmlm-web.cgi
+++ b/ezmlm-web.cgi
@@ -21,7 +21,7 @@ use DB_File;
 use CGI;
 use IO::File;
 use POSIX qw(tmpnam);
-use Encode qw/ from_to /;	# added by ooyama for char convert
+use Encode;
 use English;
 
 # do not forget: we depend on Mail::Ezmlm::Gpg if the corresponding configuration
@@ -1215,6 +1215,9 @@ sub create_list {
 
 	# Some taint checking ...
 	$qmail = $1 if $q->param('inlocal') =~ /(?:$USER-)?([^\<\>\\\/\s]+)$/;
+	# dots have to be turned into colons
+	# see http://www.qmail.org/man/man5/dot-qmail.html
+	$qmail =~ s/\./:/g;
 	$listname = $q->param('list');
 	if ($listname =~ m/[^\w\.-]/) {
 		$warning = 'InvalidListName';