Patch for external digest authentication:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
diff src.old/ejabberd_auth_external.erl src/ejabberd_auth_external.erl
37c37
< true.
---
> false.
42,43c42,43
< check_password(User, Server, Password, _StreamID, _Digest) ->
< check_password(User, Server, Password).
---
> check_password(User, Server, Password, StreamID, Digest) ->
> extauth:check_passwordd(User, Server, Password, StreamID, Digest).
diff src.old/extauth.erl src/extauth.erl
13,14c13
< check_password/2, set_password/2, is_user_exists/1 ]).
<
---
> check_password/2, check_passwordd/4, set_password/2, is_user_exists/1 ]).
29a29,31
>
> check_password(User,Password, StreamID, Digest) ->
> call_port(["auth",User,Password,StreamID,Digest]).
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
in auth. perl script add:
use Digest::SHA1; #From CPAN
my ($op,$user,$password) = split /:/,$buf;
replace to:
my ($op,$user,$password,$stream,$digest) = split /:/,$buf;
and check password procedure:
$userpass="!!!USER PASSWORD HERE!!!";
$digest eq Digest::SHA1::sha1_hex($stream.$userpass)
Sorry, i can't take my script...
