mod_onlineusers with list of users online

mod_onlineusers.erl

%%%----------------------------------------------------------------------
%%% File : mod_onlineusers.erl
%%% Author : Michael Weibel <[email protected]>
%%% Purpose : Display number & list of online users 
%%% Created : 2011-08-16
%%%----------------------------------------------------------------------

-module(mod_onlineusers).
-author('[email protected]').

-behaviour(gen_mod).

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

-include("ejabberd.hrl").
-include("jlib.hrl").
-include("web/ejabberd_http.hrl").

%%%----------------------------------------------------------------------
%%% REQUEST HANDLERS
%%%----------------------------------------------------------------------

process([], _Request) ->
    {200, [], integer_to_list(ejabberd_sm:connected_users_number())};
process(["list"], _Request) ->
    {200, [], ejabberd_sm:connected_users()};

%%%----------------------------------------------------------------------
%%% BEHAVIOUR CALLBACKS
%%%----------------------------------------------------------------------

start(_Host, _Opts) ->
    ok.

stop(_Host) ->
    ok.