From 9d94f4d96ae46c53fdc6fb5eed24672776537c33 Mon Sep 17 00:00:00 2001 From: Matt Sergeant Date: Wed, 1 Sep 2004 05:56:52 +0000 Subject: [PATCH] Pass extra "stuff" to HELO/EHLO callbacks git-svn-id: https://svn.perl.org/qpsmtpd/trunk@293 958fd67b-6ff1-0310-b445-bb7760255be9 --- lib/Qpsmtpd/SMTP.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm index 57d8c25..d5dfc28 100644 --- a/lib/Qpsmtpd/SMTP.pm +++ b/lib/Qpsmtpd/SMTP.pm @@ -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) {