From a7a3031440b908cb4be2c513abba000a95364e5f Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Sun, 24 Sep 2006 14:55:48 +0000
Subject: [PATCH] OK, really, this time the capitalization for AUTH mechanisms
 is correct.

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@662 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/SMTP.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index eb6849e..e26e569 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -243,7 +243,7 @@ sub auth {
     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 @@ sub auth {
       	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" );