[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;