Hex Artifact Content

Artifact af80dbf6370d24e70dd0ad76f209e2ce737f7a9c:


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 3a 3a 61 70 70 66  ha1}} {...::appf
0dc0: 73 64 3a 3a 73 69 6d 75 6c 61 74 65 5f 75 73 65  sd::simulate_use
0dd0: 72 5f 66 73 5f 6c 65 61 76 65 0a 0a 09 09 73 65  r_fs_leave....se
0de0: 74 20 75 72 6c 20 5b 5f 63 6f 6e 73 74 72 75 63  t url [_construc
0df0: 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d 65 20  t_url $hostname 
0e00: 24 68 61 73 68 20 24 6d 65 74 68 6f 64 5d 0a 09  $hash $method]..
0e10: 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68  .set file [_cach
0e20: 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68  efile $url $hash
0e30: 5d 0a 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a 73  ]....::appfsd::s
0e40: 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f  imulate_user_fs_
0e50: 65 6e 74 65 72 0a 0a 09 09 69 66 20 7b 21 5b 66  enter....if {![f
0e60: 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c 65  ile exists $file
0e70: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  ]} {....return -
0e80: 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62  code error "Unab
0e90: 6c 65 20 74 6f 20 66 65 74 63 68 20 28 66 69 6c  le to fetch (fil
0ea0: 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74  e does not exist
0eb0: 3a 20 24 66 69 6c 65 29 22 0a 09 09 7d 0a 0a 09  : $file)"...}...
0ec0: 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 7d  .return $file..}
0ed0: 0a 0a 09 70 72 6f 63 20 67 65 74 69 6e 64 65 78  ...proc getindex
0ee0: 20 7b 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09 09   {hostname} {...
0ef0: 73 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73  set now [clock s
0f00: 65 63 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c  econds]....set l
0f10: 61 73 74 55 70 64 61 74 65 73 20 5b 64 62 20 65  astUpdates [db e
0f20: 76 61 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74  val {SELECT last
0f30: 55 70 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d  Update, ttl FROM
0f40: 20 73 69 74 65 73 20 57 48 45 52 45 20 68 6f 73   sites WHERE hos
0f50: 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d  tname = $hostnam
0f60: 65 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69  e LIMIT 1;}]...i
0f70: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73  f {[llength $las
0f80: 74 55 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20  tUpdates] == 0} 
0f90: 7b 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70 64  {....set lastUpd
0fa0: 61 74 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c  ate 0....set ttl
0fb0: 20 30 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09   0...} else {...
0fc0: 09 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20  .set lastUpdate 
0fd0: 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64  [lindex $lastUpd
0fe0: 61 74 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74  ates 0]....set t
0ff0: 74 6c 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74  tl [lindex $last
1000: 55 70 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a  Updates 1]...}..
1010: 09 09 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c  ..if {$now < ($l
1020: 61 73 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c  astUpdate + $ttl
1030: 29 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43  )} {....return C
1040: 4f 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69  OMPLETE...}....i
1050: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  f {[string match
1060: 20 22 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73   "*\[/~\]*" $hos
1070: 74 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65 74  tname]} {....ret
1080: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
1090: 22 49 6e 76 61 6c 69 64 20 68 6f 73 74 6e 61 6d  "Invalid hostnam
10a0: 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 75 72  e"...}....set ur
10b0: 6c 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e  l "http://$hostn
10c0: 61 6d 65 2f 61 70 70 66 73 2f 69 6e 64 65 78 22  ame/appfs/index"
10d0: 0a 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73  ....catch {....s
10e0: 65 74 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70  et token [::http
10f0: 3a 3a 67 65 74 75 72 6c 20 24 75 72 6c 5d 0a 09  ::geturl $url]..
1100: 09 09 69 66 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e  ..if {[::http::n
1110: 63 6f 64 65 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20  code $token] == 
1120: 22 32 30 30 22 7d 20 7b 0a 09 09 09 09 73 65 74  "200"} {.....set
1130: 20 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20   indexhash_data 
1140: 5b 3a 3a 68 74 74 70 3a 3a 64 61 74 61 20 24 74  [::http::data $t
1150: 6f 6b 65 6e 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a  oken]....}....::
1160: 68 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b  http::reset $tok
1170: 65 6e 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 63 6c  en....::http::cl
1180: 65 61 6e 75 70 20 24 74 6f 6b 65 6e 0a 09 09 7d  eanup $token...}
1190: 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ....if {![info e
11a0: 78 69 73 74 73 20 69 6e 64 65 78 68 61 73 68 5f  xists indexhash_
11b0: 64 61 74 61 5d 7d 20 7b 0a 09 09 09 23 20 43 61  data]} {....# Ca
11c0: 63 68 65 20 74 68 69 73 20 72 65 73 75 6c 74 20  che this result 
11d0: 66 6f 72 20 36 30 20 73 65 63 6f 6e 64 73 0a 09  for 60 seconds..
11e0: 09 09 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52  ..db eval {INSER
11f0: 54 20 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54  T OR REPLACE INT
1200: 4f 20 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d  O sites (hostnam
1210: 65 2c 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74  e, lastUpdate, t
1220: 74 6c 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73  tl) VALUES ($hos
1230: 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a  tname, $now, $::
1240: 61 70 70 66 73 3a 3a 6e 74 74 6c 29 3b 7d 0a 0a  appfs::nttl);}..
1250: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
1260: 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f  error "Unable to
1270: 20 66 65 74 63 68 20 24 75 72 6c 22 0a 09 09 7d   fetch $url"...}
1280: 0a 0a 09 09 73 65 74 20 69 6e 64 65 78 68 61 73  ....set indexhas
1290: 68 20 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74  h [lindex [split
12a0: 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61   $indexhash_data
12b0: 20 22 2c 22 5d 20 30 5d 0a 0a 09 09 69 66 20 7b   ","] 0]....if {
12c0: 21 5b 5f 69 73 48 61 73 68 20 24 69 6e 64 65 78  ![_isHash $index
12d0: 68 61 73 68 5d 7d 20 7b 0a 09 09 09 72 65 74 75  hash]} {....retu
12e0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
12f0: 49 6e 76 61 6c 69 64 20 68 61 73 68 3a 20 24 69  Invalid hash: $i
1300: 6e 64 65 78 68 61 73 68 22 0a 09 09 7d 0a 0a 09  ndexhash"...}...
1310: 09 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c  .set file [downl
1320: 6f 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 69  oad $hostname $i
1330: 6e 64 65 78 68 61 73 68 5d 0a 09 09 73 65 74 20  ndexhash]...set 
1340: 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a  fd [open $file].
1350: 09 09 73 65 74 20 64 61 74 61 20 5b 72 65 61 64  ..set data [read
1360: 20 24 66 64 5d 0a 09 09 63 6c 6f 73 65 20 24 66   $fd]...close $f
1370: 64 0a 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61  d....set curr_pa
1380: 63 6b 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09  ckages [list]...
1390: 66 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70  foreach line [sp
13a0: 6c 69 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20  lit $data "\n"] 
13b0: 7b 0a 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73  {....set line [s
13c0: 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65  tring trim $line
13d0: 5d 0a 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e  ].....if {[strin
13e0: 67 20 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c  g match "*/*" $l
13f0: 69 6e 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74  ine]} {.....cont
1400: 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66  inue....}.....if
1410: 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b   {$line == ""} {
1420: 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09  .....continue...
1430: 09 7d 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20  .}.....set work 
1440: 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22  [split $line ","
1450: 5d 0a 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63  ].....unset -noc
1460: 6f 6d 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a  omplain pkgInfo.
1470: 09 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a  ...if {[catch {.
1480: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
1490: 70 61 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65  package)  [linde
14a0: 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73  x $work 0].....s
14b0: 65 74 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69  et pkgInfo(versi
14c0: 6f 6e 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f  on)  [lindex $wo
14d0: 72 6b 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b  rk 1].....set pk
14e0: 67 49 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20  gInfo(os)       
14f0: 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c  [_normalizeOS [l
1500: 69 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a  index $work 2]].
1510: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
1520: 63 70 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d  cpuArch)  [_norm
1530: 61 6c 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78  alizeCPU [lindex
1540: 20 24 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73   $work 3]].....s
1550: 65 74 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29  et pkgInfo(hash)
1560: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c       [string tol
1570: 6f 77 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f  ower [lindex $wo
1580: 72 6b 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70  rk 4]].....set p
1590: 6b 67 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65  kgInfo(hash_type
15a0: 29 20 22 73 68 61 31 22 0a 09 09 09 09 73 65 74  ) "sha1".....set
15b0: 20 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73   pkgInfo(isLates
15c0: 74 29 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e  t) [expr {!![lin
15d0: 64 65 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09  dex $work 5]}]..
15e0: 09 09 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74  ..}]} {.....cont
15f0: 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66  inue....}.....if
1600: 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67   {![_isHash $pkg
1610: 49 6e 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09  Info(hash)]} {..
1620: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d  ...continue....}
1630: 0a 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72  .....lappend cur
1640: 72 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49  r_packages $pkgI
1650: 6e 66 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20  nfo(hash).....# 
1660: 44 6f 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64  Do not do any ad
1670: 64 69 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66  ditional work if
1680: 20 77 65 20 61 6c 72 65 61 64 79 20 68 61 76 65   we already have
1690: 20 74 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09   this package...
16a0: 09 73 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61  .set existing_pa
16b0: 63 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20  ckages [db eval 
16c0: 7b 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20  {SELECT package 
16d0: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
16e0: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
16f0: 68 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61  hostname AND sha
1700: 31 20 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73  1 = $pkgInfo(has
1710: 68 29 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73  h);}]....if {[ls
1720: 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 65 78  earch -exact $ex
1730: 69 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20  isting_packages 
1740: 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65  $pkgInfo(package
1750: 29 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09  )] != -1} {.....
1760: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09  continue....}...
1770: 09 09 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69  ..if {$pkgInfo(i
1780: 73 4c 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09  sLatest)} {.....
1790: 64 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20  db eval {UPDATE 
17a0: 70 61 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c  packages SET isL
17b0: 61 74 65 73 74 20 3d 20 30 20 57 48 45 52 45 20  atest = 0 WHERE 
17c0: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74  hostname = $host
17d0: 6e 61 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65  name AND package
17e0: 20 3d 20 24 70 6b 67 49 6e 66 6f 28 24 70 61 63   = $pkgInfo($pac
17f0: 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24  kage) AND os = $
1800: 70 6b 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65  pkgInfo($package
1810: 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20  ) AND cpuArch = 
1820: 24 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68  $pkgInfo(cpuArch
1830: 29 3b 7d 0a 09 09 09 7d 0a 0a 09 09 09 64 62 20  );}....}.....db 
1840: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54  eval {INSERT INT
1850: 4f 20 70 61 63 6b 61 67 65 73 20 28 68 6f 73 74  O packages (host
1860: 6e 61 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b  name, sha1, pack
1870: 61 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73  age, version, os
1880: 2c 20 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74  , cpuArch, isLat
1890: 65 73 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73  est, haveManifes
18a0: 74 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74  t) VALUES ($host
18b0: 6e 61 6d 65 2c 20 24 70 6b 67 49 6e 66 6f 28 68  name, $pkgInfo(h
18c0: 61 73 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 70  ash), $pkgInfo(p
18d0: 61 63 6b 61 67 65 29 2c 20 24 70 6b 67 49 6e 66  ackage), $pkgInf
18e0: 6f 28 76 65 72 73 69 6f 6e 29 2c 20 24 70 6b 67  o(version), $pkg
18f0: 49 6e 66 6f 28 6f 73 29 2c 20 24 70 6b 67 49 6e  Info(os), $pkgIn
1900: 66 6f 28 63 70 75 41 72 63 68 29 2c 20 24 70 6b  fo(cpuArch), $pk
1910: 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 2c  gInfo(isLatest),
1920: 20 30 29 3b 7d 0a 09 09 7d 0a 0a 09 09 23 20 4c   0);}...}....# L
1930: 6f 6f 6b 20 66 6f 72 20 70 61 63 6b 61 67 65 73  ook for packages
1940: 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6e 20   that have been 
1950: 64 65 6c 65 74 65 64 0a 09 09 73 65 74 20 66 6f  deleted...set fo
1960: 75 6e 64 5f 70 61 63 6b 61 67 65 73 20 5b 64 62  und_packages [db
1970: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 73 68   eval {SELECT sh
1980: 61 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  a1 FROM packages
1990: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20   WHERE hostname 
19a0: 3d 20 24 68 6f 73 74 6e 61 6d 65 3b 7d 5d 0a 09  = $hostname;}]..
19b0: 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65  .foreach package
19c0: 20 24 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73   $found_packages
19d0: 20 7b 0a 09 09 09 73 65 74 20 66 6f 75 6e 64 5f   {....set found_
19e0: 70 61 63 6b 61 67 65 73 5f 61 72 72 28 24 70 61  packages_arr($pa
19f0: 63 6b 61 67 65 29 20 31 0a 09 09 7d 0a 0a 09 09  ckage) 1...}....
1a00: 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 20  foreach package 
1a10: 24 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 7b  $curr_packages {
1a20: 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
1a30: 70 6c 61 69 6e 20 66 6f 75 6e 64 5f 70 61 63 6b  plain found_pack
1a40: 61 67 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67  ages_arr($packag
1a50: 65 29 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63  e)...}....foreac
1a60: 68 20 70 61 63 6b 61 67 65 20 5b 61 72 72 61 79  h package [array
1a70: 20 6e 61 6d 65 73 20 66 6f 75 6e 64 5f 70 61 63   names found_pac
1a80: 6b 61 67 65 73 5f 61 72 72 5d 20 7b 0a 09 09 09  kages_arr] {....
1a90: 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20  db eval {DELETE 
1aa0: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
1ab0: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
1ac0: 68 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61  hostname AND sha
1ad0: 31 20 3d 20 24 70 61 63 6b 61 67 65 3b 7d 0a 09  1 = $package;}..
1ae0: 09 7d 0a 0a 09 09 64 62 20 65 76 61 6c 20 7b 49  .}....db eval {I
1af0: 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45  NSERT OR REPLACE
1b00: 20 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73   INTO sites (hos
1b10: 74 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74  tname, lastUpdat
1b20: 65 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28  e, ttl) VALUES (
1b30: 24 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c  $hostname, $now,
1b40: 20 24 3a 3a 61 70 70 66 73 3a 3a 74 74 6c 29 3b   $::appfs::ttl);
1b50: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 43 4f 4d 50  }....return COMP
1b60: 4c 45 54 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 67  LETE..}...proc g
1b70: 65 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 7b 68  etpkgmanifest {h
1b80: 6f 73 74 6e 61 6d 65 20 70 61 63 6b 61 67 65 5f  ostname package_
1b90: 73 68 61 31 7d 20 7b 0a 09 09 73 65 74 20 68 61  sha1} {...set ha
1ba0: 76 65 4d 61 6e 69 66 65 73 74 73 20 5b 64 62 20  veManifests [db 
1bb0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 68 61 76  eval {SELECT hav
1bc0: 65 4d 61 6e 69 66 65 73 74 20 46 52 4f 4d 20 70  eManifest FROM p
1bd0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 73 68  ackages WHERE sh
1be0: 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73 68  a1 = $package_sh
1bf0: 61 31 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09  a1 LIMIT 1;}]...
1c00: 73 65 74 20 68 61 76 65 4d 61 6e 69 66 65 73 74  set haveManifest
1c10: 20 5b 6c 69 6e 64 65 78 20 24 68 61 76 65 4d 61   [lindex $haveMa
1c20: 6e 69 66 65 73 74 73 20 30 5d 0a 0a 09 09 69 66  nifests 0]....if
1c30: 20 7b 24 68 61 76 65 4d 61 6e 69 66 65 73 74 7d   {$haveManifest}
1c40: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f 4d   {....return COM
1c50: 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20  PLETE...}....if 
1c60: 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 61 63 6b  {![_isHash $pack
1c70: 61 67 65 5f 73 68 61 31 5d 7d 20 7b 0a 09 09 09  age_sha1]} {....
1c80: 72 65 74 75 72 6e 20 46 41 49 4c 0a 09 09 7d 0a  return FAIL...}.
1c90: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 64 6f 77  ...set file [dow
1ca0: 6e 6c 6f 61 64 20 24 68 6f 73 74 6e 61 6d 65 20  nload $hostname 
1cb0: 24 70 61 63 6b 61 67 65 5f 73 68 61 31 5d 0a 09  $package_sha1]..
1cc0: 09 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66  .set fd [open $f
1cd0: 69 6c 65 5d 0a 09 09 73 65 74 20 70 6b 67 64 61  ile]...set pkgda
1ce0: 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09  ta [read $fd]...
1cf0: 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 64 62 20  close $fd....db 
1d00: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 09  transaction {...
1d10: 09 66 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73  .foreach line [s
1d20: 70 6c 69 74 20 24 70 6b 67 64 61 74 61 20 22 5c  plit $pkgdata "\
1d30: 6e 22 5d 20 7b 0a 09 09 09 09 73 65 74 20 6c 69  n"] {.....set li
1d40: 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ne [string trim 
1d50: 24 6c 69 6e 65 5d 0a 0a 09 09 09 09 69 66 20 7b  $line]......if {
1d60: 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09  $line == ""} {..
1d70: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
1d80: 09 7d 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b  .}......set work
1d90: 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c   [split $line ",
1da0: 22 5d 0a 0a 09 09 09 09 75 6e 73 65 74 20 2d 6e  "]......unset -n
1db0: 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 6c 65 49 6e  ocomplain fileIn
1dc0: 66 6f 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  fo.....set fileI
1dd0: 6e 66 6f 28 74 79 70 65 29 20 5b 6c 69 6e 64 65  nfo(type) [linde
1de0: 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73  x $work 0].....s
1df0: 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65  et fileInfo(time
1e00: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1e10: 31 5d 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b  1]......set work
1e20: 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 32   [lrange $work 2
1e30: 20 65 6e 64 5d 0a 09 09 09 09 73 77 69 74 63 68   end].....switch
1e40: 20 2d 2d 20 24 66 69 6c 65 49 6e 66 6f 28 74 79   -- $fileInfo(ty
1e50: 70 65 29 20 7b 0a 09 09 09 09 09 22 66 69 6c 65  pe) {......"file
1e60: 22 20 7b 0a 09 09 09 09 09 09 73 65 74 20 66 69  " {.......set fi
1e70: 6c 65 49 6e 66 6f 28 73 69 7a 65 29 20 5b 6c 69  leInfo(size) [li
1e80: 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09  ndex $work 0]...
1e90: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
1ea0: 28 70 65 72 6d 73 29 20 5b 6c 69 6e 64 65 78 20  (perms) [lindex 
1eb0: 24 77 6f 72 6b 20 31 5d 0a 09 09 09 09 09 09 73  $work 1].......s
1ec0: 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 68 61 31  et fileInfo(sha1
1ed0: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1ee0: 32 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 77 6f  2]........set wo
1ef0: 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b  rk [lrange $work
1f00: 20 33 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a 09   3 end]......}..
1f10: 09 09 09 09 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a  ...."symlink" {.
1f20: 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  ......set fileIn
1f30: 66 6f 28 73 6f 75 72 63 65 29 20 5b 6c 69 6e 64  fo(source) [lind
1f40: 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09  ex $work 0].....
1f50: 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e  ..set work [lran
1f60: 67 65 20 24 77 6f 72 6b 20 31 20 65 6e 64 5d 0a  ge $work 1 end].
1f70: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09  .....}.....}....
1f80: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e  ..set fileInfo(n
1f90: 61 6d 65 29 20 5b 6a 6f 69 6e 20 24 77 6f 72 6b  ame) [join $work
1fa0: 20 22 2c 22 5d 0a 09 09 09 09 73 65 74 20 66 69   ","].....set fi
1fb0: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 73 70  leInfo(name) [sp
1fc0: 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  lit [string trim
1fd0: 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29   $fileInfo(name)
1fe0: 20 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 09 09 73   "/"] "/"].....s
1ff0: 65 74 20 66 69 6c 65 49 6e 66 6f 28 64 69 72 65  et fileInfo(dire
2000: 63 74 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b 6c 72  ctory) [join [lr
2010: 61 6e 67 65 20 24 66 69 6c 65 49 6e 66 6f 28 6e  ange $fileInfo(n
2020: 61 6d 65 29 20 30 20 65 6e 64 2d 31 5d 20 22 2f  ame) 0 end-1] "/
2030: 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  "].....set fileI
2040: 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c 69 6e 64 65  nfo(name) [linde
2050: 78 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65  x $fileInfo(name
2060: 29 20 65 6e 64 5d 0a 0a 09 09 09 09 64 62 20 65  ) end]......db e
2070: 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f  val {INSERT INTO
2080: 20 66 69 6c 65 73 20 28 70 61 63 6b 61 67 65 5f   files (package_
2090: 73 68 61 31 2c 20 74 79 70 65 2c 20 74 69 6d 65  sha1, type, time
20a0: 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c 20  , source, size, 
20b0: 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61 31  perms, file_sha1
20c0: 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c  , file_name, fil
20d0: 65 5f 64 69 72 65 63 74 6f 72 79 29 20 56 41 4c  e_directory) VAL
20e0: 55 45 53 20 28 24 70 61 63 6b 61 67 65 5f 73 68  UES ($package_sh
20f0: 61 31 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74 79  a1, $fileInfo(ty
2100: 70 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74  pe), $fileInfo(t
2110: 69 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28  ime), $fileInfo(
2120: 73 6f 75 72 63 65 29 2c 20 24 66 69 6c 65 49 6e  source), $fileIn
2130: 66 6f 28 73 69 7a 65 29 2c 20 24 66 69 6c 65 49  fo(size), $fileI
2140: 6e 66 6f 28 70 65 72 6d 73 29 2c 20 24 66 69 6c  nfo(perms), $fil
2150: 65 49 6e 66 6f 28 73 68 61 31 29 2c 20 24 66 69  eInfo(sha1), $fi
2160: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20 24 66  leInfo(name), $f
2170: 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74 6f 72  ileInfo(director
2180: 79 29 20 29 3b 7d 0a 09 09 09 09 64 62 20 65 76  y) );}.....db ev
2190: 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61  al {UPDATE packa
21a0: 67 65 73 20 53 45 54 20 68 61 76 65 4d 61 6e 69  ges SET haveMani
21b0: 66 65 73 74 20 3d 20 31 20 57 48 45 52 45 20 73  fest = 1 WHERE s
21c0: 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73  ha1 = $package_s
21d0: 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a  ha1;}....}...}..
21e0: 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54  ..return COMPLET
21f0: 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6c 6f 63  E..}...proc _loc
2200: 61 6c 70 61 74 68 20 7b 70 61 63 6b 61 67 65 20  alpath {package 
2210: 68 6f 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b  hostname file} {
2220: 0a 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20 5b  ...set homedir [
2230: 3a 3a 61 70 70 66 73 64 3a 3a 67 65 74 5f 68 6f  ::appfsd::get_ho
2240: 6d 65 64 69 72 5d 0a 09 09 73 65 74 20 64 69 72  medir]...set dir
2250: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d   [file join $hom
2260: 65 64 69 72 20 2e 61 70 70 66 73 20 22 2e 2f 24  edir .appfs "./$
2270: 7b 70 61 63 6b 61 67 65 7d 40 24 7b 68 6f 73 74  {package}@${host
2280: 6e 61 6d 65 7d 22 20 22 2e 2f 24 7b 66 69 6c 65  name}" "./${file
2290: 7d 22 5d 0a 09 09 72 65 74 75 72 6e 20 24 64 69  }"]...return $di
22a0: 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 77 68 69  r..}...proc _whi
22b0: 74 65 6f 75 74 70 61 74 68 20 7b 70 61 63 6b 61  teoutpath {packa
22c0: 67 65 20 68 6f 73 74 6e 61 6d 65 20 66 69 6c 65  ge hostname file
22d0: 7d 20 7b 0a 09 09 73 65 74 20 68 6f 6d 65 64 69  } {...set homedi
22e0: 72 20 5b 3a 3a 61 70 70 66 73 64 3a 3a 67 65 74  r [::appfsd::get
22f0: 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 73 65 74 20  _homedir]...set 
2300: 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  dir [file join $
2310: 68 6f 6d 65 64 69 72 20 2e 61 70 70 66 73 20 22  homedir .appfs "
2320: 2e 2f 24 7b 70 61 63 6b 61 67 65 7d 40 24 7b 68  ./${package}@${h
2330: 6f 73 74 6e 61 6d 65 7d 22 20 22 2e 41 50 50 46  ostname}" ".APPF
2340: 53 2e 57 48 49 54 45 4f 55 54 22 20 22 2e 2f 24  S.WHITEOUT" "./$
2350: 7b 66 69 6c 65 7d 2e 41 50 50 46 53 2e 57 48 49  {file}.APPFS.WHI
2360: 54 45 4f 55 54 22 5d 0a 09 09 72 65 74 75 72 6e  TEOUT"]...return
2370: 20 24 64 69 72 0a 09 7d 0a 0a 09 70 72 6f 63 20   $dir..}...proc 
2380: 5f 70 61 72 73 65 70 61 74 68 20 7b 70 61 74 68  _parsepath {path
2390: 7d 20 7b 0a 09 09 73 65 74 20 70 61 74 68 20 5b  } {...set path [
23a0: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 70 61 74  string trim $pat
23b0: 68 20 22 2f 22 5d 0a 09 09 73 65 74 20 70 61 74  h "/"]...set pat
23c0: 68 20 5b 73 70 6c 69 74 20 24 70 61 74 68 20 22  h [split $path "
23d0: 2f 22 5d 0a 09 09 73 65 74 20 70 61 74 68 6c 65  /"]...set pathle
23e0: 6e 20 5b 6c 6c 65 6e 67 74 68 20 24 70 61 74 68  n [llength $path
23f0: 5d 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20 72  ]....array set r
2400: 65 74 76 61 6c 20 5b 6c 69 73 74 20 5f 63 68 69  etval [list _chi
2410: 6c 64 72 65 6e 20 73 69 74 65 73 20 5f 74 79 70  ldren sites _typ
2420: 65 20 74 6f 70 6c 65 76 65 6c 5d 0a 0a 09 09 69  e toplevel]....i
2430: 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 30 7d  f {$pathlen > 0}
2440: 20 7b 0a 09 09 09 73 65 74 20 72 65 74 76 61 6c   {....set retval
2450: 28 68 6f 73 74 6e 61 6d 65 29 20 5b 6c 69 6e 64  (hostname) [lind
2460: 65 78 20 24 70 61 74 68 20 30 5d 0a 09 09 09 73  ex $path 0]....s
2470: 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64  et retval(_child
2480: 72 65 6e 29 20 70 61 63 6b 61 67 65 73 0a 09 09  ren) packages...
2490: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
24a0: 65 29 20 73 69 74 65 73 0a 0a 09 09 09 69 66 20  e) sites.....if 
24b0: 7b 24 70 61 74 68 6c 65 6e 20 3e 20 31 7d 20 7b  {$pathlen > 1} {
24c0: 0a 09 09 09 09 73 65 74 20 70 61 63 6b 61 67 65  .....set package
24d0: 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20 31   [lindex $path 1
24e0: 5d 0a 09 09 09 09 69 66 20 7b 5b 73 74 72 69 6e  ].....if {[strin
24f0: 67 20 6c 65 6e 67 74 68 20 24 70 61 63 6b 61 67  g length $packag
2500: 65 5d 20 3d 3d 20 22 34 30 22 20 26 26 20 5b 72  e] == "40" && [r
2510: 65 67 65 78 70 20 7b 5e 5b 61 2d 66 41 2d 46 30  egexp {^[a-fA-F0
2520: 2d 39 5d 2a 24 7d 20 24 70 61 63 6b 61 67 65 5d  -9]*$} $package]
2530: 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74  } {......set ret
2540: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
2550: 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09 09 09  ) $package......
2560: 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c  set retval(_chil
2570: 64 72 65 6e 29 20 66 69 6c 65 73 0a 09 09 09 09  dren) files.....
2580: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
2590: 65 29 20 66 69 6c 65 73 0a 0a 09 09 09 09 09 3a  e) files.......:
25a0: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
25b0: 7b 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 2c  {SELECT package,
25c0: 20 6f 73 2c 20 63 70 75 41 72 63 68 2c 20 76 65   os, cpuArch, ve
25d0: 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61  rsion FROM packa
25e0: 67 65 73 20 57 48 45 52 45 20 73 68 61 31 20 3d  ges WHERE sha1 =
25f0: 20 24 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65   $retval(package
2600: 5f 73 68 61 31 29 3b 7d 20 70 6b 67 69 6e 66 6f  _sha1);} pkginfo
2610: 20 7b 7d 0a 09 09 09 09 09 73 65 74 20 72 65 74   {}......set ret
2620: 76 61 6c 28 70 61 63 6b 61 67 65 29 20 24 70 6b  val(package) $pk
2630: 67 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 0a 09  ginfo(package)..
2640: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 6f  ....set retval(o
2650: 73 29 20 24 70 6b 67 69 6e 66 6f 28 6f 73 29 0a  s) $pkginfo(os).
2660: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
2670: 63 70 75 29 20 24 70 6b 67 69 6e 66 6f 28 63 70  cpu) $pkginfo(cp
2680: 75 41 72 63 68 29 0a 09 09 09 09 09 73 65 74 20  uArch)......set 
2690: 72 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20  retval(version) 
26a0: 24 70 6b 67 69 6e 66 6f 28 76 65 72 73 69 6f 6e  $pkginfo(version
26b0: 29 0a 0a 09 09 09 09 09 69 66 20 7b 24 70 61 74  ).......if {$pat
26c0: 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09  hlen > 2} {.....
26d0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
26e0: 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65  e) [join [lrange
26f0: 20 24 70 61 74 68 20 32 20 65 6e 64 5d 20 22 2f   $path 2 end] "/
2700: 22 5d 0a 09 09 09 09 09 7d 20 65 6c 73 65 20 7b  "]......} else {
2710: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2720: 6c 28 66 69 6c 65 29 20 22 22 0a 09 09 09 09 09  l(file) ""......
2730: 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  }.....} else {..
2740: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
2750: 61 63 6b 61 67 65 29 20 24 70 61 63 6b 61 67 65  ackage) $package
2760: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2770: 28 5f 63 68 69 6c 64 72 65 6e 29 20 6f 73 2d 63  (_children) os-c
2780: 70 75 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  pu......set retv
2790: 61 6c 28 5f 74 79 70 65 29 20 70 61 63 6b 61 67  al(_type) packag
27a0: 65 73 0a 0a 09 09 09 09 09 69 66 20 7b 24 70 61  es.......if {$pa
27b0: 74 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a 09 09 09  thlen > 2} {....
27c0: 09 09 09 73 65 74 20 6f 73 5f 63 70 75 20 5b 6c  ...set os_cpu [l
27d0: 69 6e 64 65 78 20 24 70 61 74 68 20 32 5d 0a 09  index $path 2]..
27e0: 09 09 09 09 09 73 65 74 20 6f 73 5f 63 70 75 20  .....set os_cpu 
27f0: 5b 73 70 6c 69 74 20 24 6f 73 5f 63 70 75 20 22  [split $os_cpu "
2800: 2d 22 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 72  -"]........set r
2810: 65 74 76 61 6c 28 6f 73 29 20 5b 6c 69 6e 64 65  etval(os) [linde
2820: 78 20 24 6f 73 5f 63 70 75 20 30 5d 0a 09 09 09  x $os_cpu 0]....
2830: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 70  ...set retval(cp
2840: 75 29 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63  u) [lindex $os_c
2850: 70 75 20 31 5d 0a 09 09 09 09 09 09 73 65 74 20  pu 1].......set 
2860: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
2870: 29 20 76 65 72 73 69 6f 6e 73 0a 09 09 09 09 09  ) versions......
2880: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
2890: 65 29 20 6f 73 2d 63 70 75 0a 0a 09 09 09 09 09  e) os-cpu.......
28a0: 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20  .if {$pathlen > 
28b0: 33 7d 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20  3} {........set 
28c0: 72 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20  retval(version) 
28d0: 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20 33 5d  [lindex $path 3]
28e0: 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
28f0: 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 66 69  al(_children) fi
2900: 6c 65 73 0a 09 09 09 09 09 09 09 73 65 74 20 72  les........set r
2910: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 76 65 72  etval(_type) ver
2920: 73 69 6f 6e 73 0a 0a 09 09 09 09 09 09 09 73 65  sions.........se
2930: 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65  t retval(package
2940: 5f 73 68 61 31 29 20 5b 3a 3a 61 70 70 66 73 3a  _sha1) [::appfs:
2950: 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53  :db onecolumn {S
2960: 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20  ELECT sha1 FROM 
2970: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
2980: 6f 73 74 6e 61 6d 65 20 3d 20 24 72 65 74 76 61  ostname = $retva
2990: 6c 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  l(hostname) AND 
29a0: 6f 73 20 3d 20 24 72 65 74 76 61 6c 28 6f 73 29  os = $retval(os)
29b0: 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24   AND cpuArch = $
29c0: 72 65 74 76 61 6c 28 63 70 75 29 20 41 4e 44 20  retval(cpu) AND 
29d0: 76 65 72 73 69 6f 6e 20 3d 20 24 72 65 74 76 61  version = $retva
29e0: 6c 28 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a 09 09  l(version);}]...
29f0: 09 09 09 09 09 69 66 20 7b 24 72 65 74 76 61 6c  .....if {$retval
2a00: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 3d  (package_sha1) =
2a10: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 09  = ""} {.........
2a20: 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c  set retval(_chil
2a30: 64 72 65 6e 29 20 64 65 61 64 0a 09 09 09 09 09  dren) dead......
2a40: 09 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79  ...return [array
2a50: 20 67 65 74 20 72 65 74 76 61 6c 5d 0a 09 09 09   get retval]....
2a60: 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 69 66  ....}.........if
2a70: 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 34 7d 20   {$pathlen > 4} 
2a80: 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  {.........set re
2a90: 74 76 61 6c 28 5f 74 79 70 65 29 20 66 69 6c 65  tval(_type) file
2aa0: 73 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  s.........set re
2ab0: 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e  tval(file) [join
2ac0: 20 5b 6c 72 61 6e 67 65 20 24 70 61 74 68 20 34   [lrange $path 4
2ad0: 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09   end] "/"]......
2ae0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
2af0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74  ...set retval(_t
2b00: 79 70 65 29 20 66 69 6c 65 73 0a 09 09 09 09 09  ype) files......
2b10: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69  ...set retval(fi
2b20: 6c 65 29 20 22 22 0a 09 09 09 09 09 09 09 7d 0a  le) ""........}.
2b30: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09  ......}......}..
2b40: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  ...}....}...}...
2b50: 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67  .return [array g
2b60: 65 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09  et retval]..}...
2b70: 70 72 6f 63 20 67 65 74 63 68 69 6c 64 72 65 6e  proc getchildren
2b80: 20 7b 64 69 72 7d 20 7b 0a 09 09 61 72 72 61 79   {dir} {...array
2b90: 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f   set pathinfo [_
2ba0: 70 61 72 73 65 70 61 74 68 20 24 64 69 72 5d 0a  parsepath $dir].
2bb0: 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61  ...switch -- $pa
2bc0: 74 68 69 6e 66 6f 28 5f 63 68 69 6c 64 72 65 6e  thinfo(_children
2bd0: 29 20 7b 0a 09 09 09 22 73 69 74 65 73 22 20 7b  ) {...."sites" {
2be0: 0a 09 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61  .....return [::a
2bf0: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53  ppfs::db eval {S
2c00: 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 68  ELECT DISTINCT h
2c10: 6f 73 74 6e 61 6d 65 20 46 52 4f 4d 20 70 61 63  ostname FROM pac
2c20: 6b 61 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09  kages;}]....}...
2c30: 09 22 70 61 63 6b 61 67 65 73 22 20 7b 0a 09 09  ."packages" {...
2c40: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a  ..catch {......:
2c50: 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78  :appfs::getindex
2c60: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
2c70: 61 6d 65 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09  ame).....}......
2c80: 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a  return [::appfs:
2c90: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  :db eval {SELECT
2ca0: 20 44 49 53 54 49 4e 43 54 20 70 61 63 6b 61 67   DISTINCT packag
2cb0: 65 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  e FROM packages 
2cc0: 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d  WHERE hostname =
2cd0: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
2ce0: 61 6d 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09  ame);}]....}....
2cf0: 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09 09 73  "os-cpu" {.....s
2d00: 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70  et retval [::app
2d10: 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c  fs::db eval {SEL
2d20: 45 43 54 20 44 49 53 54 49 4e 43 54 20 6f 73 20  ECT DISTINCT os 
2d30: 7c 7c 20 22 2d 22 20 7c 7c 20 63 70 75 41 72 63  || "-" || cpuArc
2d40: 68 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  h FROM packages 
2d50: 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d  WHERE hostname =
2d60: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
2d70: 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65  ame) AND package
2d80: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63   = $pathinfo(pac
2d90: 6b 61 67 65 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61  kage);}]......la
2da0: 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 70 6c  ppend retval "pl
2db0: 61 74 66 6f 72 6d 22 0a 0a 09 09 09 09 72 65 74  atform"......ret
2dc0: 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d  urn $retval....}
2dd0: 0a 09 09 09 22 76 65 72 73 69 6f 6e 73 22 20 7b  ...."versions" {
2de0: 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20  .....set retval 
2df0: 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  [::appfs::db eva
2e00: 6c 20 7b 0a 09 09 09 09 09 53 45 4c 45 43 54 20  l {......SELECT 
2e10: 44 49 53 54 49 4e 43 54 20 76 65 72 73 69 6f 6e  DISTINCT version
2e20: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
2e30: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
2e40: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
2e50: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
2e60: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
2e70: 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70  age) AND os = $p
2e80: 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20  athinfo(os) AND 
2e90: 63 70 75 41 72 63 68 20 3d 20 24 70 61 74 68 69  cpuArch = $pathi
2ea0: 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09 09 7d 5d  nfo(cpu);.....}]
2eb0: 0a 0a 09 09 09 09 6c 61 70 70 65 6e 64 20 72 65  ......lappend re
2ec0: 74 76 61 6c 20 22 6c 61 74 65 73 74 22 0a 0a 09  tval "latest"...
2ed0: 09 09 09 72 65 74 75 72 6e 20 24 72 65 74 76 61  ...return $retva
2ee0: 6c 0a 09 09 09 7d 0a 09 09 09 22 66 69 6c 65 73  l....}...."files
2ef0: 22 20 7b 0a 09 09 09 09 63 61 74 63 68 20 7b 0a  " {.....catch {.
2f00: 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65  .....::appfs::ge
2f10: 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 24 70 61  tpkgmanifest $pa
2f20: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
2f30: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
2f40: 67 65 5f 73 68 61 31 29 0a 09 09 09 09 7d 0a 0a  ge_sha1).....}..
2f50: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b  ....set retval [
2f60: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
2f70: 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43   {SELECT DISTINC
2f80: 54 20 66 69 6c 65 5f 6e 61 6d 65 20 46 52 4f 4d  T file_name FROM
2f90: 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61 63   files WHERE pac
2fa0: 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61 74  kage_sha1 = $pat
2fb0: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68  hinfo(package_sh
2fc0: 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69 72  a1) AND file_dir
2fd0: 65 63 74 6f 72 79 20 3d 20 24 70 61 74 68 69 6e  ectory = $pathin
2fe0: 66 6f 28 66 69 6c 65 29 3b 7d 5d 0a 0a 09 09 09  fo(file);}].....
2ff0: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
3000: 73 20 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61  s pathinfo(packa
3010: 67 65 29 5d 20 26 26 20 5b 69 6e 66 6f 20 65 78  ge)] && [info ex
3020: 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 68 6f  ists pathinfo(ho
3030: 73 74 6e 61 6d 65 29 5d 20 26 26 20 5b 69 6e 66  stname)] && [inf
3040: 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66  o exists pathinf
3050: 6f 28 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 09  o(file)]} {.....
3060: 09 73 65 74 20 64 69 72 20 5b 5f 6c 6f 63 61 6c  .set dir [_local
3070: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
3080: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
3090: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
30a0: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09 09  hinfo(file)]....
30b0: 09 09 73 65 74 20 77 68 69 74 65 6f 75 74 64 69  ..set whiteoutdi
30c0: 72 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20  r [string range 
30d0: 5b 5f 77 68 69 74 65 6f 75 74 70 61 74 68 20 24  [_whiteoutpath $
30e0: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
30f0: 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  ) $pathinfo(host
3100: 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28  name) $pathinfo(
3110: 66 69 6c 65 29 5d 20 30 20 65 6e 64 2d 31 35 5d  file)] 0 end-15]
3120: 0a 0a 09 09 09 09 09 66 6f 72 65 61 63 68 20 66  .......foreach f
3130: 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  ile [glob -nocom
3140: 70 6c 61 69 6e 20 2d 74 61 69 6c 73 20 2d 64 69  plain -tails -di
3150: 72 65 63 74 6f 72 79 20 24 77 68 69 74 65 6f 75  rectory $whiteou
3160: 74 64 69 72 20 7b 7b 2e 2c 7d 2a 2e 41 50 50 46  tdir {{.,}*.APPF
3170: 53 2e 57 48 49 54 45 4f 55 54 7d 5d 20 7b 0a 09  S.WHITEOUT}] {..
3180: 09 09 09 09 09 73 65 74 20 72 65 6d 6f 76 65 20  .....set remove 
3190: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66  [string range $f
31a0: 69 6c 65 20 30 20 65 6e 64 2d 31 35 5d 0a 09 09  ile 0 end-15]...
31b0: 09 09 09 09 73 65 74 20 69 64 78 20 5b 6c 73 65  ....set idx [lse
31c0: 61 72 63 68 20 2d 65 78 61 63 74 20 24 72 65 74  arch -exact $ret
31d0: 76 61 6c 20 24 72 65 6d 6f 76 65 5d 0a 09 09 09  val $remove]....
31e0: 09 09 09 69 66 20 7b 24 69 64 78 20 21 3d 20 2d  ...if {$idx != -
31f0: 31 7d 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20  1} {........set 
3200: 72 65 74 76 61 6c 20 5b 6c 72 65 70 6c 61 63 65  retval [lreplace
3210: 20 24 72 65 74 76 61 6c 20 24 69 64 78 20 24 69   $retval $idx $i
3220: 64 78 5d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09  dx].......}.....
3230: 09 7d 0a 0a 09 09 09 09 09 66 6f 72 65 61 63 68  .}.......foreach
3240: 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63   file [glob -noc
3250: 6f 6d 70 6c 61 69 6e 20 2d 74 61 69 6c 73 20 2d  omplain -tails -
3260: 64 69 72 65 63 74 6f 72 79 20 24 64 69 72 20 2d  directory $dir -
3270: 74 79 70 65 73 20 7b 64 20 66 20 6c 20 70 20 73  types {d f l p s
3280: 7d 20 7b 7b 2e 2c 7d 2a 7d 5d 20 7b 0a 09 09 09  } {{.,}*}] {....
3290: 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d 3d 20  ...if {$file == 
32a0: 22 2e 22 20 7c 7c 20 24 66 69 6c 65 20 3d 3d 20  "." || $file == 
32b0: 22 2e 2e 22 7d 20 7b 0a 09 09 09 09 09 09 09 63  ".."} {........c
32c0: 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 7d 0a  ontinue.......}.
32d0: 0a 09 09 09 09 09 09 69 66 20 7b 24 66 69 6c 65  .......if {$file
32e0: 20 3d 3d 20 22 2e 41 50 50 46 53 2e 57 48 49 54   == ".APPFS.WHIT
32f0: 45 4f 55 54 22 7d 20 7b 0a 09 09 09 09 09 09 09  EOUT"} {........
3300: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 7d  continue.......}
3310: 0a 0a 09 09 09 09 09 09 69 66 20 7b 5b 6c 73 65  ........if {[lse
3320: 61 72 63 68 20 2d 65 78 61 63 74 20 24 72 65 74  arch -exact $ret
3330: 76 61 6c 20 24 66 69 6c 65 5d 20 21 3d 20 2d 31  val $file] != -1
3340: 7d 20 7b 0a 09 09 09 09 09 09 09 63 6f 6e 74 69  } {........conti
3350: 6e 75 65 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09  nue.......}.....
3360: 09 09 09 6c 61 70 70 65 6e 64 20 72 65 74 76 61  ...lappend retva
3370: 6c 20 24 66 69 6c 65 0a 09 09 09 09 09 7d 0a 09  l $file......}..
3380: 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75 72 6e  ...}......return
3390: 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 09   $retval....}...
33a0: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  }....return -cod
33b0: 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64  e error "Invalid
33c0: 20 6f 72 20 75 6e 61 63 63 65 70 74 61 62 6c 65   or unacceptable
33d0: 20 70 61 74 68 3a 20 24 64 69 72 22 0a 09 7d 0a   path: $dir"..}.
33e0: 0a 09 70 72 6f 63 20 67 65 74 61 74 74 72 20 7b  ..proc getattr {
33f0: 70 61 74 68 7d 20 7b 0a 09 09 61 72 72 61 79 20  path} {...array 
3400: 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70  set pathinfo [_p
3410: 61 72 73 65 70 61 74 68 20 24 70 61 74 68 5d 0a  arsepath $path].
3420: 09 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76  ..array set retv
3430: 61 6c 20 5b 6c 69 73 74 5d 0a 0a 09 09 63 61 74  al [list]....cat
3440: 63 68 20 7b 0a 09 09 09 3a 3a 61 70 70 66 73 3a  ch {....::appfs:
3450: 3a 67 65 74 69 6e 64 65 78 20 24 70 61 74 68 69  :getindex $pathi
3460: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 0a 09 09  nfo(hostname)...
3470: 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 70 6b 67  .::appfs::getpkg
3480: 6d 61 6e 69 66 65 73 74 20 24 70 61 74 68 69 6e  manifest $pathin
3490: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
34a0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
34b0: 68 61 31 29 0a 09 09 7d 0a 0a 09 09 73 77 69 74  ha1)...}....swit
34c0: 63 68 20 2d 2d 20 24 70 61 74 68 69 6e 66 6f 28  ch -- $pathinfo(
34d0: 5f 74 79 70 65 29 20 7b 0a 09 09 09 22 74 6f 70  _type) {...."top
34e0: 6c 65 76 65 6c 22 20 7b 0a 09 09 09 09 73 65 74  level" {.....set
34f0: 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64 69   retval(type) di
3500: 72 65 63 74 6f 72 79 0a 09 09 09 09 73 65 74 20  rectory.....set 
3510: 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e  retval(childcoun
3520: 74 29 20 32 3b 0a 09 09 09 7d 0a 09 09 09 22 73  t) 2;....}...."s
3530: 69 74 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20  ites" {.....set 
3540: 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a  check [::appfs::
3550: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45  db onecolumn {SE
3560: 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61 63 6b  LECT 1 FROM pack
3570: 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e  ages WHERE hostn
3580: 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ame = $pathinfo(
3590: 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09  hostname);}]....
35a0: 09 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22  .if {$check == "
35b0: 31 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72  1"} {......set r
35c0: 65 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65  etval(type) dire
35d0: 63 74 6f 72 79 0a 09 09 09 09 09 73 65 74 20 72  ctory......set r
35e0: 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74  etval(childcount
35f0: 29 20 32 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a  ) 2;.....}....}.
3600: 09 09 09 22 70 61 63 6b 61 67 65 73 22 20 7b 0a  ..."packages" {.
3610: 09 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a  ....set check [:
3620: 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f  :appfs::db oneco
3630: 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31 20 46  lumn {SELECT 1 F
3640: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
3650: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70  RE hostname = $p
3660: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
3670: 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20  ) AND package = 
3680: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
3690: 65 29 3b 7d 5d 0a 09 09 09 09 69 66 20 7b 24 63  e);}].....if {$c
36a0: 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09  heck == "1"} {..
36b0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74  ....set retval(t
36c0: 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09  ype) directory..
36d0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
36e0: 68 69 6c 64 63 6f 75 6e 74 29 20 32 3b 0a 09 09  hildcount) 2;...
36f0: 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d  ..}....}...."os-
3700: 63 70 75 22 20 7b 0a 09 09 09 09 69 66 20 7b 24  cpu" {.....if {$
3710: 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 3d 3d 20  pathinfo(os) == 
3720: 22 70 6c 61 74 66 6f 72 6d 22 20 26 26 20 24 70  "platform" && $p
3730: 61 74 68 69 6e 66 6f 28 63 70 75 29 20 3d 3d 20  athinfo(cpu) == 
3740: 22 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72  ""} {......set r
3750: 65 74 76 61 6c 28 74 79 70 65 29 20 73 79 6d 6c  etval(type) syml
3760: 69 6e 6b 0a 09 09 09 09 09 73 65 74 20 72 65 74  ink......set ret
3770: 76 61 6c 28 73 6f 75 72 63 65 29 20 5b 70 6c 61  val(source) [pla
3780: 74 66 6f 72 6d 3a 3a 67 65 6e 65 72 69 63 5d 0a  tform::generic].
3790: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
37a0: 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61  ..set check [::a
37b0: 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75  ppfs::db onecolu
37c0: 6d 6e 20 7b 0a 09 09 09 09 09 09 53 45 4c 45 43  mn {.......SELEC
37d0: 54 20 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  T 1 FROM package
37e0: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
37f0: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
3800: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
3810: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
3820: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d  ackage) AND os =
3830: 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41   $pathinfo(os) A
3840: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61  ND cpuArch = $pa
3850: 74 68 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09  thinfo(cpu);....
3860: 09 09 7d 5d 0a 09 09 09 09 09 69 66 20 7b 24 63  ..}]......if {$c
3870: 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09  heck == "1"} {..
3880: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3890: 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a  type) directory.
38a0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
38b0: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 32 3b 0a  (childcount) 2;.
38c0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09  .....}.....}....
38d0: 7d 0a 09 09 09 22 76 65 72 73 69 6f 6e 73 22 20  }...."versions" 
38e0: 7b 0a 09 09 09 09 69 66 20 7b 24 70 61 74 68 69  {.....if {$pathi
38f0: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 3d 3d 20  nfo(version) == 
3900: 22 6c 61 74 65 73 74 22 7d 20 7b 0a 09 09 09 09  "latest"} {.....
3910: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
3920: 29 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09 73  ) symlink......s
3930: 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65  et retval(source
3940: 29 20 22 31 2e 30 22 0a 09 09 09 09 7d 20 65 6c  ) "1.0".....} el
3950: 73 65 20 7b 0a 09 09 09 09 09 69 66 20 7b 5b 69  se {......if {[i
3960: 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 69  nfo exists pathi
3970: 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31  nfo(package_sha1
3980: 29 5d 20 26 26 20 24 70 61 74 68 69 6e 66 6f 28  )] && $pathinfo(
3990: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 21 3d  package_sha1) !=
39a0: 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 73 65 74   ""} {.......set
39b0: 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64 69   retval(type) di
39c0: 72 65 63 74 6f 72 79 0a 09 09 09 09 09 09 73 65  rectory.......se
39d0: 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f  t retval(childco
39e0: 75 6e 74 29 20 32 3b 0a 09 09 09 09 09 7d 0a 09  unt) 2;......}..
39f0: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 66 69  ...}....}...."fi
3a00: 6c 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20 72  les" {.....set r
3a10: 65 74 76 61 6c 28 70 61 63 6b 61 67 65 64 29 20  etval(packaged) 
3a20: 31 0a 0a 09 09 09 09 73 65 74 20 6c 6f 63 61 6c  1......set local
3a30: 70 61 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68  path [_localpath
3a40: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
3a50: 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  ge) $pathinfo(ho
3a60: 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66  stname) $pathinf
3a70: 6f 28 66 69 6c 65 29 5d 0a 09 09 09 09 73 65 74  o(file)].....set
3a80: 20 77 68 69 74 65 6f 75 74 70 61 74 68 20 20 5b   whiteoutpath  [
3a90: 5f 77 68 69 74 65 6f 75 74 70 61 74 68 20 24 70  _whiteoutpath $p
3aa0: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
3ab0: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
3ac0: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
3ad0: 69 6c 65 29 5d 0a 0a 09 09 09 09 73 65 74 20 72  ile)]......set r
3ae0: 65 74 76 61 6c 28 6c 6f 63 61 6c 70 61 74 68 29  etval(localpath)
3af0: 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 09   $localpath.....
3b00: 73 65 74 20 72 65 74 76 61 6c 28 77 68 69 74 65  set retval(white
3b10: 6f 75 74 70 61 74 68 29 20 24 77 68 69 74 65 6f  outpath) $whiteo
3b20: 75 74 70 61 74 68 0a 0a 09 09 09 09 69 66 20 7b  utpath......if {
3b30: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 6c 6f  [file exists $lo
3b40: 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09  calpath]} {.....
3b50: 09 73 65 74 20 72 65 74 76 61 6c 28 69 73 5f 6c  .set retval(is_l
3b60: 6f 63 61 6c 66 69 6c 65 29 20 31 0a 09 09 09 09  ocalfile) 1.....
3b70: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 09 66  .catch {.......f
3b80: 69 6c 65 20 6c 73 74 61 74 20 24 6c 6f 63 61 6c  ile lstat $local
3b90: 70 61 74 68 20 6c 6f 63 61 6c 70 61 74 68 69 6e  path localpathin
3ba0: 66 6f 0a 09 09 09 09 09 09 73 65 74 20 72 65 74  fo.......set ret
3bb0: 76 61 6c 28 74 69 6d 65 29 20 24 6c 6f 63 61 6c  val(time) $local
3bc0: 70 61 74 68 69 6e 66 6f 28 6d 74 69 6d 65 29 0a  pathinfo(mtime).
3bd0: 0a 09 09 09 09 09 09 73 77 69 74 63 68 20 2d 2d  .......switch --
3be0: 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f 28   $localpathinfo(
3bf0: 74 79 70 65 29 20 7b 0a 09 09 09 09 09 09 09 22  type) {........"
3c00: 64 69 72 65 63 74 6f 72 79 22 20 7b 0a 09 09 09  directory" {....
3c10: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3c20: 74 79 70 65 29 20 22 64 69 72 65 63 74 6f 72 79  type) "directory
3c30: 22 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  ".........set re
3c40: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
3c50: 20 32 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09   2........}.....
3c60: 09 09 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09  ..."file" {.....
3c70: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74  ....set retval(t
3c80: 79 70 65 29 20 22 66 69 6c 65 22 0a 09 09 09 09  ype) "file".....
3c90: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73  ....set retval(s
3ca0: 69 7a 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69  ize) $localpathi
3cb0: 6e 66 6f 28 73 69 7a 65 29 0a 09 09 09 09 09 09  nfo(size).......
3cc0: 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 65 63  ..if {[file exec
3cd0: 75 74 61 62 6c 65 20 24 6c 6f 63 61 6c 70 61 74  utable $localpat
3ce0: 68 5d 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 73  h]} {..........s
3cf0: 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d 73 29  et retval(perms)
3d00: 20 22 78 22 0a 09 09 09 09 09 09 09 09 7d 20 65   "x".........} e
3d10: 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 09 73  lse {..........s
3d20: 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d 73 29  et retval(perms)
3d30: 20 22 22 0a 09 09 09 09 09 09 09 09 7d 0a 09 09   "".........}...
3d40: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22 6c  .....}........"l
3d50: 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 09 09 73  ink" {.........s
3d60: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
3d70: 22 73 79 6d 6c 69 6e 6b 22 0a 09 09 09 09 09 09  "symlink".......
3d80: 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75  ..set retval(sou
3d90: 72 63 65 29 20 5b 66 69 6c 65 20 72 65 61 64 6c  rce) [file readl
3da0: 69 6e 6b 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a  ink $localpath].
3db0: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
3dc0: 22 66 69 66 6f 22 20 7b 0a 09 09 09 09 09 09 09  "fifo" {........
3dd0: 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20 73  .# Capitalized s
3de0: 6f 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74  o that the first
3df0: 20 63 68 61 72 20 69 73 20 75 6e 69 71 75 65 0a   char is unique.
3e00: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3e10: 61 6c 28 74 79 70 65 29 20 22 46 69 66 6f 22 0a  al(type) "Fifo".
3e20: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
3e30: 22 73 6f 63 6b 65 74 22 20 7b 0a 09 09 09 09 09  "socket" {......
3e40: 09 09 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64  ...# Capitalized
3e50: 20 73 6f 20 74 68 61 74 20 74 68 65 20 66 69 72   so that the fir
3e60: 73 74 20 63 68 61 72 20 69 73 20 75 6e 69 71 75  st char is uniqu
3e70: 65 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  e.........set re
3e80: 74 76 61 6c 28 74 79 70 65 29 20 22 53 6f 63 6b  tval(type) "Sock
3e90: 65 74 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09  et"........}....
3ea0: 09 09 09 7d 0a 09 09 09 09 09 7d 20 65 72 72 0a  ...}......} err.
3eb0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
3ec0: 09 09 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69  ..if {![file exi
3ed0: 73 74 73 20 24 77 68 69 74 65 6f 75 74 70 61 74  sts $whiteoutpat
3ee0: 68 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20  h]} {.......set 
3ef0: 72 65 74 76 61 6c 28 69 73 5f 72 65 6d 6f 74 65  retval(is_remote
3f00: 66 69 6c 65 29 20 31 0a 0a 09 09 09 09 09 09 73  file) 1........s
3f10: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24  et work [split $
3f20: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22  pathinfo(file) "
3f30: 2f 22 5d 0a 09 09 09 09 09 09 73 65 74 20 64 69  /"].......set di
3f40: 72 65 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c  rectory [join [l
3f50: 72 61 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e  range $work 0 en
3f60: 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09  d-1] "/"].......
3f70: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78  set file [lindex
3f80: 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 0a 09 09 09   $work end].....
3f90: 09 09 09 69 66 20 7b 24 64 69 72 65 63 74 6f 72  ...if {$director
3fa0: 79 20 3d 3d 20 22 22 20 26 26 20 24 66 69 6c 65  y == "" && $file
3fb0: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09   == ""} {.......
3fc0: 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61  .array set retva
3fd0: 6c 20 5b 6c 69 73 74 20 74 79 70 65 20 64 69 72  l [list type dir
3fe0: 65 63 74 6f 72 79 20 63 68 69 6c 64 63 6f 75 6e  ectory childcoun
3ff0: 74 20 32 5d 0a 09 09 09 09 09 09 7d 0a 0a 09 09  t 2].......}....
4000: 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20  ....::appfs::db 
4010: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 79 70  eval {SELECT typ
4020: 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c  e, time, source,
4030: 20 73 69 7a 65 2c 20 70 65 72 6d 73 20 46 52 4f   size, perms FRO
4040: 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61  M files WHERE pa
4050: 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61  ckage_sha1 = $pa
4060: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
4070: 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69  ha1) AND file_di
4080: 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65 63  rectory = $direc
4090: 74 6f 72 79 20 41 4e 44 20 66 69 6c 65 5f 6e 61  tory AND file_na
40a0: 6d 65 20 3d 20 24 66 69 6c 65 3b 7d 20 72 65 74  me = $file;} ret
40b0: 76 61 6c 20 7b 7d 0a 09 09 09 09 09 09 75 6e 73  val {}.......uns
40c0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
40d0: 65 74 76 61 6c 28 2a 29 0a 09 09 09 09 09 7d 0a  etval(*)......}.
40e0: 09 09 09 09 7d 0a 0a 09 09 09 7d 0a 09 09 7d 0a  ....}.....}...}.
40f0: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
4100: 69 73 74 73 20 72 65 74 76 61 6c 28 74 79 70 65  ists retval(type
4110: 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  )]} {....return 
4120: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f 20  -code error "No 
4130: 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72  such file or dir
4140: 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09 72  ectory"...}....r
4150: 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74  eturn [array get
4160: 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72   retval]..}...pr
4170: 6f 63 20 6f 70 65 6e 70 61 74 68 20 7b 70 61 74  oc openpath {pat
4180: 68 20 6d 6f 64 65 7d 20 7b 0a 09 09 61 72 72 61  h mode} {...arra
4190: 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b  y set pathinfo [
41a0: 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74 68  _parsepath $path
41b0: 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69 6e  ]....if {$pathin
41c0: 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66 69  fo(_type) != "fi
41d0: 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  les"} {....retur
41e0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69  n -code error "i
41f0: 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d  nvalid type"...}
4200: 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74  ....set localpat
4210: 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70  h [_localpath $p
4220: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
4230: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4240: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
4250: 69 6c 65 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f  ile)]....if {$mo
4260: 64 65 20 3d 3d 20 22 63 72 65 61 74 65 22 7d 20  de == "create"} 
4270: 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63  {....return $loc
4280: 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 69 66  alpath...}....if
4290: 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24   {[file exists $
42a0: 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09  localpath]} {...
42b0: 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61  .return $localpa
42c0: 74 68 0a 09 09 7d 0a 0a 09 09 73 65 74 20 77 6f  th...}....set wo
42d0: 72 6b 20 5b 73 70 6c 69 74 20 24 70 61 74 68 69  rk [split $pathi
42e0: 6e 66 6f 28 66 69 6c 65 29 20 22 2f 22 5d 0a 09  nfo(file) "/"]..
42f0: 09 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b  .set directory [
4300: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f  join [lrange $wo
4310: 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d  rk 0 end-1] "/"]
4320: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e  ...set file [lin
4330: 64 65 78 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 09  dex $work end]..
4340: 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  .::appfs::db eva
4350: 6c 20 7b 53 45 4c 45 43 54 20 66 69 6c 65 5f 73  l {SELECT file_s
4360: 68 61 31 2c 20 70 65 72 6d 73 20 46 52 4f 4d 20  ha1, perms FROM 
4370: 66 69 6c 65 73 20 57 48 45 52 45 20 70 61 63 6b  files WHERE pack
4380: 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61 74 68  age_sha1 = $path
4390: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61  info(package_sha
43a0: 31 29 20 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65  1) AND file_name
43b0: 20 3d 20 24 66 69 6c 65 20 41 4e 44 20 66 69 6c   = $file AND fil
43c0: 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24 64  e_directory = $d
43d0: 69 72 65 63 74 6f 72 79 3b 7d 20 70 6b 67 70 61  irectory;} pkgpa
43e0: 74 68 69 6e 66 6f 20 7b 7d 0a 0a 09 09 69 66 20  thinfo {}....if 
43f0: 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 66 69  {$pkgpathinfo(fi
4400: 6c 65 5f 73 68 61 31 29 20 3d 3d 20 22 22 7d 20  le_sha1) == ""} 
4410: 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  {....return -cod
4420: 65 20 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68  e error "No such
4430: 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f   file or directo
4440: 72 79 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c  ry"...}....set l
4450: 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 20 5b 64  ocalcachefile [d
4460: 6f 77 6e 6c 6f 61 64 20 24 70 61 74 68 69 6e 66  ownload $pathinf
4470: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 6b 67  o(hostname) $pkg
4480: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 5f 73 68  pathinfo(file_sh
4490: 61 31 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64  a1)]....if {$mod
44a0: 65 20 3d 3d 20 22 77 72 69 74 65 22 7d 20 7b 0a  e == "write"} {.
44b0: 09 09 09 73 65 74 20 74 6d 70 6c 6f 63 61 6c 70  ...set tmplocalp
44c0: 61 74 68 20 22 24 7b 6c 6f 63 61 6c 70 61 74 68  ath "${localpath
44d0: 7d 2e 5b 65 78 70 72 20 72 61 6e 64 28 29 5d 5b  }.[expr rand()][
44e0: 63 6c 6f 63 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a  clock clicks]"..
44f0: 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 30 0a  ...set failed 0.
4500: 09 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a  ...if {[catch {.
4510: 09 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b  ....file mkdir [
4520: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 6c 6f  file dirname $lo
4530: 63 61 6c 70 61 74 68 5d 0a 09 09 09 09 66 69 6c  calpath].....fil
4540: 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d  e copy -force --
4550: 20 24 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65   $localcachefile
4560: 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 0a   $tmplocalpath..
4570: 09 09 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68  ....if {$pkgpath
4580: 69 6e 66 6f 28 70 65 72 6d 73 29 20 3d 3d 20 22  info(perms) == "
4590: 78 22 7d 20 7b 0a 09 09 09 09 09 66 69 6c 65 20  x"} {......file 
45a0: 61 74 74 72 69 62 75 74 65 73 20 24 74 6d 70 6c  attributes $tmpl
45b0: 6f 63 61 6c 70 61 74 68 20 2d 70 65 72 6d 69 73  ocalpath -permis
45c0: 73 69 6f 6e 73 20 2b 78 0a 09 09 09 09 7d 0a 0a  sions +x.....}..
45d0: 09 09 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20  ....file rename 
45e0: 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c 6f  -force -- $tmplo
45f0: 63 61 6c 70 61 74 68 20 24 6c 6f 63 61 6c 70 61  calpath $localpa
4600: 74 68 0a 09 09 09 7d 20 65 72 72 5d 7d 20 7b 0a  th....} err]} {.
4610: 09 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 31  ....set failed 1
4620: 0a 09 09 09 7d 0a 09 09 09 63 61 74 63 68 20 7b  ....}....catch {
4630: 0a 09 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65  .....file delete
4640: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c   -force -- $tmpl
4650: 6f 63 61 6c 70 61 74 68 0a 09 09 09 7d 0a 0a 09  ocalpath....}...
4660: 09 09 69 66 20 7b 24 66 61 69 6c 65 64 7d 20 7b  ..if {$failed} {
4670: 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  .....return -cod
4680: 65 20 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09  e error $err....
4690: 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f  }.....return $lo
46a0: 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72  calpath...}....r
46b0: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68  eturn $localcach
46c0: 65 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  efile..}...proc 
46d0: 6c 6f 63 61 6c 70 61 74 68 20 7b 70 61 74 68 7d  localpath {path}
46e0: 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70   {...array set p
46f0: 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70  athinfo [_parsep
4700: 61 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66  ath $path]....if
4710: 20 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70   {$pathinfo(_typ
4720: 65 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b  e) != "files"} {
4730: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
4740: 20 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20   error "invalid 
4750: 74 79 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74  type"...}....set
4760: 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63   localpath [_loc
4770: 61 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f  alpath $pathinfo
4780: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69  (package) $pathi
4790: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
47a0: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a  athinfo(file)]..
47b0: 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70  ..return $localp
47c0: 61 74 68 0a 09 7d 0a 0a 09 70 72 6f 63 20 65 78  ath..}...proc ex
47d0: 69 73 74 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09  ists {path} {...
47e0: 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 69  catch {....set i
47f0: 6e 66 6f 20 5b 67 65 74 61 74 74 72 20 24 70 61  nfo [getattr $pa
4800: 74 68 5d 0a 09 09 7d 20 65 72 72 0a 0a 09 09 69  th]...} err....i
4810: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
4820: 20 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09 69 66 20   info]} {....if 
4830: 7b 24 65 72 72 20 3d 3d 20 22 4e 6f 20 73 75 63  {$err == "No suc
4840: 68 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74  h file or direct
4850: 6f 72 79 22 7d 20 7b 0a 09 09 09 09 72 65 74 75  ory"} {.....retu
4860: 72 6e 20 5b 6c 69 73 74 5d 0a 09 09 09 7d 20 65  rn [list]....} e
4870: 6c 73 65 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  lse {.....return
4880: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72   -code error $er
4890: 72 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65  r....}...}....re
48a0: 74 75 72 6e 20 24 69 6e 66 6f 0a 09 7d 0a 0a 09  turn $info..}...
48b0: 70 72 6f 63 20 70 72 65 70 61 72 65 5f 74 6f 5f  proc prepare_to_
48c0: 63 72 65 61 74 65 20 7b 70 61 74 68 20 7b 6d 75  create {path {mu
48d0: 73 74 5f 6e 6f 74 5f 65 78 69 73 74 20 31 7d 7d  st_not_exist 1}}
48e0: 20 7b 0a 09 09 69 66 20 7b 24 6d 75 73 74 5f 6e   {...if {$must_n
48f0: 6f 74 5f 65 78 69 73 74 7d 20 7b 0a 09 09 09 69  ot_exist} {....i
4900: 66 20 7b 5b 65 78 69 73 74 73 20 24 70 61 74 68  f {[exists $path
4910: 5d 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72  ] != ""} {.....r
4920: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
4930: 72 20 22 46 69 6c 65 20 61 6c 72 65 61 64 79 20  r "File already 
4940: 65 78 69 73 74 73 22 0a 09 09 09 7d 0a 09 09 7d  exists"....}...}
4950: 0a 0a 09 09 73 65 74 20 66 69 6c 65 6e 61 6d 65  ....set filename
4960: 20 5b 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74   [localpath $pat
4970: 68 5d 0a 0a 09 09 73 65 74 20 64 69 72 6e 61 6d  h]....set dirnam
4980: 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20  e [file dirname 
4990: 24 66 69 6c 65 6e 61 6d 65 5d 0a 0a 09 09 66 69  $filename]....fi
49a0: 6c 65 20 6d 6b 64 69 72 20 24 64 69 72 6e 61 6d  le mkdir $dirnam
49b0: 65 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c  e....return $fil
49c0: 65 6e 61 6d 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  ename..}...proc 
49d0: 75 6e 6c 69 6e 6b 70 61 74 68 20 7b 70 61 74 68  unlinkpath {path
49e0: 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20  } {...array set 
49f0: 70 61 74 68 61 74 74 72 73 20 5b 65 78 69 73 74  pathattrs [exist
4a00: 73 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b  s $path]....if {
4a10: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61  ![info exists pa
4a20: 74 68 61 74 74 72 73 28 70 61 63 6b 61 67 65 64  thattrs(packaged
4a30: 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  )]} {....return 
4a40: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e 76  -code error "inv
4a50: 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d 0a 0a  alid type"...}..
4a60: 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74 68 20  ..set localpath 
4a70: 24 70 61 74 68 61 74 74 72 73 28 6c 6f 63 61 6c  $pathattrs(local
4a80: 70 61 74 68 29 0a 0a 09 09 69 66 20 7b 5b 69 6e  path)....if {[in
4a90: 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 74  fo exists pathat
4aa0: 74 72 73 28 69 73 5f 6c 6f 63 61 6c 66 69 6c 65  trs(is_localfile
4ab0: 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 5b 66 69  )]} {....if {[fi
4ac0: 6c 65 20 69 73 64 69 72 65 63 74 6f 72 79 20 24  le isdirectory $
4ad0: 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09  localpath]} {...
4ae0: 09 09 73 65 74 20 63 68 69 6c 64 72 65 6e 20 5b  ..set children [
4af0: 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74  getchildren $pat
4b00: 68 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 6c 6c 65  h]......if {[lle
4b10: 6e 67 74 68 20 24 63 68 69 6c 64 72 65 6e 5d 20  ngth $children] 
4b20: 21 3d 20 30 7d 20 7b 0a 09 09 09 09 09 72 65 74  != 0} {......ret
4b30: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
4b40: 22 41 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65  "Asked to delete
4b50: 20 6e 6f 6e 2d 65 6d 70 74 79 20 64 69 72 65 63   non-empty direc
4b60: 74 6f 72 79 22 0a 09 09 09 09 7d 0a 09 09 09 7d  tory".....}....}
4b70: 0a 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65  .....file delete
4b80: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61   -force -- $loca
4b90: 6c 70 61 74 68 0a 09 09 7d 20 65 6c 73 65 69 66  lpath...} elseif
4ba0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70   {[info exists p
4bb0: 61 74 68 61 74 74 72 73 28 69 73 5f 72 65 6d 6f  athattrs(is_remo
4bc0: 74 65 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 69  tefile)]} {....i
4bd0: 66 20 7b 24 70 61 74 68 61 74 74 72 73 28 74 79  f {$pathattrs(ty
4be0: 70 65 29 20 3d 3d 20 22 64 69 72 65 63 74 6f 72  pe) == "director
4bf0: 79 22 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68  y"} {.....set ch
4c00: 69 6c 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64  ildren [getchild
4c10: 72 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09  ren $path]......
4c20: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68  if {[llength $ch
4c30: 69 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a  ildren] != 0} {.
4c40: 09 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  .....return -cod
4c50: 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74  e error "Asked t
4c60: 6f 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70  o delete non-emp
4c70: 74 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09  ty directory"...
4c80: 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73  ..}....}...} els
4c90: 65 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  e {....return -c
4ca0: 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 6b 6e 6f  ode error "Unkno
4cb0: 77 6e 20 69 66 20 66 69 6c 65 20 69 73 20 72 65  wn if file is re
4cc0: 6d 6f 74 65 20 6f 72 20 6c 6f 63 61 6c 20 21 3f  mote or local !?
4cd0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 77 68 69  "...}....set whi
4ce0: 74 65 6f 75 74 66 69 6c 65 20 24 70 61 74 68 61  teoutfile $patha
4cf0: 74 74 72 73 28 77 68 69 74 65 6f 75 74 70 61 74  ttrs(whiteoutpat
4d00: 68 29 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75  h)...set whiteou
4d10: 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61  tdir [file dirna
4d20: 6d 65 20 24 77 68 69 74 65 6f 75 74 66 69 6c 65  me $whiteoutfile
4d30: 5d 0a 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24  ]...file mkdir $
4d40: 77 68 69 74 65 6f 75 74 64 69 72 0a 09 09 63 6c  whiteoutdir...cl
4d50: 6f 73 65 20 5b 6f 70 65 6e 20 24 77 68 69 74 65  ose [open $white
4d60: 6f 75 74 66 69 6c 65 20 77 5d 0a 09 7d 0a 7d 0a  outfile w]..}.}.