50 lines
1.1 KiB
Erlang
50 lines
1.1 KiB
Erlang
|
%%%----------------------------------------------------------------------
|
||
|
|
%%% File : ejabberd_config.erl
|
||
|
|
%%% Author : Alexey Shchepin <alexey@sevcom.net>
|
||
|
|
%%% Purpose :
|
||
|
|
%%% Created : 14 Dec 2002 by Alexey Shchepin <alexey@sevcom.net>
|
||
|
|
%%% Id : $Id$
|
||
|
|
%%%----------------------------------------------------------------------
|
||
|
|
|
||
|
|
-module(ejabberd_config).
|
||
|
|
-author('alexey@sevcom.net').
|
||
|
|
-vsn('$Revision$ ').
|
||
|
|
|
||
|
|
-export([start/0, load_file/1, get_option/1]).
|
||
|
|
|
||
|
|
-include("ejabberd.hrl").
|
||
|
|
|
||
|
|
start() ->
|
||
|
|
ets:new(ejabberd_config, [named_table, public]),
|
||
|
|
load_file(?CONFIG_PATH).
|
||
|
|
|
||
|
|
|
||
|
|
load_file(File) ->
|
||
|
|
{ok, Bin} = file:read_file(File),
|
||
|
|
Content = binary_to_list(Bin),
|
||
|
|
parse(Content).
|
||
|
|
|
||
|
|
|
||
|
|
parse(String) ->
|
||
|
|
case erl_scan:tokens([], String, 0) of
|
||
|
|
{done, Result, Left} ->
|
||
|
|
{ok, Tokens, _} = Result,
|
||
|
|
{ok, Term} = erl_parse:parse_term(Tokens),
|
||
|
|
{Opt, Val} = Term,
|
||
|
|
ets:insert(ejabberd_config, {Opt, Val}),
|
||
|
|
parse(Left);
|
||
|
|
_ ->
|
||
|
|
ok
|
||
|
|
end.
|
||
|
|
|
||
|
|
get_option(Opt) ->
|
||
|
|
case ets:lookup(ejabberd_config, Opt) of
|
||
|
|
[{_, Val}] ->
|
||
|
|
Val;
|
||
|
|
_ ->
|
||
|
|
undefined
|
||
|
|
end.
|
||
|
|
|
||
|
|
|
||
|
|
|