Allow the users to select the log mode

Author: jginternational

kratos.gid/scripts/Controllers/Preferences.xml

@@ -8,6 +8,11 @@
             <option value='0' label='Optimized'/>
             <option value='1' label='Readable'/>
         </combobox>
+        <combobox name='allow_logs' variable='allow_logs' variablemanager='Kratos::ManagePreferences' label='Store logs' help=''>
+            <option value='0' label='No'/>
+            <option value='1' label='Only local, so I will get better support from the developers.'/>
+            <option value='2' label='Share anonymous usage data. (See kratos > View current log) Coming soon :)'/>
+        </combobox>
         <combobox name='echo_level' variable='echo_level' variablemanager='Kratos::ManagePreferences' label='Echo level' help='Show more/less message'>
             <option value='0' label='0'/>
             <option value='1' label='1'/>

kratos.gid/scripts/Controllers/PreferencesWindow.tcl

@@ -21,6 +21,9 @@ proc Kratos::ManagePreferences { cmd name {value ""}} {
                 "echo_level" {
                     set ret 0
                 }
+                "allow_logs" {
+                    set ret 1
+                }
                 "mdpa_format" {
                     set ret 1
                 }

kratos.gid/scripts/Utils.tcl

@@ -193,11 +193,12 @@ proc Kratos::LogInitialData { } {
 
     # Get the exec version
     Kratos::GetExecVersion
-    
+
     set initial_data [dict create]
     dict set initial_data GiD_version [GiD_Info gidversion]
     dict set initial_data problemtype_git_hash "68418871cff2b897f7fb9176827871b339fe5f91"
     dict set initial_data executable_version $Kratos::kratos_private(exec_version)
+    dict set initial_data current_platform $::tcl_platform(platform)
 
     Kratos::Log [write::tcl2json $initial_data]
 }