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

Timestamp:

Jun 7, 2017, 5:17:03 PM (8 years ago)

Author:

Herwig Bauernfeind

Message:

Move browsing code to browse.vrs, add colors to smbtree.vrs statusbar messages

File:

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

trunk/guitools/shared/smbtree.vrs

@@ -23 +23 @@
     say time()' _RefreshTree() started'
     FirstRun = 0
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", " Refreshing network")
+    call _StatusBarWrapper "Refreshing network"
     ok = SysFileDelete(samba.!msg)
     parse var debuglevel .'='level
@@ -72 +72 @@
     if errstat = "READY:" then do
         if file2stem(samba.!error,"treeError.") > 1 then do
-            ok = VRSet("DT_STATUSBAR","Caption", " "||treeError.2)
+            call _StatusBarWrapper treeError.2
         end
     end
@@ -78 +78 @@
     stat = stream(samba.!serverlist,'c','open read')
     if stat <> "READY:" then do
-        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+        call _StatusBarWrapper '+.'
         return
     end
@@ -280 +280 @@
     do I = 1 to smbmachine.0
         call charout , '  Going for "'smbmachine.I'", got '
-        if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||'.')
+        call _StatusBarWrapper '+.'
         stat = stream(smbmachine.I,'c','open read')
         say '  Try to open "'smbmachine.I'" for reading: "'stat'"'
@@ -476 +476 @@
     if UserCred = '-N' then UserCred = ''
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", " Ready.")
+    call _StatusBarWrapper "Ready."
     say time()' _AddSharesDisplay() loop end'
 return
@@ -519 +519 @@
     address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -D 'UserCred' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Enumerating workgroups")
+    call _StatusBarWrapper "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")||'.')
+        call _StatusBarWrapper '+.'
     end
     call VRSet VRWindow(), 'Pointer', '<default>'
@@ -581 +581 @@
     address cmd 'detach 'samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Obtaining IP from "machine)
+    call _StatusBarWrapper "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")||'.')
+        call _StatusBarWrapper '+.'
     end
     call VRSet VRWindow(), 'Pointer', '<default>'
@@ -608 +608 @@
     address cmd 'detach 'samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Obtaining capabilities from "machine)
+    call _StatusBarWrapper "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")||'.')
+        call _StatusBarWrapper '+.'
     end
     call VRSet VRWindow(), 'Pointer', '<default>'
@@ -643 +643 @@
     address cmd 'detach 'samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Querying "machine" for roles")
+    call _StatusBarWrapper "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")||'.')
+        call _StatusBarWrapper '+.'
     end
     call VRSet VRWindow(), 'Pointer', '<default>'
@@ -723 +723 @@
     say time()' file2stem() ['stemcount' added, 'skipped' skipped] done'    
 return stemcount
+
+_StatusBarWrapper:
+    StatusWText = arg(1)
+    if VRIsValidObject("DT_STATUSBAR") then do
+        if left(StatusWText,1) = "+" then do
+            ok = VRSet("DT_STATUSBAR","Caption", VRGet("DT_STATUSBAR","Caption")||substr(StatusWText,2))
+        end
+        else do
+            ok = VRSet("DT_STATUSBAR","Caption", " "||StatusWText)
+
+            if VRIsValidObject("TM_STATUSBAR") then do
+                ok = VRSet("TM_STATUSBAR","DELAY", 4000)
+                ok = VRSet("TM_STATUSBAR","Enabled", 1)
+                trStWT = translate(StatusWText)
+                select
+                   when pos("LOGIN SUCCESSFUL",        trStWT) > 0 then ok = VRSet("DT_STATUSBAR","BACKCOLOR","GREEN")
+                   when pos("NT_STATUS_OK",            trStWT) > 0 then ok = VRSet("DT_STATUSBAR","BACKCOLOR","GREEN")
+                   when pos("NT_STATUS_ACCESS_DENIED", trStWT) > 0 then ok = VRSet("DT_STATUSBAR","BACKCOLOR","YELLOW")
+                   when pos("ERROR",                   trStWT) > 0 then ok = VRSet("DT_STATUSBAR","BACKCOLOR","RED")
+                   when pos("NT_STATUS_",              trStWT) > 0 then ok = VRSet("DT_STATUSBAR","BACKCOLOR","RED")
+                   otherwise ok = VRSet("TM_STATUSBAR","Enabled", 0)
+                end
+            end
+        end
+    end
+return
+
+_StatusBarReset:
+    ok = VRSet("DT_STATUSBAR","BACKCOLOR","<default>")
+    ok = VRSet("TM_STATUSBAR","Enabled", 0)
+return