🚀 go-pugleaf

The server reply header contains the entry:

Expires: -1

This causes the exception.

If I manually alter the buffer to:

Expires: 0\0

there is no exception when   Response.ProcessHeaders;
is called from IdHTTP.pas, procedure TIdHTTPProtocol.RetrieveHeaders;

Here is what happens in IdHTTPHeaderInfo.pa, procedure
TIdEntityHeaderInfo.ProcessHeaders:

    if StrToIntDef(Values['Expires'], -1) <> -1 then begin
      // This is happening when expires is returned as integer number in seconds
      LSecs := StrToInt(Values['Expires']);
      LHours := LSecs div 3600;
      LMinutes := (LSecs mod 3600) div 60;
      LSecs := (LSecs mod 3600) mod 60;
      FExpires := Now + EncodeTime(LHours, LMinutes, LSecs, 0);
    end
    else begin
      FExpires := GMTToLocalDateTime(Values['Expires']); {do not localize}
    end;
-------------------

GMTToLocalDateTime('-1'); will fail as it calls

function RawStrInternetToDateTime(var Value: string): TDateTime;

with pointer to -1 which causes

Result := EncodeDate(Yr, Mo, Dt); to throw exception due to invalid parameters

Dt=-1,
Mo=0, and
Yr=1900

How should these function be restructured to allow server header reply

Expires: -1


keith