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