Changeset 490 for branches/guitools-1.0/install/sscc.vrx

Timestamp:

Sep 5, 2010, 10:28:01 AM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SSCC debuggingg code, SMBUsers 0.9.9 several fixes, rest

File:

• branches/guitools-1.0/install/sscc.vrx (modified) (6 diffs)

branches/guitools-1.0/install/sscc.vrx

@@ -985 +985 @@
     call lineout trg, '# from 'value("USER",,'OS2ENVIRONMENT')'@'value("HOSTNAME",,'OS2ENVIRONMENT')
     call lineout trg, '# Date: 'date()' 'time()
+
     do until lines(src) = 0
         smbline = linein(src)
         if pos("winbind separator",smbline) > 0 then iterate
         call lineout trg, smbline
-    end
+        lct = lct + 1
+    end
+    say "Lines saved "lct
     ok = stream(trg,'c','close')
     ok = stream(src,'c','close')
@@ -2546 +2549 @@
 */
 Menu_Options_ExportMode_Click: 
-say 'ExpertMode_Click started'
-say samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
+say 'ExpertMode_Click started'
+ samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
     address cmd samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
-say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
+    say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
+    say "  smb.conf GrӇe: "stream(smbconf,'c','QUERY SIZE')
     ok = VRCopyFile( TempDir'smb.conf', smbconf )
-say 'Copy ok ='ok' (1 = success, 0 = failure)'
+    say "  smb.conf GrӇe: "stream(smbconf,'c','QUERY SIZE')
+    say 'Copy ok ='ok' (1 = success, 0 = failure)'
     call _SmbConfTreeReset
     call Main_Resize
-say 'ExpertMode_Click done'
+say 'ExpertMode_Click done'
 return
 
@@ -2568 +2573 @@
 */
 Menu_Options_SimpleMode_Click: 
-
-say 'SimpleMode_Click started'
-say samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
+    say 'SimpleMode_Click started'
+    say samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
     address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
-say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
+    NewSize = stream(TempDir"smb.conf",'c','QUERY SIZE')
+    say "  "TempDir"smb.conf GrӇe: "NewSize
+    if NewSize = 0 then 'pause'
+    say "  smb.conf GrӇe: "stream(smbconf,'c','QUERY SIZE')
+    say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
     ok = VRCopyFile( TempDir'smb.conf' , smbconf )
-say 'Copy ok ='ok' (1 = success, 0 = failure)'
+    say "  smb.conf GrӇe: "stream(smbconf,'c','QUERY SIZE')
+    say 'Copy ok ='ok' (1 = success, 0 = failure)'
     call _SmbConfTreeReset
     do I = Page to 3 by -1 
@@ -2708 +2717 @@
 */
 PB_Cancel_Click: 
+
     call Quit
 return
@@ -2897 +2907 @@
     if VRGet("Main","WindowState") = "Maximized"|,
        VRGet("Main","WindowState") = "Minimized" then ok = VRMethod("Main", "Restore")
-    ok = VRRedirectStdio('OFF')
-    if samba.!testparmexe <> "" then do
+
+  if samba.!testparmexe <> "" then do
         address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
         call _SmbConfCommitChanges
-    end
+    end
 
     call _INIWrite
@@ -2908 +2918 @@
     ok = SysFileDelete(smboutput)
 
+
     window = VRWindow()
     call VRSet window, "Shutdown", 1