anchor.diff:  %% @doc Look up a directory and set a new context.
   load(Directory, DirectoryData)
   		when is_list(Directory), is_list(DirectoryData) ->
  +erlang:display({?MODULE, ?LINE}),
   	mod_auth:load(Directory, DirectoryData).
   
   -spec store(Options, Config) -> Result
  
positive.code: do(#mod{data = Data} = Info) ->
  	case lists:keyfind(status, 1, Data) of
  		false ->
  			case lists:keyfind(response, 1, Data) of
  				false ->
  					do1(Data, Info);
  				_ ->
  					{proceed, Data}
  			end;
  		{_StatusCode, _PhraseArgs, _Reason} ->
  			{proceed, Data}
  	end.
  do1(Data, #mod{config_db = ConfigDb,
  		request_uri= RequestUri} = Info) ->
  	Path = mod_alias:path(Data, ConfigDb, RequestUri),
  	case directory_path(Path, ConfigDb) of
  		{yes, {Directory, DirectoryData}} ->
  			case proplists:get_value(auth_type, DirectoryData) of
  				undefined ->
  					{proceed, Data};
  				none ->
  					{proceed, Data};
  				AuthType ->
  					handle_auth(Info, Directory, DirectoryData, AuthType)
  			end;
  		no ->
  			{proceed, Data}
  	end.
  
  
negative.code: 		Result :: {proceed, #mod{}}.
  handle_auth(#mod{data = Data, config_db = ConfigDb} = Info,
  		Directory, DirectoryData, _AuthType) ->
  erlang:display({?MODULE, ?LINE}),
  	case require(Info, Directory, DirectoryData) of
  		authorized ->
  erlang:display({?MODULE, ?LINE}),
  			{proceed, Data};
  		{authorized, User} ->
  erlang:display({?MODULE, ?LINE}),
  			{proceed, [{remote_user, User} | Data]};
  		{authorization_required, Realm} ->
  erlang:display({?MODULE, ?LINE}),
  			Message = httpd_util:message(401, none, ConfigDb),
  			{proceed,
  					[{response, {401, ["WWW-Authenticate: Bearer realm=\"",Realm,
  