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

Timestamp:

Oct 16, 2011, 6:14:07 PM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.5.x: More work done

File:

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

trunk/guitools/shared/smbtree.vrs

@@ -13 +13 @@
 
     say "  UserCred="UserCred
+    samba.!serverlist = TempDir'smbtree.srvlst'
 
     /* smbtree -S = List workgroups (domains) and servers of tree */
-    say       '  detach 'samba.!smbtreeexe' 'BroadCast' -S 'UserCred' 'debuglevel' >'samba.!msg
-    address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -S 'UserCred' 'debuglevel' >'samba.!msg
+    say       '  detach 'samba.!smbtreeexe' 'BroadCast' -S 'UserCred' 'debuglevel' >'samba.!serverlist
+    address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -S 'UserCred' 'debuglevel' >'samba.!serverlist
 
     if BroadCast = '-b' then BroadCast = 1; else BroadCast = 0
@@ -34 +35 @@
     say time()' _RefreshTreeDisplay() started'
 
-    stat = stream(samba.!msg,'c','open read')
+    stat = stream(samba.!serverlist,'c','open read')
     if stat <> "READY:" then return
 
@@ -49 +50 @@
     drop smbtree.
 
-    ok = file2stem(samba.!msg,"smbtreeline.")
+    ok = file2stem(samba.!serverlist,"smbtreeline.")
 
     do sl = 1 to smbtreeline.0