Changeset 345 for branches/guitools-2.0/smbmon

Timestamp:

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

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI Version 2.0 beta3 level code

Location:

branches/guitools-2.0/smbmon

Files:

• changes (modified) (1 diff)
• readme.smbmon (modified) (1 diff)
• smbmon.vrp (modified) (1 diff)
• smbmon.vrx (modified) (8 diffs)
• smbmon.vry (modified) ( previous)
• smbmon_de.mkm (modified) (1 diff)
• smbmon_en.mkm (modified) (1 diff)
• smbmon_es.mkm (modified) (1 diff)
• smbmon_fr.mkm (modified) (2 diffs)
• smbmon_sv.mkm (modified) (1 diff)

branches/guitools-2.0/smbmon/changes

@@ -5 +5 @@
                                 background
                         +Added: EVFSGUI-like throbber for network neighbourhood
+                        +Added: Sorting for all containers
                         *Changed: Flatened menu structure
 Version 0.9.25 27-06-2009

branches/guitools-2.0/smbmon/readme.smbmon

@@ -1 @@
-SmbMon - Samba Server Status Monitor Version 0.9.24
-===================================================
+SmbMon - Samba Server Status Monitor Version 1.9-preview
+========================================================
 
 CONTENTS:

branches/guitools-2.0/smbmon/smbmon.vrp

@@ -7 +7 @@
 VRXWindow: __VREMainWindow,1,2180,3710,940,8000
 VRXWindow: __VRESectionListWindow,1,2650,12093,9359,3300
-VRXWindow: __VREToolsWindow,1,2204,1590,6989,1659
+VRXWindow: __VREToolsWindow,1,2204,1590,6995,1659
 VRXWindow: __VREWindListWindow,1,265,12093,2650,3150
 UserFile: 1

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
 

branches/guitools-2.0/smbmon/smbmon_de.mkm

@@ -40 +40 @@
 SMM0034I: Den "%1"-Prozess wirklich stoppen?
 SMM0035I: Sortieren
-SMM0036?:
-SMM0037?:
+SMM0036I: "%1"-Prozess starten
+SMM0037I: Den "%1"-Prozess wirklich starten?
 SMM0038?:
 SMM0039?:

branches/guitools-2.0/smbmon/smbmon_en.mkm

@@ -40 +40 @@
 SMM0034I: Really shutdown "%1"-daemon?
 SMM0035I: Sort
-SMM0036?:
-SMM0037?:
+SMM0036I: Start "%1"-daemon 
+SMM0037I: Really start "%1"-daemon?
 SMM0038?:
 SMM0039?:

branches/guitools-2.0/smbmon/smbmon_es.mkm

@@ -40 +40 @@
 SMM0034I: Realmente apagar "%1"-daemon?
 SMM0035I: Ordenar
-SMM0036?:
-SMM0037?:
+SMM0036I: Iniciar "%1"-daemon
+SMM0037I: Realmente iniciar "%1"-daemon?
 SMM0038?:
 SMM0039?:

branches/guitools-2.0/smbmon/smbmon_fr.mkm

@@ -41 +41 @@
 SMM0033I: Arrˆter le d‚mon-"%1"
 SMM0034I: Voulez-vous r‚ellement arrˆter le d‚mon-"%1" ?
-SMM0035I: Trier
-SMM0036?:
-SMM0037?:
+SMM0035I: Tri
+SMM0036I: Lancer le d‚mon-"%1"
+SMM0037I: Voulez-vous r‚ellement lancer le d‚mon-"%1" ?
 SMM0038?:
 SMM0039?:
@@ -103 +103 @@
 SMM0090I: Ascendant
 SMM0091I: Descendant
-SMM0092I: Ne pas regrouper
+SMM0092I: Aucun
 SMM0093?:
 SMM0094?:

branches/guitools-2.0/smbmon/smbmon_sv.mkm

@@ -40 +40 @@
 SMM0034I: Skall verkligen "%1" stoppas?
 SMM0035I: Sortera
-SMM0036?:
-SMM0037?:
+SMM0036I: Start ned "%1"
+SMM0037I: Skall verkligen "%1" startas?
 SMM0038?:
 SMM0039?: