Changeset 769 for trunk/guitools/evfsgui

Timestamp:

Apr 9, 2013, 6:16:40 PM (13 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.5 remove double % in user credential string for now, some polishing

Location:

trunk/guitools/evfsgui

Files:

• evfsgui.vrp (modified) (2 diffs)
• evfsgui.vrx (modified) (6 diffs)
• evfsgui.vry (modified) ( previous)

trunk/guitools/evfsgui/evfsgui.vrp

@@ -8 +8 @@
 RunParameters: 
 RunDirectory: U:\Develop\Samba\trunk\guitools\evfsgui
-VRXWindow: __VREMainWindow,1,1951,2361,891,7841
+VRXWindow: __VREMainWindow,1,1951,2361,1012,7841
 VRXWindow: __VREFileListWindow,1,2192,7950,2665,3358
 VRXWindow: __VRESectionListWindow,1,1156,12382,12238,6914
@@ -16 +16 @@
 UserWindow: Main,1
 UserWindow: SW_SMBTREE,1
+UserWindow: SW_DIALOG,1

trunk/guitools/evfsgui/evfsgui.vrx

@@ -1090 +1090 @@
             if datatype(T1) = "NUM" & datatype(T2) = "NUM" & datatype(T3) = "NUM" & datatype(T4) = "NUM" then do
                 FoundName = 0
-                /* Don't add a local link IP to LMHosts - workaround only */
+                /* Don't add localhost and local link IP to LMHosts */
+                if T1 = '127' & T2 = '0' & T3 = '0' & T4 = '1' then iterate
                 if T1 = '169' & T2 = '254' then iterate
                 do J = 1 to lmname.0 /* machine already in LMHosts? */
@@ -1258 +1259 @@
         parse var resdata p_mpoint resource rwFlag
         if options.!debug == 1 then do
-            say '  'cnt' resdata  ="'resdata'"'
+            say '  Connection 'cnt', resdata  ="'resdata'"'
         end
 
@@ -1635 +1636 @@
 
     if pos("4OS2", value("COMSPEC",,"OS2ENVIRONMENT")) = 1
-        then UserCred = '--user='Credentials.!username'%'Credentials.!password
-        else UserCred = '--user='Credentials.!username'%%'Credentials.!password
-
-    if options.!storecreds = 1 & \(UserCred   = 'USERCRED'   | UserCred = '' | UserCred = '--user=%' | UserCred = '-N') then do
+        then UserCred = '--user='Credentials.!username'%%'Credentials.!password
+        else UserCred = '--user='Credentials.!username'%'Credentials.!password
+
+    if options.!storecreds = 1 & \(UserCred   = 'USERCRED'   | UserCred = '' | UserCred = '--user=%' | UserCred = '--user=%%' | UserCred = '-N') then do
         ok = _ucSetUc()
         ok = VRSet("Pict_PWINMEM","PicturePath","#36")
@@ -1793 +1794 @@
 
     if options.!debug == 1 then do
-        say '  data     = "'data'"'
-        say '  p_node   = "'p_node'"'
-        say '  p_mounts = "'p_mounts'"'
-        say '  p_string = "'p_string'"'
+        say '  data        = "'data'"'
+        say '  p_node      = "'p_node'"'
+        say '  p_mounts    = "'p_mounts'"'
+        say '  p_string    = "'p_string'"'
     end
 
@@ -1845 +1846 @@
     p_workgroup = strip(p_workgroup,'T',':')
 
-say "p_workgroup = "p_workgroup
-say "p_server    = "p_server
-say "p_share     = "p_share
+    if options.!debug == 1 then do
+        say '  p_workgroup = "'p_workgroup'"'
+        say '  p_server    = "'p_server'"'
+        say '  p_share     = "'p_share'"'
+    end
 
     p_server = translate(p_server)
@@ -2343 +2346 @@
     if options.!debug == 1 then say time()' EF_SERVER_Change started'
     Now = VRGet("EF_SERVER","value")
-say now' 'LastServer
+
     if Now = "" | Now = LastServer then return
     ok = SysSleep(2)