Changeset 688 for trunk/guitools/shared/smbtree.vrs

Timestamp:

Feb 7, 2012, 9:30:41 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Updates in EVFSGUI, SMBMON and SSCC

File:

• trunk/guitools/shared/smbtree.vrs (modified) (6 diffs)

trunk/guitools/shared/smbtree.vrs

@@ -5 +5 @@
     say time()' _RefreshTree() started'
     FirstRun = 0
-
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", "Refreshing network")
     ok = SysFileDelete(samba.!msg)
 
@@ -36 +36 @@
 
     stat = stream(samba.!serverlist,'c','open read')
-    if stat <> "READY:" then return
+    if stat <> "READY:" then do
+        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+        return
+    end
 
     if UserCred = 'USERCRED' | UserCred = '' | UserCred = '--user=%' then UserCred = '-N'
@@ -392 +395 @@
     if BroadCast = 1 then BroadCast = '-b'; else BroadCast = ''
 
-    say     '  'samba.!smbtreeexe' 'BroadCast' -D 'debuglevel' 'UserCred' >'samba.!msg
-    address cmd samba.!smbtreeexe' 'BroadCast' -D 'debuglevel' 'UserCred' >'samba.!msg
+    call VRSet VRWindow(), 'Pointer', 'Wait'
+    say       '  detach 'samba.!smbtreeexe' 'BroadCast' -D 'debuglevel' 'UserCred' >'samba.!msg
+    address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -D 'debuglevel' 'UserCred' >'samba.!msg
+
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Enumerating workgroups")
+    do while stream(samba.!msg,'c','open read') <> "READY:"
+        ok = SysSleep(1)
+        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+    end
+    call VRSet VRWindow(), 'Pointer', '<default>'
 
     if BroadCast = '-b' then BroadCast = 1; else BroadCast = 0
@@ -445 +456 @@
     /* Get all IP addresses of the machine */
     machine = arg(1)
-    say     '  'samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
-    address cmd samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
+    call VRSet VRWindow(), 'Pointer', 'Wait'
+    say       '  detach 'samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
+    address cmd 'detach 'samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
+
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Obtaining IP from "machine)
+    do while stream(samba.!msg,'c','open read') <> "READY:"
+        ok = SysSleep(0.33)
+        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+    end
+    call VRSet VRWindow(), 'Pointer', '<default>'
+
     ok = file2stem(samba.!msg,"nmblookup.")
     ipstr = ""; ip = ""
@@ -461 +481 @@
 _GetMachineMACRoles: procedure expose debuglevel samba.
     machine = arg(1) /* May be name or IP */
-    say     '  'samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
-    address cmd samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
+    call VRSet VRWindow(), 'Pointer', 'Wait'
+    say       '  detach 'samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
+    address cmd 'detach 'samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
+
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Obtaining capabilities from "machine)
+    do while stream(samba.!msg,'c','open read') <> "READY:"
+        ok = SysSleep(0.33)
+        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+    end
+    call VRSet VRWindow(), 'Pointer', '<default>'
     ok = file2stem(samba.!msg,"nmblookup.")
     Roles = ""
@@ -486 +514 @@
 _GetMachineNMBStatus: procedure expose debuglevel samba.
     machine = arg(1) /* name only allowed */
-    say     '  'samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
-    address cmd samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
+    call VRSet VRWindow(), 'Pointer', 'Wait'
+    say       '  detach 'samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
+    address cmd 'detach 'samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
+
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Querying "machine" for roles")
+    do while stream(samba.!msg,'c','open read') <> "READY:"
+        ok = SysSleep(0.33)
+        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+    end
+    call VRSet VRWindow(), 'Pointer', '<default>'
+
     ok = file2stem(samba.!msg,"nmblookup.")
     IPStr = ""