Merge pull request #70 from FN-FAL113/Debug/write-exceptions-to-file

write exceptions to file

Author: FN-FAL113

CS2ServerPicker/App.vb

@@ -131,7 +131,7 @@
             Environment.NewLine +
             "Author: FN-FAL113 (github username)" + Environment.NewLine +
             "License: GNU General Public License V3" + Environment.NewLine +
-            "App Version: 2.2.2",
+            "App Version: 2.2.3",
             "App Info"
         )
     End Sub

CS2ServerPicker/CS2ServerPicker.vbproj

@@ -149,6 +149,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Services\DataGridViewService.vb" />
+    <Compile Include="Services\ErrorService.vb" />
     <Compile Include="Services\PingService.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">

CS2ServerPicker/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.2.2.0")>
-<Assembly: AssemblyFileVersion("2.2.2.0")>
+<Assembly: AssemblyVersion("2.2.3.0")>
+<Assembly: AssemblyFileVersion("2.2.3.0")>
 <Assembly: NeutralResourcesLanguage("en")>

CS2ServerPicker/Presets/AddPresetForm.vb

@@ -59,8 +59,9 @@ Public Class AddPresetForm
 
             MessageBox.Show("Succesfully added preset!", "Info")
         Catch ex As Exception
-            MessageBox.Show("An error has occured while adding preset! Error: " _
-                + Environment.NewLine + Environment.NewLine + ex.Message, "Add Preset Error")
+            Log_Exception_To_File(ex, "An error has occured while adding preset!")
+
+            MessageBox.Show("An error has occured while adding preset! Please upload error file to github issue tracker.", "Add Preset Error")
         End Try
     End Sub
 

CS2ServerPicker/Presets/DeletePresetForm.vb

@@ -31,8 +31,9 @@ Public Class DeletePresetForm
             ' refresh/reload presets control data grids
             Presets.Load_Presets()
         Catch ex As Exception
-            MessageBox.Show("An error has occured while deleting preset! Please report to github issue-tracker. Error: " _
-                + Environment.NewLine + Environment.NewLine + ex.Message, "Delete Preset Error")
+            Log_Exception_To_File(ex, "An error has occured while deleting preset!")
+
+            MessageBox.Show("An error has occured while deleting preset! Please upload error file to github issue tracker.", "Delete Preset Error")
 
             Return
         End Try

CS2ServerPicker/Presets/Presets.vb

@@ -98,8 +98,9 @@ Public Class Presets
                 PresetsDataGridView.Rows(rowIndex).Cells(0).Value = preset.Value.SelectToken("presetName")
             Next
         Catch ex As Exception
-            MessageBox.Show("An error has occured while loading presets! Please report to github issue-tracker. Error: " _
-                + Environment.NewLine + Environment.NewLine + ex.Message, "Load Presets Error")
+            Log_Exception_To_File(ex, "An error has occured while loading presets!")
+
+            MessageBox.Show("An error has occured while loading presets! Please upload error file to github issue tracker.", "Load Presets Error")
         End Try
     End Sub
 
@@ -127,8 +128,9 @@ Public Class Presets
                 PresetServerListDataGridView.Rows(rowIndex).Cells(0).Value = server
             Next
         Catch ex As Exception
-            MessageBox.Show("An error has occured while loading preset servers! Please report to github issue-tracker. Error: " _
-               + Environment.NewLine + Environment.NewLine + ex.Message, "Load Preset Servers Error")
+            Log_Exception_To_File(ex, "An error has occured while loading preset servers!")
+
+            MessageBox.Show("An error has occured while loading preset servers! Please upload error file to github issue tracker", "Load Preset Servers Error")
         End Try
     End Sub
 End Class

CS2ServerPicker/Presets/UpdatePresetForm.vb

@@ -79,8 +79,9 @@ Public Class UpdatePresetForm
 
             MessageBox.Show("Succesfully updated preset!", "Info")
         Catch ex As Exception
-            MessageBox.Show("An error has occured while updating preset! Error: " _
-                + Environment.NewLine + Environment.NewLine + ex.Message, "Update Preset Error")
+            Log_Exception_To_File(ex, "An error has occured while updating preset!")
+
+            MessageBox.Show("An error has occured while updating preset! Please upload error file to github issue tracker.", "Update Preset Error")
         End Try
     End Sub
 

