Changeset 451 for branches/guitools-1.0/shared

Timestamp:

May 25, 2010, 6:17:14 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SSCC 1.0.0, SMBUsers 0.9.8 several fixes, rest

Location:

branches/guitools-1.0/shared

Files:

• sambainit.vrs (modified) (5 diffs)
• swat.vrs (modified) (5 diffs)

branches/guitools-1.0/shared/sambainit.vrs

@@ -42 +42 @@
     /* smbd.exe */
     samba.!smbd = ""
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     if samba.!smbd = "" then do /* in current directory? */
         call charout , "  Are binaries in current directory? "
         ok = SysFileTree('.\smbd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!smbd = exist.1
     end
@@ -51 +75 @@
         call charout , "  Are binaries in parent directory? "
         ok = SysFileTree('..\smbd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!smbd = exist.1
     end
@@ -57 +81 @@
         call charout , "  Are binaries in ..\BIN directory? "
         ok = SysFileTree('..\bin\smbd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!smbd = exist.1
     end
@@ -73 +97 @@
     if samba.!smbd = "" then call _ErrorBinaryNotFound 'Could not find smbd.exe!'
 
+
     samba.!bin = VRParseFileName(samba.!smbd,'DP')
     IF options.!debug == 1 THEN say '  Samba binaries = "'samba.!bin'"'
+
 
     /* smb.cmd */
@@ -299 +325 @@
 
 /*:VRX */
-_SambaRunning: procedure expose running. pids. TempDir HaveWinbindd options.
+_SambaRunning: procedure expose running. pids. TempDir HaveWinbindd options.
     IF options.!debug == 1 THEN say '_SambaRunning() started'
 

branches/guitools-1.0/shared/swat.vrs

@@ -15 +15 @@
         end
     end
+
+
+
+
+
+
+
+
+
+
+
+
+
     if samba.!htpasswdexe = "" then do /* in current directory? */
         call charout , "  Is htpasswd.exe in current directory? "
         ok = SysFileTree('.\htpasswd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!htpasswdexe = exist.1
     end
@@ -24 +37 @@
         call charout , "  Is htpasswd.exe in parent directory? "
         ok = SysFileTree('..\htpasswd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!htpasswdexe = exist.1
     end
@@ -30 +43 @@
         call charout , "  Is htpasswd.exe in ..\BIN directory? "
         ok = SysFileTree('..\bin\htpasswd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!htpasswdexe = exist.1
     end
@@ -36 +49 @@
         call charout , "  Is htpasswd.exe in "SysBootDrive()"\apache2\bin path? "
         ok = SysFileTree(SysBootDrive()'\apache2\bin\htpasswd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!htpasswdexe = exist.1
     end
@@ -42 +55 @@
         call charout , "  Is htpasswd.exe in ..\..\apache2\bin path? "
         ok = SysFileTree('..\..\apache2\bin\htpasswd.exe', exist.,'FO')
-        say exist.0' (1 = Yes, 0 = No)'
+        
         if exist.0 = 1 then samba.!htpasswdexe = exist.1
     end