retry for log update

1 post / 0 new
AA6KJ
retry for log update

Hi, 
I have occasionally issues with the log updates not going through and this frequently leaves clublog and cqrlog data in conflict. The only way to reset this is to upload full log to clublog and mark all qsos uploaded in cqrlog.
One possible fix for this could be to try to post the data to clublog several times until it succeeds. I wonder if the following change would do the trick? (in dLogUpload.pas and function TdmLogUpload.UploadLogData)
  for tr := 1 to 10 do
  begin
    if HTTP.HTTPMethod('POST',Url) then
    begin
l.LoadFromStream(HTTP.Document);
ResultCode := http.ResultCode;
Response   := l.Text;
        Result     := True;
        break
    end
    else begin
ResultCode := http.ResultCode;
Response   := '';
        Result     := False;
        Writeln('Network error - retry (.',tr,').')
    end
  end;
 
This will try posting the data 10 times (probably less would do the trick too) before giving up and reporting an error back upstairs. Variable tr is defined as integer in the beginning. I did not try this yet as I simply don't know the cqrlog source code that well and don't want to mess up my station logs!
 
Jussi (AA6KJ)