CS2ServerPicker/Services/DataGridViewService.vb

@@ -1,6 +1,4 @@
-Imports System.Net
-
-Module DataGridViewService
+Module DataGridViewService
 
     ' cache server flag image to prevent unnecessary requests
 
@@ -9,8 +7,6 @@ Module DataGridViewService
 
         Dim dg As DataGridView = App.Get_DataGridView_Control()
 
-        Dim wClient As WebClient = New WebClient()
-
         ' display each server name key value from server dictionary in the datagridview control
         For Each kvp As KeyValuePair(Of String, String) In serverDict
             Dim rowIndex As Integer = App.Get_DataGridView_Control().Rows().Add()
@@ -19,7 +15,6 @@ Module DataGridViewService
             dg.Rows(rowIndex).Cells(1).Value = kvp.Key
         Next
 
-        wClient.Dispose()
     End Sub
 
     Public Sub Clear_Column_Values()

CS2ServerPicker/Services/ErrorService.vb

@@ -0,0 +1,8 @@
+Imports System.IO
+
+Module ErrorService
+    Public Sub Log_Exception_To_File(exception As Exception, errorFrom As String)
+        File.AppendAllText(System.AppDomain.CurrentDomain.BaseDirectory + "error_" + DateTimeOffset.Now.ToUnixTimeSeconds.ToString() + ".txt",
+                          errorFrom + Environment.NewLine + exception.Message)
+    End Sub
+End Module

CS2ServerPicker/Services/ServerService.vb

@@ -87,7 +87,9 @@ Module ServerService
 
             Return serverRevision
         Catch ex As Exception
-            MessageBox.Show("An error has occured while retrieving or displaying server data! Please report to github issue-tracker.", "Server Data Fetch/Display Error")
+            Log_Exception_To_File(ex, "An error has occurred while retrieving or displaying server data!")
+
+            MessageBox.Show("An error has occurred while retrieving or displaying server data! Please upload error file to github issue tracker", "Server Data Fetch/Display Error")
 
             Return "null"
         End Try
@@ -155,7 +157,9 @@ Module ServerService
                     Continue For
                 End If
             Catch ex As Exception
-                MessageBox.Show("An error has occured while blocking servers by preset with the following message: " + Environment.NewLine + ex.Message, "Error")
+                Log_Exception_To_File(ex, "An error has occurred while blocking servers by preset!")
+
+                MessageBox.Show("An error has occurred while blocking servers by preset! Please upload error file to github issue tracker.", "Error")
             End Try
         Next
 
@@ -216,7 +220,9 @@ Module ServerService
                     Continue For
                 End If
             Catch ex As Exception
-                MessageBox.Show("An error has occured while blocking/unblocking selected server with the following message: " + Environment.NewLine + ex.Message, "Error")
+                Log_Exception_To_File(ex, "An error has occurred while blocking/unblocking selected server!")
+
+                MessageBox.Show("An error has occurred while blocking/unblocking selected server! Please upload error file to github issue tracker.", "Error")
             End Try
         Next
 
@@ -273,7 +279,9 @@ Module ServerService
                     Continue For
                 End If
             Catch ex As Exception
-                MessageBox.Show("An error has occured while blocking/unblocking all servers with the following message: " + Environment.NewLine + ex.Message, "Error")
+                Log_Exception_To_File(ex, "An error has occurred while blocking/unblocking all servers!")
+
+                MessageBox.Show("An error has occurred while blocking/unblocking all servers! Please upload error file to github issue tracker.", "Error")
             End Try
         Next
 
@@ -291,7 +299,8 @@ Module ServerService
         proc.Start()
         proc.WaitForExit()
 
-        Dim procOutput = proc.StandardOutput.ReadToEnd() ' retrieve command output from stdout descriptor
+        ' retrieve command output from stdout descriptor
+        Dim procOutput = proc.StandardOutput.ReadToEnd()
 
         is_rule_exist = procOutput.Contains("CS2ServerPicker_" + region_trimmed)