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

Bugfix to the count_unrecognized_commands plugin so it works

Browse Source 
under PPerl (it wasn't resetting the count properly).


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@208 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2004-03-04 04:14:09 +00:00
parent 9523d55cd7
commit 87802c4505
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Changes
View File

@ -1,5 +1,8 @@
0.27
Bugfix to the count_unrecognized_commands plugin so it works
under PPerl (it wasn't resetting the count properly).
reset_transaction is called after disconnect plugins are called so
the Transaction objects DESTROY method is called. (Thanks to Robert
James Kaes <rjkaes@flarenet.com>)

12
plugins/count_unrecognized_commands
View File

@ -25,17 +25,19 @@ sub register {
$self->{_unrec_cmd_max} = 4;
}
$self->{_unrec_cmd_count} = 0;
$qp->connection->notes('unrec_cmd_count', 0);
}
sub check_unrec_cmd {
my ($self, $transaction, $cmd) = @_;
my ($self, $cmd) = @_[0,2];
$self->log(5, "Unrecognized command '$cmd'");
$self->{_unrec_cmd_count}++;
my $badcmdcount = $self->{_unrec_cmd_count};
my $badcmdcount =
$self->qp->connection->notes('unrec_cmd_count',
$self->qp->connection->notes('unrec_cmd_count') + 1
);
if ($badcmdcount >= $self->{_unrec_cmd_max}) {
$self->log(5, "Closing connection. Too many unrecognized commands.");