Hex Artifact Content

Artifact e521e020ce17aedfcff771f4250a9348891c42b1:


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 69 66 20 7b 5b 63 61  sqlite3..if {[ca
0050: 74 63 68 20 7b 0a 09 70 61 63 6b 61 67 65 20 72  tch {..package r
0060: 65 71 75 69 72 65 20 73 68 61 31 0a 7d 5d 7d 20  equire sha1.}]} 
0070: 7b 0a 09 40 40 53 48 41 31 2e 54 43 4c 40 40 0a  {..@@SHA1.TCL@@.
0080: 09 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
0090: 20 73 68 61 31 0a 7d 0a 0a 6e 61 6d 65 73 70 61   sha1.}..namespa
00a0: 63 65 20 65 76 61 6c 20 3a 3a 61 70 70 66 73 20  ce eval ::appfs 
00b0: 7b 0a 09 76 61 72 69 61 62 6c 65 20 63 61 63 68  {..variable cach
00c0: 65 64 69 72 20 22 2f 74 6d 70 2f 61 70 70 66 73  edir "/tmp/appfs
00d0: 2d 63 61 63 68 65 22 0a 09 76 61 72 69 61 62 6c  -cache"..variabl
00e0: 65 20 74 74 6c 20 33 36 30 30 0a 09 76 61 72 69  e ttl 3600..vari
00f0: 61 62 6c 65 20 6e 74 74 6c 20 36 30 0a 0a 09 70  able nttl 60...p
0100: 72 6f 63 20 5f 68 61 73 68 5f 73 65 70 20 7b 68  roc _hash_sep {h
0110: 61 73 68 20 7b 73 65 70 73 20 34 7d 7d 20 7b 0a  ash {seps 4}} {.
0120: 09 09 66 6f 72 20 7b 73 65 74 20 69 64 78 20 30  ..for {set idx 0
0130: 7d 20 7b 24 69 64 78 20 3c 20 24 73 65 70 73 7d  } {$idx < $seps}
0140: 20 7b 69 6e 63 72 20 69 64 78 7d 20 7b 0a 09 09   {incr idx} {...
0150: 09 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22  .append retval "
0160: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 68  [string range $h
0170: 61 73 68 20 5b 65 78 70 72 20 7b 24 69 64 78 20  ash [expr {$idx 
0180: 2a 20 32 7d 5d 20 5b 65 78 70 72 20 7b 28 24 69  * 2}] [expr {($i
0190: 64 78 20 2a 20 32 29 20 2b 20 31 7d 5d 5d 2f 22  dx * 2) + 1}]]/"
01a0: 0a 09 09 7d 0a 09 09 61 70 70 65 6e 64 20 72 65  ...}...append re
01b0: 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72 61  tval "[string ra
01c0: 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70 72 20  nge $hash [expr 
01d0: 7b 24 69 64 78 20 2a 20 32 7d 5d 20 65 6e 64 5d  {$idx * 2}] end]
01e0: 22 0a 0a 09 09 72 65 74 75 72 6e 20 24 72 65 74  "....return $ret
01f0: 76 61 6c 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 63  val..}...proc _c
0200: 61 63 68 65 66 69 6c 65 20 7b 75 72 6c 20 6b 65  achefile {url ke
0210: 79 20 7b 6b 65 79 49 73 48 61 73 68 20 31 7d 7d  y {keyIsHash 1}}
0220: 20 7b 0a 09 09 73 65 74 20 66 69 6c 65 6b 65 79   {...set filekey
0230: 20 24 6b 65 79 0a 09 09 69 66 20 7b 24 6b 65 79   $key...if {$key
0240: 49 73 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74  IsHash} {....set
0250: 20 66 69 6c 65 6b 65 79 20 5b 5f 68 61 73 68 5f   filekey [_hash_
0260: 73 65 70 20 24 66 69 6c 65 6b 65 79 5d 0a 09 09  sep $filekey]...
0270: 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 66  }....set file [f
0280: 69 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70 70 66  ile join $::appf
0290: 73 3a 3a 63 61 63 68 65 64 69 72 20 24 66 69 6c  s::cachedir $fil
02a0: 65 6b 65 79 5d 0a 0a 09 09 66 69 6c 65 20 6d 6b  ekey]....file mk
02b0: 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  dir [file dirnam
02c0: 65 20 24 66 69 6c 65 5d 0a 0a 09 09 69 66 20 7b  e $file]....if {
02d0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69  [file exists $fi
02e0: 6c 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  le]} {....return
02f0: 20 24 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 73 65   $file...}....se
0300: 74 20 74 6d 70 66 69 6c 65 20 22 24 7b 66 69 6c  t tmpfile "${fil
0310: 65 7d 2e 5b 65 78 70 72 20 7b 72 61 6e 64 28 29  e}.[expr {rand()
0320: 7d 5d 22 0a 0a 09 09 73 65 74 20 66 64 20 5b 6f  }]"....set fd [o
0330: 70 65 6e 20 24 74 6d 70 66 69 6c 65 20 22 77 22  pen $tmpfile "w"
0340: 5d 0a 09 09 66 63 6f 6e 66 69 67 75 72 65 20 24  ]...fconfigure $
0350: 66 64 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20  fd -translation 
0360: 62 69 6e 61 72 79 0a 0a 09 09 63 61 74 63 68 20  binary....catch 
0370: 7b 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b  {....set token [
0380: 3a 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 24  ::http::geturl $
0390: 75 72 6c 20 2d 63 68 61 6e 6e 65 6c 20 24 66 64  url -channel $fd
03a0: 20 2d 62 69 6e 61 72 79 20 74 72 75 65 5d 0a 09   -binary true]..
03b0: 09 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20  .}....if {[info 
03c0: 65 78 69 73 74 73 20 74 6f 6b 65 6e 5d 7d 20 7b  exists token]} {
03d0: 0a 09 09 09 73 65 74 20 6e 63 6f 64 65 20 5b 3a  ....set ncode [:
03e0: 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f  :http::ncode $to
03f0: 6b 65 6e 5d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a  ken]....::http::
0400: 72 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 7d  reset $token...}
0410: 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 6e   else {....set n
0420: 63 6f 64 65 20 22 39 30 30 22 0a 09 09 7d 0a 0a  code "900"...}..
0430: 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 69  ..close $fd....i
0440: 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b  f {$keyIsHash} {
0450: 0a 09 09 09 73 65 74 20 68 61 73 68 20 5b 73 74  ....set hash [st
0460: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 68  ring tolower [sh
0470: 61 31 3a 3a 73 68 61 31 20 2d 68 65 78 20 2d 66  a1::sha1 -hex -f
0480: 69 6c 65 20 24 74 6d 70 66 69 6c 65 5d 5d 0a 09  ile $tmpfile]]..
0490: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74  .} else {....set
04a0: 20 68 61 73 68 20 24 6b 65 79 0a 09 09 7d 0a 0a   hash $key...}..
04b0: 09 09 69 66 20 7b 24 6e 63 6f 64 65 20 3d 3d 20  ..if {$ncode == 
04c0: 22 32 30 30 22 20 26 26 20 24 68 61 73 68 20 3d  "200" && $hash =
04d0: 3d 20 24 6b 65 79 7d 20 7b 0a 09 09 09 66 69 6c  = $key} {....fil
04e0: 65 20 72 65 6e 61 6d 65 20 2d 66 6f 72 63 65 20  e rename -force 
04f0: 2d 2d 20 24 74 6d 70 66 69 6c 65 20 24 66 69 6c  -- $tmpfile $fil
0500: 65 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  e...} else {....
0510: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
0520: 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65 0a 09  ce -- $tmpfile..
0530: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69  .}....return $fi
0540: 6c 65 0a 09 7d 0a 0a 0a 09 70 72 6f 63 20 5f 69  le..}....proc _i
0550: 73 48 61 73 68 20 7b 76 61 6c 75 65 7d 20 7b 0a  sHash {value} {.
0560: 09 09 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72  ..set value [str
0570: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 76 61 6c  ing tolower $val
0580: 75 65 5d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69  ue]....if {[stri
0590: 6e 67 20 6c 65 6e 67 74 68 20 24 76 61 6c 75 65  ng length $value
05a0: 5d 20 21 3d 20 34 30 7d 20 7b 0a 09 09 09 72 65  ] != 40} {....re
05b0: 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a  turn false...}..
05c0: 09 09 69 66 20 7b 21 5b 72 65 67 65 78 70 20 7b  ..if {![regexp {
05d0: 5e 5b 30 2d 39 61 2d 66 5d 2a 24 7d 20 24 76 61  ^[0-9a-f]*$} $va
05e0: 6c 75 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  lue]} {....retur
05f0: 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 72  n false...}....r
0600: 65 74 75 72 6e 20 74 72 75 65 0a 09 7d 0a 0a 09  eturn true..}...
0610: 70 72 6f 63 20 5f 64 62 20 7b 61 72 67 73 7d 20  proc _db {args} 
0620: 7b 0a 09 09 72 65 74 75 72 6e 20 5b 75 70 6c 65  {...return [uple
0630: 76 65 6c 20 31 20 5b 6c 69 73 74 20 3a 3a 61 70  vel 1 [list ::ap
0640: 70 66 73 3a 3a 64 62 20 7b 2a 7d 24 61 72 67 73  pfs::db {*}$args
0650: 5d 5d 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f  ]]..}...proc _no
0660: 72 6d 61 6c 69 7a 65 4f 53 20 7b 6f 73 7d 20 7b  rmalizeOS {os} {
0670: 0a 09 09 73 65 74 20 6f 73 20 5b 73 74 72 69 6e  ...set os [strin
0680: 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e  g tolower [strin
0690: 67 20 74 72 69 6d 20 24 6f 73 5d 5d 0a 0a 09 09  g trim $os]]....
06a0: 73 77 69 74 63 68 20 2d 2d 20 24 6f 73 20 7b 0a  switch -- $os {.
06b0: 09 09 09 22 6c 69 6e 75 78 22 20 2d 20 22 66 72  ..."linux" - "fr
06c0: 65 65 62 73 64 22 20 2d 20 22 6f 70 65 6e 62 73  eebsd" - "openbs
06d0: 64 22 20 2d 20 22 6e 65 74 62 73 64 22 20 7b 0a  d" - "netbsd" {.
06e0: 09 09 09 09 72 65 74 75 72 6e 20 24 6f 73 0a 09  ....return $os..
06f0: 09 09 7d 0a 09 09 09 22 73 75 6e 6f 73 22 20 7b  ..}...."sunos" {
0700: 0a 09 09 09 09 72 65 74 75 72 6e 20 22 73 6f 6c  .....return "sol
0710: 61 72 69 73 22 0a 09 09 09 7d 0a 09 09 09 22 6e  aris"....}...."n
0720: 6f 61 72 63 68 22 20 2d 20 22 6e 6f 6e 65 22 20  oarch" - "none" 
0730: 2d 20 22 61 6e 79 22 20 2d 20 22 61 6c 6c 22 20  - "any" - "all" 
0740: 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 22 6e 6f  {.....return "no
0750: 61 72 63 68 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a  arch"....}...}..
0760: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
0770: 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20  rror "Unable to 
0780: 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20 24 6f  normalize OS: $o
0790: 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f  s"..}...proc _no
07a0: 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70 75 7d  rmalizeCPU {cpu}
07b0: 20 7b 0a 09 09 73 65 74 20 63 70 75 20 5b 73 74   {...set cpu [st
07c0: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74  ring tolower [st
07d0: 72 69 6e 67 20 74 72 69 6d 20 24 63 70 75 5d 5d  ring trim $cpu]]
07e0: 0a 0a 09 09 73 77 69 74 63 68 20 2d 67 6c 6f 62  ....switch -glob
07f0: 20 2d 2d 20 24 63 70 75 20 7b 0a 09 09 09 22 69   -- $cpu {...."i
0800: 3f 38 36 22 20 7b 0a 09 09 09 09 72 65 74 75 72  ?86" {.....retur
0810: 6e 20 22 69 78 38 36 22 0a 09 09 09 7d 0a 09 09  n "ix86"....}...
0820: 09 22 78 38 36 5f 36 34 22 20 7b 0a 09 09 09 09  ."x86_64" {.....
0830: 72 65 74 75 72 6e 20 24 63 70 75 0a 09 09 09 7d  return $cpu....}
0840: 0a 09 09 09 22 6e 6f 61 72 63 68 22 20 2d 20 22  ...."noarch" - "
0850: 6e 6f 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d 20  none" - "any" - 
0860: 22 61 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74 75  "all" {.....retu
0870: 72 6e 20 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d  rn "noarch"....}
0880: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d  ...}....return -
0890: 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62  code error "Unab
08a0: 6c 65 20 74 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20  le to normalize 
08b0: 43 50 55 3a 20 24 63 70 75 22 0a 09 7d 0a 0a 09  CPU: $cpu"..}...
08c0: 70 72 6f 63 20 69 6e 69 74 20 7b 7d 20 7b 0a 09  proc init {} {..
08d0: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
08e0: 73 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f  s ::appfs::init_
08f0: 63 61 6c 6c 65 64 5d 7d 20 7b 0a 09 09 09 72 65  called]} {....re
0900: 74 75 72 6e 0a 09 09 7d 0a 0a 09 09 73 65 74 20  turn...}....set 
0910: 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61  ::appfs::init_ca
0920: 6c 6c 65 64 20 31 0a 0a 09 09 69 66 20 7b 21 5b  lled 1....if {![
0930: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70  info exists ::ap
0940: 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09 09 09 66  pfs::db]} {....f
0950: 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a 61 70 70  ile mkdir $::app
0960: 66 73 3a 3a 63 61 63 68 65 64 69 72 0a 0a 09 09  fs::cachedir....
0970: 09 73 71 6c 69 74 65 33 20 3a 3a 61 70 70 66 73  .sqlite3 ::appfs
0980: 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  ::db [file join 
0990: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
09a0: 69 72 20 63 61 63 68 65 2e 64 62 5d 0a 09 09 7d  ir cache.db]...}
09b0: 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 61 62  ....# Create tab
09c0: 6c 65 73 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b  les..._db eval {
09d0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
09e0: 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73  NOT EXISTS sites
09f0: 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41 52  (hostname PRIMAR
0a00: 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61 74  Y KEY, lastUpdat
0a10: 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 5f 64 62 20  e, ttl);}..._db 
0a20: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42  eval {CREATE TAB
0a30: 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53  LE IF NOT EXISTS
0a40: 20 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61   packages(hostna
0a50: 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67  me, sha1, packag
0a60: 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20  e, version, os, 
0a70: 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73  cpuArch, isLates
0a80: 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29  t, haveManifest)
0a90: 3b 7d 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b 43  ;}..._db eval {C
0aa0: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
0ab0: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 28  OT EXISTS files(
0ac0: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79  package_sha1, ty
0ad0: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
0ae0: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66  , size, perms, f
0af0: 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e  ile_sha1, file_n
0b00: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74  ame, file_direct
0b10: 6f 72 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61  ory);}....# Crea
0b20: 74 65 20 69 6e 64 65 78 65 73 0a 09 09 5f 64 62  te indexes..._db
0b30: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e   eval {CREATE IN
0b40: 44 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54  DEX IF NOT EXIST
0b50: 53 20 73 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e  S sites_index ON
0b60: 20 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65   sites (hostname
0b70: 29 3b 7d 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b  );}..._db eval {
0b80: 43 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20  CREATE INDEX IF 
0b90: 4e 4f 54 20 45 58 49 53 54 53 20 70 61 63 6b 61  NOT EXISTS packa
0ba0: 67 65 73 5f 69 6e 64 65 78 20 4f 4e 20 70 61 63  ges_index ON pac
0bb0: 6b 61 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c  kages (hostname,
0bc0: 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73 69 6f   package, versio
0bd0: 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68 29 3b  n, os, cpuArch);
0be0: 7d 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b 43 52  }..._db eval {CR
0bf0: 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f  EATE INDEX IF NO
0c00: 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 5f 69  T EXISTS files_i
0c10: 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20 28 70  ndex ON files (p
0c20: 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66 69 6c  ackage_sha1, fil
0c30: 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72  e_name, file_dir
0c40: 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a 09 70  ectory);}..}...p
0c50: 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b 68 6f  roc download {ho
0c60: 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d 65 74  stname hash {met
0c70: 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09 09 73  hod sha1}} {...s
0c80: 65 74 20 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24  et url "http://$
0c90: 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73 2f 24  hostname/appfs/$
0ca0: 6d 65 74 68 6f 64 2f 24 68 61 73 68 22 0a 09 09  method/$hash"...
0cb0: 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68 65  set file [_cache
0cc0: 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68 5d  file $url $hash]
0cd0: 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c 65 20 65  ....if {![file e
0ce0: 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a  xists $file]} {.
0cf0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
0d00: 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f  error "Unable to
0d10: 20 66 65 74 63 68 22 0a 09 09 7d 0a 0a 09 09 72   fetch"...}....r
0d20: 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a  eturn $file..}..
0d30: 09 70 72 6f 63 20 67 65 74 69 6e 64 65 78 20 7b  .proc getindex {
0d40: 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09 09 73 65  hostname} {...se
0d50: 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65 63  t now [clock sec
0d60: 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c 61 73  onds]....set las
0d70: 74 55 70 64 61 74 65 73 20 5b 5f 64 62 20 65 76  tUpdates [_db ev
0d80: 61 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74 55  al {SELECT lastU
0d90: 70 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d 20  pdate, ttl FROM 
0da0: 73 69 74 65 73 20 57 48 45 52 45 20 68 6f 73 74  sites WHERE host
0db0: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
0dc0: 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69 66   LIMIT 1;}]...if
0dd0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73 74   {[llength $last
0de0: 55 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20 7b  Updates] == 0} {
0df0: 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70 64 61  ....set lastUpda
0e00: 74 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c 20  te 0....set ttl 
0e10: 30 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  0...} else {....
0e20: 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 5b  set lastUpdate [
0e30: 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61  lindex $lastUpda
0e40: 74 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74 74  tes 0]....set tt
0e50: 6c 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55  l [lindex $lastU
0e60: 70 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a 09  pdates 1]...}...
0e70: 09 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c 61  .if {$now < ($la
0e80: 73 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c 29  stUpdate + $ttl)
0e90: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f  } {....return CO
0ea0: 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66  MPLETE...}....if
0eb0: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
0ec0: 22 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74  "*\[/~\]*" $host
0ed0: 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75  name]} {....retu
0ee0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
0ef0: 49 6e 76 61 6c 69 64 20 68 6f 73 74 6e 61 6d 65  Invalid hostname
0f00: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 75 72 6c  "...}....set url
0f10: 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61   "http://$hostna
0f20: 6d 65 2f 61 70 70 66 73 2f 69 6e 64 65 78 22 0a  me/appfs/index".
0f30: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65  ...catch {....se
0f40: 74 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a  t token [::http:
0f50: 3a 67 65 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09  :geturl $url]...
0f60: 09 69 66 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63  .if {[::http::nc
0f70: 6f 64 65 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22  ode $token] == "
0f80: 32 30 30 22 7d 20 7b 0a 09 09 09 09 73 65 74 20  200"} {.....set 
0f90: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b  indexhash_data [
0fa0: 3a 3a 68 74 74 70 3a 3a 64 61 74 61 20 24 74 6f  ::http::data $to
0fb0: 6b 65 6e 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a 68  ken]....}....::h
0fc0: 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65  ttp::reset $toke
0fd0: 6e 0a 09 09 09 24 74 6f 6b 65 6e 20 63 6c 65 61  n....$token clea
0fe0: 6e 75 70 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  nup...}....if {!
0ff0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69 6e 64  [info exists ind
1000: 65 78 68 61 73 68 5f 64 61 74 61 5d 7d 20 7b 0a  exhash_data]} {.
1010: 09 09 09 23 20 43 61 63 68 65 20 74 68 69 73 20  ...# Cache this 
1020: 72 65 73 75 6c 74 20 66 6f 72 20 36 30 20 73 65  result for 60 se
1030: 63 6f 6e 64 73 0a 09 09 09 5f 64 62 20 65 76 61  conds...._db eva
1040: 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20 52 45 50  l {INSERT OR REP
1050: 4c 41 43 45 20 49 4e 54 4f 20 73 69 74 65 73 20  LACE INTO sites 
1060: 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61 73 74 55  (hostname, lastU
1070: 70 64 61 74 65 2c 20 74 74 6c 29 20 56 41 4c 55  pdate, ttl) VALU
1080: 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24  ES ($hostname, $
1090: 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73 3a 3a 6e  now, $::appfs::n
10a0: 74 74 6c 29 3b 7d 0a 0a 09 09 09 72 65 74 75 72  ttl);}.....retur
10b0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55  n -code error "U
10c0: 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68 20 24  nable to fetch $
10d0: 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  url"...}....set 
10e0: 69 6e 64 65 78 68 61 73 68 20 5b 6c 69 6e 64 65  indexhash [linde
10f0: 78 20 5b 73 70 6c 69 74 20 24 69 6e 64 65 78 68  x [split $indexh
1100: 61 73 68 5f 64 61 74 61 20 22 2c 22 5d 20 30 5d  ash_data ","] 0]
1110: 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73 48 61 73  ....if {![_isHas
1120: 68 20 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b  h $indexhash]} {
1130: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
1140: 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20   error "Invalid 
1150: 68 61 73 68 3a 20 24 69 6e 64 65 78 68 61 73 68  hash: $indexhash
1160: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c  "...}....set fil
1170: 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68 6f 73  e [download $hos
1180: 74 6e 61 6d 65 20 24 69 6e 64 65 78 68 61 73 68  tname $indexhash
1190: 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e  ]...set fd [open
11a0: 20 24 66 69 6c 65 5d 0a 09 09 73 65 74 20 64 61   $file]...set da
11b0: 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09  ta [read $fd]...
11c0: 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 73 65 74  close $fd....set
11d0: 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 5b   curr_packages [
11e0: 6c 69 73 74 5d 0a 09 09 66 6f 72 65 61 63 68 20  list]...foreach 
11f0: 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 64 61 74  line [split $dat
1200: 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 73 65 74  a "\n"] {....set
1210: 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 72   line [string tr
1220: 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 69 66  im $line].....if
1230: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
1240: 22 2a 2f 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b 0a  "*/*" $line]} {.
1250: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
1260: 7d 0a 0a 09 09 09 69 66 20 7b 24 6c 69 6e 65 20  }.....if {$line 
1270: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 63 6f 6e  == ""} {.....con
1280: 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 73  tinue....}.....s
1290: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24  et work [split $
12a0: 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 75 6e  line ","].....un
12b0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
12c0: 70 6b 67 49 6e 66 6f 0a 09 09 09 69 66 20 7b 5b  pkgInfo....if {[
12d0: 63 61 74 63 68 20 7b 0a 09 09 09 09 73 65 74 20  catch {.....set 
12e0: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
12f0: 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20    [lindex $work 
1300: 30 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e  0].....set pkgIn
1310: 66 6f 28 76 65 72 73 69 6f 6e 29 20 20 5b 6c 69  fo(version)  [li
1320: 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a 09 09  ndex $work 1]...
1330: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 6f 73  ..set pkgInfo(os
1340: 29 20 20 20 20 20 20 20 5b 5f 6e 6f 72 6d 61 6c  )       [_normal
1350: 69 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24 77  izeOS [lindex $w
1360: 6f 72 6b 20 32 5d 5d 0a 09 09 09 09 73 65 74 20  ork 2]].....set 
1370: 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68 29  pkgInfo(cpuArch)
1380: 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55    [_normalizeCPU
1390: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 33   [lindex $work 3
13a0: 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e  ]].....set pkgIn
13b0: 66 6f 28 68 61 73 68 29 20 20 20 20 20 5b 73 74  fo(hash)     [st
13c0: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 6c 69  ring tolower [li
13d0: 6e 64 65 78 20 24 77 6f 72 6b 20 34 5d 5d 0a 09  ndex $work 4]]..
13e0: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 68  ...set pkgInfo(h
13f0: 61 73 68 5f 74 79 70 65 29 20 22 73 68 61 31 22  ash_type) "sha1"
1400: 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f  .....set pkgInfo
1410: 28 69 73 4c 61 74 65 73 74 29 20 5b 65 78 70 72  (isLatest) [expr
1420: 20 7b 21 21 5b 6c 69 6e 64 65 78 20 24 77 6f 72   {!![lindex $wor
1430: 6b 20 35 5d 7d 5d 0a 09 09 09 7d 5d 7d 20 7b 0a  k 5]}]....}]} {.
1440: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
1450: 7d 0a 0a 09 09 09 69 66 20 7b 21 5b 5f 69 73 48  }.....if {![_isH
1460: 61 73 68 20 24 70 6b 67 49 6e 66 6f 28 68 61 73  ash $pkgInfo(has
1470: 68 29 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  h)]} {.....conti
1480: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 6c 61 70  nue....}.....lap
1490: 70 65 6e 64 20 63 75 72 72 5f 70 61 63 6b 61 67  pend curr_packag
14a0: 65 73 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68  es $pkgInfo(hash
14b0: 29 0a 0a 09 09 09 23 20 44 6f 20 6e 6f 74 20 64  ).....# Do not d
14c0: 6f 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c  o any additional
14d0: 20 77 6f 72 6b 20 69 66 20 77 65 20 61 6c 72 65   work if we alre
14e0: 61 64 79 20 68 61 76 65 20 74 68 69 73 20 70 61  ady have this pa
14f0: 63 6b 61 67 65 0a 09 09 09 73 65 74 20 65 78 69  ckage....set exi
1500: 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 5b  sting_packages [
1510: 5f 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  _db eval {SELECT
1520: 20 70 61 63 6b 61 67 65 20 46 52 4f 4d 20 70 61   package FROM pa
1530: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
1540: 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d  tname = $hostnam
1550: 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70 6b  e AND sha1 = $pk
1560: 67 49 6e 66 6f 28 68 61 73 68 29 3b 7d 5d 0a 09  gInfo(hash);}]..
1570: 09 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d  ..if {[lsearch -
1580: 65 78 61 63 74 20 24 65 78 69 73 74 69 6e 67 5f  exact $existing_
1590: 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e 66  packages $pkgInf
15a0: 6f 28 70 61 63 6b 61 67 65 29 5d 20 21 3d 20 2d  o(package)] != -
15b0: 31 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75  1} {.....continu
15c0: 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24  e....}.....if {$
15d0: 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74  pkgInfo(isLatest
15e0: 29 7d 20 7b 0a 09 09 09 09 5f 64 62 20 65 76 61  )} {....._db eva
15f0: 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61 67  l {UPDATE packag
1600: 65 73 20 53 45 54 20 69 73 4c 61 74 65 73 74 20  es SET isLatest 
1610: 3d 20 30 20 57 48 45 52 45 20 68 6f 73 74 6e 61  = 0 WHERE hostna
1620: 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41  me = $hostname A
1630: 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 6b  ND package = $pk
1640: 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20  gInfo($package) 
1650: 41 4e 44 20 6f 73 20 3d 20 24 70 6b 67 49 6e 66  AND os = $pkgInf
1660: 6f 28 24 70 61 63 6b 61 67 65 29 20 41 4e 44 20  o($package) AND 
1670: 63 70 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e  cpuArch = $pkgIn
1680: 66 6f 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09  fo(cpuArch);}...
1690: 09 7d 0a 0a 09 09 09 5f 64 62 20 65 76 61 6c 20  .}....._db eval 
16a0: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 70 61 63  {INSERT INTO pac
16b0: 6b 61 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c  kages (hostname,
16c0: 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20   sha1, package, 
16d0: 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75  version, os, cpu
16e0: 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74 2c 20  Arch, isLatest, 
16f0: 68 61 76 65 4d 61 6e 69 66 65 73 74 29 20 56 41  haveManifest) VA
1700: 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c  LUES ($hostname,
1710: 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c   $pkgInfo(hash),
1720: 20 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67   $pkgInfo(packag
1730: 65 29 2c 20 24 70 6b 67 49 6e 66 6f 28 76 65 72  e), $pkgInfo(ver
1740: 73 69 6f 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28  sion), $pkgInfo(
1750: 6f 73 29 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70  os), $pkgInfo(cp
1760: 75 41 72 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f  uArch), $pkgInfo
1770: 28 69 73 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d  (isLatest), 0);}
1780: 0a 09 09 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66  ...}....# Look f
1790: 6f 72 20 70 61 63 6b 61 67 65 73 20 74 68 61 74  or packages that
17a0: 20 68 61 76 65 20 62 65 65 6e 20 64 65 6c 65 74   have been delet
17b0: 65 64 0a 09 09 73 65 74 20 66 6f 75 6e 64 5f 70  ed...set found_p
17c0: 61 63 6b 61 67 65 73 20 5b 5f 64 62 20 65 76 61  ackages [_db eva
17d0: 6c 20 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46  l {SELECT sha1 F
17e0: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
17f0: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
1800: 6f 73 74 6e 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72  ostname;}]...for
1810: 65 61 63 68 20 70 61 63 6b 61 67 65 20 24 66 6f  each package $fo
1820: 75 6e 64 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09  und_packages {..
1830: 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b  ..set found_pack
1840: 61 67 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67  ages_arr($packag
1850: 65 29 20 31 0a 09 09 7d 0a 0a 09 09 66 6f 72 65  e) 1...}....fore
1860: 61 63 68 20 70 61 63 6b 61 67 65 20 24 63 75 72  ach package $cur
1870: 72 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09  r_packages {....
1880: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
1890: 6e 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73  n found_packages
18a0: 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29 0a 09  _arr($package)..
18b0: 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20 70 61  .}....foreach pa
18c0: 63 6b 61 67 65 20 5b 61 72 72 61 79 20 6e 61 6d  ckage [array nam
18d0: 65 73 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65  es found_package
18e0: 73 5f 61 72 72 5d 20 7b 0a 09 09 09 5f 64 62 20  s_arr] {...._db 
18f0: 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f  eval {DELETE FRO
1900: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
1910: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73   hostname = $hos
1920: 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31 20 3d  tname AND sha1 =
1930: 20 24 70 61 63 6b 61 67 65 3b 7d 0a 09 09 7d 0a   $package;}...}.
1940: 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b 49 4e 53  ..._db eval {INS
1950: 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45 20 49  ERT OR REPLACE I
1960: 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73 74 6e  NTO sites (hostn
1970: 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74 65 2c  ame, lastUpdate,
1980: 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28 24 68   ttl) VALUES ($h
1990: 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20 24  ostname, $now, $
19a0: 3a 3a 61 70 70 66 73 3a 3a 74 74 6c 29 3b 7d 0a  ::appfs::ttl);}.
19b0: 0a 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45  ...return COMPLE
19c0: 54 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74  TE..}...proc get
19d0: 70 6b 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f 73  pkgmanifest {hos
19e0: 74 6e 61 6d 65 20 70 61 63 6b 61 67 65 5f 73 68  tname package_sh
19f0: 61 31 7d 20 7b 0a 09 09 73 65 74 20 68 61 76 65  a1} {...set have
1a00: 4d 61 6e 69 66 65 73 74 73 20 5b 5f 64 62 20 65  Manifests [_db e
1a10: 76 61 6c 20 7b 53 45 4c 45 43 54 20 68 61 76 65  val {SELECT have
1a20: 4d 61 6e 69 66 65 73 74 20 46 52 4f 4d 20 70 61  Manifest FROM pa
1a30: 63 6b 61 67 65 73 20 57 48 45 52 45 20 73 68 61  ckages WHERE sha
1a40: 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73 68 61  1 = $package_sha
1a50: 31 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 73  1 LIMIT 1;}]...s
1a60: 65 74 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20  et haveManifest 
1a70: 5b 6c 69 6e 64 65 78 20 24 68 61 76 65 4d 61 6e  [lindex $haveMan
1a80: 69 66 65 73 74 73 20 30 5d 0a 0a 09 09 69 66 20  ifests 0]....if 
1a90: 7b 24 68 61 76 65 4d 61 6e 69 66 65 73 74 7d 20  {$haveManifest} 
1aa0: 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f 4d 50  {....return COMP
1ab0: 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  LETE...}....if {
1ac0: 21 5b 5f 69 73 48 61 73 68 20 24 70 61 63 6b 61  ![_isHash $packa
1ad0: 67 65 5f 73 68 61 31 5d 7d 20 7b 0a 09 09 09 72  ge_sha1]} {....r
1ae0: 65 74 75 72 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a  eturn FAIL...}..
1af0: 09 09 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e  ..set file [down
1b00: 6c 6f 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24  load $hostname $
1b10: 70 61 63 6b 61 67 65 5f 73 68 61 31 5d 0a 09 09  package_sha1]...
1b20: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69  set fd [open $fi
1b30: 6c 65 5d 0a 09 09 73 65 74 20 70 6b 67 64 61 74  le]...set pkgdat
1b40: 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 63  a [read $fd]...c
1b50: 6c 6f 73 65 20 24 66 64 0a 0a 09 09 5f 64 62 20  lose $fd...._db 
1b60: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 09  transaction {...
1b70: 09 66 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73  .foreach line [s
1b80: 70 6c 69 74 20 24 70 6b 67 64 61 74 61 20 22 5c  plit $pkgdata "\
1b90: 6e 22 5d 20 7b 0a 09 09 09 09 73 65 74 20 6c 69  n"] {.....set li
1ba0: 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ne [string trim 
1bb0: 24 6c 69 6e 65 5d 0a 0a 09 09 09 09 69 66 20 7b  $line]......if {
1bc0: 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09  $line == ""} {..
1bd0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
1be0: 09 7d 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b  .}......set work
1bf0: 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c   [split $line ",
1c00: 22 5d 0a 0a 09 09 09 09 75 6e 73 65 74 20 2d 6e  "]......unset -n
1c10: 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 6c 65 49 6e  ocomplain fileIn
1c20: 66 6f 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  fo.....set fileI
1c30: 6e 66 6f 28 74 79 70 65 29 20 5b 6c 69 6e 64 65  nfo(type) [linde
1c40: 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73  x $work 0].....s
1c50: 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65  et fileInfo(time
1c60: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1c70: 31 5d 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b  1]......set work
1c80: 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 32   [lrange $work 2
1c90: 20 65 6e 64 5d 0a 09 09 09 09 73 77 69 74 63 68   end].....switch
1ca0: 20 2d 2d 20 24 66 69 6c 65 49 6e 66 6f 28 74 79   -- $fileInfo(ty
1cb0: 70 65 29 20 7b 0a 09 09 09 09 09 22 66 69 6c 65  pe) {......"file
1cc0: 22 20 7b 0a 09 09 09 09 09 09 73 65 74 20 66 69  " {.......set fi
1cd0: 6c 65 49 6e 66 6f 28 73 69 7a 65 29 20 5b 6c 69  leInfo(size) [li
1ce0: 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09  ndex $work 0]...
1cf0: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
1d00: 28 70 65 72 6d 73 29 20 5b 6c 69 6e 64 65 78 20  (perms) [lindex 
1d10: 24 77 6f 72 6b 20 31 5d 0a 09 09 09 09 09 09 73  $work 1].......s
1d20: 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 68 61 31  et fileInfo(sha1
1d30: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1d40: 32 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 77 6f  2]........set wo
1d50: 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b  rk [lrange $work
1d60: 20 33 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a 09   3 end]......}..
1d70: 09 09 09 09 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a  ...."symlink" {.
1d80: 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  ......set fileIn
1d90: 66 6f 28 73 6f 75 72 63 65 29 20 5b 6c 69 6e 64  fo(source) [lind
1da0: 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09  ex $work 0].....
1db0: 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e  ..set work [lran
1dc0: 67 65 20 24 77 6f 72 6b 20 31 20 65 6e 64 5d 0a  ge $work 1 end].
1dd0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09  .....}.....}....
1de0: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e  ..set fileInfo(n
1df0: 61 6d 65 29 20 5b 6a 6f 69 6e 20 24 77 6f 72 6b  ame) [join $work
1e00: 20 22 2c 22 5d 0a 09 09 09 09 73 65 74 20 66 69   ","].....set fi
1e10: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 73 70  leInfo(name) [sp
1e20: 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  lit [string trim
1e30: 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29   $fileInfo(name)
1e40: 20 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 09 09 73   "/"] "/"].....s
1e50: 65 74 20 66 69 6c 65 49 6e 66 6f 28 64 69 72 65  et fileInfo(dire
1e60: 63 74 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b 6c 72  ctory) [join [lr
1e70: 61 6e 67 65 20 24 66 69 6c 65 49 6e 66 6f 28 6e  ange $fileInfo(n
1e80: 61 6d 65 29 20 30 20 65 6e 64 2d 31 5d 20 22 2f  ame) 0 end-1] "/
1e90: 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  "].....set fileI
1ea0: 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c 69 6e 64 65  nfo(name) [linde
1eb0: 78 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65  x $fileInfo(name
1ec0: 29 20 65 6e 64 5d 0a 0a 09 09 09 09 5f 64 62 20  ) end]......_db 
1ed0: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54  eval {INSERT INT
1ee0: 4f 20 66 69 6c 65 73 20 28 70 61 63 6b 61 67 65  O files (package
1ef0: 5f 73 68 61 31 2c 20 74 79 70 65 2c 20 74 69 6d  _sha1, type, tim
1f00: 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c  e, source, size,
1f10: 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61   perms, file_sha
1f20: 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69  1, file_name, fi
1f30: 6c 65 5f 64 69 72 65 63 74 6f 72 79 29 20 56 41  le_directory) VA
1f40: 4c 55 45 53 20 28 24 70 61 63 6b 61 67 65 5f 73  LUES ($package_s
1f50: 68 61 31 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74  ha1, $fileInfo(t
1f60: 79 70 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28  ype), $fileInfo(
1f70: 74 69 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f  time), $fileInfo
1f80: 28 73 6f 75 72 63 65 29 2c 20 24 66 69 6c 65 49  (source), $fileI
1f90: 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66 69 6c 65  nfo(size), $file
1fa0: 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20 24 66 69  Info(perms), $fi
1fb0: 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c 20 24 66  leInfo(sha1), $f
1fc0: 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20 24  ileInfo(name), $
1fd0: 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74 6f  fileInfo(directo
1fe0: 72 79 29 20 29 3b 7d 0a 09 09 09 09 5f 64 62 20  ry) );}....._db 
1ff0: 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63  eval {UPDATE pac
2000: 6b 61 67 65 73 20 53 45 54 20 68 61 76 65 4d 61  kages SET haveMa
2010: 6e 69 66 65 73 74 20 3d 20 31 20 57 48 45 52 45  nifest = 1 WHERE
2020: 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65   sha1 = $package
2030: 5f 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 7d  _sha1;}....}...}
2040: 0a 0a 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c  ....return COMPL
2050: 45 54 45 0a 09 7d 0a 7d 0a                       ETE..}.}.