eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Say hello to ejabberd and SASL-md5digest auth

Browse Source
This commit is contained in:
eleksir
2020-11-14 12:51:49 +03:00
parent 2827ec64e9
commit 1780c94ede
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Authen/SASL/Perl/DIGEST_MD5.pm
View File

@@ -283,9 +283,9 @@ sub client_step { # $self, $server_sasl_credentials
} }
my $authzid = $self->_call('authname'); my $authzid = $self->_call('authname');
if (defined $authzid) { # if (defined $authzid) {
$response{authzid} = $authzid; # $response{authzid} = $authzid;
} # }
my $serv_name = $self->_call('serv'); my $serv_name = $self->_call('serv');
if (defined $serv_name) { if (defined $serv_name) {