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
|
