Changeset 908 for trunk/guitools/smbmon/smbmon.vrx

Timestamp:

May 26, 2016, 9:02:53 AM (9 years ago)

Author:

Herwig Bauernfeind

Message:

GUITools: SMBMon (TDB Check page), shared library updates

File:

• trunk/guitools/smbmon/smbmon.vrx (modified) (8 diffs)

trunk/guitools/smbmon/smbmon.vrx

@@ -107 +107 @@
 ok = VRMethod("CN_CHKTDB", "RemoveRecord", "ALL")
 
+RecHandleArray.0 = 0
+ok = VRSet("CN_CHKTDB", "Painting", 0)
+
 do I = 1 to tdb.0
-    RecHandle = VRMethod("CN_CHKTDB", "Addrecord")
+    RecHandleArray.I = VRMethod("CN_CHKTDB", "Addrecord")
+end
+ok = VRSet("CN_CHKTDB", "Painting", 1)
+
+/* ok = VRSet("CN_CHKTDB", "Painting", 0) */
+
+do I = 1 to tdb.0
+    RecHandle = RecHandleArray.I
     TDBFile =left(filespec('N',tdb.I), 22)
-    ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBFilesFH, TDBFile, ChkTDBIconFH, "$50" )
+    TDBSize = stream(tdb.I,'c','query size')
+    ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBFilesFH, TDBFile, ChkTDBIconFH, "$50", ChkTDBSizeFH, TDBSize||" Bytes" )
     address cmd '@tdbtool 'tdb.I' check 2>'tdb.I'.err 1>'tdb.I'.out'
     out = linein(tdb.I'.out')
@@ -142 +153 @@
         end
         ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBStatusFH, out )
+        ok = VRSet("CN_CHKTDB", "Painting", 1)
+        ok = VRSet("CN_CHKTDB", "Painting", 0)
+
         ok = stream(tdb.I'.err','c','close')
     end
@@ -177 +191 @@
 end
 
+ok = VRSet("CN_CHKTDB", "Painting", 1)
+
 return
 
@@ -251 +267 @@
     ChkTDBFilesFH = VRMethod( "CN_CHKTDB", "AddField", "String", NLVGetMessage(134) )
     ChkTDBIconFH  = VRMethod( "CN_CHKTDB", "AddField", "Icon",   NLVGetMessage(146) )
+    ChkTDBSizeFH  = VRMethod( "CN_CHKTDB", "AddField", "String", NLVGetMessage(152) )
     ChkTDBStatusFH= VRMethod( "CN_CHKTDB", "AddField", "String", NLVGetMessage(151) )
 
@@ -567 +584 @@
 */
 _INIWrite: 
-    say 'start _INIWrite()'
+    IF options.!debug == 1 then say time()' _INIWrite() started'
     ok = VRSetIni( "Pos", "Top",          VRGet("Main","Top"),         OurINI, 'NoClose' )
     ok = VRSetIni( "Pos", "Left",         VRGet("Main","Left"),        OurINI, 'NoClose' )
@@ -605 +622 @@
     ok = VRSetIni( "Fonts", "Statusfont", VRGet("DT_StatusBar","Font"),OurINI, 'NoClose' )
     ok = VRSetIni( "Fonts", "Main",       VRGet("Main","Font"),        OurINI )
-    say 'done _INIWrite()'
+    IF options.!debug == 1 then say time()' _INIWrite() done'
 return
 
@@ -869 +886 @@
     ok = stream(refresherr, 'c','close')
     ok = SysFileDelete(refreshouterr)
+    if VRFileExists( samba.!bin"\smbsched.cmd" ) then do
+        address cmd samba.!bin"\smbsched.cmd"
+    end
 
     call _RefreshDaemons
@@ -1198 +1218 @@
     if uS <> 0 | UpTimeStr = ' 'NlvGetMessage(43)':' then UpTimeStr = UpTimeStr' 'uS' 'NlvGetMessage(49)
 
-    ok = VRset("CN_Daemons", "Caption", UpTimeStr)
+    loggingfreespace = word(sysdriveinfo(left(samba.!log,2)),2)%1024%1024
+
+    ok = VRset("CN_Daemons", "Caption", UpTimeStr' 'loggingfreespace' MB')
+
+    select
+        when loggingfreespace <  50 then ok = VRDeleteFile(samba.!log'\log.*')
+        when loggingfreespace < 100 then ok = VRset("CN_Daemons","BackColor","Red")
+        when loggingfreespace < 200 then ok = VRset("CN_Daemons","BackColor","Yellow")
+        otherwise ok = VRset("CN_Daemons","BackColor","SystemWindow")       
+    end
 
     IF options.!debug == 1 then say time()' _SambaUptime() done'