2003-11-11 21:51:04 +01:00
|
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
|
|
|
|
|
"http://www.w3.org/TR/REC-html40/loose.dtd">
|
|
|
|
|
<HTML>
|
|
|
|
|
<HEAD><TITLE>Ejabberd Developers Guide</TITLE>
|
|
|
|
|
|
|
|
|
|
<META http-equiv="Content-Type" content="text/html; charset=ISO8859-1">
|
2005-08-25 22:48:45 +02:00
|
|
|
<META name="GENERATOR" content="hevea 1.07">
|
2003-11-11 21:51:04 +01:00
|
|
|
</HEAD>
|
|
|
|
|
<BODY >
|
|
|
|
|
<!--HEVEA command line is: /usr/bin/hevea -charset ISO8859-1 dev.tex -->
|
|
|
|
|
<!--HTMLHEAD-->
|
|
|
|
|
<!--ENDHTML-->
|
|
|
|
|
<!--PREFIX <ARG ></ARG>-->
|
|
|
|
|
<!--CUT DEF section 1 -->
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<H1 ALIGN=center>Ejabberd Developers Guide</H1>
|
|
|
|
|
|
|
|
|
|
<H3 ALIGN=center>Alexey Shchepin<BR>
|
|
|
|
|
<A HREF="mailto:alexey@sevcom.net"><TT>mailto:alexey@sevcom.net</TT></A><BR>
|
|
|
|
|
<A HREF="xmpp:aleksey@jabber.ru"><TT>xmpp:aleksey@jabber.ru</TT></A></H3>
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
<H3 ALIGN=center>August 21, 2005</H3><DIV ALIGN=center>
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
<IMG SRC="logo.png">
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
</DIV><BR>
|
|
|
|
|
<BR>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<!--TOC section Table of Contents-->
|
|
|
|
|
|
|
|
|
|
<H2>Table of Contents</H2><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
<UL><LI>
|
|
|
|
|
<A HREF="#htoc1">1 Introduction</A>
|
|
|
|
|
<UL><LI>
|
|
|
|
|
<A HREF="#htoc2">1.1 How it works</A>
|
|
|
|
|
<UL><LI>
|
|
|
|
|
<A HREF="#htoc3">1.1.1 Router</A>
|
|
|
|
|
<LI><A HREF="#htoc4">1.1.2 Local Router</A>
|
|
|
|
|
<LI><A HREF="#htoc5">1.1.3 Session Manager</A>
|
|
|
|
|
<LI><A HREF="#htoc6">1.1.4 S2S Manager</A>
|
|
|
|
|
</UL>
|
|
|
|
|
</UL>
|
|
|
|
|
<LI><A HREF="#htoc7">2 XML representation</A>
|
|
|
|
|
<LI><A HREF="#htoc8">3 Module <TT>xml</TT></A>
|
2005-08-25 22:48:45 +02:00
|
|
|
<LI><A HREF="#htoc9">4 Module <TT>xml_stream</TT></A>
|
|
|
|
|
<LI><A HREF="#htoc10">5 <TT>ejabberd</TT> modules</A>
|
2003-11-11 21:51:04 +01:00
|
|
|
<UL><LI>
|
2005-08-25 22:48:45 +02:00
|
|
|
<A HREF="#htoc11">5.1 <CODE>gen_mod</CODE> behaviour</A>
|
|
|
|
|
<LI><A HREF="#htoc12">5.2 Module <CODE>gen_iq_handler</CODE></A>
|
|
|
|
|
<LI><A HREF="#htoc13">5.3 Services</A>
|
2003-11-11 21:51:04 +01:00
|
|
|
</UL>
|
|
|
|
|
</UL>
|
|
|
|
|
|
|
|
|
|
<!--TOC section Introduction-->
|
|
|
|
|
|
|
|
|
|
<H2><A NAME="htoc1">1</A> Introduction</H2><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
<A NAME="sec:intro"></A>
|
|
|
|
|
<TT>ejabberd</TT> is a Free and Open Source fault-tolerant distributed Jabber
|
2005-05-23 21:47:57 +02:00
|
|
|
server. It is written mostly in Erlang.<BR>
|
2003-11-11 21:51:04 +01:00
|
|
|
<BR>
|
2005-05-23 21:47:57 +02:00
|
|
|
The main features of <TT>ejabberd</TT> are:
|
2003-11-11 21:51:04 +01:00
|
|
|
<UL><LI>
|
2005-05-23 21:47:57 +02:00
|
|
|
Works on most of popular platforms: *nix (tested on Linux, FreeBSD and
|
|
|
|
|
NetBSD) and Win32
|
|
|
|
|
<LI>Distributed: You can run <TT>ejabberd</TT> on a cluster of machines to let all of
|
|
|
|
|
them serve one Jabber domain.
|
2003-11-11 21:51:04 +01:00
|
|
|
<LI>Fault-tolerance: You can setup an <TT>ejabberd</TT> cluster so that all the
|
|
|
|
|
information required for a properly working service will be stored
|
|
|
|
|
permanently on more than one node. This means that if one of the nodes
|
|
|
|
|
crashes, then the others will continue working without disruption.
|
2005-05-23 21:47:57 +02:00
|
|
|
You can also add or replace nodes ``on the fly''.
|
|
|
|
|
<LI>Support for virtual hosting
|
|
|
|
|
<LI>Built-in <A HREF="http://www.jabber.org/jeps/jep-0045.html">Multi-User Chat</A> service
|
2003-11-11 21:51:04 +01:00
|
|
|
<LI>Built-in IRC transport
|
2005-05-23 21:47:57 +02:00
|
|
|
<LI>Built-in <A HREF="http://www.jabber.org/jeps/jep-0060.html">Publish-Subscribe</A> service
|
2003-11-11 21:51:04 +01:00
|
|
|
<LI>Built-in Jabber Users Directory service based on users vCards
|
2005-05-23 21:47:57 +02:00
|
|
|
<LI>Built-in web-based administration interface
|
|
|
|
|
<LI>Built-in <A HREF="http://www.jabber.org/jeps/jep-0025.html">HTTP Polling</A> service
|
|
|
|
|
<LI>SSL support
|
|
|
|
|
<LI>Support for LDAP authentication
|
|
|
|
|
<LI>Ability to interface with external components (JIT, MSN-t, Yahoo-t, etc.)
|
|
|
|
|
<LI>Migration from jabberd14 is possible
|
|
|
|
|
<LI>Mostly XMPP-compliant
|
|
|
|
|
<LI>Support for <A HREF="http://www.jabber.org/jeps/jep-0030.html">Service Discovery</A>.
|
|
|
|
|
<LI>Support for <A HREF="http://www.jabber.org/jeps/jep-0039.html">Statistics Gathering</A>.
|
|
|
|
|
<LI>Support for <TT>xml:lang</TT>
|
2003-11-11 21:51:04 +01:00
|
|
|
</UL>
|
|
|
|
|
<!--TOC subsection How it works-->
|
|
|
|
|
|
|
|
|
|
<H3><A NAME="htoc2">1.1</A> How it works</H3><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
<A NAME="sec:howitworks"></A>
|
|
|
|
|
A Jabber domain is served by one or more <TT>ejabberd</TT> nodes. These nodes can
|
|
|
|
|
be run on different machines that are connected via a network. They all must
|
|
|
|
|
have the ability to connect to port 4369 of all another nodes, and must have
|
|
|
|
|
the same magic cookie (see Erlang/OTP documentation, in other words the file
|
|
|
|
|
<TT>~ejabberd/.erlang.cookie</TT> must be the same on all nodes). This is
|
|
|
|
|
needed because all nodes exchange information about connected users, S2S
|
|
|
|
|
connections, registered services, etc...<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
Each <TT>ejabberd</TT> node have following modules:
|
|
|
|
|
<UL><LI>
|
|
|
|
|
router;
|
|
|
|
|
<LI>local router.
|
|
|
|
|
<LI>session manager;
|
|
|
|
|
<LI>S2S manager;
|
|
|
|
|
</UL>
|
|
|
|
|
<!--TOC subsubsection Router-->
|
|
|
|
|
|
|
|
|
|
<H4><A NAME="htoc3">1.1.1</A> Router</H4><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
This module is the main router of Jabber packets on each node. It routes
|
|
|
|
|
them based on their destinations domains. It has two tables: local and global
|
|
|
|
|
routes. First, domain of packet destination searched in local table, and if it
|
|
|
|
|
found, then the packet is routed to appropriate process. If no, then it
|
|
|
|
|
searches in global table, and is routed to the appropriate <TT>ejabberd</TT> node or
|
|
|
|
|
process. If it does not exists in either tables, then it sent to the S2S
|
|
|
|
|
manager.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<!--TOC subsubsection Local Router-->
|
|
|
|
|
|
|
|
|
|
<H4><A NAME="htoc4">1.1.2</A> Local Router</H4><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
This module routes packets which have a destination domain equal to this server
|
|
|
|
|
name. If destination JID has a non-empty user part, then it routed to the
|
|
|
|
|
session manager, else it is processed depending on it's content.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<!--TOC subsubsection Session Manager-->
|
|
|
|
|
|
|
|
|
|
<H4><A NAME="htoc5">1.1.3</A> Session Manager</H4><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
This module routes packets to local users. It searches for what user resource
|
|
|
|
|
packet must be sended via presence table. If this resource is connected to
|
|
|
|
|
this node, it is routed to C2S process, if it connected via another node, then
|
|
|
|
|
the packet is sent to session manager on that node.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<!--TOC subsubsection S2S Manager-->
|
|
|
|
|
|
|
|
|
|
<H4><A NAME="htoc6">1.1.4</A> S2S Manager</H4><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
This module routes packets to other Jabber servers. First, it checks if an
|
|
|
|
|
open S2S connection from the domain of the packet source to the domain of
|
|
|
|
|
packet destination already exists. If it is open on another node, then it
|
|
|
|
|
routes the packet to S2S manager on that node, if it is open on this node, then
|
|
|
|
|
it is routed to the process that serves this connection, and if a connection
|
|
|
|
|
does not exist, then it is opened and registered.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<!--TOC section XML representation-->
|
|
|
|
|
|
|
|
|
|
<H2><A NAME="htoc7">2</A> XML representation</H2><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
<A NAME="sec:xmlrepr"></A>
|
2005-08-25 22:48:45 +02:00
|
|
|
Each XML stanza is represented as the following tuple:
|
2003-11-11 21:51:04 +01:00
|
|
|
<PRE>
|
|
|
|
|
XMLElement = {xmlelement, Name, Attrs, [ElementOrCDATA]}
|
|
|
|
|
Name = string()
|
|
|
|
|
Attrs = [Attr]
|
|
|
|
|
Attr = {Key, Val}
|
|
|
|
|
Key = string()
|
|
|
|
|
Val = string()
|
|
|
|
|
ElementOrCDATA = XMLElement | CDATA
|
|
|
|
|
CDATA = {xmlcdata, string()}
|
|
|
|
|
</PRE>E. g. this stanza:
|
|
|
|
|
<PRE>
|
2005-05-23 21:47:57 +02:00
|
|
|
<message to='test@conference.example.org' type='groupchat'>
|
2003-11-11 21:51:04 +01:00
|
|
|
<body>test</body>
|
|
|
|
|
</message>
|
2005-08-25 22:48:45 +02:00
|
|
|
</PRE>is represented as the following structure:
|
2003-11-11 21:51:04 +01:00
|
|
|
<PRE>
|
|
|
|
|
{xmlelement, "message",
|
2005-05-23 21:47:57 +02:00
|
|
|
[{"to", "test@conference.example.org"},
|
2003-11-11 21:51:04 +01:00
|
|
|
{"type", "groupchat"}],
|
|
|
|
|
[{xmlelement, "body",
|
|
|
|
|
[],
|
|
|
|
|
[{xmlcdata, "test"}]}]}}
|
|
|
|
|
</PRE>
|
|
|
|
|
<!--TOC section Module <TT>xml</TT>-->
|
|
|
|
|
|
|
|
|
|
<H2><A NAME="htoc8">3</A> Module <TT>xml</TT></H2><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
<A NAME="sec:xmlmod"></A>
|
|
|
|
|
<DL COMPACT=compact><DT>
|
|
|
|
|
<CODE><B>element_to_string(El) -> string()</B></CODE><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
El = XMLElement
|
|
|
|
|
</PRE>Returns string representation of XML stanza <TT>El</TT>.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<DT><CODE><B>crypt(S) -> string()</B></CODE><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
S = string()
|
|
|
|
|
</PRE>Returns string which correspond to <TT>S</TT> with encoded XML special
|
|
|
|
|
characters.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<DT><CODE><B>remove_cdata(ECList) -> EList</B></CODE><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
ECList = [ElementOrCDATA]
|
|
|
|
|
EList = [XMLElement]
|
|
|
|
|
</PRE><TT>EList</TT> is a list of all non-CDATA elements of ECList.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<DT><CODE><B>get_path_s(El, Path) -> Res</B></CODE><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
El = XMLElement
|
|
|
|
|
Path = [PathItem]
|
|
|
|
|
PathItem = PathElem | PathAttr | PathCDATA
|
|
|
|
|
PathElem = {elem, Name}
|
|
|
|
|
PathAttr = {attr, Name}
|
|
|
|
|
PathCDATA = cdata
|
|
|
|
|
Name = string()
|
|
|
|
|
Res = string() | XMLElement
|
|
|
|
|
</PRE>If <TT>Path</TT> is empty, then returns <TT>El</TT>. Else sequentially
|
|
|
|
|
consider elements of <TT>Path</TT>. Each element is one of:
|
|
|
|
|
<DL COMPACT=compact><DT>
|
|
|
|
|
<CODE><B>{elem, Name}</B></CODE><DD> <TT>Name</TT> is name of subelement of
|
|
|
|
|
<TT>El</TT>, if such element exists, then this element considered in
|
|
|
|
|
following steps, else returns empty string.
|
|
|
|
|
<DT><CODE><B>{attr, Name}</B></CODE><DD> If <TT>El</TT> have attribute <TT>Name</TT>, then
|
|
|
|
|
returns value of this attribute, else returns empty string.
|
|
|
|
|
<DT><CODE><B>cdata</B></CODE><DD> Returns CDATA of <TT>El</TT>.
|
|
|
|
|
</DL><BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<DT><B>TODO:</B><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
get_cdata/1, get_tag_cdata/1
|
|
|
|
|
get_attr/2, get_attr_s/2
|
|
|
|
|
get_tag_attr/2, get_tag_attr_s/2
|
|
|
|
|
get_subtag/2
|
|
|
|
|
</PRE></DL>
|
2005-08-25 22:48:45 +02:00
|
|
|
<!--TOC section Module <TT>xml_stream</TT>-->
|
|
|
|
|
|
|
|
|
|
<H2><A NAME="htoc9">4</A> Module <TT>xml_stream</TT></H2><!--SEC END -->
|
|
|
|
|
|
|
|
|
|
<A NAME="sec:xmlstreammod"></A>
|
|
|
|
|
<DL COMPACT=compact><DT>
|
|
|
|
|
<CODE><B>parse_element(Str) -> XMLElement | {error, Err}</B></CODE><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
Str = string()
|
|
|
|
|
Err = term()
|
|
|
|
|
</PRE>Parses <TT>Str</TT> using XML parser, returns either parsed element or error
|
|
|
|
|
tuple.
|
|
|
|
|
</DL>
|
2003-11-11 21:51:04 +01:00
|
|
|
<!--TOC section <TT>ejabberd</TT> modules-->
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
<H2><A NAME="htoc10">5</A> <TT>ejabberd</TT> modules</H2><!--SEC END -->
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
<A NAME="sec:emods"></A>
|
|
|
|
|
<!--TOC subsection <CODE>gen_mod</CODE> behaviour-->
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
<H3><A NAME="htoc11">5.1</A> <CODE>gen_mod</CODE> behaviour</H3><!--SEC END -->
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
<A NAME="sec:genmod"></A>
|
|
|
|
|
TBD<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
<!--TOC subsection Module <CODE>gen_iq_handler</CODE>-->
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
<H3><A NAME="htoc12">5.2</A> Module <CODE>gen_iq_handler</CODE></H3><!--SEC END -->
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
<A NAME="sec:geniqhandl"></A>
|
|
|
|
|
The module <CODE>gen_iq_handler</CODE> allows to easily write handlers for IQ packets
|
|
|
|
|
of particular XML namespaces that addressed to server or to users bare JIDs.<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
In this module the following functions are defined:
|
|
|
|
|
<DL COMPACT=compact><DT>
|
2005-08-25 22:48:45 +02:00
|
|
|
<CODE><B>add_iq_handler(Component, Host, NS, Module, Function, Type)</B></CODE><DD>
|
2003-11-11 21:51:04 +01:00
|
|
|
<PRE>
|
|
|
|
|
Component = Module = Function = atom()
|
2005-08-25 22:48:45 +02:00
|
|
|
Host = NS = string()
|
2003-11-11 21:51:04 +01:00
|
|
|
Type = no_queue | one_queue | parallel
|
2005-08-25 22:48:45 +02:00
|
|
|
</PRE>Registers function <CODE>Module:Function</CODE> as handler for IQ packets on
|
|
|
|
|
virtual host <CODE>Host</CODE> that contain child of namespace <CODE>NS</CODE> in
|
|
|
|
|
<CODE>Component</CODE>. Queueing discipline is <CODE>Type</CODE>. There are at least
|
|
|
|
|
two components defined:
|
2003-11-11 21:51:04 +01:00
|
|
|
<DL COMPACT=compact><DT>
|
|
|
|
|
<CODE><B>ejabberd_local</B></CODE><DD> Handles packets that addressed to server JID;
|
|
|
|
|
<DT><CODE><B>ejabberd_sm</B></CODE><DD> Handles packets that addressed to users bare JIDs.
|
|
|
|
|
</DL>
|
2005-08-25 22:48:45 +02:00
|
|
|
<DT><CODE><B>remove_iq_handler(Component, Host, NS)</B></CODE><DD>
|
2003-11-11 21:51:04 +01:00
|
|
|
<PRE>
|
|
|
|
|
Component = atom()
|
2005-08-25 22:48:45 +02:00
|
|
|
Host = NS = string()
|
|
|
|
|
</PRE>Removes IQ handler on virtual host <CODE>Host</CODE> for namespace <CODE>NS</CODE> from
|
|
|
|
|
<CODE>Component</CODE>.
|
2003-11-11 21:51:04 +01:00
|
|
|
</DL>
|
|
|
|
|
Handler function must have the following type:
|
|
|
|
|
<DL COMPACT=compact><DT>
|
|
|
|
|
<CODE><B>Module:Function(From, To, IQ)</B></CODE><DD>
|
|
|
|
|
<PRE>
|
|
|
|
|
From = To = jid()
|
|
|
|
|
</PRE></DL>
|
|
|
|
|
<PRE>
|
|
|
|
|
-module(mod_cputime).
|
|
|
|
|
|
|
|
|
|
-behaviour(gen_mod).
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
-export([start/2,
|
|
|
|
|
stop/1,
|
2003-11-11 21:51:04 +01:00
|
|
|
process_local_iq/3]).
|
|
|
|
|
|
|
|
|
|
-include("ejabberd.hrl").
|
|
|
|
|
-include("jlib.hrl").
|
|
|
|
|
|
|
|
|
|
-define(NS_CPUTIME, "ejabberd:cputime").
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
start(Host, Opts) ->
|
2003-11-11 21:51:04 +01:00
|
|
|
IQDisc = gen_mod:get_opt(iqdisc, Opts, one_queue),
|
2005-08-25 22:48:45 +02:00
|
|
|
gen_iq_handler:add_iq_handler(ejabberd_local, Host, ?NS_CPUTIME,
|
2003-11-11 21:51:04 +01:00
|
|
|
?MODULE, process_local_iq, IQDisc).
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
stop(Host) ->
|
|
|
|
|
gen_iq_handler:remove_iq_handler(ejabberd_local, Host, ?NS_CPUTIME).
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
process_local_iq(From, To, {iq, ID, Type, XMLNS, SubEl}) ->
|
|
|
|
|
case Type of
|
|
|
|
|
set ->
|
|
|
|
|
{iq, ID, error, XMLNS,
|
|
|
|
|
[SubEl, ?ERR_NOT_ALLOWED]};
|
|
|
|
|
get ->
|
|
|
|
|
CPUTime = element(1, erlang:statistics(runtime))/1000,
|
|
|
|
|
SCPUTime = lists:flatten(io_lib:format("~.3f", CPUTime)),
|
|
|
|
|
{iq, ID, result, XMLNS,
|
|
|
|
|
[{xmlelement, "query",
|
|
|
|
|
[{"xmlns", ?NS_CPUTIME}],
|
|
|
|
|
[{xmlelement, "cputime", [], [{xmlcdata, SCPUTime}]}]}]}
|
|
|
|
|
end.
|
|
|
|
|
</PRE>
|
|
|
|
|
<!--TOC subsection Services-->
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
<H3><A NAME="htoc13">5.3</A> Services</H3><!--SEC END -->
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
<A NAME="sec:services"></A>
|
|
|
|
|
TBD<BR>
|
|
|
|
|
<BR>
|
|
|
|
|
TODO: use <CODE>proc_lib</CODE>
|
|
|
|
|
<PRE>
|
|
|
|
|
-module(mod_echo).
|
|
|
|
|
|
|
|
|
|
-behaviour(gen_mod).
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
-export([start/2, init/1, stop/1]).
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
-include("ejabberd.hrl").
|
|
|
|
|
-include("jlib.hrl").
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
start(Host, Opts) ->
|
|
|
|
|
MyHost = gen_mod:get_opt(host, Opts, "echo." ++ Host),
|
|
|
|
|
register(gen_mod:get_module_proc(Host, ?PROCNAME),
|
|
|
|
|
spawn(?MODULE, init, [MyHost])).
|
2003-11-11 21:51:04 +01:00
|
|
|
|
|
|
|
|
init(Host) ->
|
|
|
|
|
ejabberd_router:register_local_route(Host),
|
|
|
|
|
loop(Host).
|
|
|
|
|
|
|
|
|
|
loop(Host) ->
|
|
|
|
|
receive
|
|
|
|
|
{route, From, To, Packet} ->
|
|
|
|
|
ejabberd_router:route(To, From, Packet),
|
|
|
|
|
loop(Host);
|
|
|
|
|
stop ->
|
2005-08-25 22:48:45 +02:00
|
|
|
ejabberd_router:unregister_route(Host),
|
2003-11-11 21:51:04 +01:00
|
|
|
ok;
|
|
|
|
|
_ ->
|
|
|
|
|
loop(Host)
|
|
|
|
|
end.
|
|
|
|
|
|
2005-08-25 22:48:45 +02:00
|
|
|
stop(Host) ->
|
|
|
|
|
Proc = gen_mod:get_module_proc(Host, ?PROCNAME),
|
|
|
|
|
Proc ! stop,
|
|
|
|
|
{wait, Proc}.
|
2003-11-11 21:51:04 +01:00
|
|
|
</PRE>
|
|
|
|
|
<!--HTMLFOOT-->
|
|
|
|
|
<!--ENDHTML-->
|
|
|
|
|
<!--FOOTER-->
|
|
|
|
|
<HR SIZE=2>
|
|
|
|
|
<BLOCKQUOTE><EM>This document was translated from L<sup>A</sup>T<sub>E</sub>X by
|
|
|
|
|
</EM><A HREF="http://pauillac.inria.fr/~maranget/hevea/index.html"><EM>H<FONT SIZE=2><sup>E</sup></FONT>V<FONT SIZE=2><sup>E</sup></FONT>A</EM></A><EM>.
|
|
|
|
|
</EM></BLOCKQUOTE>
|
|
|
|
|
</BODY>
|
|
|
|
|
</HTML>
|
