fixed handling of list addresses containing a dot
This commit is contained in:
parent
cdd6a8c1f2
commit
58bd26889c
2
TODO
2
TODO
|
@ -1,5 +1,7 @@
|
||||||
clearsilver-Infos updaten
|
clearsilver-Infos updaten
|
||||||
|
|
||||||
|
die nicht-Abonnenten-Listen (allow/deny/mod) sagen trotzdem: "x AbonnentInnen"
|
||||||
|
|
||||||
charset support for idx <= 5.0
|
charset support for idx <= 5.0
|
||||||
|
|
||||||
suppress success message, if no new subscriber addresses were selected for adding
|
suppress success message, if no new subscriber addresses were selected for adding
|
||||||
|
|
|
@ -6,7 +6,7 @@ Version 3.2 - 04/14/02006
|
||||||
* handling of empty settings for ezmlm-idx 5.0 fixed (closes #21)
|
* handling of empty settings for ezmlm-idx 5.0 fixed (closes #21)
|
||||||
* script for creating binary suid wrappers added
|
* script for creating binary suid wrappers added
|
||||||
* bug in MySQL support fixed
|
* 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
|
Version 3.1.4 - 03/26/02006
|
||||||
* new setting: DOTQMAIL_DIR (useful for multi domain vpopmail setups)
|
* new setting: DOTQMAIL_DIR (useful for multi domain vpopmail setups)
|
||||||
|
|
|
@ -21,7 +21,7 @@ use DB_File;
|
||||||
use CGI;
|
use CGI;
|
||||||
use IO::File;
|
use IO::File;
|
||||||
use POSIX qw(tmpnam);
|
use POSIX qw(tmpnam);
|
||||||
use Encode qw/ from_to /; # added by ooyama for char convert
|
use Encode;
|
||||||
use English;
|
use English;
|
||||||
|
|
||||||
# do not forget: we depend on Mail::Ezmlm::Gpg if the corresponding configuration
|
# do not forget: we depend on Mail::Ezmlm::Gpg if the corresponding configuration
|
||||||
|
@ -1215,6 +1215,9 @@ sub create_list {
|
||||||
|
|
||||||
# Some taint checking ...
|
# Some taint checking ...
|
||||||
$qmail = $1 if $q->param('inlocal') =~ /(?:$USER-)?([^\<\>\\\/\s]+)$/;
|
$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');
|
$listname = $q->param('list');
|
||||||
if ($listname =~ m/[^\w\.-]/) {
|
if ($listname =~ m/[^\w\.-]/) {
|
||||||
$warning = 'InvalidListName';
|
$warning = 'InvalidListName';
|
||||||
|
|
Loading…
Reference in a new issue