Changeset 784 for trunk/guitools/smbmon

Timestamp:

Aug 8, 2013, 9:56:12 AM (12 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Changes in order to work around % issue

Location:

trunk/guitools/smbmon

Files:

• smbmon.vrp (modified) (1 diff)
• smbmon.vrx (modified) (1 diff)
• smbmon.vry (modified) ( previous)

trunk/guitools/smbmon/smbmon.vrp

@@ -8 +8 @@
 VRXWindow: __VREMainWindow,1,2180,3614,1024,6769
 VRXWindow: __VRESectionListWindow,1,4083,11226,7372,6589
-VRXWindow: __VREToolsWindow,1,2156,1494,6489,1659
+VRXWindow: __VREToolsWindow,1,2156,1494,4968,1665
 VRXWindow: __VREWindListWindow,1,964,11708,3132,3150
 UserFile: 1

trunk/guitools/smbmon/smbmon.vrx

@@ -1253 +1253 @@
 
         call _RefreshDaemonsDelay
-
         DRH = VRInfo("Record")
+        DaemonName = ""
+
         OH = VRInfo("Object")
-        ok = VRset("ContextMenu_Daemons_Sep1","Visible", 0 )
-        ok = VRset("ContextMenu_Daemons_Ping","Visible", (DRH <> "") )
-        ok = VRset("ContextMenu_Daemons_Shutdown","Visible", 0 )
-        DaemonName = ""
-        if DRH <> "" then DaemonName = VRMethod("CN_Daemons", "GetRecordAttr", DRH, "Caption")
+        ok = VRset("ContextMenu_Daemons_Details",   "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_Tree",      "Visible", 1 )
+        ok = VRset("MItem_9",                       "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_Sort",      "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_MiniIcons", "Visible", 1 )
+        ok = VRset("MItem_13",                      "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_Ping",      "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_Start",     "Visible", 1 )
+        ok = VRset("ContextMenu_Daemons_Shutdown",  "Visible", 1 )
+
+        if DRH <> "" then do
+            DaemonName = VRMethod("CN_Daemons", "GetRecordAttr", DRH, "Caption")
+            ok = VRset("ContextMenu_Daemons_Ping","Visible", 1 )
+        end
+
         select
-            when Words(DaemonName) = 3 then do /* a child process with PID in name */
+            when Words(DaemonName) = 3 & pos("PID ",DaemonName) > 0 then do /* a child process with PID in name */
                 DaemonName = word(DaemonName,2)
-                ok = VRset("ContextMenu_Daemons_Sep1","Visible", 1 )
                 ok = VRSet("ContextMenu_Daemons_KillPID", "Caption", NLVGetMessage( 38, DaemonName))
-                ok = VRset("ContextMenu_Daemons_KillPID",  "Visible", 1 )
                 ok = VRset("ContextMenu_Daemons_Start", "Visible", 0 )
-                ok = VRset("ContextMenu_Daemons_Ping",  "Visible", 1 )
-                ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
             end
-            when Words(DaemonName) = 1 then do /* on smbd.exe or nmbd.exe root processes */
+            when Words(DaemonName) = 1 & (pos("mbd.exe",Daemonname) > 0 | pos("winbindd.exe",Daemonname) > 0) then do /* on root process */
                 parse var DaemonName DaemonName'.exe'
                 if strip(VRMethod("CN_Daemons", "GetFieldData", DRH, DPidsFH)) <> "" then do
-                    ok = VRSet("ContextMenu_Daemons_Shutdown", "Caption", NLVGetMessage( 33, DaemonName))
-                    ok = VRset("ContextMenu_Daemons_Shutdown", "Visible", 1 )
-                    ok = VRset("ContextMenu_Daemons_Start", "Visible", 0 )
-                    ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
-                end
-                else do
-                    ok = VRSet("ContextMenu_Daemons_Start", "Caption", NLVGetMessage( 36, DaemonName))
-                    ok = VRset("ContextMenu_Daemons_Start", "Visible", 1 )
-                    ok = VRset("ContextMenu_Daemons_KillPID","Visible", 0 )
-                    ok = VRset("ContextMenu_Daemons_Ping",  "Visible", 0 )
-                    ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
+                    ok = VRSet("ContextMenu_Daemons_Shutdown",  "Caption", NLVGetMessage( 33, DaemonName))
+                    ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 0 )
+                    ok = VRset("ContextMenu_Daemons_Start",     "Visible", 0 )
                 end
             end
-            otherwise nop
+            when pos("\", DaemonName) > 0 then do /* we are on a file */
+                ok = VRset("MItem_13",                      "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Ping",      "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Start",     "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Shutdown",  "Visible", 0 )
+            end
+            otherwise do /* we are on a user */
+                ok = VRset("MItem_13",                      "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Ping",      "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Start",     "Visible", 0 )
+                ok = VRset("ContextMenu_Daemons_Shutdown",  "Visible", 0 )
+            end
         end
         say '  Daemon is "'DaemonName'"'