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

Timestamp:

Dec 9, 2016, 11:06:20 AM (9 years ago)

Author:

Herwig Bauernfeind

Message:

GUITools: All changes that have built over time.

File:

• trunk/guitools/shared/smbtree.vrs (modified) (9 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")
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", " Refreshing network")
     ok = SysFileDelete(samba.!msg)
     parse var debuglevel .'='level
@@ -54 +54 @@
     if errstat = "READY:" then do
         if file2stem(samba.!error,"treeError.") > 1 then do
-            ok = VRSet("DT_STATUSBAR","Caption", treeError.2)
+            ok = VRSet("DT_STATUSBAR","Caption", " "||treeError.2)
         end
     end
@@ -458 +458 @@
     if UserCred = '-N' then UserCred = ''
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", "Ready.")
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", " Ready.")
     say time()' _AddSharesDisplay() loop end'
 return
@@ -501 +501 @@
     address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -D 'UserCred' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Enumerating workgroups")
+    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Enumerating workgroups")
     do while stream(samba.!msg,'c','open read') <> "READY:"
         ok = SysSleep(1)
@@ -563 +563 @@
     address cmd 'detach 'samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Obtaining IP from "machine)
+    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)
@@ -590 +590 @@
     address cmd 'detach 'samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Obtaining capabilities from "machine)
+    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)
@@ -625 +625 @@
     address cmd 'detach 'samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
 
-    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Querying "machine" for roles")
+    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)
@@ -665 +665 @@
 file2stem:
     say time()' file2stem() started'
-    msgfile = arg(1)
-    msgstem = arg(2)
-    delmsgfile = translate(arg(3))
+    msgfile = arg(1) /* file to create stem of */
+    msgstem = arg(2) /* name of the stem */
     if right(msgstem,1) <> '.' then msgstem = msgstem'.'
+    delmsgfile = translate(arg(3)) /* erase file after transfer */
+    skipwords = strip(arg(4)||' creating lame tdb( ***') /* skip lines with these words */
+    do J = 1 to words(skipwords)
+        skip.J = translate(word(skipWords,J))
+    end
+    skip.0 = J
+   
     say '  file2stem("'msgfile'","'msgstem'")'
     dyn = 'drop 'msgstem
     interpret dyn
     stemcount = 0
+    skipped = 0
     do while lines(msgfile) > 0
         stemcount = stemcount + 1
         inline = linein(msgfile)
-        if pos('creating lame',inline) > 0 | pos('tdb(',inline) > 0 then do
-            stemcount = stemcount - 1
-            iterate
-        end
-        dyn = msgstem||stemcount' = inline'
-        interpret dyn
+        SkipIt = 0
+        do J = 1 to skip.0
+        if pos(skip.J,translate(inline)) > 0 then do
+                skipit = 1
+                stemcount = stemcount - 1
+                skipped = skipped + 1
+                leave
+            end
+        end
+        if \SkipIt then do
+            dyn = msgstem||stemcount' = inline'
+            interpret dyn
+        end
     end
     dyn = msgstem||"0 = "stemcount
@@ -689 +703 @@
     
     drop msgfile msgstem
-    say time()' file2stem() ['stemcount'] done'    
+    say time()' file2stem() ['stemcount' added, 'skipped' skipped] done'    
 return stemcount