Changeset 333 for branches/guitools-1.0/shared/sambainit.vrs

Timestamp:

Sep 22, 2009, 4:17:24 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Fix problem in smbusers

File:

• branches/guitools-1.0/shared/sambainit.vrs (modified) (3 diffs)

branches/guitools-1.0/shared/sambainit.vrs

@@ -123 +123 @@
     if \VRFileExists(samba.!smbclientexe) then call _ErrorBinaryNotFound "Could not find smbclient.exe!"
     IF options.!debug == 1 THEN say '  smbclient.exe  = "'samba.!smbclientexe'"'
+
+    /* nmblookup.exe */
+    samba.!nmblookupexe = samba.!bin'\nmblookup.exe'
+    if \VRFileExists(samba.!nmblookupexe) then call _ErrorBinaryNotFound "Could not find nmblookup.exe!"
+    IF options.!debug == 1 THEN say '  nmblookup.exe  = "'samba.!nmblookupexe'"'
 
     /* pwd_mkdb */
@@ -265 +270 @@
     end
     drop old_path
+
+    /* Add binary and tools path to the DPATH variable */
+    old_dpath = value('DPATH',, 'OS2ENVIRONMENT')
+    if pos(translate(samba.!bin';'),translate(old_dpath)) = 0 then do
+        if samba.!bin = samba.!tools then new_dpath = samba.!bin';'
+        else new_dpath = samba.!bin';'samba.!tools';'
+        ok = value('DPATH', new_dpath || old_dpath, 'OS2ENVIRONMENT')
+        drop new_dpath
+    end
+    drop old_dpath
     
     /* Add binary and tools path to the BEGINLIBPATH variable */
@@ -275 +290 @@
     end
     drop old_beginlibpath
+
 
     /* Set LIBPATHSTRICT (this is an option - disabled by default) */