diff options
Diffstat (limited to 'src/ejabberd_config.erl')
| -rw-r--r-- | src/ejabberd_config.erl | 62 |
1 files changed, 56 insertions, 6 deletions
diff --git a/src/ejabberd_config.erl b/src/ejabberd_config.erl index 1bae8a9fd..40dc97bf2 100644 --- a/src/ejabberd_config.erl +++ b/src/ejabberd_config.erl @@ -10,12 +10,26 @@ -author('alexey@sevcom.net'). -vsn('$Revision$ '). --export([start/0, load_file/1, get_option/1]). +-export([start/0, load_file/1, + add_global_option/2, add_local_option/2, + get_global_option/1, get_local_option/1]). -include("ejabberd.hrl"). +-record(config, {key, value}). +-record(local_config, {key, value}). + start() -> - ets:new(ejabberd_config, [named_table, public]), + %ets:new(ejabberd_config, [named_table, public]), + mnesia:create_table(config, + [{disc_copies, [node()]}, + {attributes, record_info(fields, config)}]), + mnesia:add_table_copy(config, node(), ram_copies), + mnesia:create_table(local_config, + [{disc_copies, [node()]}, + {local_content, true}, + {attributes, record_info(fields, local_config)}]), + mnesia:add_table_copy(local_config, node(), ram_copies), load_file(?CONFIG_PATH). @@ -31,14 +45,50 @@ process_term(Term) -> case Term of {acl, ACLName, ACLData} -> acl:add(ACLName, ACLData); + {access, RuleName, Rules} -> + add_global_option({access, RuleName}, Rules); {Opt, Val} -> - ets:insert(ejabberd_config, {Opt, Val}) + add_option(Opt, Val) + end. + +add_option(Opt, Val) -> + Table = case Opt of + host -> + config; + _ -> + local_config + end, + case Table of + config -> + add_global_option(Opt, Val); + local_config -> + add_local_option(Opt, Val) end. +add_global_option(Opt, Val) -> + mnesia:transaction(fun() -> + mnesia:write(#config{key = Opt, + value = Val}) + end). + +add_local_option(Opt, Val) -> + mnesia:transaction(fun() -> + mnesia:write(#local_config{key = Opt, + value = Val}) + end). + + +get_global_option(Opt) -> + case ets:lookup(config, Opt) of + [#config{value = Val}] -> + Val; + _ -> + undefined + end. -get_option(Opt) -> - case ets:lookup(ejabberd_config, Opt) of - [{_, Val}] -> +get_local_option(Opt) -> + case ets:lookup(local_config, Opt) of + [#local_config{value = Val}] -> Val; _ -> undefined |