From e7e1813d5349584cc0ac5e68d8b989f22c86fafd Mon Sep 17 00:00:00 2001
From: JackCarterSmith <arechristopher1@gmail.com>
Date: Sat, 8 Jul 2017 17:05:38 +0200
Subject: [PATCH] An attempt to add logger class

---
 .../ISEN-Repair Inventory Manager.vbproj      |  3 +-
 ISEN-Repair Inventory Manager/Logger.vb       | 42 +++++++++++++++++++
 ISEN-Repair Inventory Manager/Main.vb         |  1 +
 3 files changed, 45 insertions(+), 1 deletion(-)
 create mode 100644 ISEN-Repair Inventory Manager/Logger.vb

diff --git a/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj b/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj
index 977ea89..c7369b3 100644
--- a/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj	
+++ b/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj	
@@ -33,7 +33,7 @@
     <SuiteName>ISEN-Repair</SuiteName>
     <MinimumRequiredVersion>0.8.1.0</MinimumRequiredVersion>
     <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
-    <WebPage>publish.htm</WebPage>
+    <WebPage>index.htm</WebPage>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
     <ApplicationRevision>2</ApplicationRevision>
     <ApplicationVersion>0.9.5.%2a</ApplicationVersion>
@@ -171,6 +171,7 @@
     <Compile Include="IDGenerator.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Logger.vb" />
     <Compile Include="Main.vb">
       <SubType>Form</SubType>
     </Compile>
diff --git a/ISEN-Repair Inventory Manager/Logger.vb b/ISEN-Repair Inventory Manager/Logger.vb
new file mode 100644
index 0000000..c081a75
--- /dev/null
+++ b/ISEN-Repair Inventory Manager/Logger.vb	
@@ -0,0 +1,42 @@
+Imports System.IO
+
+Public Class Logger
+    'DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
+
+    Dim logFileName As String = "logs\" & DateTime.Now.ToString("yyyy-MM-dd") & ".txt"
+
+    Shared Sub Load()
+        If Not My.Computer.FileSystem.DirectoryExists("logs") Then My.Computer.FileSystem.CreateDirectory("logs")
+        If Not My.Computer.FileSystem.FileExists(logFileName) Then File.WriteAllLines(logFileName, {"LOG FILE - " & DateTime.Now.ToString("dd/MM/yyyy"), "--------------------", "[INFO] Loading software"})
+    End Sub
+
+    Sub Info(str As String)
+        Dim objWriter As New StreamWriter(logFileName, True)
+        Try
+            objWriter.WriteLineAsync("[INFO] " & str)
+        Catch ex As Exception
+            MsgBox(ex.ToString)
+        End Try
+        objWriter.Close()
+    End Sub
+
+    Sub Warn(str As String)
+        Dim objWriter As New StreamWriter(logFileName, True)
+        Try
+            objWriter.WriteLineAsync("[WARN] " & str)
+        Catch ex As Exception
+            MsgBox(ex.ToString)
+        End Try
+        objWriter.Close()
+    End Sub
+
+    Sub Critical(str As String)
+        Dim objWriter As New StreamWriter(logFileName, True)
+        Try
+            objWriter.WriteLineAsync("[CRITICAL] " & str)
+        Catch ex As Exception
+            MsgBox(ex.ToString)
+        End Try
+        objWriter.Close()
+    End Sub
+End Class
diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb
index bfc2e15..694cab0 100644
--- a/ISEN-Repair Inventory Manager/Main.vb	
+++ b/ISEN-Repair Inventory Manager/Main.vb	
@@ -6,6 +6,7 @@ Public Class Main
     Dim idList As New ArrayList
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Logger.Load()
         CheckIfFirstRun()
         ListAllInv()
     End Sub