Hex Artifact Content

Artifact 99393ab276902817288ac419ba3386363769d94e:


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 70 61 63  ire platform.pac
0090: 6b 61 67 65 20 72 65 71 75 69 72 65 20 70 6b 69  kage require pki
00a0: 0a 0a 23 20 46 75 6e 63 74 69 6f 6e 73 20 73 70  ..# Functions sp
00b0: 65 63 69 66 69 63 61 6c 6c 79 20 6d 65 61 6e 74  ecifically meant
00c0: 20 66 6f 72 20 75 73 65 72 73 20 74 6f 20 72 65   for users to re
00d0: 70 6c 61 63 65 20 61 73 20 61 20 70 61 72 74 20  place as a part 
00e0: 6f 66 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e  of configuration
00f0: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20  .namespace eval 
0100: 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 20 7b 0a  ::appfs::user {.
0110: 09 23 20 55 73 65 72 2d 72 65 70 6c 61 63 61 62  .# User-replacab
0120: 6c 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63  le function to c
0130: 6f 6e 76 65 72 74 20 61 20 68 6f 73 74 6e 61 6d  onvert a hostnam
0140: 65 2f 68 61 73 68 2f 6d 65 74 68 6f 64 20 74 6f  e/hash/method to
0150: 20 61 6e 20 55 52 4c 0a 09 70 72 6f 63 20 63 6f   an URL..proc co
0160: 6e 73 74 72 75 63 74 5f 75 72 6c 20 7b 68 6f 73  nstruct_url {hos
0170: 74 6e 61 6d 65 20 68 61 73 68 20 6d 65 74 68 6f  tname hash metho
0180: 64 7d 20 7b 0a 09 09 72 65 74 75 72 6e 20 22 68  d} {...return "h
0190: 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61 6d 65 2f  ttp://$hostname/
01a0: 61 70 70 66 73 2f 24 6d 65 74 68 6f 64 2f 24 68  appfs/$method/$h
01b0: 61 73 68 22 0a 09 7d 0a 0a 09 23 20 55 73 65 72  ash"..}...# User
01c0: 2d 72 65 70 6c 61 63 65 61 62 6c 65 20 66 75 6e  -replaceable fun
01d0: 63 74 69 6f 6e 20 67 65 74 20 74 68 65 20 68 6f  ction get the ho
01e0: 6d 65 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20  me directory of 
01f0: 74 68 65 20 63 75 72 72 65 6e 74 20 75 73 65 72  the current user
0200: 0a 09 70 72 6f 63 20 67 65 74 5f 68 6f 6d 65 64  ..proc get_homed
0210: 69 72 20 7b 7d 20 7b 0a 09 09 72 65 74 75 72 6e  ir {} {...return
0220: 20 5b 3a 3a 61 70 70 66 73 64 3a 3a 67 65 74 5f   [::appfsd::get_
0230: 68 6f 6d 65 64 69 72 5d 0a 09 7d 0a 7d 0a 0a 6e  homedir]..}.}..n
0240: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a  amespace eval ::
0250: 61 70 70 66 73 20 7b 0a 09 76 61 72 69 61 62 6c  appfs {..variabl
0260: 65 20 63 61 63 68 65 64 69 72 20 22 2f 74 6d 70  e cachedir "/tmp
0270: 2f 61 70 70 66 73 2d 63 61 63 68 65 22 0a 09 76  /appfs-cache"..v
0280: 61 72 69 61 62 6c 65 20 74 74 6c 20 33 36 30 30  ariable ttl 3600
0290: 0a 09 76 61 72 69 61 62 6c 65 20 6e 74 74 6c 20  ..variable nttl 
02a0: 36 30 0a 0a 0a 09 70 72 6f 63 20 5f 68 61 73 68  60....proc _hash
02b0: 5f 73 65 70 20 7b 68 61 73 68 20 7b 73 65 70 73  _sep {hash {seps
02c0: 20 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b 73 65   4}} {...for {se
02d0: 74 20 69 64 78 20 30 7d 20 7b 24 69 64 78 20 3c  t idx 0} {$idx <
02e0: 20 24 73 65 70 73 7d 20 7b 69 6e 63 72 20 69 64   $seps} {incr id
02f0: 78 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 72  x} {....append r
0300: 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72  etval "[string r
0310: 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70 72  ange $hash [expr
0320: 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b 65 78   {$idx * 2}] [ex
0330: 70 72 20 7b 28 24 69 64 78 20 2a 20 32 29 20 2b  pr {($idx * 2) +
0340: 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 61 70   1}]]/"...}...ap
0350: 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b 73 74  pend retval "[st
0360: 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61 73 68  ring range $hash
0370: 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a 20 32   [expr {$idx * 2
0380: 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65 74 75  }] end]"....retu
0390: 72 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a 0a 09  rn $retval..}...
03a0: 70 72 6f 63 20 5f 63 61 63 68 65 66 69 6c 65 20  proc _cachefile 
03b0: 7b 75 72 6c 20 6b 65 79 20 7b 6b 65 79 49 73 48  {url key {keyIsH
03c0: 61 73 68 20 31 7d 7d 20 7b 0a 09 09 73 65 74 20  ash 1}} {...set 
03d0: 66 69 6c 65 6b 65 79 20 24 6b 65 79 0a 09 09 69  filekey $key...i
03e0: 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b  f {$keyIsHash} {
03f0: 0a 09 09 09 73 65 74 20 66 69 6c 65 6b 65 79 20  ....set filekey 
0400: 5b 5f 68 61 73 68 5f 73 65 70 20 24 66 69 6c 65  [_hash_sep $file
0410: 6b 65 79 5d 0a 09 09 7d 0a 0a 09 09 73 65 74 20  key]...}....set 
0420: 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  file [file join 
0430: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
0440: 69 72 20 24 66 69 6c 65 6b 65 79 5d 0a 0a 09 09  ir $filekey]....
0450: 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65  file mkdir [file
0460: 20 64 69 72 6e 61 6d 65 20 24 66 69 6c 65 5d 0a   dirname $file].
0470: 0a 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69  ...if {[file exi
0480: 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09 09  sts $file]} {...
0490: 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 09  .return $file...
04a0: 7d 0a 0a 09 09 73 65 74 20 74 6d 70 66 69 6c 65  }....set tmpfile
04b0: 20 22 24 7b 66 69 6c 65 7d 2e 5b 65 78 70 72 20   "${file}.[expr 
04c0: 7b 72 61 6e 64 28 29 7d 5d 5b 63 6c 6f 63 6b 20  {rand()}][clock 
04d0: 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 73 65 74 20  clicks]"....set 
04e0: 66 64 20 5b 6f 70 65 6e 20 24 74 6d 70 66 69 6c  fd [open $tmpfil
04f0: 65 20 22 77 22 5d 0a 09 09 66 63 6f 6e 66 69 67  e "w"]...fconfig
0500: 75 72 65 20 24 66 64 20 2d 74 72 61 6e 73 6c 61  ure $fd -transla
0510: 74 69 6f 6e 20 62 69 6e 61 72 79 0a 0a 09 09 63  tion binary....c
0520: 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 74 6f  atch {....set to
0530: 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74  ken [::http::get
0540: 75 72 6c 20 24 75 72 6c 20 2d 63 68 61 6e 6e 65  url $url -channe
0550: 6c 20 24 66 64 20 2d 62 69 6e 61 72 79 20 74 72  l $fd -binary tr
0560: 75 65 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b  ue]...}....if {[
0570: 69 6e 66 6f 20 65 78 69 73 74 73 20 74 6f 6b 65  info exists toke
0580: 6e 5d 7d 20 7b 0a 09 09 09 73 65 74 20 6e 63 6f  n]} {....set nco
0590: 64 65 20 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64  de [::http::ncod
05a0: 65 20 24 74 6f 6b 65 6e 5d 0a 09 09 09 3a 3a 68  e $token]....::h
05b0: 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65  ttp::reset $toke
05c0: 6e 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  n...} else {....
05d0: 73 65 74 20 6e 63 6f 64 65 20 22 39 30 30 22 0a  set ncode "900".
05e0: 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64  ..}....close $fd
05f0: 0a 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61  ....if {$keyIsHa
0600: 73 68 7d 20 7b 0a 09 09 09 73 65 74 20 68 61 73  sh} {....set has
0610: 68 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  h [string tolowe
0620: 72 20 5b 73 68 61 31 3a 3a 73 68 61 31 20 2d 68  r [sha1::sha1 -h
0630: 65 78 20 2d 66 69 6c 65 20 24 74 6d 70 66 69 6c  ex -file $tmpfil
0640: 65 5d 5d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  e]]...} else {..
0650: 09 09 73 65 74 20 68 61 73 68 20 24 6b 65 79 0a  ..set hash $key.
0660: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 63 6f 64  ..}....if {$ncod
0670: 65 20 3d 3d 20 22 32 30 30 22 20 26 26 20 24 68  e == "200" && $h
0680: 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b 0a 09  ash == $key} {..
0690: 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66  ..file rename -f
06a0: 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65  orce -- $tmpfile
06b0: 20 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73 65 20   $file...} else 
06c0: 7b 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65  {....file delete
06d0: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66   -force -- $tmpf
06e0: 69 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  ile...}....retur
06f0: 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09 70 72  n $file..}....pr
0700: 6f 63 20 5f 69 73 48 61 73 68 20 7b 76 61 6c 75  oc _isHash {valu
0710: 65 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c 75 65  e} {...set value
0720: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
0730: 20 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66 20 7b   $value]....if {
0740: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
0750: 76 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20 7b 0a  value] != 40} {.
0760: 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a  ...return false.
0770: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72 65 67  ..}....if {![reg
0780: 65 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d 2a 24  exp {^[0-9a-f]*$
0790: 7d 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09 09 09  } $value]} {....
07a0: 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d  return false...}
07b0: 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 0a  ....return true.
07c0: 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61  .}...proc _norma
07d0: 6c 69 7a 65 4f 53 20 7b 6f 73 7d 20 7b 0a 09 09  lizeOS {os} {...
07e0: 73 65 74 20 6f 73 20 5b 73 74 72 69 6e 67 20 74  set os [string t
07f0: 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e 67 20 74  olower [string t
0800: 72 69 6d 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69  rim $os]]....swi
0810: 74 63 68 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09  tch -- $os {....
0820: 22 6c 69 6e 75 78 22 20 2d 20 22 66 72 65 65 62  "linux" - "freeb
0830: 73 64 22 20 2d 20 22 6f 70 65 6e 62 73 64 22 20  sd" - "openbsd" 
0840: 2d 20 22 6e 65 74 62 73 64 22 20 7b 0a 09 09 09  - "netbsd" {....
0850: 09 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d  .return $os....}
0860: 0a 09 09 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09  ...."sunos" {...
0870: 09 09 72 65 74 75 72 6e 20 22 73 6f 6c 61 72 69  ..return "solari
0880: 73 22 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72  s"....}...."noar
0890: 63 68 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22  ch" - "none" - "
08a0: 61 6e 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09  any" - "all" {..
08b0: 09 09 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63  ...return "noarc
08c0: 68 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72  h"....}...}....r
08d0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
08e0: 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72  r "Unable to nor
08f0: 6d 61 6c 69 7a 65 20 4f 53 3a 20 24 6f 73 22 0a  malize OS: $os".
0900: 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61  .}...proc _norma
0910: 6c 69 7a 65 43 50 55 20 7b 63 70 75 7d 20 7b 0a  lizeCPU {cpu} {.
0920: 09 09 73 65 74 20 63 70 75 20 5b 73 74 72 69 6e  ..set cpu [strin
0930: 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e  g tolower [strin
0940: 67 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a 0a 09  g trim $cpu]]...
0950: 09 73 77 69 74 63 68 20 2d 67 6c 6f 62 20 2d 2d  .switch -glob --
0960: 20 24 63 70 75 20 7b 0a 09 09 09 22 69 3f 38 36   $cpu {...."i?86
0970: 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 22  " {.....return "
0980: 69 78 38 36 22 0a 09 09 09 7d 0a 09 09 09 22 78  ix86"....}...."x
0990: 38 36 5f 36 34 22 20 7b 0a 09 09 09 09 72 65 74  86_64" {.....ret
09a0: 75 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a 09 09  urn $cpu....}...
09b0: 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e 6f 6e  ."noarch" - "non
09c0: 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22 61 6c  e" - "any" - "al
09d0: 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  l" {.....return 
09e0: 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a 09 09  "noarch"....}...
09f0: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  }....return -cod
0a00: 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20  e error "Unable 
0a10: 74 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20 43 50 55  to normalize CPU
0a20: 3a 20 24 63 70 75 22 0a 09 7d 0a 0a 09 70 72 6f  : $cpu"..}...pro
0a30: 63 20 5f 61 73 5f 75 73 65 72 20 7b 63 6f 64 65  c _as_user {code
0a40: 7d 20 7b 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a  } {...::appfsd::
0a50: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73  simulate_user_fs
0a60: 5f 65 6e 74 65 72 0a 0a 09 09 73 65 74 20 72 65  _enter....set re
0a70: 74 63 6f 64 65 20 5b 63 61 74 63 68 20 5b 6c 69  tcode [catch [li
0a80: 73 74 20 75 70 6c 65 76 65 6c 20 24 63 6f 64 65  st uplevel $code
0a90: 5d 20 72 65 74 73 74 72 5d 0a 0a 09 09 3a 3a 61  ] retstr]....::a
0aa0: 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74 65 5f  ppfsd::simulate_
0ab0: 75 73 65 72 5f 66 73 5f 6c 65 61 76 65 0a 0a 09  user_fs_leave...
0ac0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 72  .return -code $r
0ad0: 65 74 63 6f 64 65 20 24 72 65 74 73 74 72 0a 09  etcode $retstr..
0ae0: 7d 0a 0a 09 70 72 6f 63 20 69 6e 69 74 20 7b 7d  }...proc init {}
0af0: 20 7b 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65   {...if {[info e
0b00: 78 69 73 74 73 20 3a 3a 61 70 70 66 73 3a 3a 69  xists ::appfs::i
0b10: 6e 69 74 5f 63 61 6c 6c 65 64 5d 7d 20 7b 0a 09  nit_called]} {..
0b20: 09 09 72 65 74 75 72 6e 0a 09 09 7d 0a 0a 09 09  ..return...}....
0b30: 23 20 46 6f 72 63 65 20 5b 70 61 72 72 61 79 5d  # Force [parray]
0b40: 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 0a 09 09   to be loaded...
0b50: 63 61 74 63 68 20 7b 0a 09 09 09 70 61 72 72 61  catch {....parra
0b60: 79 20 64 6f 65 73 5f 6e 6f 74 5f 65 78 69 73 74  y does_not_exist
0b70: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 3a 3a 61 70  ...}....set ::ap
0b80: 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c 65 64  pfs::init_called
0b90: 20 31 0a 0a 09 09 23 20 4c 6f 61 64 20 63 6f 6e   1....# Load con
0ba0: 66 69 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 0a  figuration file.
0bb0: 09 09 73 65 74 20 63 6f 6e 66 69 67 5f 66 69 6c  ..set config_fil
0bc0: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a 3a  e [file join $::
0bd0: 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72 20  appfs::cachedir 
0be0: 63 6f 6e 66 69 67 5d 0a 09 09 69 66 20 7b 5b 66  config]...if {[f
0bf0: 69 6c 65 20 65 78 69 73 74 73 20 24 63 6f 6e 66  ile exists $conf
0c00: 69 67 5f 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 73  ig_file]} {....s
0c10: 6f 75 72 63 65 20 24 63 6f 6e 66 69 67 5f 66 69  ource $config_fi
0c20: 6c 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b  le...}....if {![
0c30: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70  info exists ::ap
0c40: 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09 09 09 66  pfs::db]} {....f
0c50: 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a 61 70 70  ile mkdir $::app
0c60: 66 73 3a 3a 63 61 63 68 65 64 69 72 0a 0a 09 09  fs::cachedir....
0c70: 09 73 71 6c 69 74 65 33 20 3a 3a 61 70 70 66 73  .sqlite3 ::appfs
0c80: 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  ::db [file join 
0c90: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
0ca0: 69 72 20 63 61 63 68 65 2e 64 62 5d 0a 09 09 7d  ir cache.db]...}
0cb0: 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 61 62  ....# Create tab
0cc0: 6c 65 73 0a 09 09 64 62 20 65 76 61 6c 20 7b 43  les...db eval {C
0cd0: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
0ce0: 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73 28  OT EXISTS sites(
0cf0: 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41 52 59  hostname PRIMARY
0d00: 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61 74 65   KEY, lastUpdate
0d10: 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62 20 65 76  , ttl);}...db ev
0d20: 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45  al {CREATE TABLE
0d30: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 70   IF NOT EXISTS p
0d40: 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61 6d 65  ackages(hostname
0d50: 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65 2c  , sha1, package,
0d60: 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70   version, os, cp
0d70: 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74 2c  uArch, isLatest,
0d80: 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29 3b 7d   haveManifest);}
0d90: 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41  ...db eval {CREA
0da0: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20  TE TABLE IF NOT 
0db0: 45 58 49 53 54 53 20 66 69 6c 65 73 28 70 61 63  EXISTS files(pac
0dc0: 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65 2c  kage_sha1, type,
0dd0: 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73   time, source, s
0de0: 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65  ize, perms, file
0df0: 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65  _sha1, file_name
0e00: 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79  , file_directory
0e10: 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20  );}....# Create 
0e20: 69 6e 64 65 78 65 73 0a 09 09 64 62 20 65 76 61  indexes...db eva
0e30: 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 45 58 20  l {CREATE INDEX 
0e40: 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73 69  IF NOT EXISTS si
0e50: 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20 73 69 74  tes_index ON sit
0e60: 65 73 20 28 68 6f 73 74 6e 61 6d 65 29 3b 7d 0a  es (hostname);}.
0e70: 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54  ..db eval {CREAT
0e80: 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45  E INDEX IF NOT E
0e90: 58 49 53 54 53 20 70 61 63 6b 61 67 65 73 5f 69  XISTS packages_i
0ea0: 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61 67 65 73  ndex ON packages
0eb0: 20 28 68 6f 73 74 6e 61 6d 65 2c 20 70 61 63 6b   (hostname, pack
0ec0: 61 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73  age, version, os
0ed0: 2c 20 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 64  , cpuArch);}...d
0ee0: 62 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49  b eval {CREATE I
0ef0: 4e 44 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53  NDEX IF NOT EXIS
0f00: 54 53 20 66 69 6c 65 73 5f 69 6e 64 65 78 20 4f  TS files_index O
0f10: 4e 20 66 69 6c 65 73 20 28 70 61 63 6b 61 67 65  N files (package
0f20: 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65  _sha1, file_name
0f30: 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79  , file_directory
0f40: 29 3b 7d 0a 09 7d 0a 0a 09 70 72 6f 63 20 64 6f  );}..}...proc do
0f50: 77 6e 6c 6f 61 64 20 7b 68 6f 73 74 6e 61 6d 65  wnload {hostname
0f60: 20 68 61 73 68 20 7b 6d 65 74 68 6f 64 20 73 68   hash {method sh
0f70: 61 31 7d 7d 20 7b 0a 09 09 73 65 74 20 75 72 6c  a1}} {...set url
0f80: 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a   [::appfs::user:
0f90: 3a 63 6f 6e 73 74 72 75 63 74 5f 75 72 6c 20 24  :construct_url $
0fa0: 68 6f 73 74 6e 61 6d 65 20 24 68 61 73 68 20 24  hostname $hash $
0fb0: 6d 65 74 68 6f 64 5d 0a 09 09 73 65 74 20 66 69  method]...set fi
0fc0: 6c 65 20 5b 5f 63 61 63 68 65 66 69 6c 65 20 24  le [_cachefile $
0fd0: 75 72 6c 20 24 68 61 73 68 5d 0a 0a 09 09 69 66  url $hash]....if
0fe0: 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20   {![file exists 
0ff0: 24 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 72 65 74  $file]} {....ret
1000: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
1010: 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68  "Unable to fetch
1020: 20 28 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20   (file does not 
1030: 65 78 69 73 74 3a 20 24 66 69 6c 65 29 22 0a 09  exist: $file)"..
1040: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69  .}....return $fi
1050: 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74  le..}...proc get
1060: 69 6e 64 65 78 20 7b 68 6f 73 74 6e 61 6d 65 7d  index {hostname}
1070: 20 7b 0a 09 09 73 65 74 20 6e 6f 77 20 5b 63 6c   {...set now [cl
1080: 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 0a 0a 09 09  ock seconds]....
1090: 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 73 20  set lastUpdates 
10a0: 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  [db eval {SELECT
10b0: 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c   lastUpdate, ttl
10c0: 20 46 52 4f 4d 20 73 69 74 65 73 20 57 48 45 52   FROM sites WHER
10d0: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f  E hostname = $ho
10e0: 73 74 6e 61 6d 65 20 4c 49 4d 49 54 20 31 3b 7d  stname LIMIT 1;}
10f0: 5d 0a 09 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68  ]...if {[llength
1100: 20 24 6c 61 73 74 55 70 64 61 74 65 73 5d 20 3d   $lastUpdates] =
1110: 3d 20 30 7d 20 7b 0a 09 09 09 73 65 74 20 6c 61  = 0} {....set la
1120: 73 74 55 70 64 61 74 65 20 30 0a 09 09 09 73 65  stUpdate 0....se
1130: 74 20 74 74 6c 20 30 0a 09 09 7d 20 65 6c 73 65  t ttl 0...} else
1140: 20 7b 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70   {....set lastUp
1150: 64 61 74 65 20 5b 6c 69 6e 64 65 78 20 24 6c 61  date [lindex $la
1160: 73 74 55 70 64 61 74 65 73 20 30 5d 0a 09 09 09  stUpdates 0]....
1170: 73 65 74 20 74 74 6c 20 5b 6c 69 6e 64 65 78 20  set ttl [lindex 
1180: 24 6c 61 73 74 55 70 64 61 74 65 73 20 31 5d 0a  $lastUpdates 1].
1190: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 6f 77 20  ..}....if {$now 
11a0: 3c 20 28 24 6c 61 73 74 55 70 64 61 74 65 20 2b  < ($lastUpdate +
11b0: 20 24 74 74 6c 29 7d 20 7b 0a 09 09 09 72 65 74   $ttl)} {....ret
11c0: 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 09 7d  urn COMPLETE...}
11d0: 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20  ....if {[string 
11e0: 6d 61 74 63 68 20 22 2a 5c 5b 2f 7e 5c 5d 2a 22  match "*\[/~\]*"
11f0: 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b 0a 09   $hostname]} {..
1200: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
1210: 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 68 6f  rror "Invalid ho
1220: 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73  stname"...}....s
1230: 65 74 20 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24  et url "http://$
1240: 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73 2f 69  hostname/appfs/i
1250: 6e 64 65 78 22 0a 0a 09 09 63 61 74 63 68 20 7b  ndex"....catch {
1260: 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b 3a  ....set token [:
1270: 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 24 75  :http::geturl $u
1280: 72 6c 5d 0a 09 09 09 69 66 20 7b 5b 3a 3a 68 74  rl]....if {[::ht
1290: 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f 6b 65 6e  tp::ncode $token
12a0: 5d 20 3d 3d 20 22 32 30 30 22 7d 20 7b 0a 09 09  ] == "200"} {...
12b0: 09 09 73 65 74 20 69 6e 64 65 78 68 61 73 68 5f  ..set indexhash_
12c0: 64 61 74 61 20 5b 3a 3a 68 74 74 70 3a 3a 64 61  data [::http::da
12d0: 74 61 20 24 74 6f 6b 65 6e 5d 0a 09 09 09 7d 0a  ta $token]....}.
12e0: 09 09 09 3a 3a 68 74 74 70 3a 3a 72 65 73 65 74  ...::http::reset
12f0: 20 24 74 6f 6b 65 6e 0a 09 09 09 3a 3a 68 74 74   $token....::htt
1300: 70 3a 3a 63 6c 65 61 6e 75 70 20 24 74 6f 6b 65  p::cleanup $toke
1310: 6e 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 69  n...}....if {![i
1320: 6e 66 6f 20 65 78 69 73 74 73 20 69 6e 64 65 78  nfo exists index
1330: 68 61 73 68 5f 64 61 74 61 5d 7d 20 7b 0a 09 09  hash_data]} {...
1340: 09 23 20 43 61 63 68 65 20 74 68 69 73 20 72 65  .# Cache this re
1350: 73 75 6c 74 20 66 6f 72 20 36 30 20 73 65 63 6f  sult for 60 seco
1360: 6e 64 73 0a 09 09 09 64 62 20 65 76 61 6c 20 7b  nds....db eval {
1370: 49 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43  INSERT OR REPLAC
1380: 45 20 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f  E INTO sites (ho
1390: 73 74 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61  stname, lastUpda
13a0: 74 65 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20  te, ttl) VALUES 
13b0: 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77  ($hostname, $now
13c0: 2c 20 24 3a 3a 61 70 70 66 73 3a 3a 6e 74 74 6c  , $::appfs::nttl
13d0: 29 3b 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 2d  );}.....return -
13e0: 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62  code error "Unab
13f0: 6c 65 20 74 6f 20 66 65 74 63 68 20 24 75 72 6c  le to fetch $url
1400: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 69 6e 64  "...}....set ind
1410: 65 78 68 61 73 68 20 5b 6c 69 6e 64 65 78 20 5b  exhash [lindex [
1420: 73 70 6c 69 74 20 24 69 6e 64 65 78 68 61 73 68  split $indexhash
1430: 5f 64 61 74 61 20 22 2c 22 5d 20 30 5d 0a 0a 09  _data ","] 0]...
1440: 09 69 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 24  .if {![_isHash $
1450: 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09  indexhash]} {...
1460: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
1470: 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 68 61 73  ror "Invalid has
1480: 68 3a 20 24 69 6e 64 65 78 68 61 73 68 22 0a 09  h: $indexhash"..
1490: 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 5b  .}....set file [
14a0: 64 6f 77 6e 6c 6f 61 64 20 24 68 6f 73 74 6e 61  download $hostna
14b0: 6d 65 20 24 69 6e 64 65 78 68 61 73 68 5d 0a 09  me $indexhash]..
14c0: 09 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66  .set fd [open $f
14d0: 69 6c 65 5d 0a 09 09 73 65 74 20 64 61 74 61 20  ile]...set data 
14e0: 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 63 6c 6f  [read $fd]...clo
14f0: 73 65 20 24 66 64 0a 0a 09 09 73 65 74 20 63 75  se $fd....set cu
1500: 72 72 5f 70 61 63 6b 61 67 65 73 20 5b 6c 69 73  rr_packages [lis
1510: 74 5d 0a 09 09 66 6f 72 65 61 63 68 20 6c 69 6e  t]...foreach lin
1520: 65 20 5b 73 70 6c 69 74 20 24 64 61 74 61 20 22  e [split $data "
1530: 5c 6e 22 5d 20 7b 0a 09 09 09 73 65 74 20 6c 69  \n"] {....set li
1540: 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ne [string trim 
1550: 24 6c 69 6e 65 5d 0a 0a 09 09 09 69 66 20 7b 5b  $line].....if {[
1560: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 22 2a 2f  string match "*/
1570: 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b 0a 09 09 09  *" $line]} {....
1580: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a  .continue....}..
1590: 09 09 09 69 66 20 7b 24 6c 69 6e 65 20 3d 3d 20  ...if {$line == 
15a0: 22 22 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  ""} {.....contin
15b0: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 73 65 74 20  ue....}.....set 
15c0: 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 6c 69 6e  work [split $lin
15d0: 65 20 22 2c 22 5d 0a 0a 09 09 09 75 6e 73 65 74  e ","].....unset
15e0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 70 6b 67   -nocomplain pkg
15f0: 49 6e 66 6f 0a 09 09 09 69 66 20 7b 5b 63 61 74  Info....if {[cat
1600: 63 68 20 7b 0a 09 09 09 09 73 65 74 20 70 6b 67  ch {.....set pkg
1610: 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 20 5b  Info(package)  [
1620: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a  lindex $work 0].
1630: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
1640: 76 65 72 73 69 6f 6e 29 20 20 5b 6c 69 6e 64 65  version)  [linde
1650: 78 20 24 77 6f 72 6b 20 31 5d 0a 09 09 09 09 73  x $work 1].....s
1660: 65 74 20 70 6b 67 49 6e 66 6f 28 6f 73 29 20 20  et pkgInfo(os)  
1670: 20 20 20 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65       [_normalize
1680: 4f 53 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  OS [lindex $work
1690: 20 32 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67   2]].....set pkg
16a0: 49 6e 66 6f 28 63 70 75 41 72 63 68 29 20 20 5b  Info(cpuArch)  [
16b0: 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 5b 6c  _normalizeCPU [l
16c0: 69 6e 64 65 78 20 24 77 6f 72 6b 20 33 5d 5d 0a  index $work 3]].
16d0: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
16e0: 68 61 73 68 29 20 20 20 20 20 5b 73 74 72 69 6e  hash)     [strin
16f0: 67 20 74 6f 6c 6f 77 65 72 20 5b 6c 69 6e 64 65  g tolower [linde
1700: 78 20 24 77 6f 72 6b 20 34 5d 5d 0a 09 09 09 09  x $work 4]].....
1710: 73 65 74 20 70 6b 67 49 6e 66 6f 28 68 61 73 68  set pkgInfo(hash
1720: 5f 74 79 70 65 29 20 22 73 68 61 31 22 0a 09 09  _type) "sha1"...
1730: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 69 73  ..set pkgInfo(is
1740: 4c 61 74 65 73 74 29 20 5b 65 78 70 72 20 7b 21  Latest) [expr {!
1750: 21 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 35  ![lindex $work 5
1760: 5d 7d 5d 0a 09 09 09 7d 5d 7d 20 7b 0a 09 09 09  ]}]....}]} {....
1770: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a  .continue....}..
1780: 09 09 09 69 66 20 7b 21 5b 5f 69 73 48 61 73 68  ...if {![_isHash
1790: 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 5d   $pkgInfo(hash)]
17a0: 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65  } {.....continue
17b0: 0a 09 09 09 7d 0a 0a 09 09 09 6c 61 70 70 65 6e  ....}.....lappen
17c0: 64 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20  d curr_packages 
17d0: 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 0a 0a  $pkgInfo(hash)..
17e0: 09 09 09 23 20 44 6f 20 6e 6f 74 20 64 6f 20 61  ...# Do not do a
17f0: 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 77 6f  ny additional wo
1800: 72 6b 20 69 66 20 77 65 20 61 6c 72 65 61 64 79  rk if we already
1810: 20 68 61 76 65 20 74 68 69 73 20 70 61 63 6b 61   have this packa
1820: 67 65 0a 09 09 09 73 65 74 20 65 78 69 73 74 69  ge....set existi
1830: 6e 67 5f 70 61 63 6b 61 67 65 73 20 5b 64 62 20  ng_packages [db 
1840: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 70 61 63  eval {SELECT pac
1850: 6b 61 67 65 20 46 52 4f 4d 20 70 61 63 6b 61 67  kage FROM packag
1860: 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d  es WHERE hostnam
1870: 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41 4e  e = $hostname AN
1880: 44 20 73 68 61 31 20 3d 20 24 70 6b 67 49 6e 66  D sha1 = $pkgInf
1890: 6f 28 68 61 73 68 29 3b 7d 5d 0a 09 09 09 69 66  o(hash);}]....if
18a0: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63   {[lsearch -exac
18b0: 74 20 24 65 78 69 73 74 69 6e 67 5f 70 61 63 6b  t $existing_pack
18c0: 61 67 65 73 20 24 70 6b 67 49 6e 66 6f 28 70 61  ages $pkgInfo(pa
18d0: 63 6b 61 67 65 29 5d 20 21 3d 20 2d 31 7d 20 7b  ckage)] != -1} {
18e0: 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09  .....continue...
18f0: 09 7d 0a 0a 09 09 09 69 66 20 7b 24 70 6b 67 49  .}.....if {$pkgI
1900: 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 7d 20 7b  nfo(isLatest)} {
1910: 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b 55 50  .....db eval {UP
1920: 44 41 54 45 20 70 61 63 6b 61 67 65 73 20 53 45  DATE packages SE
1930: 54 20 69 73 4c 61 74 65 73 74 20 3d 20 30 20 57  T isLatest = 0 W
1940: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
1950: 24 68 6f 73 74 6e 61 6d 65 20 41 4e 44 20 70 61  $hostname AND pa
1960: 63 6b 61 67 65 20 3d 20 24 70 6b 67 49 6e 66 6f  ckage = $pkgInfo
1970: 28 24 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f  ($package) AND o
1980: 73 20 3d 20 24 70 6b 67 49 6e 66 6f 28 24 70 61  s = $pkgInfo($pa
1990: 63 6b 61 67 65 29 20 41 4e 44 20 63 70 75 41 72  ckage) AND cpuAr
19a0: 63 68 20 3d 20 24 70 6b 67 49 6e 66 6f 28 63 70  ch = $pkgInfo(cp
19b0: 75 41 72 63 68 29 3b 7d 0a 09 09 09 7d 0a 0a 09  uArch);}....}...
19c0: 09 09 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52  ..db eval {INSER
19d0: 54 20 49 4e 54 4f 20 70 61 63 6b 61 67 65 73 20  T INTO packages 
19e0: 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68 61 31 2c  (hostname, sha1,
19f0: 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73 69 6f   package, versio
1a00: 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68 2c 20  n, os, cpuArch, 
1a10: 69 73 4c 61 74 65 73 74 2c 20 68 61 76 65 4d 61  isLatest, haveMa
1a20: 6e 69 66 65 73 74 29 20 56 41 4c 55 45 53 20 28  nifest) VALUES (
1a30: 24 68 6f 73 74 6e 61 6d 65 2c 20 24 70 6b 67 49  $hostname, $pkgI
1a40: 6e 66 6f 28 68 61 73 68 29 2c 20 24 70 6b 67 49  nfo(hash), $pkgI
1a50: 6e 66 6f 28 70 61 63 6b 61 67 65 29 2c 20 24 70  nfo(package), $p
1a60: 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f 6e 29 2c  kgInfo(version),
1a70: 20 24 70 6b 67 49 6e 66 6f 28 6f 73 29 2c 20 24   $pkgInfo(os), $
1a80: 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68 29  pkgInfo(cpuArch)
1a90: 2c 20 24 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74  , $pkgInfo(isLat
1aa0: 65 73 74 29 2c 20 30 29 3b 7d 0a 0a 09 09 7d 0a  est), 0);}....}.
1ab0: 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f 72 20 70 61  ...# Look for pa
1ac0: 63 6b 61 67 65 73 20 74 68 61 74 20 68 61 76 65  ckages that have
1ad0: 20 62 65 65 6e 20 64 65 6c 65 74 65 64 0a 09 09   been deleted...
1ae0: 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67  set found_packag
1af0: 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c  es [db eval {SEL
1b00: 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20 70 61  ECT sha1 FROM pa
1b10: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
1b20: 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d  tname = $hostnam
1b30: 65 3b 7d 5d 0a 09 09 66 6f 72 65 61 63 68 20 70  e;}]...foreach p
1b40: 61 63 6b 61 67 65 20 24 66 6f 75 6e 64 5f 70 61  ackage $found_pa
1b50: 63 6b 61 67 65 73 20 7b 0a 09 09 09 73 65 74 20  ckages {....set 
1b60: 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61  found_packages_a
1b70: 72 72 28 24 70 61 63 6b 61 67 65 29 20 31 0a 09  rr($package) 1..
1b80: 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20 70 61  .}....foreach pa
1b90: 63 6b 61 67 65 20 24 63 75 72 72 5f 70 61 63 6b  ckage $curr_pack
1ba0: 61 67 65 73 20 7b 0a 09 09 09 75 6e 73 65 74 20  ages {....unset 
1bb0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 6f 75 6e  -nocomplain foun
1bc0: 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72 28 24  d_packages_arr($
1bd0: 70 61 63 6b 61 67 65 29 0a 09 09 7d 0a 0a 09 09  package)...}....
1be0: 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 20  foreach package 
1bf0: 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66 6f 75  [array names fou
1c00: 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72 5d  nd_packages_arr]
1c10: 20 7b 0a 09 09 09 64 62 20 65 76 61 6c 20 7b 44   {....db eval {D
1c20: 45 4c 45 54 45 20 46 52 4f 4d 20 70 61 63 6b 61  ELETE FROM packa
1c30: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
1c40: 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41  me = $hostname A
1c50: 4e 44 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61  ND sha1 = $packa
1c60: 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09 64 62 20 65  ge;}...}....db e
1c70: 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20 52  val {INSERT OR R
1c80: 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69 74 65  EPLACE INTO site
1c90: 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61 73  s (hostname, las
1ca0: 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20 56 41  tUpdate, ttl) VA
1cb0: 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c  LUES ($hostname,
1cc0: 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73 3a   $now, $::appfs:
1cd0: 3a 74 74 6c 29 3b 7d 0a 0a 09 09 61 70 70 66 73  :ttl);}....appfs
1ce0: 64 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  d::get_path_info
1cf0: 5f 63 61 63 68 65 5f 66 6c 75 73 68 0a 0a 09 09  _cache_flush....
1d00: 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a  return COMPLETE.
1d10: 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 70 6b 67  .}...proc getpkg
1d20: 6d 61 6e 69 66 65 73 74 20 7b 68 6f 73 74 6e 61  manifest {hostna
1d30: 6d 65 20 70 61 63 6b 61 67 65 5f 73 68 61 31 7d  me package_sha1}
1d40: 20 7b 0a 09 09 73 65 74 20 68 61 76 65 4d 61 6e   {...set haveMan
1d50: 69 66 65 73 74 73 20 5b 64 62 20 65 76 61 6c 20  ifests [db eval 
1d60: 7b 53 45 4c 45 43 54 20 68 61 76 65 4d 61 6e 69  {SELECT haveMani
1d70: 66 65 73 74 20 46 52 4f 4d 20 70 61 63 6b 61 67  fest FROM packag
1d80: 65 73 20 57 48 45 52 45 20 73 68 61 31 20 3d 20  es WHERE sha1 = 
1d90: 24 70 61 63 6b 61 67 65 5f 73 68 61 31 20 4c 49  $package_sha1 LI
1da0: 4d 49 54 20 31 3b 7d 5d 0a 09 09 73 65 74 20 68  MIT 1;}]...set h
1db0: 61 76 65 4d 61 6e 69 66 65 73 74 20 5b 6c 69 6e  aveManifest [lin
1dc0: 64 65 78 20 24 68 61 76 65 4d 61 6e 69 66 65 73  dex $haveManifes
1dd0: 74 73 20 30 5d 0a 0a 09 09 69 66 20 7b 24 68 61  ts 0]....if {$ha
1de0: 76 65 4d 61 6e 69 66 65 73 74 7d 20 7b 0a 09 09  veManifest} {...
1df0: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
1e00: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69  ...}....if {![_i
1e10: 73 48 61 73 68 20 24 70 61 63 6b 61 67 65 5f 73  sHash $package_s
1e20: 68 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  ha1]} {....retur
1e30: 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65  n FAIL...}....se
1e40: 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64  t file [download
1e50: 20 24 68 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b   $hostname $pack
1e60: 61 67 65 5f 73 68 61 31 5d 0a 09 09 73 65 74 20  age_sha1]...set 
1e70: 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a  fd [open $file].
1e80: 09 09 73 65 74 20 70 6b 67 64 61 74 61 20 5b 72  ..set pkgdata [r
1e90: 65 61 64 20 24 66 64 5d 0a 09 09 63 6c 6f 73 65  ead $fd]...close
1ea0: 20 24 66 64 0a 0a 09 09 64 62 20 74 72 61 6e 73   $fd....db trans
1eb0: 61 63 74 69 6f 6e 20 7b 0a 09 09 09 66 6f 72 65  action {....fore
1ec0: 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20  ach line [split 
1ed0: 24 70 6b 67 64 61 74 61 20 22 5c 6e 22 5d 20 7b  $pkgdata "\n"] {
1ee0: 0a 09 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73  .....set line [s
1ef0: 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65  tring trim $line
1f00: 5d 0a 0a 09 09 09 09 69 66 20 7b 24 6c 69 6e 65  ]......if {$line
1f10: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 63   == ""} {......c
1f20: 6f 6e 74 69 6e 75 65 0a 09 09 09 09 7d 0a 0a 09  ontinue.....}...
1f30: 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c  ...set work [spl
1f40: 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09  it $line ","]...
1f50: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
1f60: 6c 61 69 6e 20 66 69 6c 65 49 6e 66 6f 0a 09 09  lain fileInfo...
1f70: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 74  ..set fileInfo(t
1f80: 79 70 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f  ype) [lindex $wo
1f90: 72 6b 20 30 5d 0a 09 09 09 09 73 65 74 20 66 69  rk 0].....set fi
1fa0: 6c 65 49 6e 66 6f 28 74 69 6d 65 29 20 5b 6c 69  leInfo(time) [li
1fb0: 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a 0a 09  ndex $work 1]...
1fc0: 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61  ...set work [lra
1fd0: 6e 67 65 20 24 77 6f 72 6b 20 32 20 65 6e 64 5d  nge $work 2 end]
1fe0: 0a 09 09 09 09 73 77 69 74 63 68 20 2d 2d 20 24  .....switch -- $
1ff0: 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 7b  fileInfo(type) {
2000: 0a 09 09 09 09 09 22 66 69 6c 65 22 20 7b 0a 09  ......"file" {..
2010: 09 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
2020: 6f 28 73 69 7a 65 29 20 5b 6c 69 6e 64 65 78 20  o(size) [lindex 
2030: 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73  $work 0].......s
2040: 65 74 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d  et fileInfo(perm
2050: 73 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  s) [lindex $work
2060: 20 31 5d 0a 09 09 09 09 09 09 73 65 74 20 66 69   1].......set fi
2070: 6c 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69  leInfo(sha1) [li
2080: 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09  ndex $work 2]...
2090: 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c  .....set work [l
20a0: 72 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65 6e  range $work 3 en
20b0: 64 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22  d]......}......"
20c0: 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09  symlink" {......
20d0: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f  .set fileInfo(so
20e0: 75 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77  urce) [lindex $w
20f0: 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74  ork 0].......set
2100: 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77   work [lrange $w
2110: 6f 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09 09  ork 1 end]......
2120: 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74  }.....}......set
2130: 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20   fileInfo(name) 
2140: 5b 6a 6f 69 6e 20 24 77 6f 72 6b 20 22 2c 22 5d  [join $work ","]
2150: 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
2160: 6f 28 6e 61 6d 65 29 20 5b 73 70 6c 69 74 20 5b  o(name) [split [
2170: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 66 69 6c  string trim $fil
2180: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 22 2f 22 5d  eInfo(name) "/"]
2190: 20 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69   "/"].....set fi
21a0: 6c 65 49 6e 66 6f 28 64 69 72 65 63 74 6f 72 79  leInfo(directory
21b0: 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20  ) [join [lrange 
21c0: 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20  $fileInfo(name) 
21d0: 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09  0 end-1] "/"]...
21e0: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e  ..set fileInfo(n
21f0: 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 66 69  ame) [lindex $fi
2200: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 65 6e 64  leInfo(name) end
2210: 5d 0a 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b  ]......db eval {
2220: 49 4e 53 45 52 54 20 49 4e 54 4f 20 66 69 6c 65  INSERT INTO file
2230: 73 20 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c  s (package_sha1,
2240: 20 74 79 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75   type, time, sou
2250: 72 63 65 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73  rce, size, perms
2260: 2c 20 66 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c  , file_sha1, fil
2270: 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72  e_name, file_dir
2280: 65 63 74 6f 72 79 29 20 56 41 4c 55 45 53 20 28  ectory) VALUES (
2290: 24 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 24  $package_sha1, $
22a0: 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 2c 20  fileInfo(type), 
22b0: 24 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65 29 2c  $fileInfo(time),
22c0: 20 24 66 69 6c 65 49 6e 66 6f 28 73 6f 75 72 63   $fileInfo(sourc
22d0: 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73 69  e), $fileInfo(si
22e0: 7a 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 70  ze), $fileInfo(p
22f0: 65 72 6d 73 29 2c 20 24 66 69 6c 65 49 6e 66 6f  erms), $fileInfo
2300: 28 73 68 61 31 29 2c 20 24 66 69 6c 65 49 6e 66  (sha1), $fileInf
2310: 6f 28 6e 61 6d 65 29 2c 20 24 66 69 6c 65 49 6e  o(name), $fileIn
2320: 66 6f 28 64 69 72 65 63 74 6f 72 79 29 20 29 3b  fo(directory) );
2330: 7d 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b 55  }.....db eval {U
2340: 50 44 41 54 45 20 70 61 63 6b 61 67 65 73 20 53  PDATE packages S
2350: 45 54 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20  ET haveManifest 
2360: 3d 20 31 20 57 48 45 52 45 20 73 68 61 31 20 3d  = 1 WHERE sha1 =
2370: 20 24 70 61 63 6b 61 67 65 5f 73 68 61 31 3b 7d   $package_sha1;}
2380: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 61 70 70  ....}...}....app
2390: 66 73 64 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e  fsd::get_path_in
23a0: 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 0a 0a  fo_cache_flush..
23b0: 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54  ..return COMPLET
23c0: 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6c 6f 63  E..}...proc _loc
23d0: 61 6c 70 61 74 68 20 7b 70 61 63 6b 61 67 65 20  alpath {package 
23e0: 68 6f 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b  hostname file} {
23f0: 0a 09 09 73 65 74 20 64 69 72 20 22 22 0a 09 09  ...set dir ""...
2400: 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 68  catch {....set h
2410: 6f 6d 65 64 69 72 20 5b 3a 3a 61 70 70 66 73 3a  omedir [::appfs:
2420: 3a 75 73 65 72 3a 3a 67 65 74 5f 68 6f 6d 65 64  :user::get_homed
2430: 69 72 5d 0a 09 09 09 73 65 74 20 64 69 72 20 5b  ir]....set dir [
2440: 66 69 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64  file join $homed
2450: 69 72 20 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70  ir .appfs "./${p
2460: 61 63 6b 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61  ackage}@${hostna
2470: 6d 65 7d 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 22  me}" "./${file}"
2480: 5d 0a 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 24  ]...}...return $
2490: 64 69 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 77  dir..}...proc _w
24a0: 68 69 74 65 6f 75 74 70 61 74 68 20 7b 70 61 63  hiteoutpath {pac
24b0: 6b 61 67 65 20 68 6f 73 74 6e 61 6d 65 20 66 69  kage hostname fi
24c0: 6c 65 7d 20 7b 0a 09 09 73 65 74 20 64 69 72 20  le} {...set dir 
24d0: 22 22 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09  ""...catch {....
24e0: 73 65 74 20 68 6f 6d 65 64 69 72 20 5b 3a 3a 61  set homedir [::a
24f0: 70 70 66 73 3a 3a 75 73 65 72 3a 3a 67 65 74 5f  ppfs::user::get_
2500: 68 6f 6d 65 64 69 72 5d 0a 09 09 09 73 65 74 20  homedir]....set 
2510: 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  dir [file join $
2520: 68 6f 6d 65 64 69 72 20 2e 61 70 70 66 73 20 22  homedir .appfs "
2530: 2e 2f 24 7b 70 61 63 6b 61 67 65 7d 40 24 7b 68  ./${package}@${h
2540: 6f 73 74 6e 61 6d 65 7d 22 20 22 2e 41 50 50 46  ostname}" ".APPF
2550: 53 2e 57 48 49 54 45 4f 55 54 22 20 22 2e 2f 24  S.WHITEOUT" "./$
2560: 7b 66 69 6c 65 7d 2e 41 50 50 46 53 2e 57 48 49  {file}.APPFS.WHI
2570: 54 45 4f 55 54 22 5d 0a 09 09 7d 0a 09 09 72 65  TEOUT"]...}...re
2580: 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a 09 70  turn $dir..}...p
2590: 72 6f 63 20 5f 70 61 72 73 65 70 61 74 68 20 7b  roc _parsepath {
25a0: 70 61 74 68 7d 20 7b 0a 09 09 73 65 74 20 70 61  path} {...set pa
25b0: 74 68 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  th [string trim 
25c0: 24 70 61 74 68 20 22 2f 22 5d 0a 09 09 73 65 74  $path "/"]...set
25d0: 20 70 61 74 68 20 5b 73 70 6c 69 74 20 24 70 61   path [split $pa
25e0: 74 68 20 22 2f 22 5d 0a 09 09 73 65 74 20 70 61  th "/"]...set pa
25f0: 74 68 6c 65 6e 20 5b 6c 6c 65 6e 67 74 68 20 24  thlen [llength $
2600: 70 61 74 68 5d 0a 0a 09 09 61 72 72 61 79 20 73  path]....array s
2610: 65 74 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 20  et retval [list 
2620: 5f 63 68 69 6c 64 72 65 6e 20 73 69 74 65 73 20  _children sites 
2630: 5f 74 79 70 65 20 74 6f 70 6c 65 76 65 6c 5d 0a  _type toplevel].
2640: 0a 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20  ...if {$pathlen 
2650: 3e 20 30 7d 20 7b 0a 09 09 09 73 65 74 20 72 65  > 0} {....set re
2660: 74 76 61 6c 28 68 6f 73 74 6e 61 6d 65 29 20 5b  tval(hostname) [
2670: 6c 69 6e 64 65 78 20 24 70 61 74 68 20 30 5d 0a  lindex $path 0].
2680: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
2690: 68 69 6c 64 72 65 6e 29 20 70 61 63 6b 61 67 65  hildren) package
26a0: 73 0a 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  s....set retval(
26b0: 5f 74 79 70 65 29 20 73 69 74 65 73 0a 0a 09 09  _type) sites....
26c0: 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20  .if {$pathlen > 
26d0: 31 7d 20 7b 0a 09 09 09 09 73 65 74 20 70 61 63  1} {.....set pac
26e0: 6b 61 67 65 20 5b 6c 69 6e 64 65 78 20 24 70 61  kage [lindex $pa
26f0: 74 68 20 31 5d 0a 09 09 09 09 69 66 20 7b 5b 73  th 1].....if {[s
2700: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 61  tring length $pa
2710: 63 6b 61 67 65 5d 20 3d 3d 20 22 34 30 22 20 26  ckage] == "40" &
2720: 26 20 5b 72 65 67 65 78 70 20 7b 5e 5b 61 2d 66  & [regexp {^[a-f
2730: 41 2d 46 30 2d 39 5d 2a 24 7d 20 24 70 61 63 6b  A-F0-9]*$} $pack
2740: 61 67 65 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74  age]} {......set
2750: 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f   retval(package_
2760: 73 68 61 31 29 20 24 70 61 63 6b 61 67 65 0a 09  sha1) $package..
2770: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
2780: 63 68 69 6c 64 72 65 6e 29 20 66 69 6c 65 73 0a  children) files.
2790: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
27a0: 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 0a 09 09  _type) files....
27b0: 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65  ...::appfs::db e
27c0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 70 61 63 6b  val {SELECT pack
27d0: 61 67 65 2c 20 6f 73 2c 20 63 70 75 41 72 63 68  age, os, cpuArch
27e0: 2c 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70  , version FROM p
27f0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 73 68  ackages WHERE sh
2800: 61 31 20 3d 20 24 72 65 74 76 61 6c 28 70 61 63  a1 = $retval(pac
2810: 6b 61 67 65 5f 73 68 61 31 29 3b 7d 20 70 6b 67  kage_sha1);} pkg
2820: 69 6e 66 6f 20 7b 7d 0a 09 09 09 09 09 73 65 74  info {}......set
2830: 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 29   retval(package)
2840: 20 24 70 6b 67 69 6e 66 6f 28 70 61 63 6b 61 67   $pkginfo(packag
2850: 65 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  e)......set retv
2860: 61 6c 28 6f 73 29 20 24 70 6b 67 69 6e 66 6f 28  al(os) $pkginfo(
2870: 6f 73 29 0a 09 09 09 09 09 73 65 74 20 72 65 74  os)......set ret
2880: 76 61 6c 28 63 70 75 29 20 24 70 6b 67 69 6e 66  val(cpu) $pkginf
2890: 6f 28 63 70 75 41 72 63 68 29 0a 09 09 09 09 09  o(cpuArch)......
28a0: 73 65 74 20 72 65 74 76 61 6c 28 76 65 72 73 69  set retval(versi
28b0: 6f 6e 29 20 24 70 6b 67 69 6e 66 6f 28 76 65 72  on) $pkginfo(ver
28c0: 73 69 6f 6e 29 0a 0a 09 09 09 09 09 69 66 20 7b  sion).......if {
28d0: 24 70 61 74 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a  $pathlen > 2} {.
28e0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
28f0: 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72  (file) [join [lr
2900: 61 6e 67 65 20 24 70 61 74 68 20 32 20 65 6e 64  ange $path 2 end
2910: 5d 20 22 2f 22 5d 0a 09 09 09 09 09 7d 20 65 6c  ] "/"]......} el
2920: 73 65 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72  se {.......set r
2930: 65 74 76 61 6c 28 66 69 6c 65 29 20 22 22 0a 09  etval(file) ""..
2940: 09 09 09 09 7d 0a 09 09 09 09 7d 20 65 6c 73 65  ....}.....} else
2950: 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76   {......set retv
2960: 61 6c 28 70 61 63 6b 61 67 65 29 20 24 70 61 63  al(package) $pac
2970: 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20 72 65  kage......set re
2980: 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20  tval(_children) 
2990: 6f 73 2d 63 70 75 0a 09 09 09 09 09 73 65 74 20  os-cpu......set 
29a0: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 70 61  retval(_type) pa
29b0: 63 6b 61 67 65 73 0a 0a 09 09 09 09 09 69 66 20  ckages.......if 
29c0: 7b 24 70 61 74 68 6c 65 6e 20 3e 20 32 7d 20 7b  {$pathlen > 2} {
29d0: 0a 09 09 09 09 09 09 73 65 74 20 6f 73 5f 63 70  .......set os_cp
29e0: 75 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20  u [lindex $path 
29f0: 32 5d 0a 09 09 09 09 09 09 73 65 74 20 6f 73 5f  2].......set os_
2a00: 63 70 75 20 5b 73 70 6c 69 74 20 24 6f 73 5f 63  cpu [split $os_c
2a10: 70 75 20 22 2d 22 5d 0a 0a 09 09 09 09 09 09 73  pu "-"]........s
2a20: 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20 5b 6c  et retval(os) [l
2a30: 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 30 5d  index $os_cpu 0]
2a40: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2a50: 6c 28 63 70 75 29 20 5b 6c 69 6e 64 65 78 20 24  l(cpu) [lindex $
2a60: 6f 73 5f 63 70 75 20 31 5d 0a 09 09 09 09 09 09  os_cpu 1].......
2a70: 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c  set retval(_chil
2a80: 64 72 65 6e 29 20 76 65 72 73 69 6f 6e 73 0a 09  dren) versions..
2a90: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
2aa0: 5f 74 79 70 65 29 20 6f 73 2d 63 70 75 0a 0a 09  _type) os-cpu...
2ab0: 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65  .....if {$pathle
2ac0: 6e 20 3e 20 33 7d 20 7b 0a 09 09 09 09 09 09 09  n > 3} {........
2ad0: 73 65 74 20 72 65 74 76 61 6c 28 76 65 72 73 69  set retval(versi
2ae0: 6f 6e 29 20 5b 6c 69 6e 64 65 78 20 24 70 61 74  on) [lindex $pat
2af0: 68 20 33 5d 0a 09 09 09 09 09 09 09 73 65 74 20  h 3]........set 
2b00: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
2b10: 29 20 66 69 6c 65 73 0a 09 09 09 09 09 09 09 73  ) files........s
2b20: 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29  et retval(_type)
2b30: 20 76 65 72 73 69 6f 6e 73 0a 0a 09 09 09 09 09   versions.......
2b40: 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63  ..set retval(pac
2b50: 6b 61 67 65 5f 73 68 61 31 29 20 5b 3a 3a 61 70  kage_sha1) [::ap
2b60: 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d  pfs::db onecolum
2b70: 6e 20 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46  n {SELECT sha1 F
2b80: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
2b90: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 72  RE hostname = $r
2ba0: 65 74 76 61 6c 28 68 6f 73 74 6e 61 6d 65 29 20  etval(hostname) 
2bb0: 41 4e 44 20 6f 73 20 3d 20 24 72 65 74 76 61 6c  AND os = $retval
2bc0: 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68  (os) AND cpuArch
2bd0: 20 3d 20 24 72 65 74 76 61 6c 28 63 70 75 29 20   = $retval(cpu) 
2be0: 41 4e 44 20 76 65 72 73 69 6f 6e 20 3d 20 24 72  AND version = $r
2bf0: 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 3b 7d  etval(version);}
2c00: 5d 0a 09 09 09 09 09 09 09 69 66 20 7b 24 72 65  ]........if {$re
2c10: 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61  tval(package_sha
2c20: 31 29 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09  1) == ""} {.....
2c30: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
2c40: 63 68 69 6c 64 72 65 6e 29 20 64 65 61 64 0a 09  children) dead..
2c50: 09 09 09 09 09 09 09 72 65 74 75 72 6e 20 5b 61  .......return [a
2c60: 72 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d  rray get retval]
2c70: 0a 09 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09  ........}.......
2c80: 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e  ..if {$pathlen >
2c90: 20 34 7d 20 7b 0a 09 09 09 09 09 09 09 09 73 65   4} {.........se
2ca0: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
2cb0: 66 69 6c 65 73 0a 09 09 09 09 09 09 09 09 73 65  files.........se
2cc0: 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b  t retval(file) [
2cd0: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61  join [lrange $pa
2ce0: 74 68 20 34 20 65 6e 64 5d 20 22 2f 22 5d 0a 09  th 4 end] "/"]..
2cf0: 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ......} else {..
2d00: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2d10: 6c 28 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 09  l(_type) files..
2d20: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2d30: 6c 28 66 69 6c 65 29 20 22 22 0a 09 09 09 09 09  l(file) ""......
2d40: 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09  ..}.......}.....
2d50: 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09  .}.....}....}...
2d60: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61 72 72  }....return [arr
2d70: 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d 0a 09  ay get retval]..
2d80: 7d 0a 0a 09 70 72 6f 63 20 67 65 74 63 68 69 6c  }...proc getchil
2d90: 64 72 65 6e 20 7b 64 69 72 7d 20 7b 0a 09 09 61  dren {dir} {...a
2da0: 72 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66  rray set pathinf
2db0: 6f 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 64  o [_parsepath $d
2dc0: 69 72 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d  ir]....switch --
2dd0: 20 24 70 61 74 68 69 6e 66 6f 28 5f 63 68 69 6c   $pathinfo(_chil
2de0: 64 72 65 6e 29 20 7b 0a 09 09 09 22 73 69 74 65  dren) {...."site
2df0: 73 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  s" {.....return 
2e00: 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  [::appfs::db eva
2e10: 6c 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e  l {SELECT DISTIN
2e20: 43 54 20 68 6f 73 74 6e 61 6d 65 20 46 52 4f 4d  CT hostname FROM
2e30: 20 70 61 63 6b 61 67 65 73 3b 7d 5d 0a 09 09 09   packages;}]....
2e40: 7d 0a 09 09 09 22 70 61 63 6b 61 67 65 73 22 20  }...."packages" 
2e50: 7b 0a 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09  {.....catch {...
2e60: 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69  ...::appfs::geti
2e70: 6e 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68  ndex $pathinfo(h
2e80: 6f 73 74 6e 61 6d 65 29 0a 09 09 09 09 7d 0a 0a  ostname).....}..
2e90: 09 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70  ....return [::ap
2ea0: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
2eb0: 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 70 61  LECT DISTINCT pa
2ec0: 63 6b 61 67 65 20 46 52 4f 4d 20 70 61 63 6b 61  ckage FROM packa
2ed0: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
2ee0: 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68  me = $pathinfo(h
2ef0: 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09 7d  ostname);}]....}
2f00: 0a 09 09 09 22 6f 73 2d 63 70 75 22 20 7b 0a 09  ...."os-cpu" {..
2f10: 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a  ...set retval [:
2f20: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
2f30: 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54  {SELECT DISTINCT
2f40: 20 6f 73 20 7c 7c 20 22 2d 22 20 7c 7c 20 63 70   os || "-" || cp
2f50: 75 41 72 63 68 20 46 52 4f 4d 20 70 61 63 6b 61  uArch FROM packa
2f60: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
2f70: 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68  me = $pathinfo(h
2f80: 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63  ostname) AND pac
2f90: 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f  kage = $pathinfo
2fa0: 28 70 61 63 6b 61 67 65 29 3b 7d 5d 0a 0a 09 09  (package);}]....
2fb0: 09 09 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c  ..lappend retval
2fc0: 20 22 70 6c 61 74 66 6f 72 6d 22 0a 0a 09 09 09   "platform".....
2fd0: 09 72 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a  .return $retval.
2fe0: 09 09 09 7d 0a 09 09 09 22 76 65 72 73 69 6f 6e  ...}...."version
2ff0: 73 22 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74  s" {.....set ret
3000: 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62  val [::appfs::db
3010: 20 65 76 61 6c 20 7b 0a 09 09 09 09 09 53 45 4c   eval {......SEL
3020: 45 43 54 20 44 49 53 54 49 4e 43 54 20 76 65 72  ECT DISTINCT ver
3030: 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67  sion FROM packag
3040: 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d  es WHERE hostnam
3050: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  e = $pathinfo(ho
3060: 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b  stname) AND pack
3070: 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  age = $pathinfo(
3080: 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20  package) AND os 
3090: 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20  = $pathinfo(os) 
30a0: 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70  AND cpuArch = $p
30b0: 61 74 68 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09  athinfo(cpu);...
30c0: 09 09 7d 5d 0a 0a 09 09 09 09 3a 3a 61 70 70 66  ..}]......::appf
30d0: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
30e0: 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20  CT version FROM 
30f0: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 69  packages WHERE i
3100: 73 4c 61 74 65 73 74 20 3d 20 31 20 41 4e 44 20  sLatest = 1 AND 
3110: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68  hostname = $path
3120: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41  info(hostname) A
3130: 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61  ND package = $pa
3140: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
3150: 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e  AND os = $pathin
3160: 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72  fo(os) AND cpuAr
3170: 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63  ch = $pathinfo(c
3180: 70 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61  pu) LIMIT 1;} la
3190: 74 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09  test_info {}....
31a0: 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  ..if {[info exis
31b0: 74 73 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76  ts latest_info(v
31c0: 65 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09  ersion)]} {.....
31d0: 09 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20  .lappend retval 
31e0: 22 6c 61 74 65 73 74 22 0a 09 09 09 09 7d 0a 0a  "latest".....}..
31f0: 09 09 09 09 72 65 74 75 72 6e 20 24 72 65 74 76  ....return $retv
3200: 61 6c 0a 09 09 09 7d 0a 09 09 09 22 66 69 6c 65  al....}...."file
3210: 73 22 20 7b 0a 09 09 09 09 63 61 74 63 68 20 7b  s" {.....catch {
3220: 0a 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67  ......::appfs::g
3230: 65 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 24 70  etpkgmanifest $p
3240: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
3250: 29 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  ) $pathinfo(pack
3260: 61 67 65 5f 73 68 61 31 29 0a 09 09 09 09 7d 0a  age_sha1).....}.
3270: 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20  .....set retval 
3280: 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  [::appfs::db eva
3290: 6c 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e  l {SELECT DISTIN
32a0: 43 54 20 66 69 6c 65 5f 6e 61 6d 65 20 46 52 4f  CT file_name FRO
32b0: 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61  M files WHERE pa
32c0: 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61  ckage_sha1 = $pa
32d0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
32e0: 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69  ha1) AND file_di
32f0: 72 65 63 74 6f 72 79 20 3d 20 24 70 61 74 68 69  rectory = $pathi
3300: 6e 66 6f 28 66 69 6c 65 29 3b 7d 5d 0a 0a 09 09  nfo(file);}]....
3310: 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  ..if {[info exis
3320: 74 73 20 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  ts pathinfo(pack
3330: 61 67 65 29 5d 20 26 26 20 5b 69 6e 66 6f 20 65  age)] && [info e
3340: 78 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 68  xists pathinfo(h
3350: 6f 73 74 6e 61 6d 65 29 5d 20 26 26 20 5b 69 6e  ostname)] && [in
3360: 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e  fo exists pathin
3370: 66 6f 28 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09  fo(file)]} {....
3380: 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09  .._as_user {....
3390: 09 09 09 73 65 74 20 64 69 72 20 5b 5f 6c 6f 63  ...set dir [_loc
33a0: 61 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f  alpath $pathinfo
33b0: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69  (package) $pathi
33c0: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
33d0: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09  athinfo(file)]..
33e0: 09 09 09 09 09 73 65 74 20 77 68 69 74 65 6f 75  .....set whiteou
33f0: 74 64 69 72 20 5b 73 74 72 69 6e 67 20 72 61 6e  tdir [string ran
3400: 67 65 20 5b 5f 77 68 69 74 65 6f 75 74 70 61 74  ge [_whiteoutpat
3410: 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  h $pathinfo(pack
3420: 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68  age) $pathinfo(h
3430: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
3440: 66 6f 28 66 69 6c 65 29 5d 20 30 20 65 6e 64 2d  fo(file)] 0 end-
3450: 31 35 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24  15]........if {$
3460: 77 68 69 74 65 6f 75 74 64 69 72 20 21 3d 20 22  whiteoutdir != "
3470: 22 7d 20 7b 0a 09 09 09 09 09 09 09 66 6f 72 65  "} {........fore
3480: 61 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d  ach file [glob -
3490: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 61 69 6c  nocomplain -tail
34a0: 73 20 2d 64 69 72 65 63 74 6f 72 79 20 24 77 68  s -directory $wh
34b0: 69 74 65 6f 75 74 64 69 72 20 7b 7b 2e 2c 7d 2a  iteoutdir {{.,}*
34c0: 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55 54 7d  .APPFS.WHITEOUT}
34d0: 5d 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20  ] {.........set 
34e0: 72 65 6d 6f 76 65 20 5b 73 74 72 69 6e 67 20 72  remove [string r
34f0: 61 6e 67 65 20 24 66 69 6c 65 20 30 20 65 6e 64  ange $file 0 end
3500: 2d 31 35 5d 0a 09 09 09 09 09 09 09 09 73 65 74  -15].........set
3510: 20 69 64 78 20 5b 6c 73 65 61 72 63 68 20 2d 65   idx [lsearch -e
3520: 78 61 63 74 20 24 72 65 74 76 61 6c 20 24 72 65  xact $retval $re
3530: 6d 6f 76 65 5d 0a 09 09 09 09 09 09 09 09 69 66  move].........if
3540: 20 7b 24 69 64 78 20 21 3d 20 2d 31 7d 20 7b 0a   {$idx != -1} {.
3550: 09 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
3560: 76 61 6c 20 5b 6c 72 65 70 6c 61 63 65 20 24 72  val [lreplace $r
3570: 65 74 76 61 6c 20 24 69 64 78 20 24 69 64 78 5d  etval $idx $idx]
3580: 0a 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  .........}......
3590: 09 09 7d 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09  ..}.......}.....
35a0: 09 09 09 69 66 20 7b 24 64 69 72 20 21 3d 20 22  ...if {$dir != "
35b0: 22 7d 20 7b 0a 09 09 09 09 09 09 09 66 6f 72 65  "} {........fore
35c0: 61 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d  ach file [glob -
35d0: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 61 69 6c  nocomplain -tail
35e0: 73 20 2d 64 69 72 65 63 74 6f 72 79 20 24 64 69  s -directory $di
35f0: 72 20 7b 7b 2e 2c 7d 2a 7d 5d 20 7b 0a 09 09 09  r {{.,}*}] {....
3600: 09 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d  .....if {$file =
3610: 3d 20 22 2e 22 20 7c 7c 20 24 66 69 6c 65 20 3d  = "." || $file =
3620: 3d 20 22 2e 2e 22 7d 20 7b 0a 09 09 09 09 09 09  = ".."} {.......
3630: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09  ...continue.....
3640: 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 69  ....}..........i
3650: 66 20 7b 24 66 69 6c 65 20 3d 3d 20 22 2e 41 50  f {$file == ".AP
3660: 50 46 53 2e 57 48 49 54 45 4f 55 54 22 7d 20 7b  PFS.WHITEOUT"} {
3670: 0a 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e  ..........contin
3680: 75 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09  ue.........}....
3690: 09 09 09 09 09 09 69 66 20 7b 5b 6c 73 65 61 72  ......if {[lsear
36a0: 63 68 20 2d 65 78 61 63 74 20 24 72 65 74 76 61  ch -exact $retva
36b0: 6c 20 24 66 69 6c 65 5d 20 21 3d 20 2d 31 7d 20  l $file] != -1} 
36c0: 7b 0a 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69  {..........conti
36d0: 6e 75 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09  nue.........}...
36e0: 09 09 09 09 09 09 09 6c 61 70 70 65 6e 64 20 72  .......lappend r
36f0: 65 74 76 61 6c 20 24 66 69 6c 65 0a 09 09 09 09  etval $file.....
3700: 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09  ...}.......}....
3710: 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72  ..}.....}......r
3720: 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09  eturn $retval...
3730: 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e  .}...}....return
3740: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49 6e   -code error "In
3750: 76 61 6c 69 64 20 6f 72 20 75 6e 61 63 63 65 70  valid or unaccep
3760: 74 61 62 6c 65 20 70 61 74 68 3a 20 24 64 69 72  table path: $dir
3770: 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 61  "..}...proc geta
3780: 74 74 72 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61  ttr {path} {...a
3790: 72 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66  rray set pathinf
37a0: 6f 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70  o [_parsepath $p
37b0: 61 74 68 5d 0a 09 09 61 72 72 61 79 20 73 65 74  ath]...array set
37c0: 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 5d 0a 0a   retval [list]..
37d0: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 3a 3a 61  ..catch {....::a
37e0: 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24  ppfs::getindex $
37f0: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
3800: 65 29 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67  e)....::appfs::g
3810: 65 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 24 70  etpkgmanifest $p
3820: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
3830: 29 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  ) $pathinfo(pack
3840: 61 67 65 5f 73 68 61 31 29 0a 09 09 7d 0a 0a 09  age_sha1)...}...
3850: 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68  .switch -- $path
3860: 69 6e 66 6f 28 5f 74 79 70 65 29 20 7b 0a 09 09  info(_type) {...
3870: 09 22 74 6f 70 6c 65 76 65 6c 22 20 7b 0a 09 09  ."toplevel" {...
3880: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
3890: 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09  e) directory....
38a0: 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c  .set retval(chil
38b0: 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68  dcount) [llength
38c0: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
38d0: 61 74 68 5d 5d 0a 09 09 09 7d 0a 09 09 09 22 73  ath]]....}...."s
38e0: 69 74 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20  ites" {.....set 
38f0: 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a  check [::appfs::
3900: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45  db onecolumn {SE
3910: 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61 63 6b  LECT 1 FROM pack
3920: 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e  ages WHERE hostn
3930: 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ame = $pathinfo(
3940: 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09  hostname);}]....
3950: 09 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22  .if {$check == "
3960: 31 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72  1"} {......set r
3970: 65 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65  etval(type) dire
3980: 63 74 6f 72 79 0a 09 09 09 09 09 73 65 74 20 72  ctory......set r
3990: 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74  etval(childcount
39a0: 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63  ) [llength [getc
39b0: 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a  hildren $path]].
39c0: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 70  ....}....}...."p
39d0: 61 63 6b 61 67 65 73 22 20 7b 0a 09 09 09 09 73  ackages" {.....s
39e0: 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66  et check [::appf
39f0: 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20  s::db onecolumn 
3a00: 7b 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70  {SELECT 1 FROM p
3a10: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
3a20: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
3a30: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44  fo(hostname) AND
3a40: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68   package = $path
3a50: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 3b 7d 5d  info(package);}]
3a60: 0a 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20  .....if {$check 
3a70: 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 73  == "1"} {......s
3a80: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
3a90: 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 73  directory......s
3aa0: 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63  et retval(childc
3ab0: 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b  ount) [llength [
3ac0: 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74  getchildren $pat
3ad0: 68 5d 5d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09  h]].....}....}..
3ae0: 09 09 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09  .."os-cpu" {....
3af0: 09 69 66 20 7b 24 70 61 74 68 69 6e 66 6f 28 6f  .if {$pathinfo(o
3b00: 73 29 20 3d 3d 20 22 70 6c 61 74 66 6f 72 6d 22  s) == "platform"
3b10: 20 26 26 20 24 70 61 74 68 69 6e 66 6f 28 63 70   && $pathinfo(cp
3b20: 75 29 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09  u) == ""} {.....
3b30: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
3b40: 29 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09 73  ) symlink......s
3b50: 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65  et retval(source
3b60: 29 20 5b 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e  ) [platform::gen
3b70: 65 72 69 63 5d 0a 09 09 09 09 7d 20 65 6c 73 65  eric].....} else
3b80: 20 7b 0a 09 09 09 09 09 73 65 74 20 63 68 65 63   {......set chec
3b90: 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f  k [::appfs::db o
3ba0: 6e 65 63 6f 6c 75 6d 6e 20 7b 0a 09 09 09 09 09  necolumn {......
3bb0: 09 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70  .SELECT 1 FROM p
3bc0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
3bd0: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
3be0: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44  fo(hostname) AND
3bf0: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68   package = $path
3c00: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e  info(package) AN
3c10: 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f  D os = $pathinfo
3c20: 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68  (os) AND cpuArch
3c30: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75   = $pathinfo(cpu
3c40: 29 3b 0a 09 09 09 09 09 7d 5d 0a 09 09 09 09 09  );......}]......
3c50: 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31  if {$check == "1
3c60: 22 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72  "} {.......set r
3c70: 65 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65  etval(type) dire
3c80: 63 74 6f 72 79 0a 09 09 09 09 09 09 73 65 74 20  ctory.......set 
3c90: 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e  retval(childcoun
3ca0: 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74  t) [llength [get
3cb0: 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d  children $path]]
3cc0: 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09  ......}.....}...
3cd0: 09 7d 0a 09 09 09 22 76 65 72 73 69 6f 6e 73 22  .}...."versions"
3ce0: 20 7b 0a 09 09 09 09 69 66 20 7b 24 70 61 74 68   {.....if {$path
3cf0: 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 3d 3d  info(version) ==
3d00: 20 22 6c 61 74 65 73 74 22 7d 20 7b 0a 09 09 09   "latest"} {....
3d10: 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76  ..::appfs::db ev
3d20: 61 6c 20 7b 53 45 4c 45 43 54 20 76 65 72 73 69  al {SELECT versi
3d30: 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  on FROM packages
3d40: 20 57 48 45 52 45 20 69 73 4c 61 74 65 73 74 20   WHERE isLatest 
3d50: 3d 20 31 20 41 4e 44 20 68 6f 73 74 6e 61 6d 65  = 1 AND hostname
3d60: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
3d70: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
3d80: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
3d90: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d  ackage) AND os =
3da0: 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41   $pathinfo(os) A
3db0: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61  ND cpuArch = $pa
3dc0: 74 68 69 6e 66 6f 28 63 70 75 29 20 4c 49 4d 49  thinfo(cpu) LIMI
3dd0: 54 20 31 3b 7d 20 6c 61 74 65 73 74 5f 69 6e 66  T 1;} latest_inf
3de0: 6f 20 7b 7d 0a 0a 09 09 09 09 09 69 66 20 7b 5b  o {}.......if {[
3df0: 69 6e 66 6f 20 65 78 69 73 74 73 20 6c 61 74 65  info exists late
3e00: 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29  st_info(version)
3e10: 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72  ]} {.......set r
3e20: 65 74 76 61 6c 28 74 79 70 65 29 20 73 79 6d 6c  etval(type) syml
3e30: 69 6e 6b 0a 09 09 09 09 09 09 73 65 74 20 72 65  ink.......set re
3e40: 74 76 61 6c 28 73 6f 75 72 63 65 29 20 24 6c 61  tval(source) $la
3e50: 74 65 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f  test_info(versio
3e60: 6e 29 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20  n)......}.....} 
3e70: 65 6c 73 65 20 7b 0a 09 09 09 09 09 69 66 20 7b  else {......if {
3e80: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74  [info exists pat
3e90: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68  hinfo(package_sh
3ea0: 61 31 29 5d 20 26 26 20 24 70 61 74 68 69 6e 66  a1)] && $pathinf
3eb0: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20  o(package_sha1) 
3ec0: 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 73  != ""} {.......s
3ed0: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
3ee0: 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 09  directory.......
3ef0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
3f00: 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20  count) [llength 
3f10: 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61  [getchildren $pa
3f20: 74 68 5d 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09  th]]......}.....
3f30: 7d 0a 09 09 09 7d 0a 09 09 09 22 66 69 6c 65 73  }....}...."files
3f40: 22 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74 76  " {.....set retv
3f50: 61 6c 28 70 61 63 6b 61 67 65 64 29 20 31 0a 0a  al(packaged) 1..
3f60: 09 09 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74  ....set localpat
3f70: 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70  h [_localpath $p
3f80: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
3f90: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
3fa0: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
3fb0: 69 6c 65 29 5d 0a 09 09 09 09 73 65 74 20 77 68  ile)].....set wh
3fc0: 69 74 65 6f 75 74 70 61 74 68 20 20 5b 5f 77 68  iteoutpath  [_wh
3fd0: 69 74 65 6f 75 74 70 61 74 68 20 24 70 61 74 68  iteoutpath $path
3fe0: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70  info(package) $p
3ff0: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
4000: 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65  ) $pathinfo(file
4010: 29 5d 0a 0a 09 09 09 09 73 65 74 20 72 65 74 76  )]......set retv
4020: 61 6c 28 6c 6f 63 61 6c 70 61 74 68 29 20 24 6c  al(localpath) $l
4030: 6f 63 61 6c 70 61 74 68 0a 09 09 09 09 73 65 74  ocalpath.....set
4040: 20 72 65 74 76 61 6c 28 77 68 69 74 65 6f 75 74   retval(whiteout
4050: 70 61 74 68 29 20 24 77 68 69 74 65 6f 75 74 70  path) $whiteoutp
4060: 61 74 68 0a 0a 09 09 09 09 69 66 20 7b 24 6c 6f  ath......if {$lo
4070: 63 61 6c 70 61 74 68 20 21 3d 20 22 22 20 26 26  calpath != "" &&
4080: 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 6c   [file exists $l
4090: 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09  ocalpath]} {....
40a0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 69 73 5f  ..set retval(is_
40b0: 6c 6f 63 61 6c 66 69 6c 65 29 20 31 0a 09 09 09  localfile) 1....
40c0: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 09  ..catch {.......
40d0: 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09  _as_user {......
40e0: 09 09 66 69 6c 65 20 6c 73 74 61 74 20 24 6c 6f  ..file lstat $lo
40f0: 63 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70 61 74  calpath localpat
4100: 68 69 6e 66 6f 0a 09 09 09 09 09 09 7d 0a 09 09  hinfo.......}...
4110: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74  ....set retval(t
4120: 69 6d 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69  ime) $localpathi
4130: 6e 66 6f 28 6d 74 69 6d 65 29 0a 0a 09 09 09 09  nfo(mtime)......
4140: 09 09 73 77 69 74 63 68 20 2d 2d 20 24 6c 6f 63  ..switch -- $loc
4150: 61 6c 70 61 74 68 69 6e 66 6f 28 74 79 70 65 29  alpathinfo(type)
4160: 20 7b 0a 09 09 09 09 09 09 09 22 64 69 72 65 63   {........"direc
4170: 74 6f 72 79 22 20 7b 0a 09 09 09 09 09 09 09 09  tory" {.........
4180: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
4190: 20 22 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09   "directory"....
41a0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
41b0: 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65  childcount) [lle
41c0: 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65  ngth [getchildre
41d0: 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 09  n $path]].......
41e0: 09 7d 0a 09 09 09 09 09 09 09 22 66 69 6c 65 22  .}........"file"
41f0: 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72   {.........set r
4200: 65 74 76 61 6c 28 74 79 70 65 29 20 22 66 69 6c  etval(type) "fil
4210: 65 22 0a 09 09 09 09 09 09 09 09 73 65 74 20 72  e".........set r
4220: 65 74 76 61 6c 28 73 69 7a 65 29 20 24 6c 6f 63  etval(size) $loc
4230: 61 6c 70 61 74 68 69 6e 66 6f 28 73 69 7a 65 29  alpathinfo(size)
4240: 0a 09 09 09 09 09 09 09 09 5f 61 73 5f 75 73 65  ........._as_use
4250: 72 20 7b 0a 09 09 09 09 09 09 09 09 09 69 66 20  r {..........if 
4260: 7b 5b 66 69 6c 65 20 65 78 65 63 75 74 61 62 6c  {[file executabl
4270: 65 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b  e $localpath]} {
4280: 0a 09 09 09 09 09 09 09 09 09 09 73 65 74 20 72  ...........set r
4290: 65 74 76 61 6c 28 70 65 72 6d 73 29 20 22 78 22  etval(perms) "x"
42a0: 0a 09 09 09 09 09 09 09 09 09 7d 20 65 6c 73 65  ..........} else
42b0: 20 7b 0a 09 09 09 09 09 09 09 09 09 09 73 65 74   {...........set
42c0: 20 72 65 74 76 61 6c 28 70 65 72 6d 73 29 20 22   retval(perms) "
42d0: 22 0a 09 09 09 09 09 09 09 09 09 7d 0a 09 09 09  "..........}....
42e0: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a  .....}........}.
42f0: 09 09 09 09 09 09 09 22 6c 69 6e 6b 22 20 7b 0a  ......."link" {.
4300: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
4310: 61 6c 28 74 79 70 65 29 20 22 73 79 6d 6c 69 6e  al(type) "symlin
4320: 6b 22 0a 0a 09 09 09 09 09 09 09 09 5f 61 73 5f  k".........._as_
4330: 75 73 65 72 20 7b 0a 09 09 09 09 09 09 09 09 09  user {..........
4340: 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63  set retval(sourc
4350: 65 29 20 5b 66 69 6c 65 20 72 65 61 64 6c 69 6e  e) [file readlin
4360: 6b 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a 09 09  k $localpath]...
4370: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d  ......}........}
4380: 0a 09 09 09 09 09 09 09 22 66 69 66 6f 22 20 7b  ........"fifo" {
4390: 0a 09 09 09 09 09 09 09 09 23 20 43 61 70 69 74  .........# Capit
43a0: 61 6c 69 7a 65 64 20 73 6f 20 74 68 61 74 20 74  alized so that t
43b0: 68 65 20 66 69 72 73 74 20 63 68 61 72 20 69 73  he first char is
43c0: 20 75 6e 69 71 75 65 0a 09 09 09 09 09 09 09 09   unique.........
43d0: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
43e0: 20 22 46 69 66 6f 22 0a 09 09 09 09 09 09 09 7d   "Fifo"........}
43f0: 0a 09 09 09 09 09 09 09 22 73 6f 63 6b 65 74 22  ........"socket"
4400: 20 7b 0a 09 09 09 09 09 09 09 09 23 20 43 61 70   {.........# Cap
4410: 69 74 61 6c 69 7a 65 64 20 73 6f 20 74 68 61 74  italized so that
4420: 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 20   the first char 
4430: 69 73 20 75 6e 69 71 75 65 0a 09 09 09 09 09 09  is unique.......
4440: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
4450: 65 29 20 22 53 6f 63 6b 65 74 22 0a 09 09 09 09  e) "Socket".....
4460: 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09  ...}.......}....
4470: 09 09 7d 20 65 72 72 0a 09 09 09 09 7d 20 65 6c  ..} err.....} el
4480: 73 65 20 7b 0a 09 09 09 09 09 69 66 20 7b 24 77  se {......if {$w
4490: 68 69 74 65 6f 75 74 70 61 74 68 20 3d 3d 20 22  hiteoutpath == "
44a0: 22 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 73  " || ![file exis
44b0: 74 73 20 24 77 68 69 74 65 6f 75 74 70 61 74 68  ts $whiteoutpath
44c0: 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72  ]} {.......set r
44d0: 65 74 76 61 6c 28 69 73 5f 72 65 6d 6f 74 65 66  etval(is_remotef
44e0: 69 6c 65 29 20 31 0a 0a 09 09 09 09 09 09 73 65  ile) 1........se
44f0: 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 70  t work [split $p
4500: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22 2f  athinfo(file) "/
4510: 22 5d 0a 09 09 09 09 09 09 73 65 74 20 64 69 72  "].......set dir
4520: 65 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72  ectory [join [lr
4530: 61 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e 64  ange $work 0 end
4540: 2d 31 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 73  -1] "/"].......s
4550: 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20  et file [lindex 
4560: 24 77 6f 72 6b 20 65 6e 64 5d 0a 0a 09 09 09 09  $work end]......
4570: 09 09 69 66 20 7b 24 64 69 72 65 63 74 6f 72 79  ..if {$directory
4580: 20 3d 3d 20 22 22 20 26 26 20 24 66 69 6c 65 20   == "" && $file 
4590: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09  == ""} {........
45a0: 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c  array set retval
45b0: 20 5b 6c 69 73 74 20 74 79 70 65 20 64 69 72 65   [list type dire
45c0: 63 74 6f 72 79 5d 0a 09 09 09 09 09 09 7d 0a 0a  ctory].......}..
45d0: 09 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64  ......::appfs::d
45e0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74  b eval {SELECT t
45f0: 79 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63  ype, time, sourc
4600: 65 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 20 46  e, size, perms F
4610: 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20  ROM files WHERE 
4620: 70 61 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24  package_sha1 = $
4630: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
4640: 5f 73 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f  _sha1) AND file_
4650: 64 69 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72  directory = $dir
4660: 65 63 74 6f 72 79 20 41 4e 44 20 66 69 6c 65 5f  ectory AND file_
4670: 6e 61 6d 65 20 3d 20 24 66 69 6c 65 3b 7d 20 72  name = $file;} r
4680: 65 74 76 61 6c 20 7b 7d 0a 0a 09 09 09 09 09 09  etval {}........
4690: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
46a0: 20 72 65 74 76 61 6c 28 74 79 70 65 29 5d 20 26   retval(type)] &
46b0: 26 20 24 72 65 74 76 61 6c 28 74 79 70 65 29 20  & $retval(type) 
46c0: 3d 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20  == "directory"} 
46d0: 7b 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74  {........set ret
46e0: 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20  val(childcount) 
46f0: 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69  [llength [getchi
4700: 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09  ldren $path]]...
4710: 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 75 6e 73  ....}........uns
4720: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
4730: 65 74 76 61 6c 28 2a 29 0a 09 09 09 09 09 7d 0a  etval(*)......}.
4740: 09 09 09 09 7d 0a 0a 09 09 09 7d 0a 09 09 7d 0a  ....}.....}...}.
4750: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
4760: 69 73 74 73 20 72 65 74 76 61 6c 28 74 79 70 65  ists retval(type
4770: 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  )]} {....return 
4780: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f 20  -code error "No 
4790: 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72  such file or dir
47a0: 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09 72  ectory"...}....r
47b0: 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74  eturn [array get
47c0: 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72   retval]..}...pr
47d0: 6f 63 20 6f 70 65 6e 70 61 74 68 20 7b 70 61 74  oc openpath {pat
47e0: 68 20 6d 6f 64 65 7d 20 7b 0a 09 09 61 72 72 61  h mode} {...arra
47f0: 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b  y set pathinfo [
4800: 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74 68  _parsepath $path
4810: 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69 6e  ]....if {$pathin
4820: 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66 69  fo(_type) != "fi
4830: 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  les"} {....retur
4840: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69  n -code error "i
4850: 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d  nvalid type"...}
4860: 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74  ....set localpat
4870: 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70  h [_localpath $p
4880: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
4890: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
48a0: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
48b0: 69 6c 65 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f  ile)]....if {$mo
48c0: 64 65 20 3d 3d 20 22 63 72 65 61 74 65 22 7d 20  de == "create"} 
48d0: 7b 0a 09 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70  {....if {$localp
48e0: 61 74 68 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09  ath == ""} {....
48f0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
4900: 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 63 72  ror "Asked to cr
4910: 65 61 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f 6d  eate, but no hom
4920: 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 09 09  e directory."...
4930: 09 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c  .}.....return $l
4940: 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09  ocalpath...}....
4950: 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 21  if {$localpath !
4960: 3d 20 22 22 20 26 26 20 5b 66 69 6c 65 20 65 78  = "" && [file ex
4970: 69 73 74 73 20 24 6c 6f 63 61 6c 70 61 74 68 5d  ists $localpath]
4980: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 6c  } {....return $l
4990: 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09  ocalpath...}....
49a0: 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20  set work [split 
49b0: 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 20  $pathinfo(file) 
49c0: 22 2f 22 5d 0a 09 09 73 65 74 20 64 69 72 65 63  "/"]...set direc
49d0: 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e  tory [join [lran
49e0: 67 65 20 24 77 6f 72 6b 20 30 20 65 6e 64 2d 31  ge $work 0 end-1
49f0: 5d 20 22 2f 22 5d 0a 09 09 73 65 74 20 66 69 6c  ] "/"]...set fil
4a00: 65 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  e [lindex $work 
4a10: 65 6e 64 5d 0a 09 09 3a 3a 61 70 70 66 73 3a 3a  end]...::appfs::
4a20: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
4a30: 66 69 6c 65 5f 73 68 61 31 2c 20 70 65 72 6d 73  file_sha1, perms
4a40: 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 52   FROM files WHER
4a50: 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20 3d  E package_sha1 =
4a60: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
4a70: 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69 6c  ge_sha1) AND fil
4a80: 65 5f 6e 61 6d 65 20 3d 20 24 66 69 6c 65 20 41  e_name = $file A
4a90: 4e 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72  ND file_director
4aa0: 79 20 3d 20 24 64 69 72 65 63 74 6f 72 79 3b 7d  y = $directory;}
4ab0: 20 70 6b 67 70 61 74 68 69 6e 66 6f 20 7b 7d 0a   pkgpathinfo {}.
4ac0: 0a 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68 69  ...if {$pkgpathi
4ad0: 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31 29 20 3d  nfo(file_sha1) =
4ae0: 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  = ""} {....retur
4af0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e  n -code error "N
4b00: 6f 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64  o such file or d
4b10: 69 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09  irectory"...}...
4b20: 09 73 65 74 20 6c 6f 63 61 6c 63 61 63 68 65 66  .set localcachef
4b30: 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 70  ile [download $p
4b40: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
4b50: 29 20 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 66  ) $pkgpathinfo(f
4b60: 69 6c 65 5f 73 68 61 31 29 5d 0a 0a 09 09 69 66  ile_sha1)]....if
4b70: 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 77 72 69 74   {$mode == "writ
4b80: 65 22 7d 20 7b 0a 09 09 09 5f 61 73 5f 75 73 65  e"} {...._as_use
4b90: 72 20 7b 0a 09 09 09 09 73 65 74 20 74 6d 70 6c  r {.....set tmpl
4ba0: 6f 63 61 6c 70 61 74 68 20 22 24 7b 6c 6f 63 61  ocalpath "${loca
4bb0: 6c 70 61 74 68 7d 2e 5b 65 78 70 72 20 72 61 6e  lpath}.[expr ran
4bc0: 64 28 29 5d 5b 63 6c 6f 63 6b 20 63 6c 69 63 6b  d()][clock click
4bd0: 73 5d 22 0a 0a 09 09 09 09 73 65 74 20 66 61 69  s]"......set fai
4be0: 6c 65 64 20 30 0a 09 09 09 09 69 66 20 7b 5b 63  led 0.....if {[c
4bf0: 61 74 63 68 20 7b 0a 09 09 09 09 09 66 69 6c 65  atch {......file
4c00: 20 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64 69 72   mkdir [file dir
4c10: 6e 61 6d 65 20 24 6c 6f 63 61 6c 70 61 74 68 5d  name $localpath]
4c20: 0a 09 09 09 09 09 66 69 6c 65 20 63 6f 70 79 20  ......file copy 
4c30: 2d 66 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61 6c  -force -- $local
4c40: 63 61 63 68 65 66 69 6c 65 20 24 74 6d 70 6c 6f  cachefile $tmplo
4c50: 63 61 6c 70 61 74 68 0a 0a 09 09 09 09 09 69 66  calpath.......if
4c60: 20 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 70   {$pkgpathinfo(p
4c70: 65 72 6d 73 29 20 3d 3d 20 22 78 22 7d 20 7b 0a  erms) == "x"} {.
4c80: 09 09 09 09 09 09 66 69 6c 65 20 61 74 74 72 69  ......file attri
4c90: 62 75 74 65 73 20 24 74 6d 70 6c 6f 63 61 6c 70  butes $tmplocalp
4ca0: 61 74 68 20 2d 70 65 72 6d 69 73 73 69 6f 6e 73  ath -permissions
4cb0: 20 2b 78 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09   +x......}......
4cc0: 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66 6f  .file rename -fo
4cd0: 72 63 65 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c  rce -- $tmplocal
4ce0: 70 61 74 68 20 24 6c 6f 63 61 6c 70 61 74 68 0a  path $localpath.
4cf0: 09 09 09 09 7d 20 65 72 72 5d 7d 20 7b 0a 09 09  ....} err]} {...
4d00: 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 31 0a  ...set failed 1.
4d10: 09 09 09 09 7d 0a 09 09 09 09 63 61 74 63 68 20  ....}.....catch 
4d20: 7b 0a 09 09 09 09 09 66 69 6c 65 20 64 65 6c 65  {......file dele
4d30: 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d  te -force -- $tm
4d40: 70 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 09 7d  plocalpath.....}
4d50: 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 66  ....}.....if {$f
4d60: 61 69 6c 65 64 7d 20 7b 0a 09 09 09 09 72 65 74  ailed} {.....ret
4d70: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
4d80: 24 65 72 72 0a 09 09 09 7d 0a 0a 09 09 09 72 65  $err....}.....re
4d90: 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a  turn $localpath.
4da0: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 6c  ..}....return $l
4db0: 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 0a 09 7d  ocalcachefile..}
4dc0: 0a 0a 09 70 72 6f 63 20 6c 6f 63 61 6c 70 61 74  ...proc localpat
4dd0: 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72 72  h {path} {...arr
4de0: 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20  ay set pathinfo 
4df0: 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74  [_parsepath $pat
4e00: 68 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69  h]....if {$pathi
4e10: 6e 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66  nfo(_type) != "f
4e20: 69 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75  iles"} {....retu
4e30: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
4e40: 69 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09  invalid type"...
4e50: 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61  }....set localpa
4e60: 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24  th [_localpath $
4e70: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
4e80: 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  ) $pathinfo(host
4e90: 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28  name) $pathinfo(
4ea0: 66 69 6c 65 29 5d 0a 0a 09 09 72 65 74 75 72 6e  file)]....return
4eb0: 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 7d 0a 0a   $localpath..}..
4ec0: 09 70 72 6f 63 20 65 78 69 73 74 73 20 7b 70 61  .proc exists {pa
4ed0: 74 68 7d 20 7b 0a 09 09 63 61 74 63 68 20 7b 0a  th} {...catch {.
4ee0: 09 09 09 73 65 74 20 69 6e 66 6f 20 5b 67 65 74  ...set info [get
4ef0: 61 74 74 72 20 24 70 61 74 68 5d 0a 09 09 7d 20  attr $path]...} 
4f00: 65 72 72 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66  err....if {![inf
4f10: 6f 20 65 78 69 73 74 73 20 69 6e 66 6f 5d 7d 20  o exists info]} 
4f20: 7b 0a 09 09 09 69 66 20 7b 24 65 72 72 20 3d 3d  {....if {$err ==
4f30: 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 6f   "No such file o
4f40: 72 20 64 69 72 65 63 74 6f 72 79 22 7d 20 7b 0a  r directory"} {.
4f50: 09 09 09 09 72 65 74 75 72 6e 20 5b 6c 69 73 74  ....return [list
4f60: 5d 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  ]....} else {...
4f70: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
4f80: 72 72 6f 72 20 24 65 72 72 0a 09 09 09 7d 0a 09  rror $err....}..
4f90: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 69 6e  .}....return $in
4fa0: 66 6f 0a 09 7d 0a 0a 09 70 72 6f 63 20 70 72 65  fo..}...proc pre
4fb0: 70 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 20 7b  pare_to_create {
4fc0: 70 61 74 68 20 7b 6d 75 73 74 5f 6e 6f 74 5f 65  path {must_not_e
4fd0: 78 69 73 74 20 31 7d 7d 20 7b 0a 09 09 69 66 20  xist 1}} {...if 
4fe0: 7b 24 6d 75 73 74 5f 6e 6f 74 5f 65 78 69 73 74  {$must_not_exist
4ff0: 7d 20 7b 0a 09 09 09 69 66 20 7b 5b 65 78 69 73  } {....if {[exis
5000: 74 73 20 24 70 61 74 68 5d 20 21 3d 20 22 22 7d  ts $path] != ""}
5010: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63   {.....return -c
5020: 6f 64 65 20 65 72 72 6f 72 20 22 46 69 6c 65 20  ode error "File 
5030: 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 22 0a  already exists".
5040: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ...}...}....set 
5050: 66 69 6c 65 6e 61 6d 65 20 5b 6c 6f 63 61 6c 70  filename [localp
5060: 61 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66  ath $path]....if
5070: 20 7b 24 66 69 6c 65 6e 61 6d 65 20 3d 3d 20 22   {$filename == "
5080: 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  "} {....return -
5090: 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65  code error "Aske
50a0: 64 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75 74  d to create, but
50b0: 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74 6f   no home directo
50c0: 72 79 2e 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ry."...}....set 
50d0: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69  dirname [file di
50e0: 72 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65 5d  rname $filename]
50f0: 0a 0a 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09  ...._as_user {..
5100: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 64 69  ..file mkdir $di
5110: 72 6e 61 6d 65 0a 09 09 7d 0a 0a 09 09 72 65 74  rname...}....ret
5120: 75 72 6e 20 24 66 69 6c 65 6e 61 6d 65 0a 09 7d  urn $filename..}
5130: 0a 0a 09 70 72 6f 63 20 75 6e 6c 69 6e 6b 70 61  ...proc unlinkpa
5140: 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72  th {path} {...ar
5150: 72 61 79 20 73 65 74 20 70 61 74 68 61 74 74 72  ray set pathattr
5160: 73 20 5b 65 78 69 73 74 73 20 24 70 61 74 68 5d  s [exists $path]
5170: 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ....if {![info e
5180: 78 69 73 74 73 20 70 61 74 68 61 74 74 72 73 28  xists pathattrs(
5190: 70 61 63 6b 61 67 65 64 29 5d 7d 20 7b 0a 09 09  packaged)]} {...
51a0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
51b0: 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74 79 70  ror "invalid typ
51c0: 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f  e"...}....set lo
51d0: 63 61 6c 70 61 74 68 20 24 70 61 74 68 61 74 74  calpath $pathatt
51e0: 72 73 28 6c 6f 63 61 6c 70 61 74 68 29 0a 0a 09  rs(localpath)...
51f0: 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20  .if {$localpath 
5200: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75  == ""} {....retu
5210: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
5220: 41 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 2c  Asked to delete,
5230: 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72   but no home dir
5240: 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 09  ectory."...}....
5250: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
5260: 20 70 61 74 68 61 74 74 72 73 28 69 73 5f 6c 6f   pathattrs(is_lo
5270: 63 61 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09  calfile)]} {....
5280: 69 66 20 7b 5b 66 69 6c 65 20 69 73 64 69 72 65  if {[file isdire
5290: 63 74 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74 68  ctory $localpath
52a0: 5d 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68 69  ]} {.....set chi
52b0: 6c 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64 72  ldren [getchildr
52c0: 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09 69  en $path]......i
52d0: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68 69  f {[llength $chi
52e0: 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09  ldren] != 0} {..
52f0: 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
5300: 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f   error "Asked to
5310: 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74   delete non-empt
5320: 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09  y directory"....
5330: 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 5f 61 73 5f  .}....}....._as_
5340: 75 73 65 72 20 7b 0a 09 09 09 09 66 69 6c 65 20  user {.....file 
5350: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d  delete -force --
5360: 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 7d   $localpath....}
5370: 0a 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e  ...} elseif {[in
5380: 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 74  fo exists pathat
5390: 74 72 73 28 69 73 5f 72 65 6d 6f 74 65 66 69 6c  trs(is_remotefil
53a0: 65 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 70  e)]} {....if {$p
53b0: 61 74 68 61 74 74 72 73 28 74 79 70 65 29 20 3d  athattrs(type) =
53c0: 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20 7b  = "directory"} {
53d0: 0a 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 65  .....set childre
53e0: 6e 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24  n [getchildren $
53f0: 70 61 74 68 5d 0a 0a 09 09 09 09 69 66 20 7b 5b  path]......if {[
5400: 6c 6c 65 6e 67 74 68 20 24 63 68 69 6c 64 72 65  llength $childre
5410: 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 09 09  n] != 0} {......
5420: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
5430: 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65 6c  or "Asked to del
5440: 65 74 65 20 6e 6f 6e 2d 65 6d 70 74 79 20 64 69  ete non-empty di
5450: 72 65 63 74 6f 72 79 22 0a 09 09 09 09 7d 0a 09  rectory".....}..
5460: 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ..}...} else {..
5470: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
5480: 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 69 66  rror "Unknown if
5490: 20 66 69 6c 65 20 69 73 20 72 65 6d 6f 74 65 20   file is remote 
54a0: 6f 72 20 6c 6f 63 61 6c 20 21 3f 22 0a 09 09 7d  or local !?"...}
54b0: 0a 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75 74  ....set whiteout
54c0: 66 69 6c 65 20 24 70 61 74 68 61 74 74 72 73 28  file $pathattrs(
54d0: 77 68 69 74 65 6f 75 74 70 61 74 68 29 0a 09 09  whiteoutpath)...
54e0: 73 65 74 20 77 68 69 74 65 6f 75 74 64 69 72 20  set whiteoutdir 
54f0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 77  [file dirname $w
5500: 68 69 74 65 6f 75 74 66 69 6c 65 5d 0a 0a 09 09  hiteoutfile]....
5510: 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66 69  _as_user {....fi
5520: 6c 65 20 6d 6b 64 69 72 20 24 77 68 69 74 65 6f  le mkdir $whiteo
5530: 75 74 64 69 72 0a 09 09 09 63 6c 6f 73 65 20 5b  utdir....close [
5540: 6f 70 65 6e 20 24 77 68 69 74 65 6f 75 74 66 69  open $whiteoutfi
5550: 6c 65 20 77 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a     le w]...}..}.}.