diff options
Diffstat (limited to 'lib/kernel/src/erl_reply.erl')
| -rw-r--r-- | lib/kernel/src/erl_reply.erl | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/lib/kernel/src/erl_reply.erl b/lib/kernel/src/erl_reply.erl new file mode 100644 index 0000000000..1a61e630bc --- /dev/null +++ b/lib/kernel/src/erl_reply.erl @@ -0,0 +1,49 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1997-2009. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% +-module(erl_reply). + +%% Syncronisation with erl_start (erl_interface) + +-export([reply/1]). + +%% send Msg to Addr:Port +%% all args are atoms since we call this from erl command line + +-spec reply([atom()]) -> 'ok' | 'reply_done'. + +reply([Addr,Port,Msg]) -> + Ip = ip_string_to_tuple(atom_to_list(Addr)), + P = list_to_integer(atom_to_list(Port)), + M = atom_to_list(Msg), + {ok, S} = gen_tcp:connect(Ip,P,[]), + gen_tcp:send(S,M), + gen_tcp:close(S), + reply_done; +reply(_) -> + error_logger:error_msg("erl_reply: Can't find address and port " + "to reply to~n"). + +%% convert ip number to tuple +ip_string_to_tuple(Ip) -> + [Ip1,Ip2,Ip3,Ip4] = string:tokens(Ip,"."), + {list_to_integer(Ip1), + list_to_integer(Ip2), + list_to_integer(Ip3), + list_to_integer(Ip4)}. + |