Pass extra "stuff" to HELO/EHLO callbacks
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@293 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
e6e2091ee0
commit
9d94f4d96a
@ -131,7 +131,7 @@ sub helo {
|
||||
my $conn = $self->connection;
|
||||
return $self->respond (503, "but you already said HELO ...") if $conn->hello;
|
||||
|
||||
my ($rc, $msg) = $self->run_hooks("helo", $hello_host);
|
||||
my ($rc, $msg) = $self->run_hooks("helo", $hello_host, @stuff);
|
||||
if ($rc == DONE) {
|
||||
# do nothing
|
||||
} elsif ($rc == DENY) {
|
||||
@ -151,7 +151,7 @@ sub ehlo {
|
||||
my $conn = $self->connection;
|
||||
return $self->respond (503, "but you already said HELO ...") if $conn->hello;
|
||||
|
||||
my ($rc, $msg) = $self->run_hooks("ehlo", $hello_host);
|
||||
my ($rc, $msg) = $self->run_hooks("ehlo", $hello_host, @stuff);
|
||||
if ($rc == DONE) {
|
||||
# do nothing
|
||||
} elsif ($rc == DENY) {
|
||||
|
Loading…
Reference in New Issue
Block a user