Nova funcionalidade ETagMatch

[antoniojmsjr]

Motivação

A criação dessa funcionalidade é decorrente do uso do middleware Horse-ETag no qual só da suporte ao tipo JSON, e não permitindo usar outros tipos, como XML, arquivos PDF, imagens e etc.

Objetivo

A função ETagMatch tem como objetivo retornar no header o valor para o campo ETag e testar numa futura requisição se o conteúdo da resposta é o mesmo que está no cliente, comparando o campo if-None-Match com o campo ETag.

Se ETagMatch for verdadeiro a resposta pode ser ignora, assim evitando trafegar dados iguais, pois o conteúdo que está no cliente é igual ao conteúdo da resposta.

Por exemplo:

THorse.Get('ping',
    procedure(Req: THorseRequest; Res: THorseResponse)
    begin

      if Res.ETagMatch('Pong') then
        Exit;

      Res.Send('pong');
    end);

Validação

Verificação de Hint: :white_check_mark: Verificação de Warning: :white_check_mark: Compilação Delphi: :white_check_mark: Compilação Lazarus: :white_check_mark:

[viniciussanchez]

@antoniojmsjr o ideal não seria o ETagMatch estar na requisição, já que é ela que recebe o Header If-None-Match? Uma outra curiosidade também, não seria interessante esse recurso estar dentro do middleware de Etag? Ou então criar um mais completo com suporte a XML, etc...

[antoniojmsjr]

Blz @viniciussanchez, tudo certo?

• Sobre o ETagMatch no request não faz sentido, por quê?

1º É informado o hash do campo ETag do header do response;

FWebResponse.SetCustomHeader('ETag', lETagContent);

2º Quando o hash do body que vai ser enviado for igual ao hash do If-None-Match recebido, internamente é enviado um response com statuscode 304 sem a necessidade de intervenção do desenvolvedor, é tudo feito internamente pela função;

if (lETagRequest = lETagContent) then
  begin
    Result := True;
    FWebResponse.ContentType := '';
    FWebResponse.Content := '';
    {$IF DEFINED(FPC)}
    FWebResponse.Code := THTTPStatus.NotModified.Tointeger; //304
    FWebResponse.SendContent;
    {$ELSE}
    FWebResponse.StatusCode := THTTPStatus.NotModified.ToInteger; //304
    FWebResponse.SendResponse;
    {$ENDIF}
  end;

3º Como tudo que é tratado pela função ETagMatch é referente a uma responsta, achei necessário que fosse implmentado no response.

• Sobre modificar o middleware de Etag:

Tudo começou quando fui usar middleware Etag com XML e o mesmo não funcionou, tudo bem, fiz uma modificação para aceitar qualquer tipo, blz, mas quando fui usar a função Res.SendFile o middleware Etag não funcionou tb, pois a função SendFile fica responsável por gerar e enviar um response, e quando chega no middleware Etag o arquivo já foi enviado e a validação(comparação) não faz mais sentido, pois deveria acontecer antes do envio, por isso eu criei essa funcionalidade.

Por Exemplo:

THorse.Get('relatorio',
  procedure(Req: THorseRequest; Res: THorseResponse)
  var
    lRelatorio: TStream;
  begin

    if Res.ETagMatch(lRelatorio) then
      Exit;

    Res.SendFile(lRelatorio);

  end);