archive/deliver/getzipinfo.tcl

   1
   2 source ./deliver/pkginfo.tcl
   3 set setup [open ./deliver/setup_contents.txt w]
   4 foreach pkg [array names pkgFiles] {
   5     set size 0
   6     foreach f $pkgFiles($pkg) {
   7         if { "[file extension $f]" == ".zip" } {
   8             set me [exec unzip -l $f]
   9             set last [lindex [split $me \n] end]
  10             set zipinfo($f) $last
  11             incr size [lindex $last 0]
  12         } else { incr size [file size $f] }
  13         puts $setup $f
  14
  15     }
  16     set pkgFileSpace($pkg) $size
  17 }
  18 close $setup
  19 set f [open ./deliver/zipinfo.tcl w]
  20 puts $f "# created by getzipinfo.tcl"
  21 foreach v "zipinfo pkgFileSpace" {
  22 puts $f "global $v"
  23 puts $f [list array set $v [array get $v *]]
  24 }
  25 close $f
  26
  27