Hex Artifact Content

Artifact 3ec5e46dc56245895cb002d837e4e6fff3a253be:


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 70 61 63 6b 61 67 65 20  sqlite3.package 
0050: 72 65 71 75 69 72 65 20 73 68 61 31 0a 70 61 63  require sha1.pac
0060: 6b 61 67 65 20 72 65 71 75 69 72 65 20 61 70 70  kage require app
0070: 66 73 64 0a 70 61 63 6b 61 67 65 20 72 65 71 75  fsd.package requ
0080: 69 72 65 20 70 6c 61 74 66 6f 72 6d 0a 0a 6e 61  ire platform..na
0090: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 61  mespace eval ::a
00a0: 70 70 66 73 20 7b 0a 09 76 61 72 69 61 62 6c 65  ppfs {..variable
00b0: 20 63 61 63 68 65 64 69 72 20 22 2f 74 6d 70 2f   cachedir "/tmp/
00c0: 61 70 70 66 73 2d 63 61 63 68 65 22 0a 09 76 61  appfs-cache"..va
00d0: 72 69 61 62 6c 65 20 74 74 6c 20 33 36 30 30 0a  riable ttl 3600.
00e0: 09 76 61 72 69 61 62 6c 65 20 6e 74 74 6c 20 36  .variable nttl 6
00f0: 30 0a 0a 09 23 20 55 73 65 72 2d 72 65 70 6c 61  0...# User-repla
0100: 63 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 74  cable function t
0110: 6f 20 63 6f 6e 76 65 72 74 20 61 20 68 6f 73 74  o convert a host
0120: 6e 61 6d 65 2f 68 61 73 68 2f 6d 65 74 68 6f 64  name/hash/method
0130: 20 74 6f 20 61 6e 20 55 52 4c 0a 09 70 72 6f 63   to an URL..proc
0140: 20 5f 63 6f 6e 73 74 72 75 63 74 5f 75 72 6c 20   _construct_url 
0150: 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 6d  {hostname hash m
0160: 65 74 68 6f 64 7d 20 7b 0a 09 09 72 65 74 75 72  ethod} {...retur
0170: 6e 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e  n "http://$hostn
0180: 61 6d 65 2f 61 70 70 66 73 2f 24 6d 65 74 68 6f  ame/appfs/$metho
0190: 64 2f 24 68 61 73 68 22 0a 09 7d 0a 0a 09 70 72  d/$hash"..}...pr
01a0: 6f 63 20 5f 68 61 73 68 5f 73 65 70 20 7b 68 61  oc _hash_sep {ha
01b0: 73 68 20 7b 73 65 70 73 20 34 7d 7d 20 7b 0a 09  sh {seps 4}} {..
01c0: 09 66 6f 72 20 7b 73 65 74 20 69 64 78 20 30 7d  .for {set idx 0}
01d0: 20 7b 24 69 64 78 20 3c 20 24 73 65 70 73 7d 20   {$idx < $seps} 
01e0: 7b 69 6e 63 72 20 69 64 78 7d 20 7b 0a 09 09 09  {incr idx} {....
01f0: 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b  append retval "[
0200: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61  string range $ha
0210: 73 68 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a  sh [expr {$idx *
0220: 20 32 7d 5d 20 5b 65 78 70 72 20 7b 28 24 69 64   2}] [expr {($id
0230: 78 20 2a 20 32 29 20 2b 20 31 7d 5d 5d 2f 22 0a  x * 2) + 1}]]/".
0240: 09 09 7d 0a 09 09 61 70 70 65 6e 64 20 72 65 74  ..}...append ret
0250: 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72 61 6e  val "[string ran
0260: 67 65 20 24 68 61 73 68 20 5b 65 78 70 72 20 7b  ge $hash [expr {
0270: 24 69 64 78 20 2a 20 32 7d 5d 20 65 6e 64 5d 22  $idx * 2}] end]"
0280: 0a 0a 09 09 72 65 74 75 72 6e 20 24 72 65 74 76  ....return $retv
0290: 61 6c 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 63 61  al..}...proc _ca
02a0: 63 68 65 66 69 6c 65 20 7b 75 72 6c 20 6b 65 79  chefile {url key
02b0: 20 7b 6b 65 79 49 73 48 61 73 68 20 31 7d 7d 20   {keyIsHash 1}} 
02c0: 7b 0a 09 09 73 65 74 20 66 69 6c 65 6b 65 79 20  {...set filekey 
02d0: 24 6b 65 79 0a 09 09 69 66 20 7b 24 6b 65 79 49  $key...if {$keyI
02e0: 73 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74 20  sHash} {....set 
02f0: 66 69 6c 65 6b 65 79 20 5b 5f 68 61 73 68 5f 73  filekey [_hash_s
0300: 65 70 20 24 66 69 6c 65 6b 65 79 5d 0a 09 09 7d  ep $filekey]...}
0310: 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 66 69  ....set file [fi
0320: 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70 70 66 73  le join $::appfs
0330: 3a 3a 63 61 63 68 65 64 69 72 20 24 66 69 6c 65  ::cachedir $file
0340: 6b 65 79 5d 0a 0a 09 09 66 69 6c 65 20 6d 6b 64  key]....file mkd
0350: 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  ir [file dirname
0360: 20 24 66 69 6c 65 5d 0a 0a 09 09 69 66 20 7b 5b   $file]....if {[
0370: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c  file exists $fil
0380: 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  e]} {....return 
0390: 24 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 73 65 74  $file...}....set
03a0: 20 74 6d 70 66 69 6c 65 20 22 24 7b 66 69 6c 65   tmpfile "${file
03b0: 7d 2e 5b 65 78 70 72 20 7b 72 61 6e 64 28 29 7d  }.[expr {rand()}
03c0: 5d 5b 63 6c 6f 63 6b 20 63 6c 69 63 6b 73 5d 22  ][clock clicks]"
03d0: 0a 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e  ....set fd [open
03e0: 20 24 74 6d 70 66 69 6c 65 20 22 77 22 5d 0a 09   $tmpfile "w"]..
03f0: 09 66 63 6f 6e 66 69 67 75 72 65 20 24 66 64 20  .fconfigure $fd 
0400: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e  -translation bin
0410: 61 72 79 0a 0a 09 09 63 61 74 63 68 20 7b 0a 09  ary....catch {..
0420: 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b 3a 3a 68  ..set token [::h
0430: 74 74 70 3a 3a 67 65 74 75 72 6c 20 24 75 72 6c  ttp::geturl $url
0440: 20 2d 63 68 61 6e 6e 65 6c 20 24 66 64 20 2d 62   -channel $fd -b
0450: 69 6e 61 72 79 20 74 72 75 65 5d 0a 09 09 7d 0a  inary true]...}.
0460: 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  ...if {[info exi
0470: 73 74 73 20 74 6f 6b 65 6e 5d 7d 20 7b 0a 09 09  sts token]} {...
0480: 09 73 65 74 20 6e 63 6f 64 65 20 5b 3a 3a 68 74  .set ncode [::ht
0490: 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f 6b 65 6e  tp::ncode $token
04a0: 5d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 72 65 73  ]....::http::res
04b0: 65 74 20 24 74 6f 6b 65 6e 0a 09 09 7d 20 65 6c  et $token...} el
04c0: 73 65 20 7b 0a 09 09 09 73 65 74 20 6e 63 6f 64  se {....set ncod
04d0: 65 20 22 39 30 30 22 0a 09 09 7d 0a 0a 09 09 63  e "900"...}....c
04e0: 6c 6f 73 65 20 24 66 64 0a 0a 09 09 69 66 20 7b  lose $fd....if {
04f0: 24 6b 65 79 49 73 48 61 73 68 7d 20 7b 0a 09 09  $keyIsHash} {...
0500: 09 73 65 74 20 68 61 73 68 20 5b 73 74 72 69 6e  .set hash [strin
0510: 67 20 74 6f 6c 6f 77 65 72 20 5b 73 68 61 31 3a  g tolower [sha1:
0520: 3a 73 68 61 31 20 2d 68 65 78 20 2d 66 69 6c 65  :sha1 -hex -file
0530: 20 24 74 6d 70 66 69 6c 65 5d 5d 0a 09 09 7d 20   $tmpfile]]...} 
0540: 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 68 61  else {....set ha
0550: 73 68 20 24 6b 65 79 0a 09 09 7d 0a 0a 09 09 69  sh $key...}....i
0560: 66 20 7b 24 6e 63 6f 64 65 20 3d 3d 20 22 32 30  f {$ncode == "20
0570: 30 22 20 26 26 20 24 68 61 73 68 20 3d 3d 20 24  0" && $hash == $
0580: 6b 65 79 7d 20 7b 0a 09 09 09 66 69 6c 65 20 72  key} {....file r
0590: 65 6e 61 6d 65 20 2d 66 6f 72 63 65 20 2d 2d 20  ename -force -- 
05a0: 24 74 6d 70 66 69 6c 65 20 24 66 69 6c 65 0a 09  $tmpfile $file..
05b0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 66 69 6c  .} else {....fil
05c0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
05d0: 2d 2d 20 24 74 6d 70 66 69 6c 65 0a 09 09 7d 0a  -- $tmpfile...}.
05e0: 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a  ...return $file.
05f0: 09 7d 0a 0a 0a 09 70 72 6f 63 20 5f 69 73 48 61  .}....proc _isHa
0600: 73 68 20 7b 76 61 6c 75 65 7d 20 7b 0a 09 09 73  sh {value} {...s
0610: 65 74 20 76 61 6c 75 65 20 5b 73 74 72 69 6e 67  et value [string
0620: 20 74 6f 6c 6f 77 65 72 20 24 76 61 6c 75 65 5d   tolower $value]
0630: 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20  ....if {[string 
0640: 6c 65 6e 67 74 68 20 24 76 61 6c 75 65 5d 20 21  length $value] !
0650: 3d 20 34 30 7d 20 7b 0a 09 09 09 72 65 74 75 72  = 40} {....retur
0660: 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 69  n false...}....i
0670: 66 20 7b 21 5b 72 65 67 65 78 70 20 7b 5e 5b 30  f {![regexp {^[0
0680: 2d 39 61 2d 66 5d 2a 24 7d 20 24 76 61 6c 75 65  -9a-f]*$} $value
0690: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 66  ]} {....return f
06a0: 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75  alse...}....retu
06b0: 72 6e 20 74 72 75 65 0a 09 7d 0a 0a 09 70 72 6f  rn true..}...pro
06c0: 63 20 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 7b  c _normalizeOS {
06d0: 6f 73 7d 20 7b 0a 09 09 73 65 74 20 6f 73 20 5b  os} {...set os [
06e0: 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b  string tolower [
06f0: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6f 73 5d  string trim $os]
0700: 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24  ]....switch -- $
0710: 6f 73 20 7b 0a 09 09 09 22 6c 69 6e 75 78 22 20  os {...."linux" 
0720: 2d 20 22 66 72 65 65 62 73 64 22 20 2d 20 22 6f  - "freebsd" - "o
0730: 70 65 6e 62 73 64 22 20 2d 20 22 6e 65 74 62 73  penbsd" - "netbs
0740: 64 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  d" {.....return 
0750: 24 6f 73 0a 09 09 09 7d 0a 09 09 09 22 73 75 6e  $os....}...."sun
0760: 6f 73 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  os" {.....return
0770: 20 22 73 6f 6c 61 72 69 73 22 0a 09 09 09 7d 0a   "solaris"....}.
0780: 09 09 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e  ..."noarch" - "n
0790: 6f 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22  one" - "any" - "
07a0: 61 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72  all" {.....retur
07b0: 6e 20 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a  n "noarch"....}.
07c0: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63  ..}....return -c
07d0: 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c  ode error "Unabl
07e0: 65 20 74 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20 4f  e to normalize O
07f0: 53 3a 20 24 6f 73 22 0a 09 7d 0a 0a 09 70 72 6f  S: $os"..}...pro
0800: 63 20 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20  c _normalizeCPU 
0810: 7b 63 70 75 7d 20 7b 0a 09 09 73 65 74 20 63 70  {cpu} {...set cp
0820: 75 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  u [string tolowe
0830: 72 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  r [string trim $
0840: 63 70 75 5d 5d 0a 0a 09 09 73 77 69 74 63 68 20  cpu]]....switch 
0850: 2d 67 6c 6f 62 20 2d 2d 20 24 63 70 75 20 7b 0a  -glob -- $cpu {.
0860: 09 09 09 22 69 3f 38 36 22 20 7b 0a 09 09 09 09  ..."i?86" {.....
0870: 72 65 74 75 72 6e 20 22 69 78 38 36 22 0a 09 09  return "ix86"...
0880: 09 7d 0a 09 09 09 22 78 38 36 5f 36 34 22 20 7b  .}...."x86_64" {
0890: 0a 09 09 09 09 72 65 74 75 72 6e 20 24 63 70 75  .....return $cpu
08a0: 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63 68  ....}...."noarch
08b0: 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61 6e  " - "none" - "an
08c0: 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09 09  y" - "all" {....
08d0: 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68 22  .return "noarch"
08e0: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74  ....}...}....ret
08f0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
0900: 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d 61  "Unable to norma
0910: 6c 69 7a 65 20 43 50 55 3a 20 24 63 70 75 22 0a  lize CPU: $cpu".
0920: 09 7d 0a 0a 09 70 72 6f 63 20 69 6e 69 74 20 7b  .}...proc init {
0930: 7d 20 7b 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20  } {...if {[info 
0940: 65 78 69 73 74 73 20 3a 3a 61 70 70 66 73 3a 3a  exists ::appfs::
0950: 69 6e 69 74 5f 63 61 6c 6c 65 64 5d 7d 20 7b 0a  init_called]} {.
0960: 09 09 09 72 65 74 75 72 6e 0a 09 09 7d 0a 0a 09  ...return...}...
0970: 09 23 20 46 6f 72 63 65 20 5b 70 61 72 72 61 79  .# Force [parray
0980: 5d 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 0a 09  ] to be loaded..
0990: 09 63 61 74 63 68 20 7b 0a 09 09 09 70 61 72 72  .catch {....parr
09a0: 61 79 20 64 6f 65 73 5f 6e 6f 74 5f 65 78 69 73  ay does_not_exis
09b0: 74 0a 09 09 7d 0a 0a 09 09 73 65 74 20 3a 3a 61  t...}....set ::a
09c0: 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c 65  ppfs::init_calle
09d0: 64 20 31 0a 0a 09 09 23 20 4c 6f 61 64 20 63 6f  d 1....# Load co
09e0: 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 69 6c 65  nfiguration file
09f0: 0a 09 09 73 65 74 20 63 6f 6e 66 69 67 5f 66 69  ...set config_fi
0a00: 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a  le [file join $:
0a10: 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72  :appfs::cachedir
0a20: 20 63 6f 6e 66 69 67 5d 0a 09 09 69 66 20 7b 5b   config]...if {[
0a30: 66 69 6c 65 20 65 78 69 73 74 73 20 24 63 6f 6e  file exists $con
0a40: 66 69 67 5f 66 69 6c 65 5d 7d 20 7b 0a 09 09 09  fig_file]} {....
0a50: 73 6f 75 72 63 65 20 24 63 6f 6e 66 69 67 5f 66  source $config_f
0a60: 69 6c 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  ile...}....if {!
0a70: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61  [info exists ::a
0a80: 70 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09 09 09  ppfs::db]} {....
0a90: 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a 61 70  file mkdir $::ap
0aa0: 70 66 73 3a 3a 63 61 63 68 65 64 69 72 0a 0a 09  pfs::cachedir...
0ab0: 09 09 73 71 6c 69 74 65 33 20 3a 3a 61 70 70 66  ..sqlite3 ::appf
0ac0: 73 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f 69 6e  s::db [file join
0ad0: 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65   $::appfs::cache
0ae0: 64 69 72 20 63 61 63 68 65 2e 64 62 5d 0a 09 09  dir cache.db]...
0af0: 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 61  }....# Create ta
0b00: 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c 20 7b  bles...db eval {
0b10: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
0b20: 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73  NOT EXISTS sites
0b30: 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41 52  (hostname PRIMAR
0b40: 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61 74  Y KEY, lastUpdat
0b50: 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62 20 65  e, ttl);}...db e
0b60: 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c  val {CREATE TABL
0b70: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  E IF NOT EXISTS 
0b80: 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61 6d  packages(hostnam
0b90: 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65  e, sha1, package
0ba0: 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63  , version, os, c
0bb0: 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74  puArch, isLatest
0bc0: 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29 3b  , haveManifest);
0bd0: 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45  }...db eval {CRE
0be0: 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54  ATE TABLE IF NOT
0bf0: 20 45 58 49 53 54 53 20 66 69 6c 65 73 28 70 61   EXISTS files(pa
0c00: 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65  ckage_sha1, type
0c10: 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20  , time, source, 
0c20: 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c  size, perms, fil
0c30: 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d  e_sha1, file_nam
0c40: 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72  e, file_director
0c50: 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61 74 65  y);}....# Create
0c60: 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20 65 76   indexes...db ev
0c70: 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 45 58  al {CREATE INDEX
0c80: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73   IF NOT EXISTS s
0c90: 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20 73 69  ites_index ON si
0ca0: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29 3b 7d  tes (hostname);}
0cb0: 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41  ...db eval {CREA
0cc0: 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20  TE INDEX IF NOT 
0cd0: 45 58 49 53 54 53 20 70 61 63 6b 61 67 65 73 5f  EXISTS packages_
0ce0: 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61 67 65  index ON package
0cf0: 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 70 61 63  s (hostname, pac
0d00: 6b 61 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f  kage, version, o
0d10: 73 2c 20 63 70 75 41 72 63 68 29 3b 7d 0a 09 09  s, cpuArch);}...
0d20: 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20  db eval {CREATE 
0d30: 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45 58 49  INDEX IF NOT EXI
0d40: 53 54 53 20 66 69 6c 65 73 5f 69 6e 64 65 78 20  STS files_index 
0d50: 4f 4e 20 66 69 6c 65 73 20 28 70 61 63 6b 61 67  ON files (packag
0d60: 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d  e_sha1, file_nam
0d70: 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72  e, file_director
0d80: 79 29 3b 7d 0a 09 7d 0a 0a 09 70 72 6f 63 20 64  y);}..}...proc d
0d90: 6f 77 6e 6c 6f 61 64 20 7b 68 6f 73 74 6e 61 6d  ownload {hostnam
0da0: 65 20 68 61 73 68 20 7b 6d 65 74 68 6f 64 20 73  e hash {method s
0db0: 68 61 31 7d 7d 20 7b 0a 09 09 73 65 74 20 75 72  ha1}} {...set ur
0dc0: 6c 20 5b 5f 63 6f 6e 73 74 72 75 63 74 5f 75 72  l [_construct_ur
0dd0: 6c 20 24 68 6f 73 74 6e 61 6d 65 20 24 68 61 73  l $hostname $has
0de0: 68 20 24 6d 65 74 68 6f 64 5d 0a 09 09 73 65 74  h $method]...set
0df0: 20 66 69 6c 65 20 5b 5f 63 61 63 68 65 66 69 6c   file [_cachefil
0e00: 65 20 24 75 72 6c 20 24 68 61 73 68 5d 0a 0a 09  e $url $hash]...
0e10: 09 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73  .if {![file exis
0e20: 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09 09 09  ts $file]} {....
0e30: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
0e40: 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65  or "Unable to fe
0e50: 74 63 68 20 28 66 69 6c 65 20 64 6f 65 73 20 6e  tch (file does n
0e60: 6f 74 20 65 78 69 73 74 3a 20 24 66 69 6c 65 29  ot exist: $file)
0e70: 22 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  "...}....return 
0e80: 24 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  $file..}...proc 
0e90: 67 65 74 69 6e 64 65 78 20 7b 68 6f 73 74 6e 61  getindex {hostna
0ea0: 6d 65 7d 20 7b 0a 09 09 73 65 74 20 6e 6f 77 20  me} {...set now 
0eb0: 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 0a  [clock seconds].
0ec0: 0a 09 09 73 65 74 20 6c 61 73 74 55 70 64 61 74  ...set lastUpdat
0ed0: 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c  es [db eval {SEL
0ee0: 45 43 54 20 6c 61 73 74 55 70 64 61 74 65 2c 20  ECT lastUpdate, 
0ef0: 74 74 6c 20 46 52 4f 4d 20 73 69 74 65 73 20 57  ttl FROM sites W
0f00: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
0f10: 24 68 6f 73 74 6e 61 6d 65 20 4c 49 4d 49 54 20  $hostname LIMIT 
0f20: 31 3b 7d 5d 0a 09 09 69 66 20 7b 5b 6c 6c 65 6e  1;}]...if {[llen
0f30: 67 74 68 20 24 6c 61 73 74 55 70 64 61 74 65 73  gth $lastUpdates
0f40: 5d 20 3d 3d 20 30 7d 20 7b 0a 09 09 09 73 65 74  ] == 0} {....set
0f50: 20 6c 61 73 74 55 70 64 61 74 65 20 30 0a 09 09   lastUpdate 0...
0f60: 09 73 65 74 20 74 74 6c 20 30 0a 09 09 7d 20 65  .set ttl 0...} e
0f70: 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 6c 61 73  lse {....set las
0f80: 74 55 70 64 61 74 65 20 5b 6c 69 6e 64 65 78 20  tUpdate [lindex 
0f90: 24 6c 61 73 74 55 70 64 61 74 65 73 20 30 5d 0a  $lastUpdates 0].
0fa0: 09 09 09 73 65 74 20 74 74 6c 20 5b 6c 69 6e 64  ...set ttl [lind
0fb0: 65 78 20 24 6c 61 73 74 55 70 64 61 74 65 73 20  ex $lastUpdates 
0fc0: 31 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e  1]...}....if {$n
0fd0: 6f 77 20 3c 20 28 24 6c 61 73 74 55 70 64 61 74  ow < ($lastUpdat
0fe0: 65 20 2b 20 24 74 74 6c 29 7d 20 7b 0a 09 09 09  e + $ttl)} {....
0ff0: 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a  return COMPLETE.
1000: 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69  ..}....if {[stri
1010: 6e 67 20 6d 61 74 63 68 20 22 2a 5c 5b 2f 7e 5c  ng match "*\[/~\
1020: 5d 2a 22 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20  ]*" $hostname]} 
1030: 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  {....return -cod
1040: 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64  e error "Invalid
1050: 20 68 6f 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a   hostname"...}..
1060: 09 09 73 65 74 20 75 72 6c 20 22 68 74 74 70 3a  ..set url "http:
1070: 2f 2f 24 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66  //$hostname/appf
1080: 73 2f 69 6e 64 65 78 22 0a 0a 09 09 63 61 74 63  s/index"....catc
1090: 68 20 7b 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e  h {....set token
10a0: 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c   [::http::geturl
10b0: 20 24 75 72 6c 5d 0a 09 09 09 69 66 20 7b 5b 3a   $url]....if {[:
10c0: 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f  :http::ncode $to
10d0: 6b 65 6e 5d 20 3d 3d 20 22 32 30 30 22 7d 20 7b  ken] == "200"} {
10e0: 0a 09 09 09 09 73 65 74 20 69 6e 64 65 78 68 61  .....set indexha
10f0: 73 68 5f 64 61 74 61 20 5b 3a 3a 68 74 74 70 3a  sh_data [::http:
1100: 3a 64 61 74 61 20 24 74 6f 6b 65 6e 5d 0a 09 09  :data $token]...
1110: 09 7d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 72 65  .}....::http::re
1120: 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 09 3a 3a  set $token....::
1130: 68 74 74 70 3a 3a 63 6c 65 61 6e 75 70 20 24 74  http::cleanup $t
1140: 6f 6b 65 6e 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  oken...}....if {
1150: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69 6e  ![info exists in
1160: 64 65 78 68 61 73 68 5f 64 61 74 61 5d 7d 20 7b  dexhash_data]} {
1170: 0a 09 09 09 23 20 43 61 63 68 65 20 74 68 69 73  ....# Cache this
1180: 20 72 65 73 75 6c 74 20 66 6f 72 20 36 30 20 73   result for 60 s
1190: 65 63 6f 6e 64 73 0a 09 09 09 64 62 20 65 76 61  econds....db eva
11a0: 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20 52 45 50  l {INSERT OR REP
11b0: 4c 41 43 45 20 49 4e 54 4f 20 73 69 74 65 73 20  LACE INTO sites 
11c0: 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61 73 74 55  (hostname, lastU
11d0: 70 64 61 74 65 2c 20 74 74 6c 29 20 56 41 4c 55  pdate, ttl) VALU
11e0: 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24  ES ($hostname, $
11f0: 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73 3a 3a 6e  now, $::appfs::n
1200: 74 74 6c 29 3b 7d 0a 0a 09 09 09 72 65 74 75 72  ttl);}.....retur
1210: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55  n -code error "U
1220: 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68 20 24  nable to fetch $
1230: 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  url"...}....set 
1240: 69 6e 64 65 78 68 61 73 68 20 5b 6c 69 6e 64 65  indexhash [linde
1250: 78 20 5b 73 70 6c 69 74 20 24 69 6e 64 65 78 68  x [split $indexh
1260: 61 73 68 5f 64 61 74 61 20 22 2c 22 5d 20 30 5d  ash_data ","] 0]
1270: 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73 48 61 73  ....if {![_isHas
1280: 68 20 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b  h $indexhash]} {
1290: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
12a0: 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20   error "Invalid 
12b0: 68 61 73 68 3a 20 24 69 6e 64 65 78 68 61 73 68  hash: $indexhash
12c0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c  "...}....set fil
12d0: 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68 6f 73  e [download $hos
12e0: 74 6e 61 6d 65 20 24 69 6e 64 65 78 68 61 73 68  tname $indexhash
12f0: 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e  ]...set fd [open
1300: 20 24 66 69 6c 65 5d 0a 09 09 73 65 74 20 64 61   $file]...set da
1310: 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09  ta [read $fd]...
1320: 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 73 65 74  close $fd....set
1330: 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 5b   curr_packages [
1340: 6c 69 73 74 5d 0a 09 09 66 6f 72 65 61 63 68 20  list]...foreach 
1350: 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 64 61 74  line [split $dat
1360: 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 73 65 74  a "\n"] {....set
1370: 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 72   line [string tr
1380: 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 69 66  im $line].....if
1390: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
13a0: 22 2a 2f 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b 0a  "*/*" $line]} {.
13b0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
13c0: 7d 0a 0a 09 09 09 69 66 20 7b 24 6c 69 6e 65 20  }.....if {$line 
13d0: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 63 6f 6e  == ""} {.....con
13e0: 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 73  tinue....}.....s
13f0: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24  et work [split $
1400: 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 75 6e  line ","].....un
1410: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
1420: 70 6b 67 49 6e 66 6f 0a 09 09 09 69 66 20 7b 5b  pkgInfo....if {[
1430: 63 61 74 63 68 20 7b 0a 09 09 09 09 73 65 74 20  catch {.....set 
1440: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
1450: 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20    [lindex $work 
1460: 30 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e  0].....set pkgIn
1470: 66 6f 28 76 65 72 73 69 6f 6e 29 20 20 5b 6c 69  fo(version)  [li
1480: 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a 09 09  ndex $work 1]...
1490: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 6f 73  ..set pkgInfo(os
14a0: 29 20 20 20 20 20 20 20 5b 5f 6e 6f 72 6d 61 6c  )       [_normal
14b0: 69 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24 77  izeOS [lindex $w
14c0: 6f 72 6b 20 32 5d 5d 0a 09 09 09 09 73 65 74 20  ork 2]].....set 
14d0: 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68 29  pkgInfo(cpuArch)
14e0: 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55    [_normalizeCPU
14f0: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 33   [lindex $work 3
1500: 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e  ]].....set pkgIn
1510: 66 6f 28 68 61 73 68 29 20 20 20 20 20 5b 73 74  fo(hash)     [st
1520: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 6c 69  ring tolower [li
1530: 6e 64 65 78 20 24 77 6f 72 6b 20 34 5d 5d 0a 09  ndex $work 4]]..
1540: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 68  ...set pkgInfo(h
1550: 61 73 68 5f 74 79 70 65 29 20 22 73 68 61 31 22  ash_type) "sha1"
1560: 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f  .....set pkgInfo
1570: 28 69 73 4c 61 74 65 73 74 29 20 5b 65 78 70 72  (isLatest) [expr
1580: 20 7b 21 21 5b 6c 69 6e 64 65 78 20 24 77 6f 72   {!![lindex $wor
1590: 6b 20 35 5d 7d 5d 0a 09 09 09 7d 5d 7d 20 7b 0a  k 5]}]....}]} {.
15a0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
15b0: 7d 0a 0a 09 09 09 69 66 20 7b 21 5b 5f 69 73 48  }.....if {![_isH
15c0: 61 73 68 20 24 70 6b 67 49 6e 66 6f 28 68 61 73  ash $pkgInfo(has
15d0: 68 29 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  h)]} {.....conti
15e0: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 6c 61 70  nue....}.....lap
15f0: 70 65 6e 64 20 63 75 72 72 5f 70 61 63 6b 61 67  pend curr_packag
1600: 65 73 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68  es $pkgInfo(hash
1610: 29 0a 0a 09 09 09 23 20 44 6f 20 6e 6f 74 20 64  ).....# Do not d
1620: 6f 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c  o any additional
1630: 20 77 6f 72 6b 20 69 66 20 77 65 20 61 6c 72 65   work if we alre
1640: 61 64 79 20 68 61 76 65 20 74 68 69 73 20 70 61  ady have this pa
1650: 63 6b 61 67 65 0a 09 09 09 73 65 74 20 65 78 69  ckage....set exi
1660: 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 5b  sting_packages [
1670: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
1680: 70 61 63 6b 61 67 65 20 46 52 4f 4d 20 70 61 63  package FROM pac
1690: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
16a0: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
16b0: 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70 6b 67   AND sha1 = $pkg
16c0: 49 6e 66 6f 28 68 61 73 68 29 3b 7d 5d 0a 09 09  Info(hash);}]...
16d0: 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65  .if {[lsearch -e
16e0: 78 61 63 74 20 24 65 78 69 73 74 69 6e 67 5f 70  xact $existing_p
16f0: 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e 66 6f  ackages $pkgInfo
1700: 28 70 61 63 6b 61 67 65 29 5d 20 21 3d 20 2d 31  (package)] != -1
1710: 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65  } {.....continue
1720: 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 70  ....}.....if {$p
1730: 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29  kgInfo(isLatest)
1740: 7d 20 7b 0a 09 09 09 09 64 62 20 65 76 61 6c 20  } {.....db eval 
1750: 7b 55 50 44 41 54 45 20 70 61 63 6b 61 67 65 73  {UPDATE packages
1760: 20 53 45 54 20 69 73 4c 61 74 65 73 74 20 3d 20   SET isLatest = 
1770: 30 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  0 WHERE hostname
1780: 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41 4e 44   = $hostname AND
1790: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 6b 67 49   package = $pkgI
17a0: 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20 41 4e  nfo($package) AN
17b0: 44 20 6f 73 20 3d 20 24 70 6b 67 49 6e 66 6f 28  D os = $pkgInfo(
17c0: 24 70 61 63 6b 61 67 65 29 20 41 4e 44 20 63 70  $package) AND cp
17d0: 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e 66 6f  uArch = $pkgInfo
17e0: 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 09 7d  (cpuArch);}....}
17f0: 0a 0a 09 09 09 64 62 20 65 76 61 6c 20 7b 49 4e  .....db eval {IN
1800: 53 45 52 54 20 49 4e 54 4f 20 70 61 63 6b 61 67  SERT INTO packag
1810: 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68  es (hostname, sh
1820: 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72  a1, package, ver
1830: 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63  sion, os, cpuArc
1840: 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61 76  h, isLatest, hav
1850: 65 4d 61 6e 69 66 65 73 74 29 20 56 41 4c 55 45  eManifest) VALUE
1860: 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 70  S ($hostname, $p
1870: 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c 20 24 70  kgInfo(hash), $p
1880: 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 2c  kgInfo(package),
1890: 20 24 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f   $pkgInfo(versio
18a0: 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f 73 29  n), $pkgInfo(os)
18b0: 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70 75 41 72  , $pkgInfo(cpuAr
18c0: 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 69 73  ch), $pkgInfo(is
18d0: 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a 09 09  Latest), 0);}...
18e0: 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f 72 20  }....# Look for 
18f0: 70 61 63 6b 61 67 65 73 20 74 68 61 74 20 68 61  packages that ha
1900: 76 65 20 62 65 65 6e 20 64 65 6c 65 74 65 64 0a  ve been deleted.
1910: 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b  ..set found_pack
1920: 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53  ages [db eval {S
1930: 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20  ELECT sha1 FROM 
1940: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
1950: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
1960: 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61 63 68  ame;}]...foreach
1970: 20 70 61 63 6b 61 67 65 20 24 66 6f 75 6e 64 5f   package $found_
1980: 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 73 65  packages {....se
1990: 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73  t found_packages
19a0: 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29 20 31  _arr($package) 1
19b0: 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20  ...}....foreach 
19c0: 70 61 63 6b 61 67 65 20 24 63 75 72 72 5f 70 61  package $curr_pa
19d0: 63 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e 73 65  ckages {....unse
19e0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 6f  t -nocomplain fo
19f0: 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72  und_packages_arr
1a00: 28 24 70 61 63 6b 61 67 65 29 0a 09 09 7d 0a 0a  ($package)...}..
1a10: 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67  ..foreach packag
1a20: 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66  e [array names f
1a30: 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72  ound_packages_ar
1a40: 72 5d 20 7b 0a 09 09 09 64 62 20 65 76 61 6c 20  r] {....db eval 
1a50: 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 70 61 63  {DELETE FROM pac
1a60: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
1a70: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
1a80: 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70 61 63   AND sha1 = $pac
1a90: 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09 64 62  kage;}...}....db
1aa0: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52   eval {INSERT OR
1ab0: 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69   REPLACE INTO si
1ac0: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c  tes (hostname, l
1ad0: 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20  astUpdate, ttl) 
1ae0: 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d  VALUES ($hostnam
1af0: 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66  e, $now, $::appf
1b00: 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09 09 72 65 74  s::ttl);}....ret
1b10: 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a  urn COMPLETE..}.
1b20: 0a 09 70 72 6f 63 20 67 65 74 70 6b 67 6d 61 6e  ..proc getpkgman
1b30: 69 66 65 73 74 20 7b 68 6f 73 74 6e 61 6d 65 20  ifest {hostname 
1b40: 70 61 63 6b 61 67 65 5f 73 68 61 31 7d 20 7b 0a  package_sha1} {.
1b50: 09 09 73 65 74 20 68 61 76 65 4d 61 6e 69 66 65  ..set haveManife
1b60: 73 74 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45  sts [db eval {SE
1b70: 4c 45 43 54 20 68 61 76 65 4d 61 6e 69 66 65 73  LECT haveManifes
1b80: 74 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  t FROM packages 
1b90: 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 70 61  WHERE sha1 = $pa
1ba0: 63 6b 61 67 65 5f 73 68 61 31 20 4c 49 4d 49 54  ckage_sha1 LIMIT
1bb0: 20 31 3b 7d 5d 0a 09 09 73 65 74 20 68 61 76 65   1;}]...set have
1bc0: 4d 61 6e 69 66 65 73 74 20 5b 6c 69 6e 64 65 78  Manifest [lindex
1bd0: 20 24 68 61 76 65 4d 61 6e 69 66 65 73 74 73 20   $haveManifests 
1be0: 30 5d 0a 0a 09 09 69 66 20 7b 24 68 61 76 65 4d  0]....if {$haveM
1bf0: 61 6e 69 66 65 73 74 7d 20 7b 0a 09 09 09 72 65  anifest} {....re
1c00: 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 09  turn COMPLETE...
1c10: 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73 48 61  }....if {![_isHa
1c20: 73 68 20 24 70 61 63 6b 61 67 65 5f 73 68 61 31  sh $package_sha1
1c30: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 46  ]} {....return F
1c40: 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66  AIL...}....set f
1c50: 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68  ile [download $h
1c60: 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b 61 67 65  ostname $package
1c70: 5f 73 68 61 31 5d 0a 09 09 73 65 74 20 66 64 20  _sha1]...set fd 
1c80: 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 73  [open $file]...s
1c90: 65 74 20 70 6b 67 64 61 74 61 20 5b 72 65 61 64  et pkgdata [read
1ca0: 20 24 66 64 5d 0a 09 09 63 6c 6f 73 65 20 24 66   $fd]...close $f
1cb0: 64 0a 0a 09 09 64 62 20 74 72 61 6e 73 61 63 74  d....db transact
1cc0: 69 6f 6e 20 7b 0a 09 09 09 66 6f 72 65 61 63 68  ion {....foreach
1cd0: 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 70 6b   line [split $pk
1ce0: 67 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09  gdata "\n"] {...
1cf0: 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 72 69  ..set line [stri
1d00: 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a  ng trim $line]..
1d10: 09 09 09 09 69 66 20 7b 24 6c 69 6e 65 20 3d 3d  ....if {$line ==
1d20: 20 22 22 7d 20 7b 0a 09 09 09 09 09 63 6f 6e 74   ""} {......cont
1d30: 69 6e 75 65 0a 09 09 09 09 7d 0a 0a 09 09 09 09  inue.....}......
1d40: 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20  set work [split 
1d50: 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 09  $line ","]......
1d60: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
1d70: 6e 20 66 69 6c 65 49 6e 66 6f 0a 09 09 09 09 73  n fileInfo.....s
1d80: 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 79 70 65  et fileInfo(type
1d90: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1da0: 30 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  0].....set fileI
1db0: 6e 66 6f 28 74 69 6d 65 29 20 5b 6c 69 6e 64 65  nfo(time) [linde
1dc0: 78 20 24 77 6f 72 6b 20 31 5d 0a 0a 09 09 09 09  x $work 1]......
1dd0: 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65  set work [lrange
1de0: 20 24 77 6f 72 6b 20 32 20 65 6e 64 5d 0a 09 09   $work 2 end]...
1df0: 09 09 73 77 69 74 63 68 20 2d 2d 20 24 66 69 6c  ..switch -- $fil
1e00: 65 49 6e 66 6f 28 74 79 70 65 29 20 7b 0a 09 09  eInfo(type) {...
1e10: 09 09 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09  ..."file" {.....
1e20: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73  ..set fileInfo(s
1e30: 69 7a 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f  ize) [lindex $wo
1e40: 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74 20  rk 0].......set 
1e50: 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 20  fileInfo(perms) 
1e60: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d  [lindex $work 1]
1e70: 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 49  .......set fileI
1e80: 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69 6e 64 65  nfo(sha1) [linde
1e90: 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09 09 09 09  x $work 2]......
1ea0: 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e  ..set work [lran
1eb0: 67 65 20 24 77 6f 72 6b 20 33 20 65 6e 64 5d 0a  ge $work 3 end].
1ec0: 09 09 09 09 09 7d 0a 09 09 09 09 09 22 73 79 6d  .....}......"sym
1ed0: 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 73 65  link" {.......se
1ee0: 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f 75 72 63  t fileInfo(sourc
1ef0: 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  e) [lindex $work
1f00: 20 30 5d 0a 09 09 09 09 09 09 73 65 74 20 77 6f   0].......set wo
1f10: 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b  rk [lrange $work
1f20: 20 31 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a 09   1 end]......}..
1f30: 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 66 69  ...}......set fi
1f40: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6a 6f  leInfo(name) [jo
1f50: 69 6e 20 24 77 6f 72 6b 20 22 2c 22 5d 0a 09 09  in $work ","]...
1f60: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e  ..set fileInfo(n
1f70: 61 6d 65 29 20 5b 73 70 6c 69 74 20 5b 73 74 72  ame) [split [str
1f80: 69 6e 67 20 74 72 69 6d 20 24 66 69 6c 65 49 6e  ing trim $fileIn
1f90: 66 6f 28 6e 61 6d 65 29 20 22 2f 22 5d 20 22 2f  fo(name) "/"] "/
1fa0: 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  "].....set fileI
1fb0: 6e 66 6f 28 64 69 72 65 63 74 6f 72 79 29 20 5b  nfo(directory) [
1fc0: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 66 69  join [lrange $fi
1fd0: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 30 20 65  leInfo(name) 0 e
1fe0: 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09 09 73  nd-1] "/"].....s
1ff0: 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65  et fileInfo(name
2000: 29 20 5b 6c 69 6e 64 65 78 20 24 66 69 6c 65 49  ) [lindex $fileI
2010: 6e 66 6f 28 6e 61 6d 65 29 20 65 6e 64 5d 0a 0a  nfo(name) end]..
2020: 09 09 09 09 64 62 20 65 76 61 6c 20 7b 49 4e 53  ....db eval {INS
2030: 45 52 54 20 49 4e 54 4f 20 66 69 6c 65 73 20 28  ERT INTO files (
2040: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79  package_sha1, ty
2050: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
2060: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66  , size, perms, f
2070: 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e  ile_sha1, file_n
2080: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74  ame, file_direct
2090: 6f 72 79 29 20 56 41 4c 55 45 53 20 28 24 70 61  ory) VALUES ($pa
20a0: 63 6b 61 67 65 5f 73 68 61 31 2c 20 24 66 69 6c  ckage_sha1, $fil
20b0: 65 49 6e 66 6f 28 74 79 70 65 29 2c 20 24 66 69  eInfo(type), $fi
20c0: 6c 65 49 6e 66 6f 28 74 69 6d 65 29 2c 20 24 66  leInfo(time), $f
20d0: 69 6c 65 49 6e 66 6f 28 73 6f 75 72 63 65 29 2c  ileInfo(source),
20e0: 20 24 66 69 6c 65 49 6e 66 6f 28 73 69 7a 65 29   $fileInfo(size)
20f0: 2c 20 24 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d  , $fileInfo(perm
2100: 73 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73 68  s), $fileInfo(sh
2110: 61 31 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 6e  a1), $fileInfo(n
2120: 61 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28  ame), $fileInfo(
2130: 64 69 72 65 63 74 6f 72 79 29 20 29 3b 7d 0a 09  directory) );}..
2140: 09 09 09 64 62 20 65 76 61 6c 20 7b 55 50 44 41  ...db eval {UPDA
2150: 54 45 20 70 61 63 6b 61 67 65 73 20 53 45 54 20  TE packages SET 
2160: 68 61 76 65 4d 61 6e 69 66 65 73 74 20 3d 20 31  haveManifest = 1
2170: 20 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 70   WHERE sha1 = $p
2180: 61 63 6b 61 67 65 5f 73 68 61 31 3b 7d 0a 09 09  ackage_sha1;}...
2190: 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e  .}...}....return
21a0: 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 70   COMPLETE..}...p
21b0: 72 6f 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20 7b  roc _localpath {
21c0: 70 61 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d 65  package hostname
21d0: 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20 68   file} {...set h
21e0: 6f 6d 65 64 69 72 20 5b 3a 3a 61 70 70 66 73 64  omedir [::appfsd
21f0: 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09  ::get_homedir]..
2200: 09 73 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6a  .set dir [file j
2210: 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20 2e 61 70  oin $homedir .ap
2220: 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b 61 67 65  pfs "./${package
2230: 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d 22 20 22  }@${hostname}" "
2240: 2e 2f 24 7b 66 69 6c 65 7d 22 5d 0a 09 09 72 65  ./${file}"]...re
2250: 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a 09 70  turn $dir..}...p
2260: 72 6f 63 20 5f 77 68 69 74 65 6f 75 74 70 61 74  roc _whiteoutpat
2270: 68 20 7b 70 61 63 6b 61 67 65 20 68 6f 73 74 6e  h {package hostn
2280: 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65  ame file} {...se
2290: 74 20 68 6f 6d 65 64 69 72 20 5b 3a 3a 61 70 70  t homedir [::app
22a0: 66 73 64 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72  fsd::get_homedir
22b0: 5d 0a 09 09 73 65 74 20 64 69 72 20 5b 66 69 6c  ]...set dir [fil
22c0: 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20  e join $homedir 
22d0: 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b  .appfs "./${pack
22e0: 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d  age}@${hostname}
22f0: 22 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f  " ".APPFS.WHITEO
2300: 55 54 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e 41  UT" "./${file}.A
2310: 50 50 46 53 2e 57 48 49 54 45 4f 55 54 22 5d 0a  PPFS.WHITEOUT"].
2320: 09 09 72 65 74 75 72 6e 20 24 64 69 72 0a 09 7d  ..return $dir..}
2330: 0a 0a 09 70 72 6f 63 20 5f 70 61 72 73 65 70 61  ...proc _parsepa
2340: 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 73 65  th {path} {...se
2350: 74 20 70 61 74 68 20 5b 73 74 72 69 6e 67 20 74  t path [string t
2360: 72 69 6d 20 24 70 61 74 68 20 22 2f 22 5d 0a 09  rim $path "/"]..
2370: 09 73 65 74 20 70 61 74 68 20 5b 73 70 6c 69 74  .set path [split
2380: 20 24 70 61 74 68 20 22 2f 22 5d 0a 09 09 73 65   $path "/"]...se
2390: 74 20 70 61 74 68 6c 65 6e 20 5b 6c 6c 65 6e 67  t pathlen [lleng
23a0: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 61 72 72  th $path]....arr
23b0: 61 79 20 73 65 74 20 72 65 74 76 61 6c 20 5b 6c  ay set retval [l
23c0: 69 73 74 20 5f 63 68 69 6c 64 72 65 6e 20 73 69  ist _children si
23d0: 74 65 73 20 5f 74 79 70 65 20 74 6f 70 6c 65 76  tes _type toplev
23e0: 65 6c 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68  el]....if {$path
23f0: 6c 65 6e 20 3e 20 30 7d 20 7b 0a 09 09 09 73 65  len > 0} {....se
2400: 74 20 72 65 74 76 61 6c 28 68 6f 73 74 6e 61 6d  t retval(hostnam
2410: 65 29 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68  e) [lindex $path
2420: 20 30 5d 0a 09 09 09 73 65 74 20 72 65 74 76 61   0]....set retva
2430: 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 70 61 63  l(_children) pac
2440: 6b 61 67 65 73 0a 09 09 09 73 65 74 20 72 65 74  kages....set ret
2450: 76 61 6c 28 5f 74 79 70 65 29 20 73 69 74 65 73  val(_type) sites
2460: 0a 0a 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65  .....if {$pathle
2470: 6e 20 3e 20 31 7d 20 7b 0a 09 09 09 09 73 65 74  n > 1} {.....set
2480: 20 70 61 63 6b 61 67 65 20 5b 6c 69 6e 64 65 78   package [lindex
2490: 20 24 70 61 74 68 20 31 5d 0a 09 09 09 09 69 66   $path 1].....if
24a0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
24b0: 20 24 70 61 63 6b 61 67 65 5d 20 3d 3d 20 22 34   $package] == "4
24c0: 30 22 20 26 26 20 5b 72 65 67 65 78 70 20 7b 5e  0" && [regexp {^
24d0: 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a 24 7d 20 24  [a-fA-F0-9]*$} $
24e0: 70 61 63 6b 61 67 65 5d 7d 20 7b 0a 09 09 09 09  package]} {.....
24f0: 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b  .set retval(pack
2500: 61 67 65 5f 73 68 61 31 29 20 24 70 61 63 6b 61  age_sha1) $packa
2510: 67 65 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  ge......set retv
2520: 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 66 69  al(_children) fi
2530: 6c 65 73 0a 09 09 09 09 09 73 65 74 20 72 65 74  les......set ret
2540: 76 61 6c 28 5f 74 79 70 65 29 20 66 69 6c 65 73  val(_type) files
2550: 0a 0a 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a  .......::appfs::
2560: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
2570: 70 61 63 6b 61 67 65 2c 20 6f 73 2c 20 63 70 75  package, os, cpu
2580: 41 72 63 68 2c 20 76 65 72 73 69 6f 6e 20 46 52  Arch, version FR
2590: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
25a0: 45 20 73 68 61 31 20 3d 20 24 72 65 74 76 61 6c  E sha1 = $retval
25b0: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 3b 7d  (package_sha1);}
25c0: 20 70 6b 67 69 6e 66 6f 20 7b 7d 0a 09 09 09 09   pkginfo {}.....
25d0: 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b  .set retval(pack
25e0: 61 67 65 29 20 24 70 6b 67 69 6e 66 6f 28 70 61  age) $pkginfo(pa
25f0: 63 6b 61 67 65 29 0a 09 09 09 09 09 73 65 74 20  ckage)......set 
2600: 72 65 74 76 61 6c 28 6f 73 29 20 24 70 6b 67 69  retval(os) $pkgi
2610: 6e 66 6f 28 6f 73 29 0a 09 09 09 09 09 73 65 74  nfo(os)......set
2620: 20 72 65 74 76 61 6c 28 63 70 75 29 20 24 70 6b   retval(cpu) $pk
2630: 67 69 6e 66 6f 28 63 70 75 41 72 63 68 29 0a 09  ginfo(cpuArch)..
2640: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 76  ....set retval(v
2650: 65 72 73 69 6f 6e 29 20 24 70 6b 67 69 6e 66 6f  ersion) $pkginfo
2660: 28 76 65 72 73 69 6f 6e 29 0a 0a 09 09 09 09 09  (version).......
2670: 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 32  if {$pathlen > 2
2680: 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  } {.......set re
2690: 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e  tval(file) [join
26a0: 20 5b 6c 72 61 6e 67 65 20 24 70 61 74 68 20 32   [lrange $path 2
26b0: 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09   end] "/"]......
26c0: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 73  } else {.......s
26d0: 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20  et retval(file) 
26e0: 22 22 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20  ""......}.....} 
26f0: 65 6c 73 65 20 7b 0a 09 09 09 09 09 73 65 74 20  else {......set 
2700: 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 29 20  retval(package) 
2710: 24 70 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65  $package......se
2720: 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72  t retval(_childr
2730: 65 6e 29 20 6f 73 2d 63 70 75 0a 09 09 09 09 09  en) os-cpu......
2740: 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65  set retval(_type
2750: 29 20 70 61 63 6b 61 67 65 73 0a 0a 09 09 09 09  ) packages......
2760: 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20  .if {$pathlen > 
2770: 32 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 6f  2} {.......set o
2780: 73 5f 63 70 75 20 5b 6c 69 6e 64 65 78 20 24 70  s_cpu [lindex $p
2790: 61 74 68 20 32 5d 0a 09 09 09 09 09 09 73 65 74  ath 2].......set
27a0: 20 6f 73 5f 63 70 75 20 5b 73 70 6c 69 74 20 24   os_cpu [split $
27b0: 6f 73 5f 63 70 75 20 22 2d 22 5d 0a 0a 09 09 09  os_cpu "-"].....
27c0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 6f 73  ...set retval(os
27d0: 29 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70  ) [lindex $os_cp
27e0: 75 20 30 5d 0a 09 09 09 09 09 09 73 65 74 20 72  u 0].......set r
27f0: 65 74 76 61 6c 28 63 70 75 29 20 5b 6c 69 6e 64  etval(cpu) [lind
2800: 65 78 20 24 6f 73 5f 63 70 75 20 31 5d 0a 09 09  ex $os_cpu 1]...
2810: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
2820: 63 68 69 6c 64 72 65 6e 29 20 76 65 72 73 69 6f  children) versio
2830: 6e 73 0a 09 09 09 09 09 09 73 65 74 20 72 65 74  ns.......set ret
2840: 76 61 6c 28 5f 74 79 70 65 29 20 6f 73 2d 63 70  val(_type) os-cp
2850: 75 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 70 61  u........if {$pa
2860: 74 68 6c 65 6e 20 3e 20 33 7d 20 7b 0a 09 09 09  thlen > 3} {....
2870: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 76  ....set retval(v
2880: 65 72 73 69 6f 6e 29 20 5b 6c 69 6e 64 65 78 20  ersion) [lindex 
2890: 24 70 61 74 68 20 33 5d 0a 09 09 09 09 09 09 09  $path 3]........
28a0: 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c  set retval(_chil
28b0: 64 72 65 6e 29 20 66 69 6c 65 73 0a 09 09 09 09  dren) files.....
28c0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74  ...set retval(_t
28d0: 79 70 65 29 20 76 65 72 73 69 6f 6e 73 0a 0a 09  ype) versions...
28e0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
28f0: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 5b  (package_sha1) [
2900: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63  ::appfs::db onec
2910: 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 73 68  olumn {SELECT sh
2920: 61 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  a1 FROM packages
2930: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20   WHERE hostname 
2940: 3d 20 24 72 65 74 76 61 6c 28 68 6f 73 74 6e 61  = $retval(hostna
2950: 6d 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 72 65  me) AND os = $re
2960: 74 76 61 6c 28 6f 73 29 20 41 4e 44 20 63 70 75  tval(os) AND cpu
2970: 41 72 63 68 20 3d 20 24 72 65 74 76 61 6c 28 63  Arch = $retval(c
2980: 70 75 29 20 41 4e 44 20 76 65 72 73 69 6f 6e 20  pu) AND version 
2990: 3d 20 24 72 65 74 76 61 6c 28 76 65 72 73 69 6f  = $retval(versio
29a0: 6e 29 3b 7d 5d 0a 09 09 09 09 09 09 09 69 66 20  n);}]........if 
29b0: 7b 24 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65  {$retval(package
29c0: 5f 73 68 61 31 29 20 3d 3d 20 22 22 7d 20 7b 0a  _sha1) == ""} {.
29d0: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
29e0: 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 64 65  al(_children) de
29f0: 61 64 0a 09 09 09 09 09 09 09 09 72 65 74 75 72  ad.........retur
2a00: 6e 20 5b 61 72 72 61 79 20 67 65 74 20 72 65 74  n [array get ret
2a10: 76 61 6c 5d 0a 09 09 09 09 09 09 09 7d 0a 0a 09  val]........}...
2a20: 09 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c  ......if {$pathl
2a30: 65 6e 20 3e 20 34 7d 20 7b 0a 09 09 09 09 09 09  en > 4} {.......
2a40: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79  ..set retval(_ty
2a50: 70 65 29 20 66 69 6c 65 73 0a 09 09 09 09 09 09  pe) files.......
2a60: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
2a70: 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65  e) [join [lrange
2a80: 20 24 70 61 74 68 20 34 20 65 6e 64 5d 20 22 2f   $path 4 end] "/
2a90: 22 5d 0a 09 09 09 09 09 09 09 7d 20 65 6c 73 65  "]........} else
2aa0: 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72   {.........set r
2ab0: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66 69 6c  etval(_type) fil
2ac0: 65 73 0a 09 09 09 09 09 09 09 09 73 65 74 20 72  es.........set r
2ad0: 65 74 76 61 6c 28 66 69 6c 65 29 20 22 22 0a 09  etval(file) ""..
2ae0: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a  ......}.......}.
2af0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09  .....}.....}....
2b00: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  }...}....return 
2b10: 5b 61 72 72 61 79 20 67 65 74 20 72 65 74 76 61  [array get retva
2b20: 6c 5d 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74  l]..}...proc get
2b30: 63 68 69 6c 64 72 65 6e 20 7b 64 69 72 7d 20 7b  children {dir} {
2b40: 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61 74  ...array set pat
2b50: 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61 74  hinfo [_parsepat
2b60: 68 20 24 64 69 72 5d 0a 0a 09 09 73 77 69 74 63  h $dir]....switc
2b70: 68 20 2d 2d 20 24 70 61 74 68 69 6e 66 6f 28 5f  h -- $pathinfo(_
2b80: 63 68 69 6c 64 72 65 6e 29 20 7b 0a 09 09 09 22  children) {...."
2b90: 73 69 74 65 73 22 20 7b 0a 09 09 09 09 72 65 74  sites" {.....ret
2ba0: 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62  urn [::appfs::db
2bb0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 49   eval {SELECT DI
2bc0: 53 54 49 4e 43 54 20 68 6f 73 74 6e 61 6d 65 20  STINCT hostname 
2bd0: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 3b 7d 5d  FROM packages;}]
2be0: 0a 09 09 09 7d 0a 09 09 09 22 70 61 63 6b 61 67  ....}...."packag
2bf0: 65 73 22 20 7b 0a 09 09 09 09 63 61 74 63 68 20  es" {.....catch 
2c00: 7b 0a 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a  {......::appfs::
2c10: 67 65 74 69 6e 64 65 78 20 24 70 61 74 68 69 6e  getindex $pathin
2c20: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 0a 09 09 09  fo(hostname)....
2c30: 09 7d 0a 0a 09 09 09 09 72 65 74 75 72 6e 20 5b  .}......return [
2c40: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
2c50: 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43   {SELECT DISTINC
2c60: 54 20 70 61 63 6b 61 67 65 20 46 52 4f 4d 20 70  T package FROM p
2c70: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
2c80: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
2c90: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a  fo(hostname);}].
2ca0: 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63 70 75 22  ...}...."os-cpu"
2cb0: 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74 76 61   {.....set retva
2cc0: 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65  l [::appfs::db e
2cd0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 49 53 54  val {SELECT DIST
2ce0: 49 4e 43 54 20 6f 73 20 7c 7c 20 22 2d 22 20 7c  INCT os || "-" |
2cf0: 7c 20 63 70 75 41 72 63 68 20 46 52 4f 4d 20 70  | cpuArch FROM p
2d00: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
2d10: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
2d20: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44  fo(hostname) AND
2d30: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68   package = $path
2d40: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 3b 7d 5d  info(package);}]
2d50: 0a 0a 09 09 09 09 6c 61 70 70 65 6e 64 20 72 65  ......lappend re
2d60: 74 76 61 6c 20 22 70 6c 61 74 66 6f 72 6d 22 0a  tval "platform".
2d70: 0a 09 09 09 09 72 65 74 75 72 6e 20 24 72 65 74  .....return $ret
2d80: 76 61 6c 0a 09 09 09 7d 0a 09 09 09 22 76 65 72  val....}...."ver
2d90: 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09 73 65 74  sions" {.....set
2da0: 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73   retval [::appfs
2db0: 3a 3a 64 62 20 65 76 61 6c 20 7b 0a 09 09 09 09  ::db eval {.....
2dc0: 09 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54  .SELECT DISTINCT
2dd0: 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61   version FROM pa
2de0: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
2df0: 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66  tname = $pathinf
2e00: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  o(hostname) AND 
2e10: 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69  package = $pathi
2e20: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44  nfo(package) AND
2e30: 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28   os = $pathinfo(
2e40: 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20  os) AND cpuArch 
2e50: 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29  = $pathinfo(cpu)
2e60: 3b 0a 09 09 09 09 7d 5d 0a 0a 09 09 09 09 6c 61  ;.....}]......la
2e70: 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 6c 61  ppend retval "la
2e80: 74 65 73 74 22 0a 0a 09 09 09 09 72 65 74 75 72  test"......retur
2e90: 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09  n $retval....}..
2ea0: 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09  .."files" {.....
2eb0: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61  catch {......::a
2ec0: 70 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69  ppfs::getpkgmani
2ed0: 66 65 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68  fest $pathinfo(h
2ee0: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
2ef0: 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29  fo(package_sha1)
2f00: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20  .....}......set 
2f10: 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a  retval [::appfs:
2f20: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  :db eval {SELECT
2f30: 20 44 49 53 54 49 4e 43 54 20 66 69 6c 65 5f 6e   DISTINCT file_n
2f40: 61 6d 65 20 46 52 4f 4d 20 66 69 6c 65 73 20 57  ame FROM files W
2f50: 48 45 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61  HERE package_sha
2f60: 31 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  1 = $pathinfo(pa
2f70: 63 6b 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20  ckage_sha1) AND 
2f80: 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d  file_directory =
2f90: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
2fa0: 3b 7d 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e  ;}]......if {[in
2fb0: 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e  fo exists pathin
2fc0: 66 6f 28 70 61 63 6b 61 67 65 29 5d 20 26 26 20  fo(package)] && 
2fd0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74  [info exists pat
2fe0: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 5d  hinfo(hostname)]
2ff0: 20 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73   && [info exists
3000: 20 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d   pathinfo(file)]
3010: 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 64 69 72  } {......set dir
3020: 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61   [_localpath $pa
3030: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
3040: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
3050: 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69  me) $pathinfo(fi
3060: 6c 65 29 5d 0a 09 09 09 09 09 73 65 74 20 77 68  le)]......set wh
3070: 69 74 65 6f 75 74 64 69 72 20 5b 73 74 72 69 6e  iteoutdir [strin
3080: 67 20 72 61 6e 67 65 20 5b 5f 77 68 69 74 65 6f  g range [_whiteo
3090: 75 74 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f  utpath $pathinfo
30a0: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69  (package) $pathi
30b0: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
30c0: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 20 30  athinfo(file)] 0
30d0: 20 65 6e 64 2d 31 35 5d 0a 0a 09 09 09 09 09 66   end-15].......f
30e0: 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 6c 6f  oreach file [glo
30f0: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74  b -nocomplain -t
3100: 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72 79 20  ails -directory 
3110: 24 77 68 69 74 65 6f 75 74 64 69 72 20 7b 7b 2e  $whiteoutdir {{.
3120: 2c 7d 2a 2e 41 50 50 46 53 2e 57 48 49 54 45 4f  ,}*.APPFS.WHITEO
3130: 55 54 7d 5d 20 7b 0a 09 09 09 09 09 09 73 65 74  UT}] {.......set
3140: 20 72 65 6d 6f 76 65 20 5b 73 74 72 69 6e 67 20   remove [string 
3150: 72 61 6e 67 65 20 24 66 69 6c 65 20 30 20 65 6e  range $file 0 en
3160: 64 2d 31 35 5d 0a 09 09 09 09 09 09 73 65 74 20  d-15].......set 
3170: 69 64 78 20 5b 6c 73 65 61 72 63 68 20 2d 65 78  idx [lsearch -ex
3180: 61 63 74 20 24 72 65 74 76 61 6c 20 24 72 65 6d  act $retval $rem
3190: 6f 76 65 5d 0a 09 09 09 09 09 09 69 66 20 7b 24  ove].......if {$
31a0: 69 64 78 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09  idx != -1} {....
31b0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b  ....set retval [
31c0: 6c 72 65 70 6c 61 63 65 20 24 72 65 74 76 61 6c  lreplace $retval
31d0: 20 24 69 64 78 20 24 69 64 78 5d 0a 09 09 09 09   $idx $idx].....
31e0: 09 09 7d 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09  ..}......}......
31f0: 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67  .foreach file [g
3200: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  lob -nocomplain 
3210: 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72  -tails -director
3220: 79 20 24 64 69 72 20 2d 74 79 70 65 73 20 7b 64  y $dir -types {d
3230: 20 66 20 6c 7d 20 7b 7b 2e 2c 7d 2a 7d 5d 20 7b   f l} {{.,}*}] {
3240: 0a 09 09 09 09 09 09 69 66 20 7b 24 66 69 6c 65  .......if {$file
3250: 20 3d 3d 20 22 2e 22 20 7c 7c 20 24 66 69 6c 65   == "." || $file
3260: 20 3d 3d 20 22 2e 2e 22 7d 20 7b 0a 09 09 09 09   == ".."} {.....
3270: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09  ...continue.....
3280: 09 09 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24  ..}........if {$
3290: 66 69 6c 65 20 3d 3d 20 22 2e 41 50 50 46 53 2e  file == ".APPFS.
32a0: 57 48 49 54 45 4f 55 54 22 7d 20 7b 0a 09 09 09  WHITEOUT"} {....
32b0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
32c0: 09 09 09 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b  ...}........if {
32d0: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20  [lsearch -exact 
32e0: 24 72 65 74 76 61 6c 20 24 66 69 6c 65 5d 20 21  $retval $file] !
32f0: 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 63  = -1} {........c
3300: 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 7d 0a  ontinue.......}.
3310: 0a 09 09 09 09 09 09 6c 61 70 70 65 6e 64 20 72  .......lappend r
3320: 65 74 76 61 6c 20 24 66 69 6c 65 0a 09 09 09 09  etval $file.....
3330: 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65  .}.....}......re
3340: 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09  turn $retval....
3350: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  }...}....return 
3360: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49 6e 76  -code error "Inv
3370: 61 6c 69 64 20 6f 72 20 75 6e 61 63 63 65 70 74  alid or unaccept
3380: 61 62 6c 65 20 70 61 74 68 3a 20 24 64 69 72 22  able path: $dir"
3390: 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 61 74  ..}...proc getat
33a0: 74 72 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72  tr {path} {...ar
33b0: 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f  ray set pathinfo
33c0: 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61   [_parsepath $pa
33d0: 74 68 5d 0a 09 09 61 72 72 61 79 20 73 65 74 20  th]...array set 
33e0: 72 65 74 76 61 6c 20 5b 6c 69 73 74 5d 0a 0a 09  retval [list]...
33f0: 09 63 61 74 63 68 20 7b 0a 09 09 09 3a 3a 61 70  .catch {....::ap
3400: 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24 70  pfs::getindex $p
3410: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
3420: 29 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65  )....::appfs::ge
3430: 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 24 70 61  tpkgmanifest $pa
3440: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
3450: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
3460: 67 65 5f 73 68 61 31 29 0a 09 09 7d 0a 0a 09 09  ge_sha1)...}....
3470: 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68 69  switch -- $pathi
3480: 6e 66 6f 28 5f 74 79 70 65 29 20 7b 0a 09 09 09  nfo(_type) {....
3490: 22 74 6f 70 6c 65 76 65 6c 22 20 7b 0a 09 09 09  "toplevel" {....
34a0: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
34b0: 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09  ) directory.....
34c0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
34d0: 63 6f 75 6e 74 29 20 32 3b 0a 09 09 09 7d 0a 09  count) 2;....}..
34e0: 09 09 22 73 69 74 65 73 22 20 7b 0a 09 09 09 09  .."sites" {.....
34f0: 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70  set check [::app
3500: 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e  fs::db onecolumn
3510: 20 7b 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20   {SELECT 1 FROM 
3520: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
3530: 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69  ostname = $pathi
3540: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d  nfo(hostname);}]
3550: 0a 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20  .....if {$check 
3560: 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 73  == "1"} {......s
3570: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
3580: 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 73  directory......s
3590: 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63  et retval(childc
35a0: 6f 75 6e 74 29 20 32 3b 0a 09 09 09 09 7d 0a 09  ount) 2;.....}..
35b0: 09 09 7d 0a 09 09 09 22 70 61 63 6b 61 67 65 73  ..}...."packages
35c0: 22 20 7b 0a 09 09 09 09 73 65 74 20 63 68 65 63  " {.....set chec
35d0: 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f  k [::appfs::db o
35e0: 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54  necolumn {SELECT
35f0: 20 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73   1 FROM packages
3600: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20   WHERE hostname 
3610: 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  = $pathinfo(host
3620: 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67  name) AND packag
3630: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  e = $pathinfo(pa
3640: 63 6b 61 67 65 29 3b 7d 5d 0a 09 09 09 09 69 66  ckage);}].....if
3650: 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d   {$check == "1"}
3660: 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76   {......set retv
3670: 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74 6f  al(type) directo
3680: 72 79 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  ry......set retv
3690: 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 32  al(childcount) 2
36a0: 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09  ;.....}....}....
36b0: 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09 09 69  "os-cpu" {.....i
36c0: 66 20 7b 24 70 61 74 68 69 6e 66 6f 28 6f 73 29  f {$pathinfo(os)
36d0: 20 3d 3d 20 22 70 6c 61 74 66 6f 72 6d 22 20 26   == "platform" &
36e0: 26 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29  & $pathinfo(cpu)
36f0: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 73   == ""} {......s
3700: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
3710: 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09 73 65 74  symlink......set
3720: 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29 20   retval(source) 
3730: 5b 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e 65 72  [platform::gener
3740: 69 63 5d 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b  ic].....} else {
3750: 0a 09 09 09 09 09 73 65 74 20 63 68 65 63 6b 20  ......set check 
3760: 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65  [::appfs::db one
3770: 63 6f 6c 75 6d 6e 20 7b 0a 09 09 09 09 09 09 53  column {.......S
3780: 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61 63  ELECT 1 FROM pac
3790: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
37a0: 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f  name = $pathinfo
37b0: 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70  (hostname) AND p
37c0: 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e  ackage = $pathin
37d0: 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20  fo(package) AND 
37e0: 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f  os = $pathinfo(o
37f0: 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d  s) AND cpuArch =
3800: 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29 3b   $pathinfo(cpu);
3810: 0a 09 09 09 09 09 7d 5d 0a 09 09 09 09 09 69 66  ......}]......if
3820: 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d   {$check == "1"}
3830: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65 74   {.......set ret
3840: 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74  val(type) direct
3850: 6f 72 79 0a 09 09 09 09 09 09 73 65 74 20 72 65  ory.......set re
3860: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
3870: 20 32 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d   2;......}.....}
3880: 0a 09 09 09 7d 0a 09 09 09 22 76 65 72 73 69 6f  ....}...."versio
3890: 6e 73 22 20 7b 0a 09 09 09 09 69 66 20 7b 24 70  ns" {.....if {$p
38a0: 61 74 68 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29  athinfo(version)
38b0: 20 3d 3d 20 22 6c 61 74 65 73 74 22 7d 20 7b 0a   == "latest"} {.
38c0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
38d0: 74 79 70 65 29 20 73 79 6d 6c 69 6e 6b 0a 09 09  type) symlink...
38e0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f  ...set retval(so
38f0: 75 72 63 65 29 20 22 31 2e 30 22 0a 09 09 09 09  urce) "1.0".....
3900: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 69 66  } else {......if
3910: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70   {[info exists p
3920: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f  athinfo(package_
3930: 73 68 61 31 29 5d 20 26 26 20 24 70 61 74 68 69  sha1)] && $pathi
3940: 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31  nfo(package_sha1
3950: 29 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  ) != ""} {......
3960: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
3970: 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09  ) directory.....
3980: 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69  ..set retval(chi
3990: 6c 64 63 6f 75 6e 74 29 20 32 3b 0a 09 09 09 09  ldcount) 2;.....
39a0: 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09  .}.....}....}...
39b0: 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09 73  ."files" {.....s
39c0: 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67  et retval(packag
39d0: 65 64 29 20 31 0a 0a 09 09 09 09 73 65 74 20 6c  ed) 1......set l
39e0: 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c  ocalpath [_local
39f0: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
3a00: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
3a10: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
3a20: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09 09  hinfo(file)]....
3a30: 09 73 65 74 20 77 68 69 74 65 6f 75 74 70 61 74  .set whiteoutpat
3a40: 68 20 20 5b 5f 77 68 69 74 65 6f 75 74 70 61 74  h  [_whiteoutpat
3a50: 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  h $pathinfo(pack
3a60: 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68  age) $pathinfo(h
3a70: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
3a80: 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 09 09 73  fo(file)]......s
3a90: 65 74 20 72 65 74 76 61 6c 28 6c 6f 63 61 6c 70  et retval(localp
3aa0: 61 74 68 29 20 24 6c 6f 63 61 6c 70 61 74 68 0a  ath) $localpath.
3ab0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 77  ....set retval(w
3ac0: 68 69 74 65 6f 75 74 70 61 74 68 29 20 24 77 68  hiteoutpath) $wh
3ad0: 69 74 65 6f 75 74 70 61 74 68 0a 0a 09 09 09 09  iteoutpath......
3ae0: 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73  if {[file exists
3af0: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a   $localpath]} {.
3b00: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3b10: 69 73 5f 6c 6f 63 61 6c 66 69 6c 65 29 20 31 0a  is_localfile) 1.
3b20: 09 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09  .....catch {....
3b30: 09 09 09 66 69 6c 65 20 6c 73 74 61 74 20 24 6c  ...file lstat $l
3b40: 6f 63 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70 61  ocalpath localpa
3b50: 74 68 69 6e 66 6f 0a 09 09 09 09 09 09 73 65 74  thinfo.......set
3b60: 20 72 65 74 76 61 6c 28 74 69 6d 65 29 20 24 6c   retval(time) $l
3b70: 6f 63 61 6c 70 61 74 68 69 6e 66 6f 28 6d 74 69  ocalpathinfo(mti
3b80: 6d 65 29 0a 0a 09 09 09 09 09 09 73 77 69 74 63  me)........switc
3b90: 68 20 2d 2d 20 24 6c 6f 63 61 6c 70 61 74 68 69  h -- $localpathi
3ba0: 6e 66 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09  nfo(type) {.....
3bb0: 09 09 09 22 64 69 72 65 63 74 6f 72 79 22 20 7b  ..."directory" {
3bc0: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
3bd0: 76 61 6c 28 74 79 70 65 29 20 22 64 69 72 65 63  val(type) "direc
3be0: 74 6f 72 79 22 0a 09 09 09 09 09 09 09 09 73 65  tory".........se
3bf0: 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f  t retval(childco
3c00: 75 6e 74 29 20 32 0a 09 09 09 09 09 09 09 7d 0a  unt) 2........}.
3c10: 09 09 09 09 09 09 09 22 66 69 6c 65 22 20 7b 0a  ......."file" {.
3c20: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3c30: 61 6c 28 74 79 70 65 29 20 22 66 69 6c 65 22 0a  al(type) "file".
3c40: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3c50: 61 6c 28 73 69 7a 65 29 20 24 6c 6f 63 61 6c 70  al(size) $localp
3c60: 61 74 68 69 6e 66 6f 28 73 69 7a 65 29 0a 09 09  athinfo(size)...
3c70: 09 09 09 09 09 09 69 66 20 7b 5b 66 69 6c 65 20  ......if {[file 
3c80: 65 78 65 63 75 74 61 62 6c 65 20 24 6c 6f 63 61  executable $loca
3c90: 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09 09 09  lpath]} {.......
3ca0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
3cb0: 72 6d 73 29 20 22 78 22 0a 09 09 09 09 09 09 09  rms) "x"........
3cc0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09  .} else {.......
3cd0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
3ce0: 72 6d 73 29 20 22 22 0a 09 09 09 09 09 09 09 09  rms) "".........
3cf0: 7d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  }........}......
3d00: 09 09 22 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09  .."link" {......
3d10: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79  ...set retval(ty
3d20: 70 65 29 20 22 73 79 6d 6c 69 6e 6b 22 0a 09 09  pe) "symlink"...
3d30: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3d40: 28 73 6f 75 72 63 65 29 20 5b 66 69 6c 65 20 72  (source) [file r
3d50: 65 61 64 6c 69 6e 6b 20 24 6c 6f 63 61 6c 70 61  eadlink $localpa
3d60: 74 68 5d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09  th]........}....
3d70: 09 09 09 7d 0a 09 09 09 09 09 7d 20 65 72 72 0a  ...}......} err.
3d80: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
3d90: 09 09 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69  ..if {![file exi
3da0: 73 74 73 20 24 77 68 69 74 65 6f 75 74 70 61 74  sts $whiteoutpat
3db0: 68 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20  h]} {.......set 
3dc0: 72 65 74 76 61 6c 28 69 73 5f 72 65 6d 6f 74 65  retval(is_remote
3dd0: 66 69 6c 65 29 20 31 0a 0a 09 09 09 09 09 09 73  file) 1........s
3de0: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24  et work [split $
3df0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22  pathinfo(file) "
3e00: 2f 22 5d 0a 09 09 09 09 09 09 73 65 74 20 64 69  /"].......set di
3e10: 72 65 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c  rectory [join [l
3e20: 72 61 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e  range $work 0 en
3e30: 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09  d-1] "/"].......
3e40: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78  set file [lindex
3e50: 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 0a 09 09 09   $work end].....
3e60: 09 09 09 69 66 20 7b 24 64 69 72 65 63 74 6f 72  ...if {$director
3e70: 79 20 3d 3d 20 22 22 20 26 26 20 24 66 69 6c 65  y == "" && $file
3e80: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09   == ""} {.......
3e90: 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61  .array set retva
3ea0: 6c 20 5b 6c 69 73 74 20 74 79 70 65 20 64 69 72  l [list type dir
3eb0: 65 63 74 6f 72 79 20 63 68 69 6c 64 63 6f 75 6e  ectory childcoun
3ec0: 74 20 32 5d 0a 09 09 09 09 09 09 7d 0a 0a 09 09  t 2].......}....
3ed0: 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20  ....::appfs::db 
3ee0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 79 70  eval {SELECT typ
3ef0: 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c  e, time, source,
3f00: 20 73 69 7a 65 2c 20 70 65 72 6d 73 20 46 52 4f   size, perms FRO
3f10: 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61  M files WHERE pa
3f20: 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61  ckage_sha1 = $pa
3f30: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
3f40: 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69  ha1) AND file_di
3f50: 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65 63  rectory = $direc
3f60: 74 6f 72 79 20 41 4e 44 20 66 69 6c 65 5f 6e 61  tory AND file_na
3f70: 6d 65 20 3d 20 24 66 69 6c 65 3b 7d 20 72 65 74  me = $file;} ret
3f80: 76 61 6c 20 7b 7d 0a 09 09 09 09 09 09 75 6e 73  val {}.......uns
3f90: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
3fa0: 65 74 76 61 6c 28 2a 29 0a 09 09 09 09 09 7d 0a  etval(*)......}.
3fb0: 09 09 09 09 7d 0a 0a 09 09 09 7d 0a 09 09 7d 0a  ....}.....}...}.
3fc0: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
3fd0: 69 73 74 73 20 72 65 74 76 61 6c 28 74 79 70 65  ists retval(type
3fe0: 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  )]} {....return 
3ff0: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f 20  -code error "No 
4000: 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72  such file or dir
4010: 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09 72  ectory"...}....r
4020: 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74  eturn [array get
4030: 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72   retval]..}...pr
4040: 6f 63 20 6f 70 65 6e 70 61 74 68 20 7b 70 61 74  oc openpath {pat
4050: 68 20 6d 6f 64 65 7d 20 7b 0a 09 09 61 72 72 61  h mode} {...arra
4060: 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b  y set pathinfo [
4070: 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74 68  _parsepath $path
4080: 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69 6e  ]....if {$pathin
4090: 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66 69  fo(_type) != "fi
40a0: 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  les"} {....retur
40b0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69  n -code error "i
40c0: 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d  nvalid type"...}
40d0: 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74  ....set localpat
40e0: 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70  h [_localpath $p
40f0: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
4100: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4110: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
4120: 69 6c 65 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f  ile)]....if {$mo
4130: 64 65 20 3d 3d 20 22 63 72 65 61 74 65 22 7d 20  de == "create"} 
4140: 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63  {....return $loc
4150: 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 69 66  alpath...}....if
4160: 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24   {[file exists $
4170: 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09  localpath]} {...
4180: 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61  .return $localpa
4190: 74 68 0a 09 09 7d 0a 0a 09 09 73 65 74 20 77 6f  th...}....set wo
41a0: 72 6b 20 5b 73 70 6c 69 74 20 24 70 61 74 68 69  rk [split $pathi
41b0: 6e 66 6f 28 66 69 6c 65 29 20 22 2f 22 5d 0a 09  nfo(file) "/"]..
41c0: 09 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b  .set directory [
41d0: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f  join [lrange $wo
41e0: 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d  rk 0 end-1] "/"]
41f0: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e  ...set file [lin
4200: 64 65 78 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 09  dex $work end]..
4210: 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  .::appfs::db eva
4220: 6c 20 7b 53 45 4c 45 43 54 20 66 69 6c 65 5f 73  l {SELECT file_s
4230: 68 61 31 2c 20 70 65 72 6d 73 20 46 52 4f 4d 20  ha1, perms FROM 
4240: 66 69 6c 65 73 20 57 48 45 52 45 20 70 61 63 6b  files WHERE pack
4250: 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61 74 68  age_sha1 = $path
4260: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61  info(package_sha
4270: 31 29 20 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65  1) AND file_name
4280: 20 3d 20 24 66 69 6c 65 20 41 4e 44 20 66 69 6c   = $file AND fil
4290: 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24 64  e_directory = $d
42a0: 69 72 65 63 74 6f 72 79 3b 7d 20 70 6b 67 70 61  irectory;} pkgpa
42b0: 74 68 69 6e 66 6f 20 7b 7d 0a 0a 09 09 69 66 20  thinfo {}....if 
42c0: 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 66 69  {$pkgpathinfo(fi
42d0: 6c 65 5f 73 68 61 31 29 20 3d 3d 20 22 22 7d 20  le_sha1) == ""} 
42e0: 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  {....return -cod
42f0: 65 20 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68  e error "No such
4300: 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f   file or directo
4310: 72 79 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c  ry"...}....set l
4320: 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 20 5b 64  ocalcachefile [d
4330: 6f 77 6e 6c 6f 61 64 20 24 70 61 74 68 69 6e 66  ownload $pathinf
4340: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 6b 67  o(hostname) $pkg
4350: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 5f 73 68  pathinfo(file_sh
4360: 61 31 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64  a1)]....if {$mod
4370: 65 20 3d 3d 20 22 77 72 69 74 65 22 7d 20 7b 0a  e == "write"} {.
4380: 09 09 09 73 65 74 20 74 6d 70 6c 6f 63 61 6c 70  ...set tmplocalp
4390: 61 74 68 20 22 24 7b 6c 6f 63 61 6c 70 61 74 68  ath "${localpath
43a0: 7d 2e 5b 65 78 70 72 20 72 61 6e 64 28 29 5d 5b  }.[expr rand()][
43b0: 63 6c 6f 63 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a  clock clicks]"..
43c0: 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 30 0a  ...set failed 0.
43d0: 09 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a  ...if {[catch {.
43e0: 09 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b  ....file mkdir [
43f0: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 6c 6f  file dirname $lo
4400: 63 61 6c 70 61 74 68 5d 0a 09 09 09 09 66 69 6c  calpath].....fil
4410: 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d  e copy -force --
4420: 20 24 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65   $localcachefile
4430: 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 0a   $tmplocalpath..
4440: 09 09 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68  ....if {$pkgpath
4450: 69 6e 66 6f 28 70 65 72 6d 73 29 20 3d 3d 20 22  info(perms) == "
4460: 78 22 7d 20 7b 0a 09 09 09 09 09 66 69 6c 65 20  x"} {......file 
4470: 61 74 74 72 69 62 75 74 65 73 20 24 74 6d 70 6c  attributes $tmpl
4480: 6f 63 61 6c 70 61 74 68 20 2d 70 65 72 6d 69 73  ocalpath -permis
4490: 73 69 6f 6e 73 20 2b 78 0a 09 09 09 09 7d 0a 0a  sions +x.....}..
44a0: 09 09 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20  ....file rename 
44b0: 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c 6f  -force -- $tmplo
44c0: 63 61 6c 70 61 74 68 20 24 6c 6f 63 61 6c 70 61  calpath $localpa
44d0: 74 68 0a 09 09 09 7d 20 65 72 72 5d 7d 20 7b 0a  th....} err]} {.
44e0: 09 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 31  ....set failed 1
44f0: 0a 09 09 09 7d 0a 09 09 09 63 61 74 63 68 20 7b  ....}....catch {
4500: 0a 09 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65  .....file delete
4510: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c   -force -- $tmpl
4520: 6f 63 61 6c 70 61 74 68 0a 09 09 09 7d 0a 0a 09  ocalpath....}...
4530: 09 09 69 66 20 7b 24 66 61 69 6c 65 64 7d 20 7b  ..if {$failed} {
4540: 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  .....return -cod
4550: 65 20 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09  e error $err....
4560: 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f  }.....return $lo
4570: 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72  calpath...}....r
4580: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68  eturn $localcach
4590: 65 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  efile..}...proc 
45a0: 6c 6f 63 61 6c 70 61 74 68 20 7b 70 61 74 68 7d  localpath {path}
45b0: 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70   {...array set p
45c0: 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70  athinfo [_parsep
45d0: 61 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66  ath $path]....if
45e0: 20 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70   {$pathinfo(_typ
45f0: 65 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b  e) != "files"} {
4600: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
4610: 20 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20   error "invalid 
4620: 74 79 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74  type"...}....set
4630: 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63   localpath [_loc
4640: 61 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f  alpath $pathinfo
4650: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69  (package) $pathi
4660: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
4670: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a  athinfo(file)]..
4680: 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70  ..return $localp
4690: 61 74 68 0a 09 7d 0a 0a 09 70 72 6f 63 20 65 78  ath..}...proc ex
46a0: 69 73 74 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09  ists {path} {...
46b0: 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 69  catch {....set i
46c0: 6e 66 6f 20 5b 67 65 74 61 74 74 72 20 24 70 61  nfo [getattr $pa
46d0: 74 68 5d 0a 09 09 7d 20 65 72 72 0a 0a 09 09 69  th]...} err....i
46e0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
46f0: 20 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09 69 66 20   info]} {....if 
4700: 7b 24 65 72 72 20 3d 3d 20 22 4e 6f 20 73 75 63  {$err == "No suc
4710: 68 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74  h file or direct
4720: 6f 72 79 22 7d 20 7b 0a 09 09 09 09 72 65 74 75  ory"} {.....retu
4730: 72 6e 20 5b 6c 69 73 74 5d 0a 09 09 09 7d 20 65  rn [list]....} e
4740: 6c 73 65 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  lse {.....return
4750: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72   -code error $er
4760: 72 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65  r....}...}....re
4770: 74 75 72 6e 20 24 69 6e 66 6f 0a 09 7d 0a 0a 09  turn $info..}...
4780: 70 72 6f 63 20 70 72 65 70 61 72 65 5f 74 6f 5f  proc prepare_to_
4790: 63 72 65 61 74 65 20 7b 70 61 74 68 20 7b 6d 75  create {path {mu
47a0: 73 74 5f 6e 6f 74 5f 65 78 69 73 74 20 31 7d 7d  st_not_exist 1}}
47b0: 20 7b 0a 09 09 69 66 20 7b 24 6d 75 73 74 5f 6e   {...if {$must_n
47c0: 6f 74 5f 65 78 69 73 74 7d 20 7b 0a 09 09 09 69  ot_exist} {....i
47d0: 66 20 7b 5b 65 78 69 73 74 73 20 24 70 61 74 68  f {[exists $path
47e0: 5d 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72  ] != ""} {.....r
47f0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
4800: 72 20 22 46 69 6c 65 20 61 6c 72 65 61 64 79 20  r "File already 
4810: 65 78 69 73 74 73 22 0a 09 09 09 7d 0a 09 09 7d  exists"....}...}
4820: 0a 0a 09 09 73 65 74 20 66 69 6c 65 6e 61 6d 65  ....set filename
4830: 20 5b 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74   [localpath $pat
4840: 68 5d 0a 0a 09 09 73 65 74 20 64 69 72 6e 61 6d  h]....set dirnam
4850: 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20  e [file dirname 
4860: 24 66 69 6c 65 6e 61 6d 65 5d 0a 0a 09 09 66 69  $filename]....fi
4870: 6c 65 20 6d 6b 64 69 72 20 24 64 69 72 6e 61 6d  le mkdir $dirnam
4880: 65 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c  e....return $fil
4890: 65 6e 61 6d 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  ename..}...proc 
48a0: 75 6e 6c 69 6e 6b 70 61 74 68 20 7b 70 61 74 68  unlinkpath {path
48b0: 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20  } {...array set 
48c0: 70 61 74 68 61 74 74 72 73 20 5b 65 78 69 73 74  pathattrs [exist
48d0: 73 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b  s $path]....if {
48e0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61  ![info exists pa
48f0: 74 68 61 74 74 72 73 28 70 61 63 6b 61 67 65 64  thattrs(packaged
4900: 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  )]} {....return 
4910: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e 76  -code error "inv
4920: 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d 0a 0a  alid type"...}..
4930: 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74 68 20  ..set localpath 
4940: 24 70 61 74 68 61 74 74 72 73 28 6c 6f 63 61 6c  $pathattrs(local
4950: 70 61 74 68 29 0a 0a 09 09 73 65 74 20 77 68 69  path)....set whi
4960: 74 65 6f 75 74 20 30 0a 09 09 73 65 74 20 69 73  teout 0...set is
4970: 64 69 72 65 63 74 6f 72 79 20 30 0a 09 09 69 66  directory 0...if
4980: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70   {[info exists p
4990: 61 74 68 61 74 74 72 73 28 69 73 5f 6c 6f 63 61  athattrs(is_loca
49a0: 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 69 66  lfile)]} {....if
49b0: 20 7b 5b 66 69 6c 65 20 69 73 64 69 72 65 63 74   {[file isdirect
49c0: 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d  ory $localpath]}
49d0: 20 7b 0a 09 09 09 09 73 65 74 20 77 68 69 74 65   {.....set white
49e0: 6f 75 74 20 31 0a 0a 09 09 09 09 73 65 74 20 69  out 1......set i
49f0: 73 64 69 72 65 63 74 6f 72 79 20 31 0a 09 09 09  sdirectory 1....
4a00: 09 73 65 74 20 63 68 69 6c 64 72 65 6e 20 5b 67  .set children [g
4a10: 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68  etchildren $path
4a20: 5d 0a 09 09 09 7d 0a 09 09 09 66 69 6c 65 20 64  ]....}....file d
4a30: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20  elete -force -- 
4a40: 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 7d 20 65  $localpath...} e
4a50: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  lseif {[info exi
4a60: 73 74 73 20 70 61 74 68 61 74 74 72 73 28 69 73  sts pathattrs(is
4a70: 5f 72 65 6d 6f 74 65 66 69 6c 65 29 5d 7d 20 7b  _remotefile)]} {
4a80: 0a 09 09 09 69 66 20 7b 24 70 61 74 68 61 74 74  ....if {$pathatt
4a90: 72 73 28 74 79 70 65 29 20 3d 3d 20 22 64 69 72  rs(type) == "dir
4aa0: 65 63 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 73  ectory"} {.....s
4ab0: 65 74 20 69 73 64 69 72 65 63 74 6f 72 79 20 31  et isdirectory 1
4ac0: 0a 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 65  .....set childre
4ad0: 6e 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24  n [getchildren $
4ae0: 70 61 74 68 5d 0a 09 09 09 7d 0a 0a 09 09 09 73  path]....}.....s
4af0: 65 74 20 77 68 69 74 65 6f 75 74 20 31 0a 09 09  et whiteout 1...
4b00: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 72 65 74 75  } else {....retu
4b10: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
4b20: 55 6e 6b 6e 6f 77 6e 20 69 66 20 66 69 6c 65 20  Unknown if file 
4b30: 69 73 20 72 65 6d 6f 74 65 20 6f 72 20 6c 6f 63  is remote or loc
4b40: 61 6c 20 21 3f 22 0a 09 09 7d 0a 0a 09 09 69 66  al !?"...}....if
4b50: 20 7b 24 69 73 64 69 72 65 63 74 6f 72 79 7d 20   {$isdirectory} 
4b60: 7b 0a 09 09 09 69 66 20 7b 24 63 68 69 6c 64 72  {....if {$childr
4b70: 65 6e 20 21 3d 20 5b 6c 69 73 74 5d 7d 20 7b 0a  en != [list]} {.
4b80: 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
4b90: 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f   error "Asked to
4ba0: 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74   delete non-empt
4bb0: 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09  y directory"....
4bc0: 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 77 68  }...}....if {$wh
4bd0: 69 74 65 6f 75 74 7d 20 7b 0a 09 09 09 73 65 74  iteout} {....set
4be0: 20 77 68 69 74 65 6f 75 74 66 69 6c 65 20 24 70   whiteoutfile $p
4bf0: 61 74 68 61 74 74 72 73 28 77 68 69 74 65 6f 75  athattrs(whiteou
4c00: 74 70 61 74 68 29 0a 09 09 09 73 65 74 20 77 68  tpath)....set wh
4c10: 69 74 65 6f 75 74 64 69 72 20 5b 66 69 6c 65 20  iteoutdir [file 
4c20: 64 69 72 6e 61 6d 65 20 24 77 68 69 74 65 6f 75  dirname $whiteou
4c30: 74 66 69 6c 65 5d 0a 09 09 09 66 69 6c 65 20 6d  tfile]....file m
4c40: 6b 64 69 72 20 24 77 68 69 74 65 6f 75 74 64 69  kdir $whiteoutdi
4c50: 72 0a 09 09 09 63 6c 6f 73 65 20 5b 6f 70 65 6e  r....close [open
4c60: 20 24 77 68 69 74 65 6f 75 74 66 69 6c 65 20 77   $whiteoutfile w
4c70: 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a                 ]...}..}.}.