anchor.diff:  -module(pstnproxy).
   -export([start/0, start/2, process/2]).
   
  -server_node() -> 'incomingproxy@granit.e.kth.se'.
  +server_nodes() ->
  +    {ok, Servers} = application:get_env(databaseservers),
  +    Servers.
   
   start(normal, Args) ->
       Pid = spawn(pstnproxy, start, []),
  
positive.code: 
  start() ->
      mnesia:start(),
      mnesia:change_config(extra_db_nodes, [server_node()]),
      logger:start("sipd.log"),
      {ok, Socket} = gen_udp:open(5060, [{reuseaddr, true}]),
      logger:log(normal, "proxy started"),
      recvloop(Socket).
  
  recvloop(Socket) ->
  
negative.code:     end.
  
  classdefs() ->
      case application:get_env(classdefs) of
  	{ok, Defs} ->
  	    Defs;
  	undefined ->
  	    [{"", unknown}]
      end.
  
  request(Method, {User, Pass, "sip-pstn.kth.se", Port, Parameters}, Header, Body, Socket) ->
      logger:log(normal, Method),
  