Fix uptime

i-nex · Jan 28, 2012 · e2ea8e0 · e2ea8e0
1 parent 93373cc
commit e2ea8e0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/i-nex/.gambas/FINFOSYS b/src/i-nex/.gambas/FINFOSYS
diff --git a/src/i-nex/.src/Finfosys.class b/src/i-nex/.src/Finfosys.class
@@ -357,7 +357,7 @@ Public Sub Button1_Click()
 End
 
 Public Sub dospam_uptime()
-  Dim uptime, total, used, freee, shared, buffers, cached, usedonthistime, swaptotal As String
+  Dim total, used, freee, shared, buffers, cached, usedonthistime, swaptotal As String
   Dim dospam, totpam, totalswap, usedswap As Integer
   Dim dospam1, totpam1, totalswap1, usedswap1 As String
   Shell "free -m | grep 'Mem' | awk {'print $2'}" Wait To total
@@ -391,8 +391,7 @@ Public Sub dospam_uptime()
   TextArea45.Text = swaptotal & "MB"
   TextArea45.Text = Replace(TextArea45.Text, "\n", "")
   TextLabel24.Text = usedswap / 1000
-  Exec ["uptime"] Wait To uptime
-  TextArea37.Text = uptime
+  Exec ["uptime"] Wait To TextArea37.Text
   TextArea37.Text = Replace(TextArea37.Text, "\n", "")
   dospam1 = Replace(dospam1, "\n", "")
   dospam1 = Replace(dospam1, " ", "")