[svn:qpsmtpd] rev 494 - branches/0.31/lib/Qpsmtpd
[email protected] 11 Jul 2005 12:24:26 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: msergeant
Date: Mon Jul 11 05:24:26 2005
New Revision: 494
Modified:
branches/0.31/lib/Qpsmtpd/SMTP.pm
Log:
Pass args to unrecognized_command
Modified: branches/0.31/lib/Qpsmtpd/SMTP.pm
==============================================================================
--- branches/0.31/lib/Qpsmtpd/SMTP.pm (original)
+++ branches/0.31/lib/Qpsmtpd/SMTP.pm Mon Jul 11 05:24:26 2005
@@ -51,7 +51,7 @@ sub dispatch {
$self->{_counter}++;
if ($cmd !~ /^(\w{1,12})$/ or !exists $self->{_commands}->{$1}) {
- my ($rc, $msg) = $self->run_hooks("unrecognized_command", $cmd);
+ my ($rc, $msg) = $self->run_hooks("unrecognized_command", $cmd, @_);
if ($rc == DENY_DISCONNECT) {
$self->respond(521, $msg);
$self->disconnect;