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)
Thu, 2014-12-25 18:43
#1
retry for log update
Recent comments