Changeset 410 for branches/guitools-2.0/shared/cltinit.vrs

Timestamp:

Feb 21, 2010, 6:47:36 PM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Latest EVFSGUI changes

File:

• branches/guitools-2.0/shared/cltinit.vrs (modified) (3 diffs)

branches/guitools-2.0/shared/cltinit.vrs

@@ -38 +38 @@
     end
     IF options.!debug == 1 THEN say '  Samba tools    = "'samba.!tools'"'
-    say '  Changing into "'directory(samba.!tools)'"'
+    say '  Changing into tools "'directory(samba.!tools)'"'
 
     /* smbclient.exe */
     samba.!smbclientexe = ""
+    if samba.!smbclientexe = "" then do /* wellknown locations */
+        WellKnown = sysBootdrive()"\ecs\system\samba;"sysBootdrive()"\samba"
+        Programs = value("PROGRAMS",,'OS2ENVIRONMENT')
+        if Programs <> "" then WellKnown = Wellknown';'Programs'\samba'
+        Tools = value("TOOLS",,'OS2ENVIRONMENT')
+        if Programs <> "" then WellKnown = Wellknown';'Tools'\samba'
+        say Wellknown
+        call charout , "  Are binaries in wellknown locations? "
+        ok = VRFindFile("smbclient.exe",WellKnown)
+        if ok <> "" then say "Yes."; else say "No."
+        if ok <> "" then samba.!smbclientexe = ok
+        drop Wellknown
+    end
     if samba.!smbclientexe = "" then do /* in current directory? */
         call charout , "  Are binaries in current directory? "
         ok = SysFileTree('.\smbclient.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        if exist.0 = 1 then say "Yes."; else say "No."
         if exist.0 = 1 then samba.!smbclientexe = exist.1
     end
@@ -51 +64 @@
         call charout , "  Are binaries in parent directory? "
         ok = SysFileTree('..\smbclient.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        if exist.0 = 1 then say "Yes."; else say "No."
         if exist.0 = 1 then samba.!smbclientexe = exist.1
     end
@@ -57 +70 @@
         call charout , "  Are binaries in ..\BIN directory? "
         ok = SysFileTree('..\bin\smbclient.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        if exist.0 = 1 then say "Yes."; else say "No."
         if exist.0 = 1 then samba.!smbclientexe = exist.1
     end