http://tools.ietf.org/html/rfc5424

src/i-nex/.settings

@@ -21,42 +21,41 @@ SearchComment=False
 SearchString=True
 
 [OpenFile]
-Active=1
 File[1]=".src/Finfosys.form"
 File[2]=".src/Global.class:149.56"
 File[3]=".src/About.form"
-File[4]=".src/About.class:7.35"
+File[4]=".src/About.class:87.3"
 File[5]=".src/battery.module:70.77"
-File[6]=".src/Disk_Drives.module:200.7"
+File[6]=".src/Disk_Drives.module:49.45"
 File[7]=".src/ScreenShot.form"
 File[8]=".src/ScreenShot.class:13.34"
 File[9]=".src/ScreenShotM.module:7.0"
-File[10]=".src/USB_Drives.module:35.17"
-File[11]=".src/Asound_Drives.module:34.12"
+File[10]=".src/USB_Drives.module:20.2"
+File[11]=".src/Asound_Drives.module:2.25"
 File[12]=".src/FReport_Gen.form"
 File[13]=".src/FReport_Gen.class:34.34"
 File[14]=".src/Start_App_Args.form"
-File[15]=".src/Start_App_Args.class:2.0"
+File[15]=".src/Start_App_Args.class:16.48"
 File[16]=".src/ChkPrm.module:21.19"
 File[17]=".src/thermal_zone.module:21.25"
 File[18]=".src/FModules.form"
-File[19]=".src/FModules.class:20.10"
-File[20]=".src/Input_Devices.module:8.1"
-File[21]=".src/net.module:116.28"
+File[19]=".src/FModules.class:22.35"
+File[20]=".src/Input_Devices.module:14.54"
+File[21]=".src/net.module:2.25"
 File[22]="Data/report-ng.sh:5.3"
-File[23]=".src/Distribution_Detect.module:11.29"
-File[24]=".src/FFlags.module:90.19"
-File[25]=".src/Finfosys.class:229.60"
+File[23]=".src/Distribution_Detect.module:4.65"
+File[24]=".src/FFlags.module:2.25"
+File[25]=".src/Finfosys.class:15.35"
 File[26]=".src/FDF.form"
 File[27]=".src/FDF.class:28.69"
 File[28]=".src/FNET_R_T.form"
 File[29]=".src/FNET_R_T.class:28.32"
-File[30]=".src/FGraphic.module:49.3"
+File[30]=".src/FGraphic.module:12.20"
 File[31]="logo/fb.png"
 File[32]=".src/FCPU.module:3.4"
 File[33]=".src/FUdisks.form"
 File[34]=".src/FUdisks.class:242.28"
-File[35]=".src/FCpudb.module:10.3"
+File[35]=".src/FCpudb.module:22.35"
 File[36]=".src/JSON.module:68.59"
 File[37]=".src/Settings.class:2.13"
 File[38]=".src/Main.module:7.29"
@@ -75,10 +74,13 @@ File[50]=".src/Reports/MKERNEL_REPORT.module:19.1"
 File[51]=".src/Reports/MInclude.module:72.15"
 File[52]=".src/Reports/MDRIVES_REPORT.module:12.40"
 File[53]=".src/FInputDate.form"
-File[54]=".src/MInit.module:30.65"
+File[54]=".src/MInit.module:33.0"
 File[55]=".src/FEDID.form"
-File[56]=".src/FEDID.class:11.0"
-Count=56
+File[56]=".src/FEDID.class:8.7"
+Active=57
+File[57]=".src/Logger.class:12.5"
+File[58]=".src/Formatter.module:3.0"
+Count=58
 
 [Watches]
 Count=0

src/i-nex/.src/About.class

@@ -86,9 +86,3 @@ Public Sub ToolButton1_Click()
  Desktop.Open("https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=9UXEZHC8M3BHJ")
 
 End
-
-Public Sub ToggleButton1_Click()
-
- Desktop.Open("http://adf.ly/ZnYGZ")
-
-End

src/i-nex/.src/About.form

@@ -38,10 +38,6 @@
       Move(7,329,462,42)
       Text = ("If you do not have the possibility of giving the money to me for a coffee, \njust click on the link adf.ly. ")
     }
-    { ToggleButton1 ToggleButton
-      Move(98,371,266,91)
-      Picture = Picture["Data/adfly.png"]
-    }
     Index = 1
     Text = ("Credits")
     { ScrollView1 ScrollView

src/i-nex/.src/Asound_Drives.module

@@ -1,5 +1,6 @@
 ' Gambas module file
 
+Public Logs As New Logger
 Public Version As String
 Public Modules As String
 Public Devices As String
@@ -11,12 +12,12 @@ Public pcm As String
 Public sound_cards As String
 
 Public Sub _init()
- Dim ListAllDiscs, risultato As String
+  Dim ListAllDiscs, risultato As String
   Dim righe As New String[]
   Dim count As Integer
   Dim riga As New String[]
   Dim lista As New String[]
-  Debug "Add Drives to ComboBox.."
+  Logs("Add Drives to ComboBox..", Logger.Info)
   Shell "ls /proc/asound | grep card[0-9]" To ListAllDiscs
   righe = Split(ListAllDiscs, "\n", "%%", True)
   For count = 0 To righe.Max

src/i-nex/.src/Disk_Drives.module

@@ -1,5 +1,6 @@
 ' Gambas module file
 
+Public Logs As New Logger
 Public block_drive As String = "Finfosys.ComboBox4.Text"
 Public device_model As String
 Public device_vendor As String
@@ -46,7 +47,7 @@ Public Sub _inits()
   Dim Avail_HDD As Integer 
   Dim Max_HDD As Integer
   Dim cache As String
-  Debug "Add Drives to ComboBox"
+  Logs("Add Drives to ComboBox", Logger.Info)
   Shell "ls /sys/block/ | grep -e 'sd' -e 'sr' | tr ' ' '\n' | wc -l" Wait To cache
   Max_HDD = Val(cache)
   For Avail_HDD = 1 To Max_HDD
@@ -63,7 +64,7 @@ Public Sub _init_2()
   Dim count As Integer
   Dim riga As New String[]
   Dim lista As New String[]
-  Debug "Add Drives to ComboBox.."
+  Logs("Add Drives to ComboBox..", Logger.Info)
   Shell "ls /sys/block/" & Finfosys.ComboBox4.Text & " | grep 'sd' | sort -V" To ListAllDiscs
   righe = Split(ListAllDiscs, "\n", "%%", True)
   For count = 0 To righe.Max
@@ -76,7 +77,7 @@ Public Sub _init_2()
 End
 
 Public Sub get_informations()
-  Debug "Get informations of Drives"
+  Logs("Get informations of Drives", Logger.Info)
   Shell "cat /sys/block/" & Finfosys.ComboBox4.Text & "/device/model" Wait To device_model
   Shell "cat /sys/block/" & Finfosys.ComboBox4.Text & "/device/vendor" Wait To device_vendor
   Shell "cat /sys/block/" & Finfosys.ComboBox4.Text & "/device/rev" Wait To device_rev
@@ -112,8 +113,8 @@ Public Sub get_informations()
   Shell "cat /sys/block/" & Finfosys.ComboBox4.Text & "/bdi/stable_pages_required" Wait To stable_pages_required
   Shell "sed -n '2p' /proc/swaps | awk {'print $1'} | cut -d '/' -f 3" Wait To check_swap
   Shell "df | grep '" & Finfosys.ComboBox3.Text & "' | awk {'print $5'} | sed -n '1p'" Wait To used
-  Debug "Get informations of Drives Done" 
-  Debug "Replace new line to Null"
+  Logs("Get informations of Drives Done", Logger.Info)
+  Logs("Replace new line to Null", Logger.Info)
   rm_new_line()
   disks()
 End
@@ -159,7 +160,7 @@ Public Sub rm_new_line()
   physical_block_size = Replace(physical_block_size, "\n", "") ' physical_block_size
   rotational = Replace(rotational, "\n", "") ' rotational
   rq_affinity = Replace(rq_affinity, "\n", "") ' rq_affinity
-  Debug "Replace new line to Null Done"
+  Logs("Replace new line to Null Done", Logger.Info)
 
 End
 

src/i-nex/.src/FCpudb.module

@@ -1,23 +1,28 @@
 ' Gambas module file
 
+Public Logs As New Logger
 Public i As Integer
 Public database As Collection
 Public Sub _inits()
   Dim buffer, cpucache As String
   Dim z As Integer
   Select Case Finfosys.Label14.Text
    Case Like "*amd*"
+    Logs("Use AMD CPU Database", Logger.Info)
     buffer = File.Load("Database/amd")
    Case Like "*atom*"
+    Logs("Use Intel Atom CPU Database", Logger.Info)
     buffer = File.Load("Database/atom")
    Case Like "*intel*"
+    Logs("Use Intel CPU Database", Logger.Info)
     buffer = File.Load("Database/intel")
   End Select
+  Logs("Decode CPU Database", Logger.Info)
   database = JSON.Decode(buffer)
   cpucache = Finfosys.Label14.Text
+  Logs("Replace CPU Strings to Null", Logger.Info)
   cpucache = Replace(Replace(Replace(Replace(Replace(Replace(Replace(cpucache, "Intel", ""), " ", "*"), "R", ""), "CPU", ""), "TM", ""), ")", ""), "(", "")
   cpucache = Replace(Replace(Replace(Replace(Replace(cpucache, "AMD", ""), "Core", ""), "Dual", ""), "Processor", ""), "tm", "")
-
   For z = 0 To database["DATABASE"].Count - 1
     If database["DATABASE"][z]["PROCESSOR_MODEL_NAME"] Like "*" & cpucache & "*" Then 
       Finfosys.Label103.Text = " Integrated GPU: " & database["DATABASE"][z]["PROCESSOR_INTEGRATEDGRAPHIC"]
@@ -40,5 +45,5 @@ Public Sub _inits()
       Break
     Endif
   Next
-  Debug "Current position of processor = " & cpucache & " is = " & z & ""
+  Logs("Current position of processor = " & cpucache & " is = " & z & "", Logger.Info)
 End

src/i-nex/.src/FEDID.class

@@ -6,6 +6,7 @@ Public Sub Form_Open()
  Me.X = Settings["Window/X", Me.X]
  Me.Y = Settings["Window/Y", Me.Y]
  Exec ["/bin/bash", "" & User.Home & "/.i-nex/edid"] Wait
+ Wait 1
  TextArea1.Text = File.Load("" & User.Home & "/.i-nex/edid.conf")
 
 End

src/i-nex/.src/FFlags.module

@@ -1,5 +1,6 @@
 ' Gambas module file
 
+Public Logs As New Logger
 Public HTT As String
 Public X86_X64 As String
 Public VIRT As String
@@ -77,17 +78,17 @@ Public Sub ht()
   Shell "grep 'cpu cores' /proc/cpuinfo | sed -n '1p' | cut -d ':' -f 2" Wait To NUMLOG
 
   If NUMLOG = Null Then
-   Debug "CPU Cores is Null"
+   Logs("CPU Cores is Null", Logger.Info)
   Else
    NUMLOG = CFloat(Val(Replace(Replace(NUMLOG, " ", ""), "\n", "")))
    NUMPHY = CFloat(Val(Replace(Replace(NUMPHY, " ", ""), "\n", "")))
      If NUMPHY = NUMLOG Then
         Finfosys.ToolButton3.Picture = Picture["Data/check_false.png"]
-        Debug "Not detect HT"
+        Logs("Not detect HT", Logger.Info)
         HTT = "False"
         Else
         Finfosys.ToolButton3.Picture = Picture["Data/check_true.png"]
-        Debug "Detected HT"
+        Logs("Detected HT", Logger.Info)
         HTT = "True"
      Endif
   Endif

src/i-nex/.src/FGraphic.module

@@ -1,13 +1,13 @@
 ' Gambas module file
 
-' 
+Public Logs As New Logger
 Public Sub _inits()
   Dim Interfaces_X As String
   Dim Avail_Interfaces As Integer 
   Dim Max_Interfaces As Integer
   Dim all_interfaces As String
-  
-  Debug "Add Interfaces to ComboBox"
+
+  Logs("Add Interfaces to ComboBox", Logger.Info)
   Shell "ls /sys/class/drm/ | grep 'card[0-9]' | wc -l" Wait To all_interfaces
   Max_Interfaces = Val(all_interfaces)
   For Avail_Interfaces = 1 To Max_Interfaces

src/i-nex/.src/FModules.class

@@ -19,6 +19,8 @@ Public Sub Form_Open()
   Me.Close
  Endif
  Me.Center
+  Me.X = Settings["Window/X", Me.X]
+  Me.Y = Settings["Window/Y", Me.Y]
 End
 
 Public Sub ComboBox1_Click()