anchor.diff:  	    false
       end.
   
  +check_auth_user2(Header, Env, InUser) ->
  +    Authorization = sipheader:auth([Header]),
  +    {value, {_, Method}} = lists:keysearch(request_method, 1, Env),
  +    {value, {_, URI}} = lists:keysearch(script_name, 1, Env),
  +    Response = dict:fetch("response", Authorization),
  +    Nonce = dict:fetch("nonce", Authorization),
  +    Opaque = dict:fetch("opaque", Authorization),
  +    Timestamp = hex:from(Opaque),
  +    Now = util:timestamp(),
  +    User = dict:fetch("username", Authorization),
  +    {Password, Flags, Classes} = get_pass(User),
  +    Nonce2 = sipauth:get_nonce(Opaque),
  +    IsAdmin = lists:member(admin, Flags),
  +    Response2 = sipauth:get_response(Nonce2, Method,
  +				     URI,
  +				     User, Password),
  +    Response3 = sipauth:get_response(Nonce2, "GET",
  +				     URI,
  +				     User, Password),
  +    if 
  +	Password == "" ->
  +	    false;
  +	Response == Response2 ; Response == Response3 ->
  +	    if 
  +		User == InUser ->
  +		    true;
  +		true ->
  +		    false
  +	    end;
  +	true ->
  +	    false
  +    end.
  +
   
   header(ok) ->
       ["Content-type: text/html; charset=utf-8\r\n\r\n"].
  
positive.code: 		    ]
  	    end
      end.
      
  set_admin(User, "true") ->
      {Password, Flags, Classes} = get_pass(User),
      case lists:member(admin, Flags) of
  
negative.code: 		    ]};
  	{value, {Key, Value}} ->
  	    case check_auth2(Value, Env, WantAdmin) of
  		true ->
  		    {ok};
  		false ->
  		    {error, [header(unauth, false),
  			     "Not authorized\r\n"
  			    ]}
  	    end
      end.
  
  check_auth_user(Env, User) ->
      case lists:keysearch(http_authorization, 1, Env) of
  	false ->
  	    {error, [header(unauth, false),
  		     "Not authorized\r\n"
  		    ]};
  	{value, {Key, Value}} ->
  	    case check_auth_user2(Value, Env, User) of
  		true ->
  		    {ok};
  		false ->
  