[Vectorlinux-devel] [vinstall-ng commit] r79 - branches/iVL

[<cod...@go...>]

Author: M0...@gm...
Date: Fri Jul 25 10:11:40 2008
New Revision: 79

Modified:
   branches/iVL/MdlInstallSys.module

Log:
Added size detection for packages

Modified: branches/iVL/MdlInstallSys.module
==============================================================================
--- branches/iVL/MdlInstallSys.module	(original)
+++ branches/iVL/MdlInstallSys.module	Fri Jul 25 10:11:40 2008
@@ -356,6 +356,7 @@
     DIM sTlzPath AS String
     DIM sTlzName AS String
     DIM sTlzDesc AS String
+    DIM iTlzSize AS Integer
     DIM sTlzBasePath AS String = ClsGlobal.sSourceMnt &/ "packages"

     sRawFile = DConv(File.Load(ClsGlobal.sSourceMnt &/ "packages" &/ "PACKAGES.TXT"))
@@ -367,23 +368,25 @@
               sTlzName = Trim(Right(sLine, Len(sLine) - InStr(sLine, ":")))
                sTlzPath = Trim(Right(sFile[i + 1], Len(sFile[i + 1]) - 
InStr(sFile[i + 1], ":")))
                sTlzPath = Right(sTlzPath, Len(sTlzPath) - 2) ' remove 
the ./ from the location line
+              iTlzSize = Trim(Right(sFile[i + 3], Len(sFile[i + 3]) - 
InStr(sFile[i + 3], ":")))
+              iTlzSize = Left(iTlzSize, Len(iTlzSize) - 1)
+              iTlzSize = Trim(iTlzSize)
+
               PRINT " Install " & sTlzBasePath &/ sTlzPath &/ sTlzName
                   ' install each package
-
-
-          ' now install the package with the information we already have
+

-              ' sDump = ""
-              ' sErr = ""
-              ' hproc = SHELL "install-pkg " & sTlzBasePath &/ 
sTlzPath &/ sTlzName & Space(1) & ClsGlobal.sTargetMnt & " || echo 
\'FAILED\'" FOR READ
-              '   WAIT 1
-              '     IF hproc.State = Process.Running THEN
-              '       REPEAT
-              '         WAIT 2
-              '             ' figure out the progress again
-              '       UNTIL
-              '         hproc.State = Process.Stopped
-              '     END IF
+              sDump = ""
+              sErr = ""
+              hproc = SHELL "install-pkg " & sTlzBasePath &/ sTlzPath 
&/ sTlzName & Space(1) & ClsGlobal.sTargetMnt & " || echo \'FAILED\'" 
FOR READ
+                WAIT 1
+                  IF hproc.State = Process.Running THEN
+                    REPEAT
+                      WAIT 2
+                          ' figure out the progress again
+                    UNTIL
+                      hproc.State = Process.Stopped
+                  END IF
           END IF
       NEXT