anchor.diff:  -export([
   	 user_exists/2,
   	 get_user_addresses/2
  +	]).
  +
  +%% Ops functions
  +-export([
  +	 get_yxa_application_node/0
   	]).
   
   %%--------------------------------------------------------------------
  
positive.code: 	Res when is_list(Res) ->
  	    Res
      end;
  get_user_addresses(User, Node) when is_list(User) ->
      {atomic, L} = rpc:call(Node, phone, get_numbers_for_user, [User]),
      true = is_list(L),
      L.
  
negative.code: fmt_daystime_short({D, {H, M, S}}) ->
      io_lib:format("~pd, ~s", [D, fmt_daystime_short({0, {H, M, S}})]).
  
  
  
  %%--------------------------------------------------------------------
  %% Function: get_incomingproxy_node()
  %% Descrip.: Get name of incomingproxy node. Per default we do this by
  %%           figuring out our local hostname, and prepending it with
  %%           "incomingproxy@". Patch this function if you want to run
  %%           your web interface on another host than your
  %%           incomingproxy (NOTE: you MUST make sure the nodes can
  %%           talk to each other through distributed Erlang).
  %% Returns : Nodename = string()
  %%--------------------------------------------------------------------
  get_yxa_application_node() ->
      {ok, MyHostname} = my_hostname(),
      "incomingproxy@" ++ MyHostname.
  
  %% part of get_incomingproxy_nodename/0, inet:gethostname/0 without the
  %% domain-name removing part.
  %% Returns : {ok, Hostname}, Hostname = string()
  my_hostname() ->
      case inet_udp:open(0, []) of
          {ok, Socket} ->
              {ok, Res} = inet:gethostname(Socket),
              inet_udp:close(Socket),
              {ok, Res};
          _ ->
              {ok, "nohost.nodomain"}
      end.
  