diff options
| author | Badlop <badlop@process-one.net> | 2009-06-16 17:44:08 +0000 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2009-06-16 17:44:08 +0000 |
| commit | 2e402c27f477515dbabf4d40d113064b26a36ea3 (patch) | |
| tree | ca86501f06c3b8759a0ed96d32bea3c67558c9fa /src/web/mod_http_bind.erl | |
| parent | Disabled debug (thanks to Stefan Strigler) (diff) | |
Minor changes (thanks to Stefan Strigler)
SVN Revision: 2206
Diffstat (limited to 'src/web/mod_http_bind.erl')
| -rw-r--r-- | src/web/mod_http_bind.erl | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/src/web/mod_http_bind.erl b/src/web/mod_http_bind.erl index 1cebd0f5e..989d025e3 100644 --- a/src/web/mod_http_bind.erl +++ b/src/web/mod_http_bind.erl @@ -3,7 +3,6 @@ %%% Author : Stefan Strigler <steve@zeank.in-berlin.de> %%% Purpose : Implementation of XMPP over BOSH (XEP-0206) %%% Created : Tue Feb 20 13:15:52 CET 2007 -%%% Id : $Id: $ %%%---------------------------------------------------------------------- %%%---------------------------------------------------------------------- @@ -15,7 +14,7 @@ -module(mod_http_bind). -author('steve@zeank.in-berlin.de'). --define(MOD_HTTP_BIND_VERSION, "1.0"). +-define(MOD_HTTP_BIND_VERSION, '1.0'). -vsn(?MOD_HTTP_BIND_VERSION). %%-define(ejabberd_debug, true). @@ -48,7 +47,7 @@ process([], #request{method = 'POST', ejabberd_http_bind:process_request(Data); process([], #request{method = 'GET', data = []}) -> - Heading = "Ejabberd " ++ atom_to_list(?MODULE) ++ " v" ++ ?MOD_HTTP_BIND_VERSION, + Heading = "Ejabberd " ++ atom_to_list(?MODULE) ++ " v" ++ lists:concat([?MOD_HTTP_BIND_VERSION]), {xmlelement, "html", [{"xmlns", "http://www.w3.org/1999/xhtml"}], [{xmlelement, "head", [], [{xmlelement, "title", [], [{xmlcdata, Heading}]}]}, @@ -57,21 +56,16 @@ process([], #request{method = 'GET', {xmlelement, "p", [], [{xmlcdata, "An implementation of "}, {xmlelement, "a", [{"href", "http://www.xmpp.org/extensions/xep-0206.html"}], - [{xmlcdata, "XMPP over BOSH (XEP-0206)"}]}]}, + [{xmlcdata, "XMPP over BOSH (XEP-0206)"}]}, + {xmlcdata, "."}]}, {xmlelement, "p", [], - [{xmlcdata, integer_to_list(mnesia:table_info(http_bind, size)) ++ " sessions found."}]}, - {xmlelement, "p", [], - [{xmlcdata, "Sponsored by "}, - {xmlelement, "a", [{"href", "http://mabber.com"}], - [{xmlcdata, "mabber"}]}, - {xmlcdata, "."}]} - ]}]}; + [{xmlcdata, integer_to_list(mnesia:table_info(http_bind, size)) ++ " sessions found."}]} + ]}]}; process(_Path, _Request) -> ?DEBUG("Bad Request: ~p", [_Request]), {400, [], {xmlelement, "h1", [], [{xmlcdata, "400 Bad Request"}]}}. - %%%---------------------------------------------------------------------- %%% BEHAVIOUR CALLBACKS %%%---------------------------------------------------------------------- |