anchor.diff:  	    Message;
   	{ok} ->
   	    {atomic, List} = phone:list_phones(),
  +	    {atomic, Regexps} = database_regexproute:list(),
   	    [header(ok),
  +	     "<h1>Nummertabell</h1>\n",
   	     "<table cellspacing=0 border=1 cellpadding=4>\n",
   	     "<tr><th>Nummer</th><th>Flaggor</th><th>Klass</th>",
   	     "<th>Gr ut</th><th>Adress</th></tr>\n",
  
positive.code: -module(admin_www).
  -export([start/2, start/1, list_phones/2, list_users/2, add_user/2, change_user_form/2, change_user/2, add_route/2, del_route/2, wml/2, add_user_with_cookie/2, change_classes/2, list_numbers/2]).
  
  -include("phone.hrl").
  
  server_node() -> 'incomingproxy@granit.e.kth.se'.
  
  
negative.code: 	    end
      end.
  
  add_regexp(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), "Du mste ange en regexp"];
  		{_, error, _} ->
  		    [header(ok), "Du mste ange prioritet"];
  		{_, _, error} ->
  		    [header(ok), "Du mste ange en adress"];
  		{{ok, Number}, {ok, Priority}, {ok, Address}} ->
  		    database_regexproute:insert(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} ->
  