Hex Artifact Content

Artifact b782d4f8ad63e2e1216c18eb0122812144b0ca94:


0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20  #! /usr/bin/env 
0010: 74 63 6c 73 68 0a 0a 70 61 63 6b 61 67 65 20 72  tclsh..package r
0020: 65 71 75 69 72 65 20 68 74 74 70 20 32 2e 37 0a  equire http 2.7.
0030: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0040: 73 71 6c 69 74 65 33 0a 0a 6e 61 6d 65 73 70 61  sqlite3..namespa
0050: 63 65 20 65 76 61 6c 20 3a 3a 61 70 70 66 73 20  ce eval ::appfs 
0060: 7b 0a 09 76 61 72 69 61 62 6c 65 20 63 61 63 68  {..variable cach
0070: 65 64 69 72 20 22 2f 74 6d 70 2f 61 70 70 66 73  edir "/tmp/appfs
0080: 2d 63 61 63 68 65 22 0a 0a 09 70 72 6f 63 20 5f  -cache"...proc _
0090: 68 61 73 68 5f 73 65 70 20 7b 68 61 73 68 20 7b  hash_sep {hash {
00a0: 73 65 70 73 20 34 7d 7d 20 7b 0a 09 09 66 6f 72  seps 4}} {...for
00b0: 20 7b 73 65 74 20 69 64 78 20 30 7d 20 7b 24 69   {set idx 0} {$i
00c0: 64 78 20 3c 20 24 73 65 70 73 7d 20 7b 69 6e 63  dx < $seps} {inc
00d0: 72 20 69 64 78 7d 20 7b 0a 09 09 09 61 70 70 65  r idx} {....appe
00e0: 6e 64 20 72 65 74 76 61 6c 20 22 5b 73 74 72 69  nd retval "[stri
00f0: 6e 67 20 72 61 6e 67 65 20 24 68 61 73 68 20 5b  ng range $hash [
0100: 65 78 70 72 20 7b 24 69 64 78 20 2a 20 32 7d 5d  expr {$idx * 2}]
0110: 20 5b 65 78 70 72 20 7b 28 24 69 64 78 20 2a 20   [expr {($idx * 
0120: 32 29 20 2b 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a  2) + 1}]]/"...}.
0130: 09 09 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20  ..append retval 
0140: 22 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24  "[string range $
0150: 68 61 73 68 20 5b 65 78 70 72 20 7b 24 69 64 78  hash [expr {$idx
0160: 20 2a 20 32 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09   * 2}] end]"....
0170: 72 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09  return $retval..
0180: 7d 0a 0a 09 70 72 6f 63 20 5f 63 61 63 68 65 66  }...proc _cachef
0190: 69 6c 65 20 7b 75 72 6c 20 6b 65 79 20 7b 6b 65  ile {url key {ke
01a0: 79 49 73 48 61 73 68 20 31 7d 7d 20 7b 0a 09 09  yIsHash 1}} {...
01b0: 69 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20  if {$keyIsHash} 
01c0: 7b 0a 09 09 09 73 65 74 20 6b 65 79 20 5b 5f 68  {....set key [_h
01d0: 61 73 68 5f 73 65 70 20 24 6b 65 79 5d 0a 09 09  ash_sep $key]...
01e0: 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 66  }....set file [f
01f0: 69 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70 70 66  ile join $::appf
0200: 73 3a 3a 63 61 63 68 65 64 69 72 20 24 6b 65 79  s::cachedir $key
0210: 5d 0a 0a 09 09 66 69 6c 65 20 6d 6b 64 69 72 20  ]....file mkdir 
0220: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 66  [file dirname $f
0230: 69 6c 65 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69  ile]....if {![fi
0240: 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d  le exists $file]
0250: 7d 20 7b 0a 09 09 09 73 65 74 20 74 6d 70 66 69  } {....set tmpfi
0260: 6c 65 20 22 24 7b 66 69 6c 65 7d 2e 6e 65 77 22  le "${file}.new"
0270: 0a 0a 09 09 09 73 65 74 20 66 64 20 5b 6f 70 65  .....set fd [ope
0280: 6e 20 24 74 6d 70 66 69 6c 65 20 22 77 22 5d 0a  n $tmpfile "w"].
0290: 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b 3a  ....set token [:
02a0: 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 24 75  :http::geturl $u
02b0: 72 6c 20 2d 63 68 61 6e 6e 65 6c 20 24 66 64 5d  rl -channel $fd]
02c0: 0a 09 09 09 73 65 74 20 6e 63 6f 64 65 20 5b 3a  ....set ncode [:
02d0: 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f  :http::ncode $to
02e0: 6b 65 6e 5d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a  ken]....::http::
02f0: 72 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 09  reset $token....
0300: 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 09 69 66  close $fd.....if
0310: 20 7b 24 6e 63 6f 64 65 20 3d 3d 20 22 32 30 30   {$ncode == "200
0320: 22 7d 20 7b 0a 09 09 09 09 66 69 6c 65 20 72 65  "} {.....file re
0330: 6e 61 6d 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24  name -force -- $
0340: 74 6d 70 66 69 6c 65 20 24 66 69 6c 65 0a 09 09  tmpfile $file...
0350: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 66 69  .} else {.....fi
0360: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
0370: 20 2d 2d 20 24 74 6d 70 66 69 6c 65 0a 09 09 09   -- $tmpfile....
0380: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  }...}....return 
0390: 24 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  $file..}...proc 
03a0: 5f 64 62 20 7b 61 72 67 73 7d 20 7b 0a 09 09 72  _db {args} {...r
03b0: 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31  eturn [uplevel 1
03c0: 20 5b 6c 69 73 74 20 3a 3a 61 70 70 66 73 3a 3a   [list ::appfs::
03d0: 64 62 20 7b 2a 7d 24 61 72 67 73 5d 5d 0a 09 7d  db {*}$args]]..}
03e0: 0a 0a 09 70 72 6f 63 20 69 6e 69 74 20 7b 7d 20  ...proc init {} 
03f0: 7b 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78  {...if {[info ex
0400: 69 73 74 73 20 3a 3a 61 70 70 66 73 3a 3a 69 6e  ists ::appfs::in
0410: 69 74 5f 63 61 6c 6c 65 64 5d 7d 20 7b 0a 09 09  it_called]} {...
0420: 09 72 65 74 75 72 6e 0a 09 09 7d 0a 0a 09 09 73  .return...}....s
0430: 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74  et ::appfs::init
0440: 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 69 66 20  _called 1....if 
0450: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
0460: 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09  :appfs::db]} {..
0470: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a  ..file mkdir $::
0480: 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72 0a  appfs::cachedir.
0490: 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a 61 70  ....sqlite3 ::ap
04a0: 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f  pfs::db [file jo
04b0: 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63  in $::appfs::cac
04c0: 68 65 64 69 72 20 63 61 63 68 65 2e 64 62 5d 0a  hedir cache.db].
04d0: 09 09 7d 0a 0a 09 09 5f 64 62 20 65 76 61 6c 20  ..}...._db eval 
04e0: 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46  {CREATE TABLE IF
04f0: 20 4e 4f 54 20 45 58 49 53 54 53 20 70 61 63 6b   NOT EXISTS pack
0500: 61 67 65 73 28 68 6f 73 74 6e 61 6d 65 2c 20 73  ages(hostname, s
0510: 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65  ha1, package, ve
0520: 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72  rsion, os, cpuAr
0530: 63 68 2c 20 69 73 4c 61 74 65 73 74 29 3b 7d 0a  ch, isLatest);}.
0540: 09 09 5f 64 62 20 65 76 61 6c 20 7b 43 52 45 41  .._db eval {CREA
0550: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20  TE TABLE IF NOT 
0560: 45 58 49 53 54 53 20 66 69 6c 65 73 28 70 61 63  EXISTS files(pac
0570: 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65 2c  kage_sha1, type,
0580: 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73   time, source, s
0590: 69 7a 65 2c 20 66 69 6c 65 5f 73 68 61 31 2c 20  ize, file_sha1, 
05a0: 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f  file_name, file_
05b0: 64 69 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a  directory);}..}.
05c0: 0a 09 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20  ..proc download 
05d0: 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b  {hostname hash {
05e0: 6d 65 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a  method sha1}} {.
05f0: 09 09 73 65 74 20 75 72 6c 20 22 68 74 74 70 3a  ..set url "http:
0600: 2f 2f 24 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66  //$hostname/appf
0610: 73 2f 24 6d 65 74 68 6f 64 2f 24 68 61 73 68 22  s/$method/$hash"
0620: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61  ...set file [_ca
0630: 63 68 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61  chefile $url $ha
0640: 73 68 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c  sh]....if {![fil
0650: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d  e exists $file]}
0660: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f   {....return -co
0670: 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65  de error "Unable
0680: 20 74 6f 20 66 65 74 63 68 22 0a 09 09 7d 0a 0a   to fetch"...}..
0690: 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a 09  ..return $file..
06a0: 7d 0a 0a 09 70 72 6f 63 20 67 65 74 69 6e 64 65  }...proc getinde
06b0: 78 20 7b 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09  x {hostname} {..
06c0: 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74  .if {[string mat
06d0: 63 68 20 22 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68  ch "*\[/~\]*" $h
06e0: 6f 73 74 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72  ostname]} {....r
06f0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
0700: 72 20 22 49 6e 76 61 6c 69 64 20 68 6f 73 74 6e  r "Invalid hostn
0710: 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ame"...}....set 
0720: 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73  url "http://$hos
0730: 74 6e 61 6d 65 2f 61 70 70 66 73 2f 69 6e 64 65  tname/appfs/inde
0740: 78 22 0a 0a 09 09 73 65 74 20 69 6e 64 65 78 63  x"....set indexc
0750: 61 63 68 65 66 69 6c 65 20 5b 5f 63 61 63 68 65  achefile [_cache
0760: 66 69 6c 65 20 24 75 72 6c 20 22 53 45 52 56 45  file $url "SERVE
0770: 52 53 2f 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77  RS/[string tolow
0780: 65 72 20 24 68 6f 73 74 6e 61 6d 65 5d 22 20 30  er $hostname]" 0
0790: 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c 65 20  ]....if {![file 
07a0: 65 78 69 73 74 73 20 24 69 6e 64 65 78 63 61 63  exists $indexcac
07b0: 68 65 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 72 65  hefile]} {....re
07c0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
07d0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63   "Unable to fetc
07e0: 68 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73  h $url"...}....s
07f0: 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 69 6e 64  et fd [open $ind
0800: 65 78 63 61 63 68 65 66 69 6c 65 5d 0a 09 09 67  excachefile]...g
0810: 65 74 73 20 24 66 64 20 69 6e 64 65 78 68 61 73  ets $fd indexhas
0820: 68 5f 64 61 74 61 0a 09 09 73 65 74 20 69 6e 64  h_data...set ind
0830: 65 78 68 61 73 68 20 5b 6c 69 6e 64 65 78 20 5b  exhash [lindex [
0840: 73 70 6c 69 74 20 24 69 6e 64 65 78 68 61 73 68  split $indexhash
0850: 5f 64 61 74 61 20 22 2c 22 5d 20 30 5d 0a 09 09  _data ","] 0]...
0860: 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 73 65 74  close $fd....set
0870: 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20   file [download 
0880: 24 68 6f 73 74 6e 61 6d 65 20 24 69 6e 64 65 78  $hostname $index
0890: 68 61 73 68 5d 0a 09 09 73 65 74 20 66 64 20 5b  hash]...set fd [
08a0: 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 73 65  open $file]...se
08b0: 74 20 64 61 74 61 20 5b 72 65 61 64 20 24 66 64  t data [read $fd
08c0: 5d 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09  ]...close $fd...
08d0: 09 61 72 72 61 79 20 73 65 74 20 70 61 63 6b 61  .array set packa
08e0: 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 66 6f 72  ges [list]...for
08f0: 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74  each line [split
0900: 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a 09   $data "\n"] {..
0910: 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 72 69  ..set line [stri
0920: 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a  ng trim $line]..
0930: 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d  ...if {[string m
0940: 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69 6e 65  atch "*/*" $line
0950: 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75  ]} {.....continu
0960: 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24  e....}.....if {$
0970: 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09  line == ""} {...
0980: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a  ..continue....}.
0990: 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73 70  ....set work [sp
09a0: 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a  lit $line ","]..
09b0: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
09c0: 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a 09 09 09  lain pkgInfo....
09d0: 73 65 74 20 70 6b 67 49 6e 66 6f 28 70 61 63 6b  set pkgInfo(pack
09e0: 61 67 65 29 20 20 5b 6c 69 6e 64 65 78 20 24 77  age)  [lindex $w
09f0: 6f 72 6b 20 30 5d 0a 09 09 09 73 65 74 20 70 6b  ork 0]....set pk
0a00: 67 49 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 20  gInfo(version)  
0a10: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d  [lindex $work 1]
0a20: 0a 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
0a30: 6f 73 29 20 20 20 20 20 20 20 5b 6c 69 6e 64 65  os)       [linde
0a40: 78 20 24 77 6f 72 6b 20 32 5d 0a 09 09 09 73 65  x $work 2]....se
0a50: 74 20 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63  t pkgInfo(cpuArc
0a60: 68 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  h)  [lindex $wor
0a70: 6b 20 33 5d 0a 09 09 09 73 65 74 20 70 6b 67 49  k 3]....set pkgI
0a80: 6e 66 6f 28 68 61 73 68 29 20 20 20 20 20 5b 73  nfo(hash)     [s
0a90: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 6c  tring tolower [l
0aa0: 69 6e 64 65 78 20 24 77 6f 72 6b 20 34 5d 5d 0a  index $work 4]].
0ab0: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 68  ...set pkgInfo(h
0ac0: 61 73 68 5f 74 79 70 65 29 20 22 73 68 61 31 22  ash_type) "sha1"
0ad0: 0a 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
0ae0: 69 73 4c 61 74 65 73 74 29 20 5b 65 78 70 72 20  isLatest) [expr 
0af0: 7b 21 21 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  {!![lindex $work
0b00: 20 35 5d 7d 5d 0a 0a 09 09 09 69 66 20 7b 5b 73   5]}].....if {[s
0b10: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 6b  tring length $pk
0b20: 67 49 6e 66 6f 28 68 61 73 68 29 5d 20 21 3d 20  gInfo(hash)] != 
0b30: 34 30 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  40} {.....contin
0b40: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b  ue....}.....if {
0b50: 21 5b 72 65 67 65 78 70 20 7b 5e 5b 30 2d 39 61  ![regexp {^[0-9a
0b60: 2d 66 5d 2a 24 7d 20 24 70 6b 67 49 6e 66 6f 28  -f]*$} $pkgInfo(
0b70: 68 61 73 68 29 5d 7d 20 7b 0a 09 09 09 09 63 6f  hash)]} {.....co
0b80: 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09  ntinue....}.....
0b90: 73 65 74 20 70 61 63 6b 61 67 65 73 28 24 70 6b  set packages($pk
0ba0: 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 29 20  gInfo(package)) 
0bb0: 5b 61 72 72 61 79 20 67 65 74 20 70 6b 67 49 6e  [array get pkgIn
0bc0: 66 6f 5d 0a 0a 09 09 09 23 20 44 6f 20 6e 6f 74  fo].....# Do not
0bd0: 20 64 6f 20 61 6e 79 20 61 64 64 69 74 69 6f 6e   do any addition
0be0: 61 6c 20 77 6f 72 6b 20 69 66 20 77 65 20 61 6c  al work if we al
0bf0: 72 65 61 64 79 20 68 61 76 65 20 74 68 69 73 20  ready have this 
0c00: 70 61 63 6b 61 67 65 0a 09 09 09 73 65 74 20 65  package....set e
0c10: 78 69 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73  xisting_packages
0c20: 20 5b 5f 64 62 20 65 76 61 6c 20 7b 53 45 4c 45   [_db eval {SELE
0c30: 43 54 20 70 61 63 6b 61 67 65 20 46 52 4f 4d 20  CT package FROM 
0c40: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
0c50: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
0c60: 61 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24  ame AND sha1 = $
0c70: 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 3b 7d 5d  pkgInfo(hash);}]
0c80: 0a 09 09 09 69 66 20 7b 5b 6c 73 65 61 72 63 68  ....if {[lsearch
0c90: 20 2d 65 78 61 63 74 20 24 65 78 69 73 74 69 6e   -exact $existin
0ca0: 67 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49  g_packages $pkgI
0cb0: 6e 66 6f 28 70 61 63 6b 61 67 65 29 5d 20 21 3d  nfo(package)] !=
0cc0: 20 2d 31 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69   -1} {.....conti
0cd0: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
0ce0: 7b 24 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65  {$pkgInfo(isLate
0cf0: 73 74 29 7d 20 7b 0a 09 09 09 09 5f 64 62 20 65  st)} {....._db e
0d00: 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b  val {UPDATE pack
0d10: 61 67 65 73 20 53 45 54 20 69 73 4c 61 74 65 73  ages SET isLates
0d20: 74 20 3d 20 30 20 57 48 45 52 45 20 68 6f 73 74  t = 0 WHERE host
0d30: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
0d40: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24   AND package = $
0d50: 70 6b 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65  pkgInfo($package
0d60: 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 6b 67 49  ) AND os = $pkgI
0d70: 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20 41 4e  nfo($package) AN
0d80: 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 6b 67  D cpuArch = $pkg
0d90: 49 6e 66 6f 28 63 70 75 41 72 63 68 29 3b 7d 0a  Info(cpuArch);}.
0da0: 09 09 09 7d 0a 0a 09 09 09 5f 64 62 20 65 76 61  ...}....._db eva
0db0: 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 70  l {INSERT INTO p
0dc0: 61 63 6b 61 67 65 73 20 28 68 6f 73 74 6e 61 6d  ackages (hostnam
0dd0: 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65  e, sha1, package
0de0: 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63  , version, os, c
0df0: 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74  puArch, isLatest
0e00: 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e  ) VALUES ($hostn
0e10: 61 6d 65 2c 20 24 70 6b 67 49 6e 66 6f 28 68 61  ame, $pkgInfo(ha
0e20: 73 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 70 61  sh), $pkgInfo(pa
0e30: 63 6b 61 67 65 29 2c 20 24 70 6b 67 49 6e 66 6f  ckage), $pkgInfo
0e40: 28 76 65 72 73 69 6f 6e 29 2c 20 24 70 6b 67 49  (version), $pkgI
0e50: 6e 66 6f 28 6f 73 29 2c 20 24 70 6b 67 49 6e 66  nfo(os), $pkgInf
0e60: 6f 28 63 70 75 41 72 63 68 29 2c 20 24 70 6b 67  o(cpuArch), $pkg
0e70: 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 20 29  Info(isLatest) )
0e80: 3b 7d 0a 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  ;}....}....retur
0e90: 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09  n COMPLETE..}...
0ea0: 70 72 6f 63 20 67 65 74 70 6b 67 6d 61 6e 69 66  proc getpkgmanif
0eb0: 65 73 74 20 7b 68 6f 73 74 6e 61 6d 65 20 70 61  est {hostname pa
0ec0: 63 6b 61 67 65 5f 73 68 61 31 7d 20 7b 0a 09 09  ckage_sha1} {...
0ed0: 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f  set file [downlo
0ee0: 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 70 61  ad $hostname $pa
0ef0: 63 6b 61 67 65 5f 73 68 61 31 5d 0a 09 09 73 65  ckage_sha1]...se
0f00: 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65  t fd [open $file
0f10: 5d 0a 09 09 73 65 74 20 70 6b 67 64 61 74 61 20  ]...set pkgdata 
0f20: 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 63 6c 6f  [read $fd]...clo
0f30: 73 65 20 24 66 64 0a 0a 09 09 66 6f 72 65 61 63  se $fd....foreac
0f40: 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 70  h line [split $p
0f50: 6b 67 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a 09  kgdata "\n"] {..
0f60: 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 72 69  ..set line [stri
0f70: 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a  ng trim $line]..
0f80: 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d  ...if {[string m
0f90: 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69 6e 65  atch "*/*" $line
0fa0: 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75  ]} {.....continu
0fb0: 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24  e....}.....if {$
0fc0: 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09  line == ""} {...
0fd0: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a  ..continue....}.
0fe0: 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73 70  ....set work [sp
0ff0: 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a  lit $line ","]..
1000: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
1010: 6c 61 69 6e 20 66 69 6c 65 49 6e 66 6f 0a 09 09  lain fileInfo...
1020: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 79  .set fileInfo(ty
1030: 70 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  pe) [lindex $wor
1040: 6b 20 30 5d 0a 09 09 09 73 65 74 20 66 69 6c 65  k 0]....set file
1050: 49 6e 66 6f 28 74 69 6d 65 29 20 5b 6c 69 6e 64  Info(time) [lind
1060: 65 78 20 24 77 6f 72 6b 20 31 5d 0a 09 09 09 73  ex $work 1]....s
1070: 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65  et fileInfo(name
1080: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1090: 65 6e 64 5d 0a 0a 09 09 09 73 65 74 20 66 69 6c  end].....set fil
10a0: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 73 70 6c  eInfo(name) [spl
10b0: 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  it [string trim 
10c0: 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20  $fileInfo(name) 
10d0: 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 09 73 65 74  "/"] "/"]....set
10e0: 20 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74   fileInfo(direct
10f0: 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e  ory) [join [lran
1100: 67 65 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d  ge $fileInfo(nam
1110: 65 29 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d  e) 0 end-1] "/"]
1120: 0a 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
1130: 28 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24  (name) [lindex $
1140: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 65  fileInfo(name) e
1150: 6e 64 5d 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b  nd].....set work
1160: 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 32   [lrange $work 2
1170: 20 65 6e 64 2d 31 5d 0a 09 09 09 73 77 69 74 63   end-1]....switc
1180: 68 20 2d 2d 20 24 66 69 6c 65 49 6e 66 6f 28 74  h -- $fileInfo(t
1190: 79 70 65 29 20 7b 0a 09 09 09 09 22 66 69 6c 65  ype) {....."file
11a0: 22 20 7b 0a 09 09 09 09 09 73 65 74 20 66 69 6c  " {......set fil
11b0: 65 49 6e 66 6f 28 73 69 7a 65 29 20 5b 6c 69 6e  eInfo(size) [lin
11c0: 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09  dex $work 0]....
11d0: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73  ..set fileInfo(s
11e0: 68 61 31 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f  ha1) [lindex $wo
11f0: 72 6b 20 31 5d 0a 09 09 09 09 7d 0a 09 09 09 09  rk 1].....}.....
1200: 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09  "symlink" {.....
1210: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f  .set fileInfo(so
1220: 75 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77  urce) [lindex $w
1230: 6f 72 6b 20 30 5d 0a 09 09 09 09 7d 0a 09 09 09  ork 0].....}....
1240: 7d 0a 0a 09 09 09 5f 64 62 20 65 76 61 6c 20 7b  }....._db eval {
1250: 49 4e 53 45 52 54 20 49 4e 54 4f 20 66 69 6c 65  INSERT INTO file
1260: 73 20 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c  s (package_sha1,
1270: 20 74 79 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75   type, time, sou
1280: 72 63 65 2c 20 73 69 7a 65 2c 20 66 69 6c 65 5f  rce, size, file_
1290: 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c  sha1, file_name,
12a0: 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 29   file_directory)
12b0: 20 56 41 4c 55 45 53 20 28 24 70 61 63 6b 61 67   VALUES ($packag
12c0: 65 5f 73 68 61 31 2c 20 24 66 69 6c 65 49 6e 66  e_sha1, $fileInf
12d0: 6f 28 74 79 70 65 29 2c 20 24 66 69 6c 65 49 6e  o(type), $fileIn
12e0: 66 6f 28 74 69 6d 65 29 2c 20 24 66 69 6c 65 49  fo(time), $fileI
12f0: 6e 66 6f 28 73 6f 75 72 63 65 29 2c 20 24 66 69  nfo(source), $fi
1300: 6c 65 49 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66  leInfo(size), $f
1310: 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c 20 24  ileInfo(sha1), $
1320: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20  fileInfo(name), 
1330: 24 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74  $fileInfo(direct
1340: 6f 72 79 29 20 29 3b 7d 0a 09 09 7d 0a 09 7d 0a  ory) );}...}..}.
1350: 0a 7d 0a                                         .}.