Changeset 1045

Timestamp:

Jan 24, 2018, 10:55:22 AM (8 years ago)

Author:

Herwig Bauernfeind

Message:

EVFSGUI: Fix AN Ticket #1653 and #1654

Location:

trunk/guitools/evfsgui

Files:

• evfsgui.vrp (modified) (1 diff)
• evfsgui.vrx (modified) (8 diffs)
• evfsgui.vry (modified) ( previous)
• rc/lang/evfsi_en.mkm (modified) (2 diffs)

trunk/guitools/evfsgui/evfsgui.vrp

@@ -10 +10 @@
 RunDirectory: U:\Develop\Samba\trunk\guitools\evfsgui
 VRXWindow: __VREMainWindow,1,2891,5637,1012,8000
-VRXWindow: __VREFileListWindow,1,3300,14695,2665,3358
+VRXWindow: __VREFileListWindow,1,5408,14791,2665,3358
 VRXWindow: __VRESectionListWindow,1,2867,14020,10889,5035
-VRXWindow: __VREToolsWindow,1,2867,337,6986,1661
-VRXWindow: __VREWindListWindow,1,458,14695,4866,3150
+VRXWindow: __VREToolsWindow,1,2867,337,6989,1659
+VRXWindow: __VREWindListWindow,1,458,14695,6360,3150
 UserFile: 1
+UserWindow: Main,1
+UserWindow: SW_ADVANCED,1
+UserWindow: SW_MOUNTPOINT,1
+UserWindow: SW_DIALOG,1

trunk/guitools/evfsgui/evfsgui.vrx

@@ -493 +493 @@
 _Dynamic:
     dyn_code = arg(1)
-    if options.!debug == 1 then say '  Dynamic code: 'dyn_code
+    if options.!debug == 1 then say time()'  Dynamic code: 'dyn_code
     interpret dyn_code; drop dyn_code
 return
@@ -3653 +3653 @@
 
     /* Attach the virtual drive - only if drive is not already attached */
+    NewlyAttached = 0
     if pos(vfs.!drive,MyFreeDriveMap("C:","FREE")) > 0 then do
         CALL _Dynamic "ok = "fs.!prefix"RxAttach('"vfs.!drive"')"
-
+        NewlyAttached = 1 /* fixes AN Ticket 1654 */
         if options.!debug == 1 then say time()' '||'Attach "'vfs.!drive'" =' ok
     end
@@ -3757 +3758 @@
 
         /* In case the mountpoint was created for this failed operation, it is (optionally) removed again */
+        say "CreateMP="createMP
+        say "advanced.!alwaysmp="advanced.!alwaysmp
         if CreateMP = 0 & advanced.!alwaysmp <> 1 then do
             CALL _Dynamic "ok = "fs.!prefix"RxDeleteMountPoint('"vfs.!mountpoint"')"
             if options.!debug == 1 then say time()' '||'Remove "'vfs.!mountpoint'" = 'ok
+            if NewlyAttached = 1 then do /* Also detach drive - fixes AN Ticket 1654 */
+                CALL _Dynamic "ok = "fs.!prefix"RxDetach('"vfs.!drive"')"
+                if options.!debug == 1 then say time()' '||'Also try to detach "'vfs.!drive'" ok = 'ok
+            end
         end
     end
@@ -3769 +3776 @@
     end
     drop CreateMP /* not required anymore */
+    drop NewlyAttached /* not required anymore */
 
 /*  Obsolete - the IOCtl will not be implemented this way in the plugin
@@ -4271 +4279 @@
     END
 
-    options.!user     = userid
-    options.!password = password
+    options.!user      = userid
+    options.!password  = password
+/* fix for AN Ticket #1653 */
+    options.!spassword = c2x(options.!password)
 
     vfs.!drive      = mdrive
@@ -4923 +4933 @@
 SW_ADVANCED_Init:
     /* Title bar */
-    CALL NLVSetText "SW_ADVANCED",  "Caption", 40
+    CALL NLVSetText "SW_ADVANCED",      "Caption", 40
 
     /* Options */
-    CALL NLVSetText "GB_ADVANCED",          "Caption", 43
+    CALL NLVSetText "GB_ADVANCED",      "Caption", 43
     CALL NLVSetText "CB_EAS",           "Caption", 44
     CALL NLVSetText "CB_READONLY",      "Caption", 45
@@ -4952 +4962 @@
 */
 SW_ADVANCED_Init_Content:
-    IF advanced.!easupport     \= "" THEN ok = VRSet("CB_EAS",     "Set",   advanced.!easupport)
-    IF advanced.!readonly      \= "" THEN ok = VRSet("CB_READONLY","Set",   advanced.!readonly)
-    IF advanced.!alwaysmp      \= "" THEN ok = VRSet("CB_ALWAYSMP","Set",   advanced.!alwaysmp)
+    IF advanced.!easupport     \= "" THEN ok = VRSet("CB_EAS",              "Set",   advanced.!easupport)
+    IF advanced.!readonly      \= "" THEN ok = VRSet("CB_READONLY",         "Set",   advanced.!readonly)
+    IF advanced.!alwaysmp      \= "" THEN ok = VRSet("CB_ALWAYSMP",         "Set",   advanced.!alwaysmp)
     IF advanced.!cachetimeout  \= "" THEN ok = VRSet("SPIN_CACHETIMEOUT",   "Value", advanced.!cachetimeout)
     IF advanced.!cachelistings \= "" THEN ok = VRSet("SPIN_CACHELISTINGS",  "Value", advanced.!cachelistings)
@@ -4961 +4971 @@
     IF advanced.!encryption    \= "" THEN ok = VRSet("CB_ENCRYPTION",       "Set",   advanced.!encryption)
     /* Obsolete */
-    IF advanced.!memlen        \= "" THEN ok = VRSet("SPB_MEMLEN", "Value", advanced.!memlen)
+    IF advanced.!memlen        \= "" THEN ok = VRSet("SPB_MEMLEN",          "Value", advanced.!memlen)
 return
 

trunk/guitools/evfsgui/rc/lang/evfsi_en.mkm

@@ -3 +3 @@
 EVG
 ; Common strings used throughout program
-; (message 0 reserved)
 EVG0001I: Samba (SMB/CIFS) Connections
 EVG0002I: ~OK
@@ -114 +113 @@
 EVG0104I: SMB.PDR is not installed.
 EVG0105I: No SMB ports installed.
-EVG0106I: Port is installed and configured, but not used by any printer.
+EVG0106I: Port is installked an configured, but not used by any printer.
 EVG0107I: Welcome %1!
 EVG0108?: