ejabberd_auth_pam and offline message

--- ejabberd_auth_pam.erl.org 2007-01-13 19:14:59.000000000 +0100
+++ ejabberd_auth_pam.erl.new 2007-01-13 19:16:41.000000000 +0100
@@ -69,7 +69,19 @@
[].

is_user_exists( _User, _Server ) ->
- false.
+ {ok,FileBin}=file:read_file("/etc/passwd"),
+ Tmp=binary_to_list(FileBin),
+ FileStr=string:concat("\n", Tmp),
+
+ Tmp2=string:concat("\n", _User),
+ RegExp=string:concat(Tmp2, ":"),
+
+ case regexp:match(FileStr, RegExp) of
+ {match, _, _} ->
+ true;
+ _ ->
+ false
+ end.

get_password( _User, _Server ) ->
false.