diff options
Diffstat (limited to 'src/mod_version.erl')
| -rw-r--r-- | src/mod_version.erl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/src/mod_version.erl b/src/mod_version.erl new file mode 100644 index 000000000..c79b5fbbe --- /dev/null +++ b/src/mod_version.erl @@ -0,0 +1,64 @@ +%%%---------------------------------------------------------------------- +%%% File : mod_version.erl +%%% Author : Alexey Shchepin <alexey@sevcom.net> +%%% Purpose : +%%% Created : 18 Jan 2003 by Alexey Shchepin <alexey@sevcom.net> +%%% Id : $Id$ +%%%---------------------------------------------------------------------- + +-module(mod_version). +-author('alexey@sevcom.net'). +-vsn('$Revision$ '). + +-export([start/0, + process_local_iq/3]). + +-include("ejabberd.hrl"). +-include("namespaces.hrl"). + + + + +start() -> + ejabberd_local:register_iq_handler(?NS_VERSION, + ?MODULE, process_local_iq). + + + +process_local_iq(From, To, {iq, ID, Type, XMLNS, SubEl}) -> + case Type of + set -> + {iq, ID, error, XMLNS, + [SubEl, {xmlelement, "error", + [{"code", "405"}], + [{xmlcdata, "Not Allowed"}]}]}; + get -> + OSType = case os:type() of + {Osfamily, Osname} -> + atom_to_list(Osfamily) ++ "/" ++ + atom_to_list(Osname); + Osfamily -> + atom_to_list(Osfamily) + end, + OSVersion = case os:version() of + {Major, Minor, Release} -> + lists:flatten( + io_lib:format("~w.~w.~w", + [Major, Minor, Release])); + VersionString -> + VersionString + end, + OS = OSType ++ " " ++ OSVersion, + {iq, ID, result, XMLNS, + [{xmlelement, "query", + [{"xmlns", ?NS_VERSION}], + [{xmlelement, "name", [], + [{xmlcdata, "ejabberd"}]}, + {xmlelement, "version", [], + [{xmlcdata, ?VERSION}]}, + {xmlelement, "os", [], + [{xmlcdata, OS}]} + ]}]} + end. + + |