Correct misspellings and rewrite dpkg subroutine
The Finfosys.class file defines a subroutine for counting the number of installed packages. For systems using `dpkg` it used grep + wc to manually parse internal dpkg database files. This is ill-advised as the dpkg API is constantly evolving and the calculation can be easily replaced with the `dpkg --get-selections` command, providing an identical result but by using a stable API call. This resolves the final lintian warning for the package, "W: i-nex: uses-dpkg-database-directly usr/bin/i-nex.gambas". Also, several source files misspelled the word 'needed' as 'nedded' and the .png icon files from the preceding commit were optimized using optipng. Signed-off-by: Peter J. Mello <admin@petermello.net>
This commit is contained in:
Peter J. Mello
parent
972743f98c
commit
0d52e598c5
|
|
@ -551,7 +551,7 @@
|
|||
- Don't show ComboBox to select info of processor[0-9] if TabPanel1.Current.Text = CPUID ([64e275d](https://github.com/i-nex/I-Nex/commit/64e275d7198c64f334195efee333936459db6cd9))
|
||||
- Update desktop file ([b8ff5cd](https://github.com/i-nex/I-Nex/commit/b8ff5cd0a94b4cb63e88475a8cd9c2a8ff8b50c5))
|
||||
- Update debian menu ([3f3f35d](https://github.com/i-nex/I-Nex/commit/3f3f35dcd3e7f79e352868072e0563659b917292))
|
||||
- Remove not nedded png. And replace icons. Convert to xpm, not png ([2c82eb3](https://github.com/i-nex/I-Nex/commit/2c82eb3f6b3112310ecc2f5e15467dad1cced56d))
|
||||
- Remove not needed png. And replace icons. Convert to xpm, not png ([2c82eb3](https://github.com/i-nex/I-Nex/commit/2c82eb3f6b3112310ecc2f5e15467dad1cced56d))
|
||||
- additional_confflags ([4e03b87](https://github.com/i-nex/I-Nex/commit/4e03b87bdfeb8bf5b7ae7457204b6d3eecbd2c6f))
|
||||
- Fix MMX Flags ([4278cf0](https://github.com/i-nex/I-Nex/commit/4278cf0feeb47a43f78909728a2027a68497b84f))
|
||||
- Update About Author email and homepage ([d714b3e](https://github.com/i-nex/I-Nex/commit/d714b3e051d0029455082afc995b56265bd5b80c))
|
||||
|
|
@ -764,7 +764,7 @@
|
|||
- Add new mail for FadeMind Developer in Credits Tab. ([09e93db](https://github.com/i-nex/I-Nex/commit/09e93db7f9c66a7aba74cfb8d163a0b3bd37ad95))
|
||||
- Merge branch 'master' of http://anongit.freedesktop.org/git/xorg/app/edid-decode AND ([86f305a](https://github.com/i-nex/I-Nex/commit/86f305a7880d8d9fcb916c88ff05c51075970c19))
|
||||
- Replace Shell "Command" to File.Load (Faster method) And Add If Exist("sys/classdrm") ([baf082f](https://github.com/i-nex/I-Nex/commit/baf082f40055af402efaed4cd658bea4b6a19220))
|
||||
- Remove not nedded files ([9f99248](https://github.com/i-nex/I-Nex/commit/9f9924802859a3507837d80f0742690ecec16da2))
|
||||
- Remove not needed files ([9f99248](https://github.com/i-nex/I-Nex/commit/9f9924802859a3507837d80f0742690ecec16da2))
|
||||
- Remove env ([e43af30](https://github.com/i-nex/I-Nex/commit/e43af306ca3f4a4c100faaef15096297f9dca069))
|
||||
- Update other files ([2dd2d47](https://github.com/i-nex/I-Nex/commit/2dd2d479dcc6a4f446cb113a3ca865cfe25d0b2c))
|
||||
- + Debug "Good bye!" - Object.Call(FCpudb, "_init") + Object.Call(FCpudb, "_inits") ([da09cd9](https://github.com/i-nex/I-Nex/commit/da09cd974b04123b7160f34d454b74105a7444e8))
|
||||
|
|
@ -799,7 +799,7 @@
|
|||
- Add gui for udisks --show-info and some fixes in GUI and more standards ([4603bf1](https://github.com/i-nex/I-Nex/commit/4603bf196eb32832c569f5366c86eab1c3929830))
|
||||
- Make self detect kdesu, kdesudo, gksu ([02642b2](https://github.com/i-nex/I-Nex/commit/02642b2b1a90a16776d95d1bc6f8fc6bfbf41c95))
|
||||
- Fix failed to build ([4f2e0f1](https://github.com/i-nex/I-Nex/commit/4f2e0f102bb1cf126313cea519edad5ae0a8e548))
|
||||
- Reduce i-nex.run from 3.9MB to 2.9MB Remove libaries .so.0 so.0.0 so.0.0.0 not nedded ([1f574ad](https://github.com/i-nex/I-Nex/commit/1f574ad8c76301a780726ba783e620d96bcf17d1))
|
||||
- Reduce i-nex.run from 3.9MB to 2.9MB Remove libaries .so.0 so.0.0 so.0.0.0 not needed ([1f574ad](https://github.com/i-nex/I-Nex/commit/1f574ad8c76301a780726ba783e620d96bcf17d1))
|
||||
- Add to makefile: make self make self create i-nex.run file to install using command: sudo i-nex.run i-nex.run no need gambas3 libaries installed on system. ([c95721c](https://github.com/i-nex/I-Nex/commit/c95721ce07ef13340d4949dfec90f2a7f42057e3))
|
||||
- Add i-nex bash script to run i-nex using i-nex command. Add i-nex script to debian/i-nex.install Remove stupid scripts from debian/rules ([9989701](https://github.com/i-nex/I-Nex/commit/9989701802d8f5d3ea0e641343dca0f5e95735dd))
|
||||
- Update control and rules ([0c3e7a3](https://github.com/i-nex/I-Nex/commit/0c3e7a35e38e1921da28d6e92e124ea1193972e6))
|
||||
|
|
|
|||
|
|
@ -329,7 +329,7 @@
|
|||
- Fix Intel i5/7/3 logo size
|
||||
- Removing unnecessary code for the detection of processor instructions.
|
||||
- Add xdriinfo
|
||||
- Remove two
|
||||
- Remove two
|
||||
- New Manjaro logo
|
||||
- Remove nets
|
||||
- Speeding up detection of network interfaces.
|
||||
|
|
@ -524,7 +524,7 @@
|
|||
- Don't show ComboBox to select info of processor[0-9] if TabPanel1.Current.Text = CPUID
|
||||
- Update desktop file
|
||||
- Update debian menu
|
||||
- Remove not nedded png. And replace icons. Convert to xpm, not png
|
||||
- Remove not needed png. And replace icons. Convert to xpm, not png
|
||||
- additional_confflags
|
||||
- Fix MMX Flags
|
||||
- Update About Author email and homepage
|
||||
|
|
@ -604,7 +604,7 @@
|
|||
- Remove $(RM_COM) $(RMDIR_OPT) `find . -name "screenfetch-dev"`
|
||||
- change font labels All to Bold,8
|
||||
- Try to fix broken detection of gtk, wm, themes etc
|
||||
-
|
||||
-
|
||||
- Add make patch & make unpatch
|
||||
- Add [PATCH] I-Nex New GUI
|
||||
- Merge branch 'master' of http://anongit.freedesktop.org/git/xorg/app/edid-decode
|
||||
|
|
@ -737,7 +737,7 @@
|
|||
- Add new mail for FadeMind Developer in Credits Tab.
|
||||
- Merge branch 'master' of http://anongit.freedesktop.org/git/xorg/app/edid-decode AND
|
||||
- Replace Shell "Command" to File.Load (Faster method) And Add If Exist("sys/classdrm")
|
||||
- Remove not nedded files
|
||||
- Remove not needed files
|
||||
- Remove env
|
||||
- Update other files
|
||||
- + Debug "Good bye!" - Object.Call(FCpudb, "_init") + Object.Call(FCpudb, "_inits")
|
||||
|
|
@ -772,7 +772,7 @@
|
|||
- Add gui for udisks --show-info and some fixes in GUI and more standards
|
||||
- Make self detect kdesu, kdesudo, gksu
|
||||
- Fix failed to build
|
||||
- Reduce i-nex.run from 3.9MB to 2.9MB Remove libaries .so.0 so.0.0 so.0.0.0 not nedded
|
||||
- Reduce i-nex.run from 3.9MB to 2.9MB Remove libaries .so.0 so.0.0 so.0.0.0 not needed
|
||||
- Add to makefile: make self make self create i-nex.run file to install using command: sudo i-nex.run i-nex.run no need gambas3 libaries installed on system.
|
||||
- Add i-nex bash script to run i-nex using i-nex command. Add i-nex script to debian/i-nex.install Remove stupid scripts from debian/rules
|
||||
- Update control and rules
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@ Public Sub Form_Open()
|
|||
Dim sLine As String
|
||||
Dim MTRR As New String[]
|
||||
Label74.Text = "I-Nex " & Application.Version
|
||||
|
||||
|
||||
''Okno na środku
|
||||
''
|
||||
If Settings["Window/X"] = Null Then
|
||||
|
|
@ -62,10 +62,10 @@ Public Sub Form_Open()
|
|||
Orientation_Bottom_Click()
|
||||
End Select
|
||||
Endif
|
||||
|
||||
|
||||
Logs("Call to MLibcpuid14", Logger.Info)
|
||||
Object.Call(MLibcpuid14, "main")
|
||||
|
||||
|
||||
Try data = Open "/proc/mtrr" For Input
|
||||
|
||||
While Not Eof(data)
|
||||
|
|
@ -73,9 +73,9 @@ Public Sub Form_Open()
|
|||
MaxCount += 1
|
||||
MTRR.Add(sLine, MaxCount)
|
||||
Wend
|
||||
|
||||
|
||||
Try Close #data
|
||||
|
||||
|
||||
' If Exist("/proc/mtrr", True) Then
|
||||
' For i = 1 To MaxCount
|
||||
' Label[i] = New Label(ScrollView2)
|
||||
|
|
@ -91,22 +91,22 @@ Public Sub Form_Open()
|
|||
' End With
|
||||
' Next
|
||||
' Endif
|
||||
|
||||
|
||||
'Procesor
|
||||
Logs("Check available procesors", Logger.Info)
|
||||
ComboBox1.List = Dir("/sys/devices/system/cpu/", "cpu[0-9]").Sort(gb.Ascent)
|
||||
'Locate kernels
|
||||
MaxCount = 0
|
||||
' Try data = Shell "ls /boot | grep 'vmlinuz*'" For Input
|
||||
'
|
||||
'
|
||||
' While Not Eof(data)
|
||||
' Line Input #data, sLine
|
||||
' MaxCount += 1
|
||||
' ListBox1.Add(sLine, MaxCount)
|
||||
' Wend
|
||||
'
|
||||
'
|
||||
' Try Close #data
|
||||
|
||||
|
||||
ListBox1.List = Dir("/boot/", "vmlinuz*")
|
||||
Label228.Text = "Installed Kernels: " & CString(Dir("/boot/", "vmlinuz*").Count)
|
||||
'End of locate kernels
|
||||
|
|
@ -117,7 +117,7 @@ Public Sub Form_Open()
|
|||
Logs(Settings.DefaultDir, Logger.Info)
|
||||
Finfosys.TabStrip1[9].Visible = False
|
||||
Finfosys.TabStrip1[11].Visible = False
|
||||
Logs("Call to MInit for copy nedded files to I-Nex config dir in User.Home", Logger.Info)
|
||||
Logs("Call to MInit for copy needed files to I-Nex config dir in User.Home", Logger.Info)
|
||||
Object.Call(MInit, "_inits")
|
||||
Logs("Settings default dir = " & Settings.DefaultDir & "", Logger.Info)
|
||||
Logs("Check for Battery", Logger.Info)
|
||||
|
|
@ -144,7 +144,7 @@ Public Sub Form_Open()
|
|||
Timer1.Start
|
||||
Timer1.Delay = 1500
|
||||
TextLabel21.Visible = False
|
||||
|
||||
|
||||
Logs("Set Combobox to cpu0", Logger.Info)
|
||||
ComboBox1.Index = 0 ''Ustawienie combobox na Procesor0 / W przeciwnym wypadku nie pokaże nic
|
||||
'Uruchomienie instrukcji dla poszczególnych zakładek w celu wydobycia informacji z systemu
|
||||
|
|
@ -181,7 +181,7 @@ Public Sub grafika()
|
|||
|
||||
Try Exec ["/bin/bash", User.Home &/ ".i-nex/i-nex-lspci", "nonprefetchable"] Wait To memory_non_prefetchable
|
||||
Try Exec ["/bin/bash", User.Home &/ ".i-nex/i-nex-lspci", "prefetchable"] Wait To memory_prefetchable
|
||||
|
||||
|
||||
Try Exec ["glxinfo"] Wait To GLIXNFO
|
||||
GLX = Split(GLIXNFO, "\n", "")
|
||||
For Each strings In GLX
|
||||
|
|
@ -231,18 +231,18 @@ Public Sub grafika()
|
|||
Label108.Text = "Present resolution: " & Replace(rozdzielczosc, "\n", "")
|
||||
TextBox1.Text = RTrim(Replace(gpu, "\n", ""))
|
||||
Label109.Text = Replace(available_resolutions, "\n", "")
|
||||
|
||||
|
||||
'GPU Logo Detection
|
||||
If RTrim(Replace(gpu, "\n", "")) Like "*ati*" Then
|
||||
Finfosys.PictureBox1.Picture = Picture["Data/GPU_LOGO/ati.png"]
|
||||
Finfosys.PictureBox1.Name = "ati.png"
|
||||
Endif
|
||||
|
||||
|
||||
If RTrim(Replace(gpu, "\n", "")) Like "*intel*" Then
|
||||
Finfosys.PictureBox1.Picture = Picture["Data/GPU_LOGO/intel.png"]
|
||||
Finfosys.PictureBox1.Name = "intel.png"
|
||||
Endif
|
||||
|
||||
|
||||
If RTrim(Replace(gpu, "\n", "")) Like "*nVidia*" Then
|
||||
Finfosys.PictureBox1.Picture = Picture["Data/GPU_LOGO/nvidia.png"]
|
||||
Finfosys.PictureBox1.Name = "nvidia.png"
|
||||
|
|
@ -252,13 +252,13 @@ Public Sub grafika()
|
|||
Finfosys.PictureBox1.Picture = Picture["Data/GPU_LOGO/virtualbox.png"]
|
||||
Finfosys.PictureBox1.Name = "virtualbox.png"
|
||||
Endif
|
||||
|
||||
|
||||
If RTrim(Replace(gpu, "\n", "")) Like "*VMware*" Then
|
||||
Finfosys.PictureBox1.Picture = Picture["Data/GPU_LOGO/vmware.png"]
|
||||
Finfosys.PictureBox1.Name = "vmware.png"
|
||||
Endif
|
||||
'GPU Logo Detection End
|
||||
|
||||
|
||||
ComboBox8.Index = 1
|
||||
End
|
||||
|
||||
|
|
@ -303,14 +303,14 @@ Public Sub Wykrywanie_procesorow()
|
|||
Endif
|
||||
For Each sLine In CPUINFO_PROC.Lines
|
||||
sLine = Trim(sLine)
|
||||
If Not sLine Then Continue
|
||||
If Not sLine Then Continue
|
||||
|
||||
iPos = InStr(sLine, ":")
|
||||
If iPos = 0 Then Continue
|
||||
|
||||
sKey = Trim(Left$(sLine, iPos - 1))
|
||||
sVal = Trim(Mid$(sLine, iPos + 1))
|
||||
|
||||
|
||||
Select Case sKey
|
||||
Case "processor"
|
||||
CPU_PROCESSOR.Add(sVal)
|
||||
|
|
@ -364,9 +364,9 @@ Public Sub Wykrywanie_procesorow()
|
|||
Case "power management"
|
||||
CPU_POWER_MANAGEMENT.Add(sVal)
|
||||
End Select
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Close #CPUINFO_PROC
|
||||
|
||||
Try TextBox32.Text = Replace(CPU_MODEL_NAME[CFloat(ComboBox1.Index)], "\n", "")
|
||||
|
|
@ -382,7 +382,7 @@ Public Sub Wykrywanie_procesorow()
|
|||
Try Label10.Text = "Bogomips: " & Replace(CPU_BOGOMIPS[CFloat(ComboBox1.Index)], "\n", "")
|
||||
Try TextBox35.Text = "Address sizes: " & Replace(CPU_ADRESS_SIZES[CFloat(ComboBox1.Index)], "\n", "")
|
||||
Try Label15.Text = "Power mangament: " & Replace(CPU_POWER_MANAGEMENT[CFloat(ComboBox1.Index)], "\n", "")
|
||||
|
||||
|
||||
Try INDEX0 = Replace(File.Load("/sys/devices/system/cpu/" & Subst(ComboBox1.Current.Text) & "/cache/index0/size"), "\n", "")
|
||||
Try INDEX1 = Replace(File.Load("/sys/devices/system/cpu/" & Subst(ComboBox1.Current.Text) & "/cache/index1/size"), "\n", "")
|
||||
Try INDEX2 = Replace(File.Load("/sys/devices/system/cpu/" & Subst(ComboBox1.Current.Text) & "/cache/index2/size"), "\n", "")
|
||||
|
|
@ -407,7 +407,7 @@ Public Sub Wykrywanie_procesorow()
|
|||
Try NUMOFSETS1 = Replace(File.Load("/sys/devices/system/cpu/" & Subst(ComboBox1.Current.Text) & "/cache/index1/number_of_sets"), "\n", "")
|
||||
Try NUMOFSETS2 = Replace(File.Load("/sys/devices/system/cpu/" & Subst(ComboBox1.Current.Text) & "/cache/index2/number_of_sets"), "\n", "")
|
||||
Try NUMOFSETS3 = Replace(File.Load("/sys/devices/system/cpu/" & Subst(ComboBox1.Current.Text) & "/cache/index3/number_of_sets"), "\n", "")
|
||||
|
||||
|
||||
Try Label1.Text = Subst("Cache L&1 &2 &3 WOA: &4 CLS: &5 NOS: &6",
|
||||
L0LEVEL,
|
||||
INDEX0,
|
||||
|
|
@ -450,9 +450,9 @@ Public Sub Wykrywanie_procesorow()
|
|||
L2WAYS,
|
||||
COHERENCY2,
|
||||
NUMOFSETS2)
|
||||
|
||||
|
||||
If IsNull(L3LEVEL) = False Then
|
||||
|
||||
|
||||
Try Label5.Text = Subst("Cache L&1 &2 &3 WOA: &4 CLS: &5 NOS: &6",
|
||||
L3LEVEL,
|
||||
INDEX3,
|
||||
|
|
@ -470,7 +470,7 @@ Public Sub Wykrywanie_procesorow()
|
|||
Else
|
||||
Label5.Visible = False
|
||||
Endif
|
||||
|
||||
|
||||
Logs("Get info from database", Logger.Info)
|
||||
Object.Call(FCpudb, "_inits")
|
||||
End
|
||||
|
|
@ -483,17 +483,17 @@ Public Sub Refresh_CPU_MHZ()
|
|||
Dim sVal As String
|
||||
Dim CPU_CPU_MHZ As New String[]
|
||||
CPUINFO_PROC = Open "/proc/cpuinfo"
|
||||
|
||||
|
||||
For Each sLine In CPUINFO_PROC.Lines
|
||||
sLine = Trim(sLine)
|
||||
If Not sLine Then Continue
|
||||
If Not sLine Then Continue
|
||||
|
||||
iPos = InStr(sLine, ":")
|
||||
If iPos = 0 Then Continue
|
||||
|
||||
sKey = Trim(Left$(sLine, iPos - 1))
|
||||
sVal = Trim(Mid$(sLine, iPos + 1))
|
||||
|
||||
|
||||
Select Case sKey
|
||||
Case "cpu MHz"
|
||||
CPU_CPU_MHZ.Add(sVal)
|
||||
|
|
@ -524,7 +524,7 @@ Public Sub dospam_uptime()
|
|||
Dim SwapFree As Float
|
||||
Dim Active As Float
|
||||
Dim MEMINFO_FILE As File
|
||||
|
||||
|
||||
If IsNull(MEMINFO_FILE) = True Then
|
||||
MEMINFO_FILE = Open "/proc/meminfo"
|
||||
' Else
|
||||
|
|
@ -533,11 +533,11 @@ Public Sub dospam_uptime()
|
|||
|
||||
For Each sLine In MEMINFO_FILE.Lines
|
||||
sLine = Trim(sLine)
|
||||
If Not sLine Then Continue
|
||||
|
||||
If Not sLine Then Continue
|
||||
|
||||
iPos = InStr(sLine, ":")
|
||||
If iPos = 0 Then Continue
|
||||
|
||||
|
||||
sKey = Trim(Left$(sLine, iPos - 1))
|
||||
sVal = Trim(Mid$(sLine, iPos + 1))
|
||||
sVal = Replace(sVal, "kB", Null)
|
||||
|
|
@ -561,9 +561,9 @@ Public Sub dospam_uptime()
|
|||
Case "Active"
|
||||
Active = Val(sVal) / 1000
|
||||
End Select
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Close #MEMINFO_FILE
|
||||
|
||||
'Solution
|
||||
|
|
@ -580,7 +580,7 @@ Public Sub dospam_uptime()
|
|||
Label91.Text = "Swap Total: " & SwapTotal & "MB"
|
||||
Label265.Text = "Swap Free: " & SwapFree & "MB"
|
||||
Label266.Text = "Active: " & Active & "MB"
|
||||
|
||||
|
||||
Try ProgressBar1.Value = (MemTotal - (MemFree + Buffers + Cached)) / MemTotal
|
||||
Try ProgressBar4.Value = (SwapTotal - SwapFree) / SwapTotal
|
||||
Try MUptime.Main()
|
||||
|
|
@ -602,7 +602,7 @@ Public Sub battery_info()
|
|||
TextBox18.Text = battery.serial_number
|
||||
TextBox19.Text = battery.battery_type
|
||||
TextBox20.Text = battery.OEM_info
|
||||
|
||||
|
||||
Logs("Get information Active Battery Done", Logger.Info)
|
||||
If Exist("/sys/class/power_supply/BAT1/", True) Or Exist("/sys/class/power_supply/BAT0/", True) Then
|
||||
Label177.Text = "Alarm: " & battery.alarm
|
||||
|
|
@ -622,17 +622,17 @@ Public Sub battery_info()
|
|||
Label191.Text = "Voltage min design: " & battery.voltage_min_design
|
||||
Label192.Text = "Voltage now: " & battery.voltage_now
|
||||
Endif
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub Button7_Click()
|
||||
Dim packages As String
|
||||
If Exist("/var/lib/dpkg/status")
|
||||
Shell "grep \"^Status: install ok installed\" /var/lib/dpkg/status | wc -l" Wait To packages
|
||||
If ChkPrm.ChkExec("dpkg") = True
|
||||
Shell "dpkg --get-selections | wc -l" Wait To packages
|
||||
Endif
|
||||
If ChkPrm.ChkExec("rpm") = True And IsNull(packages) = True Then
|
||||
Shell "rpm -qa | wc -l" Wait To packages
|
||||
Endif
|
||||
Endif
|
||||
If ChkPrm.ChkExec("pacman") = True Then
|
||||
Shell "pacman -Q|wc -l" Wait To packages
|
||||
Endif
|
||||
|
|
@ -663,7 +663,7 @@ Public Sub ComboBox4_Click()
|
|||
End
|
||||
|
||||
Public Sub refreshing()
|
||||
|
||||
|
||||
TextBox29.Text = "Model: " & Disk_Drives.device_model
|
||||
TextBox30.Text = "Vendor: " & Disk_Drives.device_vendor
|
||||
Label38.Text = "Part size: " & Disk_Drives.partition_size
|
||||
|
|
@ -675,7 +675,7 @@ Public Sub refreshing()
|
|||
Label44.Text = "Modalias: " & Disk_Drives.modalias
|
||||
Label46.Text = "Ext range: " & Disk_Drives.ext_range
|
||||
Label47.Text = "Range: " & Disk_Drives.range
|
||||
|
||||
|
||||
Label49.Text = "Add random: " & Disk_Drives.add_random
|
||||
Label49.Tooltip = "This file allows to trun off the disk entropy contribution. \n"
|
||||
"Default value Of this file Is '1'(on)."
|
||||
|
|
@ -692,31 +692,31 @@ Public Sub refreshing()
|
|||
"To the maximum number Of bytes that can be discarded In a single operation.\n"
|
||||
"Discard requests issued To the device must Not exceed this limit.A discard_max_bytes\n"
|
||||
"value Of 0 means that the device does Not support discard functionality."
|
||||
|
||||
|
||||
Label52.Text = "Discard zeroes data: " & Disk_Drives.discard_zeroes_data
|
||||
Label52.Tooltip = "When read, this file will show if the discarded block are zeroed by the device Or not.\n"
|
||||
"If its value Is '1' the blocks are zeroed otherwise not.\n"
|
||||
|
||||
|
||||
Label53.Text = "HW sector size: " & Disk_Drives.hw_sector_size
|
||||
Label53.Tooltip = "This is the hardware sector size of the device, in bytes."
|
||||
|
||||
|
||||
Label54.Text = "Max HW sectors kb: " & Disk_Drives.max_hw_sectors_kb
|
||||
Label54.Tooltip = "This is the maximum number of kilobytes supported in a single data transfer."
|
||||
|
||||
|
||||
Label55.Text = "Max sectors kb: " & Disk_Drives.max_sectors_kb
|
||||
Label55.Tooltip = "This is the maximum number of kilobytes that the block layer will allow\n"
|
||||
"For a filesystem request.\n"
|
||||
"Must be smaller than Or equal To the maximum size allowed by the hardware."
|
||||
|
||||
|
||||
Label56.Text = "Max segments: " & Disk_Drives.max_segments
|
||||
Label56.Tooltip = "Maximum number of segments of the device."
|
||||
|
||||
|
||||
Label57.Text = "Max segment size: " & Disk_Drives.max_segment_size
|
||||
Label57.Tooltip = "Maximum segment size of the device."
|
||||
|
||||
|
||||
Label58.Text = "Read ahead kb: " & Disk_Drives.read_ahead_kb
|
||||
Label59.Text = "..:Scheduler:.. \n " & Disk_Drives.scheduler
|
||||
|
||||
|
||||
Label126.Text = "Logical block size: " & Disk_Drives.logical_block_size
|
||||
Label126.Tooltip = "This is the logcal block size of the device, in bytes."
|
||||
|
||||
|
|
@ -732,20 +732,20 @@ Label131.Tooltip = "This is the optimal io size reported by the device."
|
|||
Label132.Text = "Physical block size: " & Disk_Drives.physical_block_size
|
||||
Label133.Text = "Rotational: " & Disk_Drives.rotational
|
||||
Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
|
||||
|
||||
|
||||
Label123.Text = "BDI max_ratio: " & Disk_Drives.max_ratio
|
||||
Label124.Text = "BDI min_ratio: " & Disk_Drives.min_ratio
|
||||
Label125.Text = "BDI stable pages required: " & Disk_Drives.stable_pages_required
|
||||
|
||||
|
||||
Label45.Text = Choose(CInt(CVariant(Disk_Drives.removable)) + 1, "Removable: No", "Removable: Yes")
|
||||
' If Disk_Drives.removable Like "0" Then
|
||||
' Label45.Text = "Removable: No"
|
||||
' Endif
|
||||
'
|
||||
'
|
||||
' If Disk_Drives.removable Like "1" Then
|
||||
' Label45.Text = "Removable: Yes"
|
||||
' Endif
|
||||
|
||||
|
||||
If IsNull(ComboBox3.Text) = False Then
|
||||
If Disk_Drives.check_swap Like "*" & ComboBox3.Text & "*" Then
|
||||
Label48.Visible = True
|
||||
|
|
@ -756,13 +756,13 @@ Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
|
|||
Else
|
||||
Label48.Visible = False
|
||||
Endif
|
||||
|
||||
|
||||
TextBox48.Text = Disk_Drives.mount_point
|
||||
TextBox52.Text = Disk_Drives.device_uuid
|
||||
TextBox53.Text = Disk_Drives.mount_widtch
|
||||
Label16.Text = Disk_Drives.CONNECTED_PORT
|
||||
Label17.Text = Disk_Drives.Logical_Size
|
||||
|
||||
|
||||
Label251.Text = "HW SATA SPD Limit:" & Space$(2) & Disk_Drives.hw_sata_spd_limit
|
||||
Label251.Tooltip = "Maximum speed supported by the connected SATA device."
|
||||
'Max HDD/SSD Sata Speed :-)
|
||||
|
|
@ -779,19 +779,19 @@ Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
|
|||
'Set Pictures for USB
|
||||
PictureBox5.Picture = Disk_Drives.USB_PIC
|
||||
PictureBox4.Picture = Disk_Drives.SATA_PIC
|
||||
|
||||
|
||||
If Disk_Drives.USB_SPEED = Null Then
|
||||
Panel2.Visible = False
|
||||
Else
|
||||
Panel2.Visible = True
|
||||
Endif
|
||||
|
||||
|
||||
If Disk_Drives.sata_spd = Null Then
|
||||
Panel1.Visible = False
|
||||
Else
|
||||
Panel1.Visible = True
|
||||
Endif
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub ComboBox5_Click()
|
||||
|
|
@ -884,7 +884,7 @@ Public Sub Button15_Click()
|
|||
End
|
||||
|
||||
Public Sub Orientation_Top_Click()
|
||||
|
||||
|
||||
TabStrip1.Orientation = Align.Top
|
||||
Me.W = Int(Label25.X + 365)
|
||||
TabStrip1.W = Int(Label25.X + 365)
|
||||
|
|
@ -892,7 +892,7 @@ Public Sub Orientation_Top_Click()
|
|||
End
|
||||
|
||||
Public Sub Orientation_Bottom_Click()
|
||||
|
||||
|
||||
TabStrip1.Orientation = Align.Bottom
|
||||
Me.W = Int(Label25.X + 365)
|
||||
TabStrip1.W = Int(Label25.X + 365)
|
||||
|
|
@ -900,16 +900,16 @@ Public Sub Orientation_Bottom_Click()
|
|||
End
|
||||
|
||||
Public Sub Orientation_Left_Click()
|
||||
|
||||
|
||||
TabStrip1.Orientation = Align.Left
|
||||
Me.W = Int(Label25.X + 390)
|
||||
TabStrip1.W = Int(Label25.X + 390)
|
||||
Button1.X = Int(Label25.X + 325)
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub Orientation_Right_Click()
|
||||
|
||||
|
||||
TabStrip1.Orientation = Align.Right
|
||||
Me.W = Int(Label25.X + 390)
|
||||
TabStrip1.W = Int(Label25.X + 390)
|
||||
|
|
@ -934,7 +934,7 @@ Public Sub Reportthisw_Click()
|
|||
FReport_Gen.CheckBox12.Value = True
|
||||
End Select
|
||||
FReport_Gen.Show
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub TabStrip1_Click()
|
||||
|
|
@ -1016,10 +1016,10 @@ Public Sub Button1_Click()
|
|||
End
|
||||
|
||||
Public Sub Form_Move()
|
||||
|
||||
|
||||
Settings["Window/X"] = Me.X
|
||||
Settings["Window/Y"] = Me.Y
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub Form_CloseWindows()
|
||||
|
|
@ -1040,7 +1040,7 @@ Public Sub Form_CloseWindows()
|
|||
End
|
||||
|
||||
Public Sub Form_Close()
|
||||
|
||||
|
||||
Form_CloseWindows()
|
||||
Settings["Window/X"] = Me.X
|
||||
Settings["Window/Y"] = Me.Y
|
||||
|
|
@ -1048,7 +1048,7 @@ Public Sub Form_Close()
|
|||
Logs("Good bye!", Logger.Info)
|
||||
'MLibcpuid.DATAT.Clear
|
||||
Me.Close
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub MenuButton1_Click()
|
||||
|
|
@ -1069,10 +1069,10 @@ Public Sub Savevalid_Click()
|
|||
Kill Dialog.Path
|
||||
Endif
|
||||
Try Copy User.Home & "/.i-nex/VALID" To Dialog.Path
|
||||
If Error Then
|
||||
If Error Then
|
||||
Logs("Not chosen where you want to save the report", Logger.Error)
|
||||
Endif
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub Button17_Click()
|
||||
|
|
|
|||
|
|
@ -21,39 +21,39 @@ Public Sub _inits()
|
|||
If Access(User.Home & "/", gb.Write) = False Then
|
||||
Message.Error("Cannot write files to " & User.Home & "/.i-nex")
|
||||
Endif
|
||||
|
||||
|
||||
If Exist(User.Home & "/.i-nex") Then
|
||||
|
||||
|
||||
Logs("I-Nex config directory in user/home folder exist", Logger.Info)
|
||||
Logs("Try to remove files", Logger.Info)
|
||||
Remove_Nedded_Files()
|
||||
Logs("Copy nedded files", Logger.Info)
|
||||
Copy_Nedded_Files()
|
||||
Remove_Needed_Files()
|
||||
Logs("Copy needed files", Logger.Info)
|
||||
Copy_Needed_Files()
|
||||
Else
|
||||
Logs("i-nex in home folder not exist", Logger.Error)
|
||||
Create_Nedded_Folders()
|
||||
Create_Needed_Folders()
|
||||
Logs("i-nex in home folder created", Logger.Info)
|
||||
Endif
|
||||
|
||||
Do_not_print = Null
|
||||
|
||||
|
||||
End
|
||||
|
||||
Private Function Remove_Nedded_Files()
|
||||
|
||||
Private Function Remove_Needed_Files()
|
||||
|
||||
Try Kill User.Home & "/.i-nex/gputemp"
|
||||
Try Kill User.Home & "/.i-nex/i-nex-lspci"
|
||||
End
|
||||
|
||||
|
||||
Private Function Copy_Nedded_Files()
|
||||
Private Function Copy_Needed_Files()
|
||||
Logs("Copy gputemp from Data/gputemp to " & User.Home &/ ".i-nex/gputemp", Logger.Info)
|
||||
Try Copy "Data/gputemp" To User.Home &/ ".i-nex/gputemp"
|
||||
Try Copy "Data/i-nex-lspci" To User.Home &/ ".i-nex/i-nex-lspci"
|
||||
End
|
||||
|
||||
Private Function Create_Nedded_Folders()
|
||||
Private Function Create_Needed_Folders()
|
||||
|
||||
Try Mkdir User.Home & "/.i-nex/"
|
||||
|
||||
|
||||
End
|
||||
|
|
|
|||
Binary file not shown.
|
Before Width: | Height: | Size: 11 KiB After Width: | Height: | Size: 11 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 1.1 KiB After Width: | Height: | Size: 1.1 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 2.8 KiB After Width: | Height: | Size: 2.8 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 3.9 KiB After Width: | Height: | Size: 3.9 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 24 KiB After Width: | Height: | Size: 24 KiB |
Loading…
Reference in New Issue