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

Timestamp:

Feb 17, 2013, 4:34:32 PM (12 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.5 final stuff (including helpfiles EN and DE)

File:

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

trunk/guitools/shared/smbtree.vrs

@@ -19 +19 @@
     address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -S 'UserCred' 'debuglevel' >'samba.!serverlist
 
-    if UserCred = '-N' then ok = VRSet("CN_SMBTREE","Caption","User context: Guest")
+    /* strip username from caption */
+    UserContext = VRGet("CN_SMBTREE","Caption")
+    UserContext = DelWord(UserContext,words(UserContext))
+    
+    if UserCred = '-N' then ok = VRSet("CN_SMBTREE","Caption",UserContext': Guest')
     else do
         parse var UserCred '--user='username'%'.
-        ok = VRSet("CN_SMBTREE","Caption","User context: "username)
+        ok = VRSet("CN_SMBTREE","Caption",UserContext": "username)
     end
 
@@ -165 +169 @@
 
     say       '  detach 'samba.!smbclientexe' -L "'machine'" 'UserCred' 'debuglevel' 2>'smbmachine' 1>&2'
+    call lineout "y:\debugger", '  detach 'samba.!smbclientexe' -L "'machine'" 'UserCred' 'debuglevel' 2>'smbmachine' 1>&2'
     address cmd 'detach 'samba.!smbclientexe' -L "'machine'" 'UserCred' 'debuglevel' 2>'smbmachine' 1>&2'