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

Timestamp:

Sep 13, 2013, 4:09:14 PM (12 years ago)

Author:

Herwig Bauernfeind

Message:

SMBMon 2.5: Add zombie detection

File:

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

trunk/guitools/smbmon/smbmon.vrx

@@ -330 +330 @@
     ok = VRSet("PB_Reload", "Enabled", VRFileExists(samba.!smbcmd))
 
-    ok = VRSet("CN_Daemons", "View", DaemonView)
-    ok = VRSet("CN_smbtree", "View", TreeView)
-    ok = VRSet("CB_NoMsgBox","Set",  NoMsgBox)
-    ok = VRSet("CB_WPSStartStop","Set",  WPSStartStop)
+    ok = VRSet("CN_Daemons",      "View", DaemonView)
+    ok = VRSet("CN_smbtree",      "View", TreeView)
+    ok = VRSet("CB_NoMsgBox",     "Set",  NoMsgBox)
+    ok = VRSet("CB_WPSStartStop", "Set",  WPSStartStop)
+    ok = VRSet("CB_DetectZombies","Set",  DetectZombies)
 
     call _INILayoutRead "CN_Users"
@@ -423 +424 @@
     if Font.!Status   = "" then Font.!Status   = "9.WarpSans"
 
-    Intervall = VRGetIni( "Settings", "Intervall", OurINI)
+    Intervall = VRGetIni( "Settings", "Intervall", OurINI,'NoClose')
     if Intervall = "" then Intervall = 60
 
-    IntervallMin = VRGetIni( "Settings", "IntervallMin", OurINI)
+    IntervallMin = VRGetIni( "Settings", "IntervallMin", OurINI,'NoClose')
     if IntervallMin = "" then IntervallMin = 180
 
-    CurrentPageNr = VRGetIni( "Settings", "CurrentPageNr", OurINI)
+    CurrentPageNr = VRGetIni( "Settings", "CurrentPageNr", OurINI,'NoClose')
     if CurrentPageNr = "" then CurrentPageNr = 4
 
-    DaemonView = VRGetIni( "Settings", "DaemonView", OurINI)
+    DaemonView = VRGetIni( "Settings", "DaemonView", OurINI,'NoClose')
     if DaemonView = "" then DaemonView = "Detail"
 
-    TreeView = VRGetIni( "Settings", "TreeView", OurINI)
+    TreeView = VRGetIni( "Settings", "TreeView", OurINI,'NoClose')
     if TreeView = "" then TreeView = "IconTree"
 
-    NoMsgBox = VRGetIni( "Settings", "NoMsgBox", OurINI)
+    NoMsgBox = VRGetIni( "Settings", "NoMsgBox", OurINI,'NoClose')
     if NoMsgBox = "" then NoMsgBox = 1
 
-    WPSStartStop = VRGetIni( "Settings", "WPSStartStop", OurINI)
+    WPSStartStop = VRGetIni( "Settings", "WPSStartStop", OurINI,'NoClose')
     if WPSStartStop = "" then WPSStartStop = 1
+
+    DetectZombies = VRGetIni( "Settings", "DetectZombies", OurINI,'NoClose')
+    if DetectZombies = "" then DetectZombies = 0
 
     options.!debug = VRGetIni( "Options", "Debug", OurINI)
@@ -490 +494 @@
     ok = VRSetIni( "Settings", "WPSStartStop", WPSStartStop,                   OurINI,'NoClose')
     ok = VRSetIni( "Settings", "BigIcons",     \VRGet("CN_SMBTREE", "MiniIcons"),OurINI,'NoClose')
+    ok = VRSetIni( "Settings", "DetectZombies",DetectZombies,                  OurINI,'NoClose')
 
     ok = VRSetIni( "Options",  "Debug",    options.!debug,             OurINI, 'NoClose' )     
@@ -589 +594 @@
     CALL NLVSetText 'Page_6',      'Hinttext', 60  */
 
