[svn:qpsmtpd] r662 - branches/0.3x/lib/Qpsmtpd

[email protected] Sun, 24 Sep 2006 07:55:50 -0700 (PDT)
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: jpeacock
Date: Sun Sep 24 07:55:48 2006
New Revision: 662

Modified:
   branches/0.3x/lib/Qpsmtpd/SMTP.pm

Log:
OK, really, this time the capitalization for AUTH mechanisms is correct.

Modified: branches/0.3x/lib/Qpsmtpd/SMTP.pm
==============================================================================
--- branches/0.3x/lib/Qpsmtpd/SMTP.pm	(original)
+++ branches/0.3x/lib/Qpsmtpd/SMTP.pm	Sun Sep 24 07:55:48 2006
@@ -243,7 +243,7 @@
     return $self->respond(501, $mechanism || "Syntax error in command") 
       unless ($ok == OK);
 
-    $mechanism = uc($mechanism);
+    $mechanism = lc($mechanism);
     
 
     #they AUTH'd once already
@@ -257,7 +257,7 @@
       	and $self->transaction->notes('tls_enabled') );
 
     # if we don't have a plugin implementing this auth mechanism, 504
-    if( exists $auth_mechanisms{$mechanism} ) {
+    if( exists $auth_mechanisms{uc($mechanism)} ) {
       return $self->{_auth} = Qpsmtpd::Auth::SASL( $self, $mechanism, @stuff );
     } else {
       $self->respond( 504, "Unimplemented authentification mechanism: $mechanism" );