anchor.diff:  	end.
   
   require(#mod{parsed_header = ParsedHeader} = Info, Directory, DirectoryData) ->
  -erlang:display({?MODULE, ?LINE}),
  -erlang:display({?MODULE, ?LINE, lists:keyfind(require_user, 1, DirectoryData)}),
   	ValidUsers  = proplists:get_value(require_user, DirectoryData),
   	ValidGroups = proplists:get_value(require_group, DirectoryData),
  -erlang:display({?MODULE, ?LINE}),
   	case ValidGroups of
   		undefined when ValidUsers =:= undefined ->
   			authorized;
   		_ ->
  -erlang:display({?MODULE, ?LINE}),
   			case proplists:get_value("authorization", ParsedHeader) of
   				false ->
  -erlang:display({?MODULE, ?LINE}),
   					authorization_required(DirectoryData);
   				"Bearer" ++ EncodedString = Credentials ->
   					case string:tokens(EncodedString, ".") of
   						[EncodedHeader, EncodedPayload, EncodedSignature] ->
  -erlang:display({?MODULE, ?LINE}),
   							require1(Info, Directory, DirectoryData, ValidUsers, ValidGroups,
   									EncodedHeader, EncodedPayload, EncodedSignature);
   						_ ->
  
positive.code: require1(Info, Directory, DirectoryData, ValidUsers, ValidGroups,
  		EncodedHeader, EncodedPayload, EncodedSignature)
  		when is_list(EncodedHeader), is_list(EncodedPayload), is_list(EncodedSignature) ->
  erlang:display({?MODULE, ?LINE}),
  	case validate_header(EncodedHeader) of
  	{valid, _DecodedHeader} ->
  erlang:display({?MODULE, ?LINE}),
  		case validate_payload(EncodedPayload) of
  		{valid, DecodedPayload} ->
  erlang:display({?MODULE, ?LINE}),
  			case validate_cert(EncodedHeader, EncodedPayload, EncodedSignature) of
  					authenticated ->
  erlang:display({?MODULE, ?LINE}),
  						validate_user(Info, Directory, DirectoryData,
  								ValidUsers, ValidGroups, DecodedPayload);
  					{error, _Reason} ->
  erlang:display({?MODULE, ?LINE}),
  						authorization_required(DirectoryData)
  			end;
  		{error, _Reason} ->
  
negative.code: 		Result :: {proceed, #mod{}}.
  handle_auth(#mod{data = Data, config_db = ConfigDb} = Info,
  		Directory, DirectoryData, _AuthType) ->
  	case require(Info, Directory, DirectoryData) of
  		authorized ->
  			{proceed, Data};
  		{authorized, User} ->
  			{proceed, [{remote_user, User} | Data]};
  		{authorization_required, Realm} ->
  			Message = httpd_util:message(401, none, ConfigDb),
  			{proceed,
  					[{response, {401, ["WWW-Authenticate: Bearer realm=\"",Realm,
  