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");
|
||||
|
||||
if (@args > 0) {
|
||||
if ($args[0] =~ /^([\w_-]+)$/) {
|
||||
if ($args[0] =~ /^([\.\w_-]+)$/) {
|
||||
$self->{_smtp_server} = $1;
|
||||
}
|
||||
else {
|
||||
|
Loading…
Reference in New Issue
Block a user