byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@662 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2006-09-24 14:55:48 +00:00
parent 9028958307
commit a7a3031440
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd/SMTP.pm
View File

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