Add cpuinfo to report

i-nex · Aug 1, 2014 · d95ff3a · d95ff3a
1 parent af59a12
commit d95ff3a
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 3 deletions.
diff --git a/I-Nex/i-nex/.src/FReport_Gen.class b/I-Nex/i-nex/.src/FReport_Gen.class
@@ -138,6 +138,11 @@ If CheckBox9.Value = True Then
  Object.Call(MInclude, "_dmesg")
 Endif
 
+If CheckBox23.Value = True Then
+ Object.Call(MInclude, "_cpuinfo")
+Endif
+
+
 If CheckBox11.Value = True Then
  TextBox1.Text = MPastebinit.pastebin(True, ButtonBox1.Text, ComboBox1.Text)
 Endif

diff --git a/I-Nex/i-nex/.src/FReport_Gen.form b/I-Nex/i-nex/.src/FReport_Gen.form
@@ -161,6 +161,12 @@
       Expand = True
       Text = ("Include /etc/default/grub")
     }
+    { CheckBox23 CheckBox
+      Move(0,322,168,28)
+      Font = Font["8"]
+      Expand = True
+      Text = ("Include /proc/cpuinfo")
+    }
   }
   { Separator1 Separator
     Move(231,0,14,357)

diff --git a/I-Nex/i-nex/.src/Reports/MInclude.module b/I-Nex/i-nex/.src/Reports/MInclude.module
@@ -84,8 +84,27 @@ Shell "dmesg >>" & FReport_Gen.ButtonBox1.Text & "" Wait
  Wait 0.01
 End
 
+Public Sub _cpuinfo()
+ Dim hFile As File
+ _ohce("CPUINFO")
+ FReport_Gen.ProgressBar1.Value = 4 / 9
+ If Exist(FReport_Gen.ButtonBox1.Text) Then  
+    hFile = Open FReport_Gen.ButtonBox1.Text For Write Append 
+ Else 
+    hFile = Open FReport_Gen.ButtonBox1.Text For Write Create
+ Endif 
+ Write #hFile, File.Load("/proc/cpuinfo")
+ Close #hFile
+ Wait 0.01
+End
+
 Public Sub _ohce(txet As String)
-
-Shell "echo '========================================================" & txet & "=================================================================' >>" & FReport_Gen.ButtonBox1.Text & "" Wait
-
+ Dim hFile As File
+ If Exist(FReport_Gen.ButtonBox1.Text) Then  
+    hFile = Open FReport_Gen.ButtonBox1.Text For Write Append 
+ Else 
+    hFile = Open FReport_Gen.ButtonBox1.Text For Write Create
+ Endif 
+ Print #hFile, "========================================================" & txet & "================================================================="
+ Close #hFile
 End