byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make sure non-responding hooks are called appropriately

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@903 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-05-12 17:19:31 +00:00
parent c7c6e3afb9
commit 4578cd6eff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd/PollServer.pm
View File

@ -56,7 +56,7 @@ sub new {
$self->load_plugins; $self->load_plugins;
$self->load_logging; $self->load_logging;
my ($rc, @msg) = $self->run_hooks("pre-connection"); my ($rc, @msg) = $self->run_hooks_no_respond("pre-connection");
if ($rc == DENYSOFT || $rc == DENYSOFT_DISCONNECT) { if ($rc == DENYSOFT || $rc == DENYSOFT_DISCONNECT) {
@msg = ("Sorry, try again later") @msg = ("Sorry, try again later")
unless @msg; unless @msg;
@ -164,7 +164,7 @@ sub disconnect {
sub close { sub close {
my Qpsmtpd::PollServer $self = shift; my Qpsmtpd::PollServer $self = shift;
$self->run_hooks("post-connection"); $self->run_hooks_no_respond("post-connection");
$self->connection->reset; $self->connection->reset;
$self->SUPER::close; $self->SUPER::close;
} }