[Tsung] Send to Service

Mon Feb 26 20:50:25 CET 2007

In the TSung sources there is a command to send to another service

message(Dest, #jabber{data=Data, username=Username}, Service) when
is_list(Data) ->
    put(previous, Dest),
    list_to_binary([
                    "<message id='",ts_msg_server:get_id(list), "' to='",
                    Username, Dest, "@", Service,
                    "'><body>",Data, "</body></message>"]).

As I don't grok Erlang, I can't seem to translate this into a valid stanza
that Tsung will parse..
What should it be?

 thanks,
 jon

-- 

"Whereever you go, there you are"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.process-one.net/pipermail/tsung-users/attachments/20070226/e6443e88/attachment.html