diff options
Diffstat (limited to 'ejabberd-1.1.2/src/stringprep/stringprep.erl')
-rw-r--r-- | ejabberd-1.1.2/src/stringprep/stringprep.erl | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/ejabberd-1.1.2/src/stringprep/stringprep.erl b/ejabberd-1.1.2/src/stringprep/stringprep.erl deleted file mode 100644 index f2a4e0f58..000000000 --- a/ejabberd-1.1.2/src/stringprep/stringprep.erl +++ /dev/null @@ -1,97 +0,0 @@ -%%%---------------------------------------------------------------------- -%%% File : stringprep.erl -%%% Author : Alexey Shchepin <alexey@sevcom.net> -%%% Purpose : Interface to stringprep_drv -%%% Created : 16 Feb 2003 by Alexey Shchepin <alexey@sevcom.net> -%%% Id : $Id$ -%%%---------------------------------------------------------------------- - --module(stringprep). --author('alexey@sevcom.net'). --vsn('$Revision$ '). - --behaviour(gen_server). - --export([start/0, start_link/0, - tolower/1, - nameprep/1, - nodeprep/1, - resourceprep/1]). - -%% Internal exports, call-back functions. --export([init/1, - handle_call/3, - handle_cast/2, - handle_info/2, - code_change/3, - terminate/2]). - --define(STRINGPREP_PORT, stringprep_port). - --define(NAMEPREP_COMMAND, 1). --define(NODEPREP_COMMAND, 2). --define(RESOURCEPREP_COMMAND, 3). - -start() -> - gen_server:start({local, ?MODULE}, ?MODULE, [], []). - -start_link() -> - gen_server:start_link({local, ?MODULE}, ?MODULE, [], []). - -init([]) -> - case erl_ddll:load_driver(ejabberd:get_so_path(), stringprep_drv) of - ok -> ok; - {error, already_loaded} -> ok - end, - Port = open_port({spawn, stringprep_drv}, []), - register(?STRINGPREP_PORT, Port), - {ok, Port}. - - -%%% -------------------------------------------------------- -%%% The call-back functions. -%%% -------------------------------------------------------- - -handle_call(_, _, State) -> - {noreply, State}. - -handle_cast(_, State) -> - {noreply, State}. - -handle_info({'EXIT', Pid, Reason}, Port) -> - {noreply, Port}; - -handle_info({'EXIT', Port, Reason}, Port) -> - {stop, {port_died, Reason}, Port}; -handle_info(_, State) -> - {noreply, State}. - -code_change(OldVsn, State, Extra) -> - {ok, State}. - -terminate(_Reason, Port) -> - Port ! {self, close}, - ok. - - - -tolower(String) -> - control(0, String). - -nameprep(String) -> - control(?NAMEPREP_COMMAND, String). - -nodeprep(String) -> - control(?NODEPREP_COMMAND, String). - -resourceprep(String) -> - control(?RESOURCEPREP_COMMAND, String). - -control(Command, String) -> - case port_control(?STRINGPREP_PORT, Command, String) of - [0 | _] -> error; - [1 | Res] -> Res - end. - - - |