Say hello to ejabberd and SASL-md5digest auth
This commit is contained in:
@@ -283,9 +283,9 @@ sub client_step { # $self, $server_sasl_credentials
|
||||
}
|
||||
|
||||
my $authzid = $self->_call('authname');
|
||||
if (defined $authzid) {
|
||||
$response{authzid} = $authzid;
|
||||
}
|
||||
# if (defined $authzid) {
|
||||
# $response{authzid} = $authzid;
|
||||
# }
|
||||
|
||||
my $serv_name = $self->_call('serv');
|
||||
if (defined $serv_name) {
|
||||
|
||||
Reference in New Issue
Block a user