Comment créer des variables globales dans Erlang

Je suis en train d'écrire un ejabberd module de filtre de paquets. J'ai besoin d'obtenir le nom d'hôte de tirer certaines configs à l'aide de gen_mod:get_module_opt().

J'ai 4 fonctions importantes :

  1. start(Host, _Opt) : C'est un ejabberd fonction pour charger mon module. Je reçois le Host atome ici
  2. filter_packet({From, To, XML}): C'est mon filtre de paquets crochet. Je ne peux pas passer des paramètres personnalisés à cette fonction, car il est un crochet dans ejabberd.
  3. get_translation(XmlData): filter_packet() appels get_translation() dans une boucle
  4. fetch_translation(XmlData): appelée récursivement à partir de get_translation(). C'est là que je fais appel gen_mod:get_module_opt()et donc besoin de la Host.

Ma question est, comment puis-je prendre Host de start() et le mettre dans une variable globale, de sorte que fetch_translation peut y avoir accès?

source d'informationauteur Adil

  1. 9

    La "meilleure façon" est de créer un nommé ets table, et de le mettre là.

    start(Host, _Opt) ->
  ets:new(my_table, [named_table, protected, set, {keypos, 1}]),
  ets:insert(my_table, {host, Host}),
  ...

fetch_translation(XmlData) ->
  [{_, Host}] = ets:lookup(my_table, host),
  ...

    Remarque que c'est un "général" de la solution. Ejabberd pourrait fournir des installations de ce que vous voulez, mais je ne peux pas vous aider avec ça.

  2. 9

    Il peut paraître inutile mais vous pouvez envisager la mise en œuvre d'une base très gen_server. Il contient un état qui est à la disposition de ses rappels et les données peuvent être conservées. Pour votre cas, vous pouvez écrire un module similaire à ceci:

    -module(your_module_name).

-behaviour(gen_server).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).

-export([start/2, filter_loop/1]).

start(Host, Opt) ->
  %% start the named gen server
  gen_server:start({local, ?MODULE}, ?MODULE, Host, []).

filter_packet({From, To, XML}) ->
  %% do your thing
  gen_server:call(?MODULE, {fetch_translation, XmlData}).

%% this will be called by gen_server:start - just pass the Host
init(Host) ->
  {ok, Host}.

handle_call({fetch_translation, XmlData}, _From, Host) ->
  %% do your thing
  {reply, ok, Host}.

%% you can ignore the rest - they are needed to be present
handle_cast(_Msg, State) ->
  {noreply, State}.
handle_info(_Info, State) ->
  {noreply, State}.
code_change(_OldVsn, State, _Extra) ->
  {ok, State}.
  3. 1

    Vous pourriez commencer un nouveau message processus de filtrage, et de l'inscrire à l'aide de erlang:register/2puis de les diriger tous les filter_packet/1 demandes par le biais de celle-ci (un goulot d'étranglement potentiel).

    -define(?SERVER, msg_filter).

start(Host, Opt) ->
   {ok, Pid} = spawn(?MODULE, filter_loop, [Host, Opt]),
   register(?SERVER, Pid).

filter_loop(Host, Opt) ->
   receive
      {Pid, filter_packet, {_From, _To, XML}} ->
           Trans = get_translation(XML, Host),
           Pid ! {?SERVER, translation, Trans}, 
           filter_loop(Host, Opt)
   end.

filter_packet(Pack) ->
   ?SERVER ! {self(), filter_packet, Pack}
   receive 
      {?SERVER, translation, Trans} ->
           % wrap translation
           UpdatedPacket
   end.
  4. 1

    Dire que vous êtes le filtrage de paquets entrants, puis À#jid.lserver pourrait être votre hôte.

  5. 1

    devinettes pour votre description que vous êtes dans un domaine unique ejabberd de déploiement (pas de virtual hosts),

    yo peut obtenir le local XMPP de domaine à l'aide de l' ?MYNAME macro (voir ejabberd.des droits de l'homme pour la définition).