anchor.diff:  %%% XML-RPC request processing steps
   %%%---------------------------------------------------------------------------
   
  -%% @doc Handle HTTP request.
  +%% @doc Validate HTTP request.
   %%   Function validates HTTP part of XML-RPC protocol (method and
   %%   <i>Content-Type</i> header).
   %%
  -%% @spec handle_request(string(), [{string(),string()}], string(),
  -%%                      list(), term()) ->
  -%%   http_response()
  -
  -handle_request("POST" = _Method, ReqHeaders, ReqBody,
  -               Environment, DispatchTable) ->
  +%% @spec step_validate_request(string(), [{string(),string()}], string(),
  +%%                             list(), term()) ->
  +%%   http_response()
  +
  +step_validate_request("POST" = _Method, ReqHeaders, ReqBody,
  +                      Environment, DispatchTable) ->
     case proplists:lookup("content-type", ReqHeaders) of
       {_Key, "text/xml"} ->
  -      handle_xmlrpc_request(ReqBody, Environment, DispatchTable);
  +      step_parse_xmlrpc_request(ReqBody, Environment, DispatchTable);
       {_Key, OtherContentType} ->
         error_logger:error_report(xmerlrpc, [{step, validate_request}, {error, invalid_content_type}, {content_type, OtherContentType}]),
         http_error(bad_request, ["Invalid content type: ", OtherContentType]);
  
positive.code: 
  %% @doc Call specified function with arguments and environment.
  %%
  %% @spec call(atom(), atom(), [xmerlrpc_xml:proc_arg()], list()) ->
  %%     {ok, xmerlrpc_xml:proc_arg()}
  %%   | {exception, Exception :: iolist()}
  
  call(Module, Function, Args, Environment) ->
    % {ok,_} | {error,_} are for case when error is signaled by returned value
    % _ | erlang:error() are for case when error is signaled by dying
    try Module:Function(Args, Environment) of
  
negative.code:       ],
  
        % `Headers' don't contain `content_length'
        {StatusCode, Headers, Body} = step_validate_request(
          ModData#mod.method,
          ModData#mod.parsed_header,
          ModData#mod.entity_body,
  