Allow dots in the address
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@167 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
bae4a84b99
commit
1414144068
@ -26,7 +26,7 @@ sub register {
|
|||||||
$self->register_hook("queue", "queue_handler");
|
$self->register_hook("queue", "queue_handler");
|
||||||
|
|
||||||
if (@args > 0) {
|
if (@args > 0) {
|
||||||
if ($args[0] =~ /^([\w_-]+)$/) {
|
if ($args[0] =~ /^([\.\w_-]+)$/) {
|
||||||
$self->{_smtp_server} = $1;
|
$self->{_smtp_server} = $1;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
|
Loading…
Reference in New Issue
Block a user