Changeset 345 for branches/guitools-2.0/smbmon/smbmon.vrx

Timestamp:

Oct 30, 2009, 4:17:35 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI Version 2.0 beta3 level code

File:

• branches/guitools-2.0/smbmon/smbmon.vrx (modified) (8 diffs)

branches/guitools-2.0/smbmon/smbmon.vrx

@@ -378 +378 @@
     /* For Users page in case connections.tdb is not initialised */
     IgnoreSmbNoInit = 1
+
+    /* For Refresh tree display code */
+    RefreshMode =""
 
     smbdpidhandle.0 = 0
@@ -647 +650 @@
         parse var Zeile FPid Uid DenyMode Access RW Oplock Sharepath Rest
         TimeDate = right(rest,25)
-        Name = strip(left(Rest,length(Rest)-25))
+        Name = strip(left(Rest,max(length(Rest)-25),1))
         I = I + 1
         sharepath = strip(translate(left(sharepath,1))||translate(substr(SharePath,2),'\','/'),'T','\')
@@ -1097 +1100 @@
         ok = VRset("ContextMenu_Daemons_Ping","Visible", (DRH <> "") )
         ok = VRset("ContextMenu_Daemons_Shutdown","Visible", 0 )
-        RecCap = ""
-        if DRH <> "" then RecCap = VRMethod("CN_Daemons", "GetRecordAttr", DRH, "Caption")
+        DaemonName = ""
+        if DRH <> "" then DaemonName = VRMethod("CN_Daemons", "GetRecordAttr", DRH, "Caption")
         select
-            when Words(RecCap) = 3 then do
-                RecCap = word(RecCap,2)
+            when Words(DaemonName) = 3 then do
+                DaemonName = word(DaemonName,2)
                 ok = VRset("ContextMenu_Daemons_Sep1","Visible", 1 )
             end
-            when Words(RecCap) = 1 then do
-                parse var RecCap RecCap'.exe'
+            when Words(DaemonName) = 1 then do
+                parse var DaemonName DaemonName'.exe'
                 if strip(VRMethod("CN_Daemons", "GetFieldData", DRH, DPidsFH)) <> "" then do
-                    ok = VRSet("ContextMenu_Daemons_Shutdown", "Caption", NLVGetMessage( 33, RecCap))
+                    ok = VRSet("ContextMenu_Daemons_Shutdown", "Caption", NLVGetMessage( 33, DaemonName))
                     ok = VRset("ContextMenu_Daemons_Shutdown", "Visible", 1 )
-                    ok = VRset("ContextMenu_Daemons_Sep1","Visible", 1 )
+                    ok = VRset("ContextMenu_Daemons_Start", "Visible", 0 )
+                    ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
                 end
-                else ok = VRset("ContextMenu_Daemons_Ping","Visible", 0 )
+                else do
+                    ok = VRSet("ContextMenu_Daemons_Start", "Caption", NLVGetMessage( 36, DaemonName))
+                    ok = VRset("ContextMenu_Daemons_Start", "Visible", 1 )
+                    ok = VRset("ContextMenu_Daemons_Ping",  "Visible", 0 )
+                    ok = VRset("ContextMenu_Daemons_Sep1",  "Visible", 1 )
+                end
             end
             otherwise nop
         end
-        say '  Daemon is "'RecCap'"'
+        say '  Daemon is "'DaemonName'"'
         ok = VRMethod( "ContextMenu_Daemons", "Popup", , , "", "" )
     end
@@ -1149 +1158 @@
 return
 
+/*:VRX         CN_smbtree_Click
+*/
+CN_smbtree_Click: 
+    rh = VRInfo('Record')
+    if VRMethod( 'CN_SMBTREE', "ValidateRecord", rh) <> 1 then return
+    userdata = VRMethod('CN_smbtree', 'GetRecordAttr', rh, 'UserData')
+    parse var userdata . '|' userdata
+    ok = VRset("Main","StatusText", userdata)
+ 
+
+return
+
 /*:VRX         CN_smbtree_ContextMenu
 */
@@ -1272 +1293 @@
 ContextMenu_Daemons_Ping_Click: 
     ok = VRSet("Main", 'Pointer', 'Wait' )
-    address cmd samba.!smbcontrolexe' 'RecCap' ping --timeout=3 --debuglevel=0 2>'samba.!error' 1>'samba.!msg
+    address cmd samba.!smbcontrolexe' 'DaemonName' ping --timeout=3 --debuglevel=0 2>'samba.!error' 1>'samba.!msg
     call _SambaShowMsg "section table registered"
 
@@ -1282 +1303 @@
 */
 ContextMenu_Daemons_Shutdown_Click: 
-    Msg.Text = NLVGetMessage(34, RecCap)
+    Msg.Text = NLVGetMessage(34, DaemonName)
     Msg.Type = 'Q'
     if _MsgYesNo() = 1 then do
-        address cmd samba.!smbcontrolexe' 'RecCap' shutdown 2>'samba.!error' 1>'samba.!msg
-        call _SambaShowMsg "section table registered"
+        address cmd samba.!smbcontrolexe' 'DaemonName' shutdown 2>'samba.!error' 1>'samba.!msg
+        call _SambaShowMsg "section table registered tdb"
     end
     ok = VRSet("TM_refresh","Enabled", 1)
@@ -1295 +1316 @@
 ContextMenu_Daemons_Sort_Click: 
     window = VRLoadSecondary( "SW_SORT", "W" )
+return
+
+/*:VRX         ContextMenu_Daemons_Start_Click
+*/
+ContextMenu_Daemons_Start_Click: 
+    Msg.Text = NLVGetMessage(37, DaemonName)
+    Msg.Type = 'Q'
+    if _MsgYesNo() = 1 then do
+        say samba.!smbcmd' start 'DaemonName
+        address cmd samba.!smbcmd' start 'DaemonName
+    end
+    ok = VRSet("TM_refresh","Enabled", 1)
 return
 
@@ -1970 +2003 @@
 */
 TM_RefreshTreeDisplay_Trigger: 
-    call _RefreshTreeDisplay
+    select 
+        when RefreshMode = "TREE" then do
+            call _RefreshTreeDisplay
+        end
+        when RefreshMode = "SHARE" then do
+            call _AddSharesDisplay    
+        end
+        otherwise say "RefreshMode = "RefreshMode
+    end
 return