-    CALL NLVSetText 'DT_Refresh',     'Caption',  25
-    CALL NLVSetText 'DT_RefreshMin',  'Caption',  25
-    CALL NLVSetText 'DT_Intervall',   'Caption',  26
-    ok = VRSet("DT_IntervallMin","Caption", NLVGetMessage(26)' 'NLVGetMessage(28))
-    CALL NLVSetText 'CB_NoMsgBox',    'Caption',  27
-    CALL NLVSetText 'CB_WPSSTARTSTOP','Caption',  29
+    CALL NLVSetText 'DT_Refresh',      'Caption',  25
+    CALL NLVSetText 'DT_RefreshMin',   'Caption',  25
+    CALL NLVSetText 'DT_Intervall',    'Caption',  26
+    ok = VRSet("DT_IntervallMin",      "Caption", NLVGetMessage(26)' 'NLVGetMessage(28))
+    CALL NLVSetText 'CB_NoMsgBox',     'Caption',  27
+    CALL NLVSetText 'CB_WPSSTARTSTOP', 'Caption',  29
+    CALL NLVSetText 'CB_DetectZombies','Caption',  30
 
     CALL NLVSetText 'ContextMenu_Daemons_Sort',   'Caption', 35 
@@ -846 +852 @@
             end
             smbdpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", smbdhandle, , 'PID 'word(smbdpids,I)' ('d2x(word(smbdpids,I))'x)', "$48")
+            /* we ping all smbd.exe except the first one */
+            if DetectZombies = 1 & I > 1 then do
+                ok = VRSet("Main", 'Pointer', 'Wait' )
+                address cmd samba.!smbcontrolexe' 'word(smbdpids,I)' ping --timeout=2 --debuglevel=0 2>'samba.!error' 1>'samba.!msg
+                ok = VRSet("Main", 'Pointer', '<default>' )
+                response = linein(samba.!msg)
+                ok = stream(samba.!msg,'c','close')
+                if pos('PONG', response) = 0 then do /* we have a zombie */
+                    ok = VRMethod( "CN_Daemons", "SetRecordAttr", smbdpidhandle.I,"Icon", "$49")
+                    say "  Found Zombie "word(smbdpids,I)
+                end
+            end
             if Username <> "" then do
                 smbdpidhandle.I.user = VRMethod( "CN_Daemons", "AddRecord", smbdpidhandle.I, , Username, "$44")
@@ -1217 +1235 @@
     if options.!Debug then ok = VRREdirectStdIO("ON")
                       else ok = VRREdirectStdIO("OFF")
+return
+
+/*:VRX         CB_DetectZombies_Click
+*/
+CB_DetectZombies_Click: 
+    DetectZombies = VRGet("CB_DetectZombies","set")
+    say 'DetectZombies = "'DetectZombies'"'
 return
 
@@ -2229 +2254 @@
 SW_FILES_Init: 
     window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
+    if( \VRIsChildOf( window, "TDL" ) ) then do
         call VRMethod window, "CenterWindow"
         call VRSet window, "Visible", 1
@@ -2260 +2285 @@
 SW_SERVICE_Init: 
     window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
+    if( \VRIsChildOf( window, "TDL" ) ) then do
         call VRMethod window, "CenterWindow"
         call VRSet window, "Visible", 1
@@ -2291 +2316 @@
 SW_SETTINGS_Init: 
     window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
+    if( \VRIsChildOf( window, "TDL" ) ) then do
         call VRMethod window, "CenterWindow"
         call VRSet window, "Visible", 1
@@ -2322 +2347 @@
 SW_SMBTREE_Init: 
     window = VRInfo( "Object" )
-    if( \VRIsChildOf( window, "Notebook" ) ) then do
+    if( \VRIsChildOf( window, "TDL" ) ) then do
         call VRMethod window, "CenterWindow"
         call VRSet window, "Visible", 1