opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Report OS mode in statistics call

Browse Source
This commit is contained in:
Ansgar Becker
2020-05-21 22:34:01 +02:00
parent 900e0dd119
commit bca5270966
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/main.pas
View File

@ -2054,7 +2054,7 @@ var
LoadedParams, ConnectionParams: TConnectionParameters;
LastUpdatecheck, LastStatsCall, LastConnect: TDateTime;
UpdatecheckInterval, i: Integer;
DefaultLastrunDate, LastActiveSession: String;
DefaultLastrunDate, LastActiveSession, Environment: String;
frm : TfrmUpdateCheck;
StatsCall: THttpDownload;
SessionPaths: TStringlist;
@ -2108,10 +2108,17 @@ begin
end;
if DaysBetween(Now, LastStatsCall) >= 30 then begin
// Report used app version, bits, and theme name (so we find mostly unused ones for removal)
// Also report environment: WinDesktop, WinUWP or Wine
if RunningAsUwp then Environment := 'WinUWP'
else if IsWine then Environment := 'Wine'
else Environment := 'WinDesktop';
StatsCall := THttpDownload.Create(Self);
StatsCall.URL := APPDOMAIN + 'savestats.php?c=' + IntToStr(FAppVerRevision) +
'&bits=' + IntToStr(GetExecutableBits) +
'&thm=' + EncodeURLParam(TStyleManager.ActiveStyle.Name);
'&thm=' + EncodeURLParam(TStyleManager.ActiveStyle.Name) +
'&env=' + EncodeURLParam(Environment);
// Enumerate actively used server versions
for i:=0 to SessionPaths.Count-1 do begin
AppSettings.SessionPath := SessionPaths[i];