Changeset 450 for branches/guitools-2.0/shared

Timestamp:

Apr 26, 2010, 4:51:52 PM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Latest EVFSGUI changes

Location:

branches/guitools-2.0/shared

Files:

• nlv.vrs (modified) (2 diffs)
• rxrpclib.vrs (modified) (1 diff)
• smbtree.vrs (modified) (3 diffs)

branches/guitools-2.0/shared/nlv.vrs

@@ -69 +69 @@
                 if nlvmsg.0 = 1 then do
                     say "  Found  NLV "Suffix" file in subdirectory"
-                    settings.!messages = VRParseFilename(nlvmsg.1,"DPN")'.msg'
+                    NLVFile = VRParseFilename(nlvmsg.1,"DPN")'.'Suffix
                     say "  Adding NLV "Suffix" path to "PathVar
                     OldPathVar = value(PathVar,,"OS2ENVIRONMENT")
@@ -128 +128 @@
     PARSE VAR msgtxt message '0D'x .
 
-    IF translate(SUBSTR( message, 1, 4 )) == 'SYS0' THEN message = ''
+    IF translate(SUBSTR( message, 1, 4 )) == 'SYS0' THEN message = '[Missing message 'msgnum'!]'
 
 RETURN message

branches/guitools-2.0/shared/rxrpclib.vrs

@@ -344 +344 @@
             leave
         end
+        if pos("TDB(", translate(rpcline)) > 0 then do
+            Failure = 1
+            /* provide a fake NT_STATUS */
+            rpcline = 'NT_STATUS_TDBERROR 'rpcline
+            leave
+        end
+
         parse var rpcline token ':' tvalue
         token = translate(strip(strip(translate(token),'L','09'x)),'_',' ')

branches/guitools-2.0/shared/smbtree.vrs

@@ -175 +175 @@
     smbmachine = TempDir||"smbmachine."||machine
 
+    if UserCred   = 'USERCRED'   | UserCred = '' | UserCred = '--user=%' then UserCred = '-N'
+
     say       '  detach 'samba.!smbclientexe' -L "'strip(machine)'" 'UserCred' 'debuglevel' 1>'smbmachine' 2>NUL'
     address cmd 'detach 'samba.!smbclientexe' -L "'strip(machine)'" 'UserCred' 'debuglevel' 1>'smbmachine' 2>NUL'
+
+    if UserCred = '-N' then UserCred = ''
 
     RefreshMode = "SHARE"
@@ -259 +263 @@
 
                 select
-                    when type = "DISK"    then res = '#34:PMWP.DLL'
+                    when type = "DISK"    then res = '#64:PMWP.DLL'
                     when type = "PRINTER" then res = '#65:PMWP.DLL'
                     when type = "IPC"     then res = '#59:PMWP.DLL'
@@ -306 +310 @@
         else say '  Got "'stat'" for "'smbmachine.I'"'
     end
+
+    if UserCred = '-N' then UserCred = ''
+
     say time()' _AddSharesDisplay() loop end'
 return