Erlang Developers Home

Programming Erlang, Software for A Concurrent World

2008-05-30T11:28:29+02:00

A copy of "Programming Erlang, Software for A Concurrent World" by Mr. Joe Armstrong just landed in my lucky hands! I can't wait to read and learn from Erlangs'creator :) I'm writing the introduction: The World is parallel. If we want to write programs that behave as other objects behave in the real world, then these programs will have a concurrent structure. Use a language that was designed for writing concurrent applications, and development becomes lot easier. Erlang programs model how we think and interact Joe Armstrong (Programming Erlang, Software for a Concurrent World, Joe Armstrong, Pragmatic Bookshelf, @2007 armstrononsoftware) Links: Programming Erlang, Software for a Concurrent World, The Pragmatic Bookshelf. Armstrononsoftware, Blogger

Pubblicato da loretoparisi | Commenti (5)

Tags: programming erlang, joe armstrong

Lists arithmetic

2008-04-23T10:20:03+02:00

In Erlang we can use many method to access to lists and tuples, and some of them are very quick and easy. With ++ and -- operators you can add and subtract lists, like in the following example: Thelist=[1,2,3,4,5,6,7,8,9,10], Even = lists:filter(fun(E) -> E rem 2 == 0 end, Thelist), Odd=Thelist -- Even, Newlist = Odd ++ [ one, five ]. So Odd list will contains [1,3,5,7,9], Even list will contains [2,4,6,8,10] and Newlist will contain [1,3,5,7,9,one,five].

Pubblicato da stefko | Commenti

Tags: list, erlang, arithmetic

XML socket in Flash with Ejebberd 2.0.0

2008-04-07T13:03:02+02:00

I've recently been involved in the problem of Flash (7.0 and following) XML socket. Flash uses a "strange" kind of packet transfer in XML socket so Ejabberd 2.0.0 is not compatible with some Flash version. I've seen a patch for Ejabberd 1.1.X versions and I've adapted it to fit with ejabberd 2.0.0. Please note that this patch changes configure.ac file, but you must DO NOT run aclocal command. At the moment aclocal.m4 file contains some macro that aclocal command will overwrite! So please follow these steps to apply this patch to Ejabberd 2.0.0: patch -p0 The patch is available here.

Pubblicato da stefko | Commenti

Tags: flash, patch, ejabberd, xml socket

Ejabberd 2.0 Cookie Patch

2008-04-07T11:37:55+02:00

As promised I'm releasing the cookie patch for ejabberd 2.0. The patch is quite simple and takes few minutes to check it out. To apply the patch cumulatively, simply do the following ejabberd/src/web/ $ patch < $HOME/ejabberd-2.0-cookie.patch Otherwise you could apply the patch to single files: ejabberd/src/web/ $ patch ejabberd_http.hrl $HOME/ejabberd_http_hrl.patch ejabberd/src/web/ $ patch ejabberd_http.erl $HOME/ejabberd_http_erl.patch Let me know if you got errors applying this patch. Links: ejabberd 2.0 Cumulative Cookie Patch ejabberd_http Source Cookie Patch ejabberd_http Header Cookie Patch

Pubblicato da loretoparisi | Commenti

Tags: cookie, patch, ejabberd

Add cookie support in ejabberd

2008-04-04T18:05:40+02:00

To add cookies to HTTP POST/GET requests in ejabberd (1.1.x and 2.x) we have to add some fields in the request headers, setting up the request and state records in ejabberd_http.erl module and its header file ejabberd_http.hrl. First of all, we will add the field cookie to the record request in ejabberd_http.hrl header file as follows: -record(request, {method, path, q = [], us, auth, lang = "", data = "", cookie = "", %% lp: cookie request field ip }). As you can see we are referring to ejabberd 2.0 (in the request record we have the new field ip for new user info). Now we will edit the ejabberd_http.erl module, adding the field request_cookie to the record state: -record(state, {sockmod, socket, request_method, request_version, request_path, request_auth, request_cookie, %% lp: cookie request field request_keepalive, (...) At this point, we have to pass cookies to handlers, modifying the process_headers and process_request functions: In the process_header, we will add to the case construct process_header(State, Data) -> SockMod = State#state.sockmod, Socket = State#state.socket, case Data of {ok, {http_request, Method, Uri, Version}} -> (...) {ok, {http_header, _, 'Authorization', _, Auth}} -> State#state{request_auth = parse_auth(Auth)}; {ok, {http_header, _, 'Cookie', _, Cookie}} -> %% lp: setting up request header cookie State#state{request_cookie = Cookie}; {ok, {http_header, _, 'Content-Length', _, SLen}} -> (...) In the process_request we have to modify the function header as follows: process_request(#state{request_method = 'GET', request_path = {abs_path, Path}, request_auth = Auth, request_lang = Lang, request_cookie = Cookie, %% lp: cookie request field request_handlers = RequestHandlers, sockmod = SockMod, socket = Socket} = State) -> (...) Request = #request{method = 'GET', path = LPath, q = LQuery, auth = Auth, lang = Lang, cookie = Cookie, %% lp: here again :) ip=IP}, (...) and in the next header too: process_request(#state{request_method = 'POST', request_path = {abs_path, Path}, request_auth = Auth, request_content_length = Len, request_lang = Lang, request_cookie = Cookie, %% lp: cookie sockmod = SockMod, socket = Socket, request_handlers = RequestHandlers} = State) when is_integer(Len) -> (...) Request = #request{method = 'POST', path = LPath, q = LQuery, auth = Auth, cookie = Cookie, %% lp: cookie the last one ;) data = Data, lang = Lang}, case process(RequestHandlers, Request) of (...) Now, we are ready to add the cookie request's field to our modules processing http requests: process(#request{us = _US, path = "login", q = _Query, lang = _Lang, cookie = _Cookie} = Request) -> %% _Cookie will contain the request cookie now %% Manage request by cookies %% Send response :) I will eventually post a addon patch for this :) Enjoy your Jabber, LP PS. We used ejabberd 2.0, but you can do this in ejabberd 1.1.x in the same way Links: http://www.process-one.net/en/wiki/ejabberd_module_development/

Pubblicato da loretoparisi | Commenti

Tags: cookie, request headers

Logging in ejabberd 1.1.2

2008-04-01T13:04:14+02:00

In the previous post stefko told us about the new logging facility in ejabberd 2.0. But how can we apply logging verbosity levels in previous releases of ejabberd, such as ejabberd 1.1.2 ? Well, I modififed the ejabberd.hrl in this way: %% %% --- 2007-05-10 - LP: LOGGER --- %% Verbosity levels: %% %% Level 0 - No verbosity %% Level 1 - Error %% Level 2 - Warning %% Level 3 - Info %% Level 4 - Debug %% %% LP: Logger environment verbosity level variable -define(LOGGER_ENV_LEVEL, "EJABBERD_LOGGER_LEVEL"). %% LP: Default Logger Level to 3 - Info level -define(LOGGER_DEFAULTLEVEL, 3).%% LP: Get verbosity level -define(LOGGER_SETLEVEL(Level), case string:to_integer(os:getenv(?LOGGER_ENV_LEVEL)) of {_,[]} -> case ({Level,[]} =< string:to_integer(os:getenv(?LOGGER_ENV_LEVEL))) of true -> Level; false -> string:to_integer(os:getenv(?LOGGER_ENV_LEVEL)) end; _ -> ?LOGGER_DEFAULTLEVEL end). %% LP: Log messages -define(LOGGER_LOG(Format, Args, Level), %% switch verbosity against level case Level of 0 -> %% NO VERBOSITY ok; 1 -> %% ERROR LEVEL error_logger:error_msg("ERROR(~p:~p:~p): "++Format++"~n", [self(),?MODULE,?LINE]++Args); 2 -> %% WARNING LEVEL error_logger:warning_msg("WARN(~p:~p:~p): "++Format++"~n", [self(),?MODULE,?LINE]++Args); 3 -> %% INFO_MSG LEVEL error_logger:info_msg("INFO(~p:~p:~p): "++Format++"~n", [self(),?MODULE,?LINE]++Args); 4 -> %% DEBUG LEVEL - no custom file logger error_logger:info_msg("DEBUG(~p:~p:~p) : "++Format++"~n", [self(),?MODULE,?LINE]++Args); _ -> %% UNDEFINED LEVEL ok end). Then redifining the ?DEBUG, ?INFO_MSG, ?WARNING_MSG and ?ERROR_MSG with the new ?LOGGER_LOG define and adjusting the logger level with ?LOGGER_SETLEVEL(Value), whereas Value goes from 0 (no messages) to 4 (debug mode) as follows: %% LP: Debug Message -define(DEBUG(Format, Args), ?LOGGER_LOG(Format, Args, ?LOGGER_SETLEVEL(4))). %% LP: Info Message -define(INFO_MSG(Format, Args), ?LOGGER_LOG(Format, Args, ?LOGGER_SETLEVEL(3))). %% LP: Warning Message -define(WARNING_MSG(Format, Args), ?LOGGER_LOG(Format, Args, ?LOGGER_SETLEVEL(2))). %% LP: Error Message -define(ERROR_MSG(Format, Args), ?LOGGER_LOG(Format, Args, ?LOGGER_SETLEVEL(1))). In this way it's possible to log errors, warnings, messages using the same code (no need to change other modules log instructions) by setting up the environment variable "EJABBERD_LOGGER_LEVEL", called by os:getenv in the erl shell command: erl ... -env ERL_MAX_PORTS 32000 \ -env EJABBERD_LOGGER_LEVEL 4 \ LP

Pubblicato da loretoparisi | Commenti

Tags: debug, loglevel, verbosity, logger

Dynamic verbosity level change in ejabberd 2.0.0

2008-03-26T11:46:15+01:00

There's a very useful method to dynamically change verbosity level in ejabberd 2.0.0. You must connect with a remote shell to the node you're interested to debug and simply write: ejabberd_loglevel:set(LogLevel). Where LogLevel is: 0: No ejabberd log at all (not recommended) 1: Critical 2: Error 3: Warning 4: Info 5: Debug

Pubblicato da stefko | Commenti

Tags: debug, ejabberd, concurrent programming, loglevel

STDLIB: List To Record (revisited)

2008-03-17T10:13:43+01:00

In a previous post, STDLIB: List To Record, we looked at a way to convert a list to a record by means of matching record fields. We made use of lists:mapfoldl and setelement lists and tuples's functions. That was just an exercise to practise with lists fun. Now we'll a see a better way to implement this function that make more sense, using built-in function list_to_tuple and doing exactly the same job. list_to_record(Query)-> Fields=record_info(fields,qs), QS=#qs{}, Record=lists:map(fun(Key) -> BKey=atom_to_list(Key), Vl=case catch lists:keysearch(BKey,1,Query) of {value,VKey} -> {K,V}=VKey, V; false -> undefined; {'EXIT',Reason} -> undefined end end,Fields), list_to_tuple(lists:merge([qs],Record)). That's all, LP

Pubblicato da loretoparisi | Commenti

Tags: record, list, erlang, stdlib, mapfoldl, tuple

A little help for clustering ejabberd

2008-03-14T15:18:52+01:00

If you need to quickly make a cluster for many ejabberd nodes, you can find that a module that quickly initialize Mnesia tables can be very useful. Follows the code of this module, really simple and autoexplicative. -module(set_cluster_tables). -export([ setCopyTable/1 ]). loopTables(List, Dest, Node) -> lists:foreach(fun(Table) -> io:format("Change table copy for ~p in ~p\n",[Table,Dest]), mnesia:add_table_copy(Table, Node, Dest) end,List). setCopyTable() -> io:format("Adding schema table\n",[]), mnesia:change_table_copy_type(schema, node(), disc_copies), TablesInRAM=[session,s2s,route,acl], TablesInDisc=[muc_registered,muc_room,motd,last_activity,roster,passwd,privacy ,offline_msg,disco_publish,vcard,private_storage,pubsub_node], loopTables(TablesInRAM,ram_copies,node()), loopTables(TablesInDisc,disc_only_copies,node()). So calling set_cluster_tables:setCopyTable(). you will have all specified tables copied from "master" node. Remember to exit using q(). or init:stop() command, to cleanly exit from the shell.

Pubblicato da stefko | Commenti (2)

Tags: erlang, clustering, mnesia

One line patch to ejabberd 2.0.0

2008-03-12T15:11:37+01:00

In these days I'm using ejabberd 2.0.0, and I'm making a new module to set IM presences on Splinder site. The I've seen that the hook call c2s_update_presence in ejabberd_c2s module, is not using resource part of user's jid. After a short discussion in the ejabberd developer chatroom, and after a little talk with badlop, we have decided to patch che ejabberd_c2s code. I think it may be useful to use resource too, so I've patched session_established function, from: PresenceEl = ejabberd_hooks:run_fold( c2s_update_presence, Server, NewEl, [User, Server]), to: PresenceEl = ejabberd_hooks:run_fold( c2s_update_presence, Server, NewEl, [User, Server, StateData#state.resource]), So the code executing the hook can be independent from jid record but can use values inside this type of variable. You can follow the story about this patch here.

Pubblicato da stefko | Commenti (1)