anchor.diff:  		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_users")]
   	    end
       end.
  +
  +add_route(Env, Input) ->
  +    case check_auth(Env, true) of
  +	{error, Message} ->
  +	    Message;
  +	{ok} ->
  +	    Args = sipheader:httparg(Input),
  +	    Numberfind = dict:find("number", Args),
  +	    Priorityfind = dict:find("priority", Args),
  +	    Addressfind = dict:find("address", Args),
  +	    case {Numberfind, Priorityfind, Addressfind} of
  +		{error, _, _} ->
  +		    [header(ok), "Must supply number"];
  +		{_, error, _} ->
  +		    [header(ok), "Must supply priority"];
  +		{_, _, error} ->
  +		    [header(ok), "Must supply address"];
  +		{{ok, Number}, {ok, Priority}, {ok, Address}} ->
  +		    phone:insert_purge_phone(Number,
  +					     [{priority,
  +					       list_to_integer(Priority)}],
  +					     permanent,
  +					     never,
  +					     sipurl:parse(Address)),
  +		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_phones")]
  +	    end
  +    end.
  +
  +del_route(Env, Input) ->
  +    case check_auth(Env, true) of
  +	{error, Message} ->
  +	    Message;
  +	{ok} ->
  +	    Args = sipheader:httparg(Input),
  +	    Numberfind = dict:find("number", Args),
  +	    case {Numberfind} of
  +		{error} ->
  +		    [header(ok), "Must supply number"];
  +		{{ok, Number}} ->
  +		    phone:purge_class_phone(Number, permanent),
  +		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_phones")]
  +	    end
  +    end.
  +
   
   change_user_form(Env, Input) ->
       case check_auth(Env, true) of
  
positive.code: 	     "<tr><th>Number</th><th>Flags</th><th>Class</th>",
  	     "<th>Expire</th><th>Address</th></tr>\n",
  	     print_phones(List),
  	     "</table>\n"
  	    ]
      end.
  
  
negative.code: 	     "<input type=\"text\" name=\"user\" size=\"12\">\n",
  	     "<input type=\"text\" name=\"phone\" size=\"4\">\n",
  	     "<input type=\"submit\" value=\"Add\">\n",
  	     "</form>\n",
  	     "<ol>\n",
  	     "<li>internal: samtal inom KTH\n",
  	     "<li>almostinternal: samtal till t.ex. SU, nummer som brjar p 0\n",
  	     "<li>local: lokalsamtal inom 08-omrdet\n",
  	     "<li>national: samtal inom Sverige\n",
  	     "<li>international: utlandssamtal\n",
  	     "<li>mobile_or_pay: alla samtal som brjar p 0007\n",
  	     "</ol>\n"
  	    ]
      end.
  
  