Hex Artifact Content

Artifact 1afaa96f65d6e0277d997b6145bb1781e9342d74:


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 73 68 61 31   (hostname, sha1
0ec0: 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73 69  , package, versi
0ed0: 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68 29  on, os, cpuArch)
0ee0: 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52  ;}...db eval {CR
0ef0: 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f  EATE INDEX IF NO
0f00: 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 5f 69  T EXISTS files_i
0f10: 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20 28 70  ndex ON files (p
0f20: 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66 69 6c  ackage_sha1, fil
0f30: 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72  e_name, file_dir
0f40: 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a 09 70  ectory);}..}...p
0f50: 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b 68 6f  roc download {ho
0f60: 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d 65 74  stname hash {met
0f70: 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09 09 73  hod sha1}} {...s
0f80: 65 74 20 75 72 6c 20 5b 3a 3a 61 70 70 66 73 3a  et url [::appfs:
0f90: 3a 75 73 65 72 3a 3a 63 6f 6e 73 74 72 75 63 74  :user::construct
0fa0: 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d 65 20 24  _url $hostname $
0fb0: 68 61 73 68 20 24 6d 65 74 68 6f 64 5d 0a 09 09  hash $method]...
0fc0: 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68 65  set file [_cache
0fd0: 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68 5d  file $url $hash]
0fe0: 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c 65 20 65  ....if {![file e
0ff0: 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a  xists $file]} {.
1000: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
1010: 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f  error "Unable to
1020: 20 66 65 74 63 68 20 28 66 69 6c 65 20 64 6f 65   fetch (file doe
1030: 73 20 6e 6f 74 20 65 78 69 73 74 3a 20 24 66 69  s not exist: $fi
1040: 6c 65 29 22 0a 09 09 7d 0a 0a 09 09 72 65 74 75  le)"...}....retu
1050: 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 09 70 72  rn $file..}...pr
1060: 6f 63 20 67 65 74 69 6e 64 65 78 20 7b 68 6f 73  oc getindex {hos
1070: 74 6e 61 6d 65 7d 20 7b 0a 09 09 73 65 74 20 6e  tname} {...set n
1080: 6f 77 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64  ow [clock second
1090: 73 5d 0a 0a 09 09 73 65 74 20 6c 61 73 74 55 70  s]....set lastUp
10a0: 64 61 74 65 73 20 5b 64 62 20 65 76 61 6c 20 7b  dates [db eval {
10b0: 53 45 4c 45 43 54 20 6c 61 73 74 55 70 64 61 74  SELECT lastUpdat
10c0: 65 2c 20 74 74 6c 20 46 52 4f 4d 20 73 69 74 65  e, ttl FROM site
10d0: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
10e0: 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 4c 49 4d   = $hostname LIM
10f0: 49 54 20 31 3b 7d 5d 0a 09 09 69 66 20 7b 5b 6c  IT 1;}]...if {[l
1100: 6c 65 6e 67 74 68 20 24 6c 61 73 74 55 70 64 61  length $lastUpda
1110: 74 65 73 5d 20 3d 3d 20 30 7d 20 7b 0a 09 09 09  tes] == 0} {....
1120: 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 30  set lastUpdate 0
1130: 0a 09 09 09 73 65 74 20 74 74 6c 20 30 0a 09 09  ....set ttl 0...
1140: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20  } else {....set 
1150: 6c 61 73 74 55 70 64 61 74 65 20 5b 6c 69 6e 64  lastUpdate [lind
1160: 65 78 20 24 6c 61 73 74 55 70 64 61 74 65 73 20  ex $lastUpdates 
1170: 30 5d 0a 09 09 09 73 65 74 20 74 74 6c 20 5b 6c  0]....set ttl [l
1180: 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61 74  index $lastUpdat
1190: 65 73 20 31 5d 0a 09 09 7d 0a 0a 09 09 69 66 20  es 1]...}....if 
11a0: 7b 24 6e 6f 77 20 3c 20 28 24 6c 61 73 74 55 70  {$now < ($lastUp
11b0: 64 61 74 65 20 2b 20 24 74 74 6c 29 7d 20 7b 0a  date + $ttl)} {.
11c0: 09 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45  ...return COMPLE
11d0: 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 73  TE...}....if {[s
11e0: 74 72 69 6e 67 20 6d 61 74 63 68 20 22 2a 5c 5b  tring match "*\[
11f0: 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74 6e 61 6d 65  /~\]*" $hostname
1200: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  ]} {....return -
1210: 63 6f 64 65 20 65 72 72 6f 72 20 22 49 6e 76 61  code error "Inva
1220: 6c 69 64 20 68 6f 73 74 6e 61 6d 65 22 0a 09 09  lid hostname"...
1230: 7d 0a 0a 09 09 73 65 74 20 75 72 6c 20 22 68 74  }....set url "ht
1240: 74 70 3a 2f 2f 24 68 6f 73 74 6e 61 6d 65 2f 61  tp://$hostname/a
1250: 70 70 66 73 2f 69 6e 64 65 78 22 0a 0a 09 09 63  ppfs/index"....c
1260: 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 74 6f  atch {....set to
1270: 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74  ken [::http::get
1280: 75 72 6c 20 24 75 72 6c 5d 0a 09 09 09 69 66 20  url $url]....if 
1290: 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 20  {[::http::ncode 
12a0: 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22 32 30 30 22  $token] == "200"
12b0: 7d 20 7b 0a 09 09 09 09 73 65 74 20 69 6e 64 65  } {.....set inde
12c0: 78 68 61 73 68 5f 64 61 74 61 20 5b 3a 3a 68 74  xhash_data [::ht
12d0: 74 70 3a 3a 64 61 74 61 20 24 74 6f 6b 65 6e 5d  tp::data $token]
12e0: 0a 09 09 09 7d 0a 09 09 09 3a 3a 68 74 74 70 3a  ....}....::http:
12f0: 3a 72 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09  :reset $token...
1300: 09 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 6e 75 70  .::http::cleanup
1310: 20 24 74 6f 6b 65 6e 0a 09 09 7d 0a 0a 09 09 69   $token...}....i
1320: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
1330: 20 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 5d   indexhash_data]
1340: 7d 20 7b 0a 09 09 09 23 20 43 61 63 68 65 20 74  } {....# Cache t
1350: 68 69 73 20 72 65 73 75 6c 74 20 66 6f 72 20 36  his result for 6
1360: 30 20 73 65 63 6f 6e 64 73 0a 09 09 09 64 62 20  0 seconds....db 
1370: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20  eval {INSERT OR 
1380: 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69 74  REPLACE INTO sit
1390: 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61  es (hostname, la
13a0: 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20 56  stUpdate, ttl) V
13b0: 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65  ALUES ($hostname
13c0: 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73  , $now, $::appfs
13d0: 3a 3a 6e 74 74 6c 29 3b 7d 0a 0a 09 09 09 72 65  ::nttl);}.....re
13e0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
13f0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63   "Unable to fetc
1400: 68 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73  h $url"...}....s
1410: 65 74 20 69 6e 64 65 78 68 61 73 68 20 5b 6c 69  et indexhash [li
1420: 6e 64 65 78 20 5b 73 70 6c 69 74 20 24 69 6e 64  ndex [split $ind
1430: 65 78 68 61 73 68 5f 64 61 74 61 20 22 2c 22 5d  exhash_data ","]
1440: 20 30 5d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73   0]....if {![_is
1450: 48 61 73 68 20 24 69 6e 64 65 78 68 61 73 68 5d  Hash $indexhash]
1460: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  } {....return -c
1470: 6f 64 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c  ode error "Inval
1480: 69 64 20 68 61 73 68 3a 20 24 69 6e 64 65 78 68  id hash: $indexh
1490: 61 73 68 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ash"...}....set 
14a0: 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24  file [download $
14b0: 68 6f 73 74 6e 61 6d 65 20 24 69 6e 64 65 78 68  hostname $indexh
14c0: 61 73 68 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f  ash]...set fd [o
14d0: 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 73 65 74  pen $file]...set
14e0: 20 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d   data [read $fd]
14f0: 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09  ...close $fd....
1500: 73 65 74 20 63 75 72 72 5f 70 61 63 6b 61 67 65  set curr_package
1510: 73 20 5b 6c 69 73 74 5d 0a 09 09 66 6f 72 65 61  s [list]...forea
1520: 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24  ch line [split $
1530: 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09  data "\n"] {....
1540: 73 65 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67  set line [string
1550: 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09   trim $line]....
1560: 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74  .if {[string mat
1570: 63 68 20 22 2a 2f 2a 22 20 24 6c 69 6e 65 5d 7d  ch "*/*" $line]}
1580: 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a   {.....continue.
1590: 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 6c 69  ...}.....if {$li
15a0: 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09  ne == ""} {.....
15b0: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09  continue....}...
15c0: 09 09 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69  ..set work [spli
15d0: 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09  t $line ","]....
15e0: 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61  .unset -nocompla
15f0: 69 6e 20 70 6b 67 49 6e 66 6f 0a 09 09 09 69 66  in pkgInfo....if
1600: 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09 09 09 73   {[catch {.....s
1610: 65 74 20 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61  et pkgInfo(packa
1620: 67 65 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f  ge)  [lindex $wo
1630: 72 6b 20 30 5d 0a 09 09 09 09 73 65 74 20 70 6b  rk 0].....set pk
1640: 67 49 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 20  gInfo(version)  
1650: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d  [lindex $work 1]
1660: 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f  .....set pkgInfo
1670: 28 6f 73 29 20 20 20 20 20 20 20 5b 5f 6e 6f 72  (os)       [_nor
1680: 6d 61 6c 69 7a 65 4f 53 20 5b 6c 69 6e 64 65 78  malizeOS [lindex
1690: 20 24 77 6f 72 6b 20 32 5d 5d 0a 09 09 09 09 73   $work 2]].....s
16a0: 65 74 20 70 6b 67 49 6e 66 6f 28 63 70 75 41 72  et pkgInfo(cpuAr
16b0: 63 68 29 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65  ch)  [_normalize
16c0: 43 50 55 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  CPU [lindex $wor
16d0: 6b 20 33 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b  k 3]].....set pk
16e0: 67 49 6e 66 6f 28 68 61 73 68 29 20 20 20 20 20  gInfo(hash)     
16f0: 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20  [string tolower 
1700: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 34 5d  [lindex $work 4]
1710: 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66  ].....set pkgInf
1720: 6f 28 68 61 73 68 5f 74 79 70 65 29 20 22 73 68  o(hash_type) "sh
1730: 61 31 22 0a 09 09 09 09 73 65 74 20 70 6b 67 49  a1".....set pkgI
1740: 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 20 5b 65  nfo(isLatest) [e
1750: 78 70 72 20 7b 21 21 5b 6c 69 6e 64 65 78 20 24  xpr {!![lindex $
1760: 77 6f 72 6b 20 35 5d 7d 5d 0a 09 09 09 7d 5d 7d  work 5]}]....}]}
1770: 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a   {.....continue.
1780: 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 21 5b 5f  ...}.....if {![_
1790: 69 73 48 61 73 68 20 24 70 6b 67 49 6e 66 6f 28  isHash $pkgInfo(
17a0: 68 61 73 68 29 5d 7d 20 7b 0a 09 09 09 09 63 6f  hash)]} {.....co
17b0: 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09  ntinue....}.....
17c0: 6c 61 70 70 65 6e 64 20 63 75 72 72 5f 70 61 63  lappend curr_pac
17d0: 6b 61 67 65 73 20 24 70 6b 67 49 6e 66 6f 28 68  kages $pkgInfo(h
17e0: 61 73 68 29 0a 0a 09 09 09 23 20 44 6f 20 6e 6f  ash).....# Do no
17f0: 74 20 64 6f 20 61 6e 79 20 61 64 64 69 74 69 6f  t do any additio
1800: 6e 61 6c 20 77 6f 72 6b 20 69 66 20 77 65 20 61  nal work if we a
1810: 6c 72 65 61 64 79 20 68 61 76 65 20 74 68 69 73  lready have this
1820: 20 70 61 63 6b 61 67 65 0a 09 09 09 73 65 74 20   package....set 
1830: 65 78 69 73 74 69 6e 67 5f 70 61 63 6b 61 67 65  existing_package
1840: 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s [db eval {SELE
1850: 43 54 20 70 61 63 6b 61 67 65 20 46 52 4f 4d 20  CT package FROM 
1860: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
1870: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
1880: 61 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24  ame AND sha1 = $
1890: 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 3b 7d 5d  pkgInfo(hash);}]
18a0: 0a 09 09 09 69 66 20 7b 5b 6c 73 65 61 72 63 68  ....if {[lsearch
18b0: 20 2d 65 78 61 63 74 20 24 65 78 69 73 74 69 6e   -exact $existin
18c0: 67 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49  g_packages $pkgI
18d0: 6e 66 6f 28 70 61 63 6b 61 67 65 29 5d 20 21 3d  nfo(package)] !=
18e0: 20 2d 31 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69   -1} {.....conti
18f0: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
1900: 7b 24 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65  {$pkgInfo(isLate
1910: 73 74 29 7d 20 7b 0a 09 09 09 09 64 62 20 65 76  st)} {.....db ev
1920: 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61  al {UPDATE packa
1930: 67 65 73 20 53 45 54 20 69 73 4c 61 74 65 73 74  ges SET isLatest
1940: 20 3d 20 30 20 57 48 45 52 45 20 68 6f 73 74 6e   = 0 WHERE hostn
1950: 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20  ame = $hostname 
1960: 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70  AND package = $p
1970: 6b 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 29  kgInfo($package)
1980: 20 41 4e 44 20 6f 73 20 3d 20 24 70 6b 67 49 6e   AND os = $pkgIn
1990: 66 6f 28 24 70 61 63 6b 61 67 65 29 20 41 4e 44  fo($package) AND
19a0: 20 63 70 75 41 72 63 68 20 3d 20 24 70 6b 67 49   cpuArch = $pkgI
19b0: 6e 66 6f 28 63 70 75 41 72 63 68 29 3b 7d 0a 09  nfo(cpuArch);}..
19c0: 09 09 7d 0a 0a 09 09 09 64 62 20 65 76 61 6c 20  ..}.....db eval 
19d0: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 70 61 63  {INSERT INTO pac
19e0: 6b 61 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c  kages (hostname,
19f0: 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20   sha1, package, 
1a00: 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75  version, os, cpu
1a10: 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74 2c 20  Arch, isLatest, 
1a20: 68 61 76 65 4d 61 6e 69 66 65 73 74 29 20 56 41  haveManifest) VA
1a30: 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c  LUES ($hostname,
1a40: 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c   $pkgInfo(hash),
1a50: 20 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67   $pkgInfo(packag
1a60: 65 29 2c 20 24 70 6b 67 49 6e 66 6f 28 76 65 72  e), $pkgInfo(ver
1a70: 73 69 6f 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28  sion), $pkgInfo(
1a80: 6f 73 29 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70  os), $pkgInfo(cp
1a90: 75 41 72 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f  uArch), $pkgInfo
1aa0: 28 69 73 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d  (isLatest), 0);}
1ab0: 0a 0a 09 09 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20  ....}....# Look 
1ac0: 66 6f 72 20 70 61 63 6b 61 67 65 73 20 74 68 61  for packages tha
1ad0: 74 20 68 61 76 65 20 62 65 65 6e 20 64 65 6c 65  t have been dele
1ae0: 74 65 64 0a 09 09 73 65 74 20 66 6f 75 6e 64 5f  ted...set found_
1af0: 70 61 63 6b 61 67 65 73 20 5b 64 62 20 65 76 61  packages [db eva
1b00: 6c 20 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46  l {SELECT sha1 F
1b10: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
1b20: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
1b30: 6f 73 74 6e 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72  ostname;}]...for
1b40: 65 61 63 68 20 70 61 63 6b 61 67 65 20 24 66 6f  each package $fo
1b50: 75 6e 64 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09  und_packages {..
1b60: 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b  ..set found_pack
1b70: 61 67 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67  ages_arr($packag
1b80: 65 29 20 31 0a 09 09 7d 0a 0a 09 09 66 6f 72 65  e) 1...}....fore
1b90: 61 63 68 20 70 61 63 6b 61 67 65 20 24 63 75 72  ach package $cur
1ba0: 72 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09  r_packages {....
1bb0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
1bc0: 6e 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73  n found_packages
1bd0: 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29 0a 09  _arr($package)..
1be0: 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20 70 61  .}....foreach pa
1bf0: 63 6b 61 67 65 20 5b 61 72 72 61 79 20 6e 61 6d  ckage [array nam
1c00: 65 73 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65  es found_package
1c10: 73 5f 61 72 72 5d 20 7b 0a 09 09 09 64 62 20 65  s_arr] {....db e
1c20: 76 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d  val {DELETE FROM
1c30: 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20   packages WHERE 
1c40: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74  hostname = $host
1c50: 6e 61 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20  name AND sha1 = 
1c60: 24 70 61 63 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a  $package;}...}..
1c70: 09 09 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52  ..db eval {INSER
1c80: 54 20 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54  T OR REPLACE INT
1c90: 4f 20 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d  O sites (hostnam
1ca0: 65 2c 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74  e, lastUpdate, t
1cb0: 74 6c 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73  tl) VALUES ($hos
1cc0: 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a  tname, $now, $::
1cd0: 61 70 70 66 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09  appfs::ttl);}...
1ce0: 09 61 70 70 66 73 64 3a 3a 67 65 74 5f 70 61 74  .appfsd::get_pat
1cf0: 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 66 6c 75  h_info_cache_flu
1d00: 73 68 0a 0a 09 09 72 65 74 75 72 6e 20 43 4f 4d  sh....return COM
1d10: 50 4c 45 54 45 0a 09 7d 0a 0a 09 70 72 6f 63 20  PLETE..}...proc 
1d20: 67 65 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 7b  getpkgmanifest {
1d30: 68 6f 73 74 6e 61 6d 65 20 70 61 63 6b 61 67 65  hostname package
1d40: 5f 73 68 61 31 7d 20 7b 0a 09 09 73 65 74 20 68  _sha1} {...set h
1d50: 61 76 65 4d 61 6e 69 66 65 73 74 20 5b 64 62 20  aveManifest [db 
1d60: 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43  onecolumn {SELEC
1d70: 54 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20 46  T haveManifest F
1d80: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
1d90: 52 45 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61  RE sha1 = $packa
1da0: 67 65 5f 73 68 61 31 20 4c 49 4d 49 54 20 31 3b  ge_sha1 LIMIT 1;
1db0: 7d 5d 0a 0a 09 09 69 66 20 7b 24 68 61 76 65 4d  }]....if {$haveM
1dc0: 61 6e 69 66 65 73 74 7d 20 7b 0a 09 09 09 72 65  anifest} {....re
1dd0: 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 09  turn COMPLETE...
1de0: 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73 48 61  }....if {![_isHa
1df0: 73 68 20 24 70 61 63 6b 61 67 65 5f 73 68 61 31  sh $package_sha1
1e00: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 46  ]} {....return F
1e10: 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66  AIL...}....set f
1e20: 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68  ile [download $h
1e30: 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b 61 67 65  ostname $package
1e40: 5f 73 68 61 31 5d 0a 09 09 73 65 74 20 66 64 20  _sha1]...set fd 
1e50: 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 73  [open $file]...s
1e60: 65 74 20 70 6b 67 64 61 74 61 20 5b 72 65 61 64  et pkgdata [read
1e70: 20 24 66 64 5d 0a 09 09 63 6c 6f 73 65 20 24 66   $fd]...close $f
1e80: 64 0a 0a 09 09 64 62 20 74 72 61 6e 73 61 63 74  d....db transact
1e90: 69 6f 6e 20 7b 0a 09 09 09 66 6f 72 65 61 63 68  ion {....foreach
1ea0: 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 70 6b   line [split $pk
1eb0: 67 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09  gdata "\n"] {...
1ec0: 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 72 69  ..set line [stri
1ed0: 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a  ng trim $line]..
1ee0: 09 09 09 09 69 66 20 7b 24 6c 69 6e 65 20 3d 3d  ....if {$line ==
1ef0: 20 22 22 7d 20 7b 0a 09 09 09 09 09 63 6f 6e 74   ""} {......cont
1f00: 69 6e 75 65 0a 09 09 09 09 7d 0a 0a 09 09 09 09  inue.....}......
1f10: 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20  set work [split 
1f20: 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 09  $line ","]......
1f30: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
1f40: 6e 20 66 69 6c 65 49 6e 66 6f 0a 09 09 09 09 73  n fileInfo.....s
1f50: 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 79 70 65  et fileInfo(type
1f60: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1f70: 30 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49  0].....set fileI
1f80: 6e 66 6f 28 74 69 6d 65 29 20 5b 6c 69 6e 64 65  nfo(time) [linde
1f90: 78 20 24 77 6f 72 6b 20 31 5d 0a 0a 09 09 09 09  x $work 1]......
1fa0: 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65  set work [lrange
1fb0: 20 24 77 6f 72 6b 20 32 20 65 6e 64 5d 0a 09 09   $work 2 end]...
1fc0: 09 09 73 77 69 74 63 68 20 2d 2d 20 24 66 69 6c  ..switch -- $fil
1fd0: 65 49 6e 66 6f 28 74 79 70 65 29 20 7b 0a 09 09  eInfo(type) {...
1fe0: 09 09 09 22 23 6d 61 6e 69 66 65 73 74 6d 65 74  ..."#manifestmet
1ff0: 61 64 61 74 61 22 20 7b 0a 09 09 09 09 09 09 75  adata" {.......u
2000: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
2010: 20 66 69 6c 65 49 6e 66 6f 0a 09 09 09 09 09 09   fileInfo.......
2020: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 7d 0a  continue......}.
2030: 09 09 09 09 09 22 66 69 6c 65 22 20 7b 0a 09 09  ....."file" {...
2040: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
2050: 28 73 69 7a 65 29 20 5b 6c 69 6e 64 65 78 20 24  (size) [lindex $
2060: 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65  work 0].......se
2070: 74 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73  t fileInfo(perms
2080: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
2090: 31 5d 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c  1].......set fil
20a0: 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69 6e  eInfo(sha1) [lin
20b0: 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09 09  dex $work 2]....
20c0: 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72  ....set work [lr
20d0: 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65 6e 64  ange $work 3 end
20e0: 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22 73  ]......}......"s
20f0: 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09  ymlink" {.......
2100: 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f 75  set fileInfo(sou
2110: 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f  rce) [lindex $wo
2120: 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74 20  rk 0].......set 
2130: 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f  work [lrange $wo
2140: 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09 09 7d  rk 1 end]......}
2150: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20  .....}......set 
2160: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b  fileInfo(name) [
2170: 6a 6f 69 6e 20 24 77 6f 72 6b 20 22 2c 22 5d 0a  join $work ","].
2180: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
2190: 28 6e 61 6d 65 29 20 5b 73 70 6c 69 74 20 5b 73  (name) [split [s
21a0: 74 72 69 6e 67 20 74 72 69 6d 20 24 66 69 6c 65  tring trim $file
21b0: 49 6e 66 6f 28 6e 61 6d 65 29 20 22 2f 22 5d 20  Info(name) "/"] 
21c0: 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c  "/"].....set fil
21d0: 65 49 6e 66 6f 28 64 69 72 65 63 74 6f 72 79 29  eInfo(directory)
21e0: 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24   [join [lrange $
21f0: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 30  fileInfo(name) 0
2200: 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09   end-1] "/"]....
2210: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61  .set fileInfo(na
2220: 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 66 69 6c  me) [lindex $fil
2230: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 65 6e 64 5d  eInfo(name) end]
2240: 0a 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b 49  ......db eval {I
2250: 4e 53 45 52 54 20 49 4e 54 4f 20 66 69 6c 65 73  NSERT INTO files
2260: 20 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20   (package_sha1, 
2270: 74 79 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72  type, time, sour
2280: 63 65 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c  ce, size, perms,
2290: 20 66 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65   file_sha1, file
22a0: 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65  _name, file_dire
22b0: 63 74 6f 72 79 29 20 56 41 4c 55 45 53 20 28 24  ctory) VALUES ($
22c0: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 24 66  package_sha1, $f
22d0: 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 2c 20 24  ileInfo(type), $
22e0: 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65 29 2c 20  fileInfo(time), 
22f0: 24 66 69 6c 65 49 6e 66 6f 28 73 6f 75 72 63 65  $fileInfo(source
2300: 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73 69 7a  ), $fileInfo(siz
2310: 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 70 65  e), $fileInfo(pe
2320: 72 6d 73 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28  rms), $fileInfo(
2330: 73 68 61 31 29 2c 20 24 66 69 6c 65 49 6e 66 6f  sha1), $fileInfo
2340: 28 6e 61 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66  (name), $fileInf
2350: 6f 28 64 69 72 65 63 74 6f 72 79 29 20 29 3b 7d  o(directory) );}
2360: 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b 55 50  .....db eval {UP
2370: 44 41 54 45 20 70 61 63 6b 61 67 65 73 20 53 45  DATE packages SE
2380: 54 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20 3d  T haveManifest =
2390: 20 31 20 57 48 45 52 45 20 73 68 61 31 20 3d 20   1 WHERE sha1 = 
23a0: 24 70 61 63 6b 61 67 65 5f 73 68 61 31 3b 7d 0a  $package_sha1;}.
23b0: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 61 70 70 66  ...}...}....appf
23c0: 73 64 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e 66  sd::get_path_inf
23d0: 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 0a 0a 09  o_cache_flush...
23e0: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
23f0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6c 6f 63 61  ..}...proc _loca
2400: 6c 70 61 74 68 20 7b 70 61 63 6b 61 67 65 20 68  lpath {package h
2410: 6f 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a  ostname file} {.
2420: 09 09 73 65 74 20 64 69 72 20 22 22 0a 09 09 63  ..set dir ""...c
2430: 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 68 6f  atch {....set ho
2440: 6d 65 64 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a  medir [::appfs::
2450: 75 73 65 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69  user::get_homedi
2460: 72 5d 0a 09 09 09 73 65 74 20 64 69 72 20 5b 66  r]....set dir [f
2470: 69 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69  ile join $homedi
2480: 72 20 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70 61  r .appfs "./${pa
2490: 63 6b 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d  ckage}@${hostnam
24a0: 65 7d 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 22 5d  e}" "./${file}"]
24b0: 0a 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 24 64  ...}...return $d
24c0: 69 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 77 68  ir..}...proc _wh
24d0: 69 74 65 6f 75 74 70 61 74 68 20 7b 70 61 63 6b  iteoutpath {pack
24e0: 61 67 65 20 68 6f 73 74 6e 61 6d 65 20 66 69 6c  age hostname fil
24f0: 65 7d 20 7b 0a 09 09 73 65 74 20 64 69 72 20 22  e} {...set dir "
2500: 22 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73  "...catch {....s
2510: 65 74 20 68 6f 6d 65 64 69 72 20 5b 3a 3a 61 70  et homedir [::ap
2520: 70 66 73 3a 3a 75 73 65 72 3a 3a 67 65 74 5f 68  pfs::user::get_h
2530: 6f 6d 65 64 69 72 5d 0a 09 09 09 73 65 74 20 64  omedir]....set d
2540: 69 72 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 68  ir [file join $h
2550: 6f 6d 65 64 69 72 20 2e 61 70 70 66 73 20 22 2e  omedir .appfs ".
2560: 2f 24 7b 70 61 63 6b 61 67 65 7d 40 24 7b 68 6f  /${package}@${ho
2570: 73 74 6e 61 6d 65 7d 22 20 22 2e 41 50 50 46 53  stname}" ".APPFS
2580: 2e 57 48 49 54 45 4f 55 54 22 20 22 2e 2f 24 7b  .WHITEOUT" "./${
2590: 66 69 6c 65 7d 2e 41 50 50 46 53 2e 57 48 49 54  file}.APPFS.WHIT
25a0: 45 4f 55 54 22 5d 0a 09 09 7d 0a 09 09 72 65 74  EOUT"]...}...ret
25b0: 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a 09 70 72  urn $dir..}...pr
25c0: 6f 63 20 5f 70 61 72 73 65 70 61 74 68 20 7b 70  oc _parsepath {p
25d0: 61 74 68 7d 20 7b 0a 09 09 73 65 74 20 70 61 74  ath} {...set pat
25e0: 68 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  h [string trim $
25f0: 70 61 74 68 20 22 2f 22 5d 0a 09 09 73 65 74 20  path "/"]...set 
2600: 70 61 74 68 20 5b 73 70 6c 69 74 20 24 70 61 74  path [split $pat
2610: 68 20 22 2f 22 5d 0a 09 09 73 65 74 20 70 61 74  h "/"]...set pat
2620: 68 6c 65 6e 20 5b 6c 6c 65 6e 67 74 68 20 24 70  hlen [llength $p
2630: 61 74 68 5d 0a 0a 09 09 61 72 72 61 79 20 73 65  ath]....array se
2640: 74 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 20 5f  t retval [list _
2650: 63 68 69 6c 64 72 65 6e 20 73 69 74 65 73 20 5f  children sites _
2660: 74 79 70 65 20 74 6f 70 6c 65 76 65 6c 5d 0a 0a  type toplevel]..
2670: 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e  ..if {$pathlen >
2680: 20 30 7d 20 7b 0a 09 09 09 73 65 74 20 72 65 74   0} {....set ret
2690: 76 61 6c 28 68 6f 73 74 6e 61 6d 65 29 20 5b 6c  val(hostname) [l
26a0: 69 6e 64 65 78 20 24 70 61 74 68 20 30 5d 0a 09  index $path 0]..
26b0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68  ..set retval(_ch
26c0: 69 6c 64 72 65 6e 29 20 70 61 63 6b 61 67 65 73  ildren) packages
26d0: 0a 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
26e0: 74 79 70 65 29 20 73 69 74 65 73 0a 0a 09 09 09  type) sites.....
26f0: 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 31  if {$pathlen > 1
2700: 7d 20 7b 0a 09 09 09 09 73 65 74 20 70 61 63 6b  } {.....set pack
2710: 61 67 65 20 5b 6c 69 6e 64 65 78 20 24 70 61 74  age [lindex $pat
2720: 68 20 31 5d 0a 09 09 09 09 69 66 20 7b 5b 73 74  h 1].....if {[st
2730: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 61 63  ring length $pac
2740: 6b 61 67 65 5d 20 3d 3d 20 22 34 30 22 20 26 26  kage] == "40" &&
2750: 20 5b 72 65 67 65 78 70 20 7b 5e 5b 61 2d 66 41   [regexp {^[a-fA
2760: 2d 46 30 2d 39 5d 2a 24 7d 20 24 70 61 63 6b 61  -F0-9]*$} $packa
2770: 67 65 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74 20  ge]} {......set 
2780: 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73  retval(package_s
2790: 68 61 31 29 20 24 70 61 63 6b 61 67 65 0a 09 09  ha1) $package...
27a0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
27b0: 68 69 6c 64 72 65 6e 29 20 66 69 6c 65 73 0a 09  hildren) files..
27c0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
27d0: 74 79 70 65 29 20 66 69 6c 65 73 0a 0a 09 09 09  type) files.....
27e0: 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76  ..::appfs::db ev
27f0: 61 6c 20 7b 53 45 4c 45 43 54 20 70 61 63 6b 61  al {SELECT packa
2800: 67 65 2c 20 6f 73 2c 20 63 70 75 41 72 63 68 2c  ge, os, cpuArch,
2810: 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61   version FROM pa
2820: 63 6b 61 67 65 73 20 57 48 45 52 45 20 73 68 61  ckages WHERE sha
2830: 31 20 3d 20 24 72 65 74 76 61 6c 28 70 61 63 6b  1 = $retval(pack
2840: 61 67 65 5f 73 68 61 31 29 3b 7d 20 70 6b 67 69  age_sha1);} pkgi
2850: 6e 66 6f 20 7b 7d 0a 09 09 09 09 09 73 65 74 20  nfo {}......set 
2860: 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 29 20  retval(package) 
2870: 24 70 6b 67 69 6e 66 6f 28 70 61 63 6b 61 67 65  $pkginfo(package
2880: 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61  )......set retva
2890: 6c 28 6f 73 29 20 24 70 6b 67 69 6e 66 6f 28 6f  l(os) $pkginfo(o
28a0: 73 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  s)......set retv
28b0: 61 6c 28 63 70 75 29 20 24 70 6b 67 69 6e 66 6f  al(cpu) $pkginfo
28c0: 28 63 70 75 41 72 63 68 29 0a 09 09 09 09 09 73  (cpuArch)......s
28d0: 65 74 20 72 65 74 76 61 6c 28 76 65 72 73 69 6f  et retval(versio
28e0: 6e 29 20 24 70 6b 67 69 6e 66 6f 28 76 65 72 73  n) $pkginfo(vers
28f0: 69 6f 6e 29 0a 0a 09 09 09 09 09 69 66 20 7b 24  ion).......if {$
2900: 70 61 74 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a 09  pathlen > 2} {..
2910: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
2920: 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61  file) [join [lra
2930: 6e 67 65 20 24 70 61 74 68 20 32 20 65 6e 64 5d  nge $path 2 end]
2940: 20 22 2f 22 5d 0a 09 09 09 09 09 7d 20 65 6c 73   "/"]......} els
2950: 65 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  e {.......set re
2960: 74 76 61 6c 28 66 69 6c 65 29 20 22 22 0a 09 09  tval(file) ""...
2970: 09 09 09 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20  ...}.....} else 
2980: 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61  {......set retva
2990: 6c 28 70 61 63 6b 61 67 65 29 20 24 70 61 63 6b  l(package) $pack
29a0: 61 67 65 0a 09 09 09 09 09 73 65 74 20 72 65 74  age......set ret
29b0: 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 6f  val(_children) o
29c0: 73 2d 63 70 75 0a 09 09 09 09 09 73 65 74 20 72  s-cpu......set r
29d0: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 70 61 63  etval(_type) pac
29e0: 6b 61 67 65 73 0a 0a 09 09 09 09 09 69 66 20 7b  kages.......if {
29f0: 24 70 61 74 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a  $pathlen > 2} {.
2a00: 09 09 09 09 09 09 73 65 74 20 6f 73 5f 63 70 75  ......set os_cpu
2a10: 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20 32   [lindex $path 2
2a20: 5d 0a 09 09 09 09 09 09 73 65 74 20 6f 73 5f 63  ].......set os_c
2a30: 70 75 20 5b 73 70 6c 69 74 20 24 6f 73 5f 63 70  pu [split $os_cp
2a40: 75 20 22 2d 22 5d 0a 0a 09 09 09 09 09 09 73 65  u "-"]........se
2a50: 74 20 72 65 74 76 61 6c 28 6f 73 29 20 5b 6c 69  t retval(os) [li
2a60: 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 30 5d 0a  ndex $os_cpu 0].
2a70: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2a80: 28 63 70 75 29 20 5b 6c 69 6e 64 65 78 20 24 6f  (cpu) [lindex $o
2a90: 73 5f 63 70 75 20 31 5d 0a 09 09 09 09 09 09 73  s_cpu 1].......s
2aa0: 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64  et retval(_child
2ab0: 72 65 6e 29 20 76 65 72 73 69 6f 6e 73 0a 09 09  ren) versions...
2ac0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
2ad0: 74 79 70 65 29 20 6f 73 2d 63 70 75 0a 0a 09 09  type) os-cpu....
2ae0: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e  ....if {$pathlen
2af0: 20 3e 20 33 7d 20 7b 0a 09 09 09 09 09 09 09 73   > 3} {........s
2b00: 65 74 20 72 65 74 76 61 6c 28 76 65 72 73 69 6f  et retval(versio
2b10: 6e 29 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68  n) [lindex $path
2b20: 20 33 5d 0a 09 09 09 09 09 09 09 73 65 74 20 72   3]........set r
2b30: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
2b40: 20 66 69 6c 65 73 0a 09 09 09 09 09 09 09 73 65   files........se
2b50: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
2b60: 76 65 72 73 69 6f 6e 73 0a 0a 09 09 09 09 09 09  versions........
2b70: 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b  .set retval(pack
2b80: 61 67 65 5f 73 68 61 31 29 20 5b 3a 3a 61 70 70  age_sha1) [::app
2b90: 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e  fs::db onecolumn
2ba0: 20 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46 52   {SELECT sha1 FR
2bb0: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
2bc0: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 72 65  E hostname = $re
2bd0: 74 76 61 6c 28 68 6f 73 74 6e 61 6d 65 29 20 41  tval(hostname) A
2be0: 4e 44 20 6f 73 20 3d 20 24 72 65 74 76 61 6c 28  ND os = $retval(
2bf0: 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20  os) AND cpuArch 
2c00: 3d 20 24 72 65 74 76 61 6c 28 63 70 75 29 20 41  = $retval(cpu) A
2c10: 4e 44 20 76 65 72 73 69 6f 6e 20 3d 20 24 72 65  ND version = $re
2c20: 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 3b 7d 5d  tval(version);}]
2c30: 0a 09 09 09 09 09 09 09 69 66 20 7b 24 72 65 74  ........if {$ret
2c40: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
2c50: 29 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  ) == ""} {......
2c60: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
2c70: 68 69 6c 64 72 65 6e 29 20 64 65 61 64 0a 09 09  hildren) dead...
2c80: 09 09 09 09 09 09 72 65 74 75 72 6e 20 5b 61 72  ......return [ar
2c90: 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d 0a  ray get retval].
2ca0: 09 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09  .......}........
2cb0: 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20  .if {$pathlen > 
2cc0: 34 7d 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74  4} {.........set
2cd0: 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66   retval(_type) f
2ce0: 69 6c 65 73 0a 09 09 09 09 09 09 09 09 73 65 74  iles.........set
2cf0: 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a   retval(file) [j
2d00: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61 74  oin [lrange $pat
2d10: 68 20 34 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09  h 4 end] "/"]...
2d20: 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .....} else {...
2d30: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2d40: 28 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 09 09  (_type) files...
2d50: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2d60: 28 66 69 6c 65 29 20 22 22 0a 09 09 09 09 09 09  (file) "".......
2d70: 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09  .}.......}......
2d80: 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d  }.....}....}...}
2d90: 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61  ....return [arra
2da0: 79 20 67 65 74 20 72 65 74 76 61 6c 5d 0a 09 7d  y get retval]..}
2db0: 0a 0a 09 70 72 6f 63 20 67 65 74 63 68 69 6c 64  ...proc getchild
2dc0: 72 65 6e 20 7b 64 69 72 7d 20 7b 0a 09 09 61 72  ren {dir} {...ar
2dd0: 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f  ray set pathinfo
2de0: 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 64 69   [_parsepath $di
2df0: 72 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20  r]....switch -- 
2e00: 24 70 61 74 68 69 6e 66 6f 28 5f 63 68 69 6c 64  $pathinfo(_child
2e10: 72 65 6e 29 20 7b 0a 09 09 09 22 73 69 74 65 73  ren) {...."sites
2e20: 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 5b  " {.....return [
2e30: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
2e40: 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43   {SELECT DISTINC
2e50: 54 20 68 6f 73 74 6e 61 6d 65 20 46 52 4f 4d 20  T hostname FROM 
2e60: 70 61 63 6b 61 67 65 73 3b 7d 5d 0a 09 09 09 7d  packages;}]....}
2e70: 0a 09 09 09 22 70 61 63 6b 61 67 65 73 22 20 7b  ...."packages" {
2e80: 0a 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09  .....catch {....
2e90: 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e  ..::appfs::getin
2ea0: 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  dex $pathinfo(ho
2eb0: 73 74 6e 61 6d 65 29 0a 09 09 09 09 7d 0a 0a 09  stname).....}...
2ec0: 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70  ...return [::app
2ed0: 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c  fs::db eval {SEL
2ee0: 45 43 54 20 44 49 53 54 49 4e 43 54 20 70 61 63  ECT DISTINCT pac
2ef0: 6b 61 67 65 20 46 52 4f 4d 20 70 61 63 6b 61 67  kage FROM packag
2f00: 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d  es WHERE hostnam
2f10: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  e = $pathinfo(ho
2f20: 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09 7d 0a  stname);}]....}.
2f30: 09 09 09 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09  ..."os-cpu" {...
2f40: 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a  ..set retval [::
2f50: 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b  appfs::db eval {
2f60: 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20  SELECT DISTINCT 
2f70: 6f 73 20 7c 7c 20 22 2d 22 20 7c 7c 20 63 70 75  os || "-" || cpu
2f80: 41 72 63 68 20 46 52 4f 4d 20 70 61 63 6b 61 67  Arch FROM packag
2f90: 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d  es WHERE hostnam
2fa0: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  e = $pathinfo(ho
2fb0: 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b  stname) AND pack
2fc0: 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  age = $pathinfo(
2fd0: 70 61 63 6b 61 67 65 29 3b 7d 5d 0a 0a 09 09 09  package);}].....
2fe0: 09 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20  .lappend retval 
2ff0: 22 70 6c 61 74 66 6f 72 6d 22 0a 0a 09 09 09 09  "platform"......
3000: 72 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09  return $retval..
3010: 09 09 7d 0a 09 09 09 22 76 65 72 73 69 6f 6e 73  ..}...."versions
3020: 22 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74 76  " {.....set retv
3030: 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20  al [::appfs::db 
3040: 65 76 61 6c 20 7b 0a 09 09 09 09 09 53 45 4c 45  eval {......SELE
3050: 43 54 20 44 49 53 54 49 4e 43 54 20 76 65 72 73  CT DISTINCT vers
3060: 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  ion FROM package
3070: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
3080: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
3090: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
30a0: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
30b0: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d  ackage) AND os =
30c0: 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41   $pathinfo(os) A
30d0: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61  ND cpuArch = $pa
30e0: 74 68 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09  thinfo(cpu);....
30f0: 09 7d 5d 0a 0a 09 09 09 09 3a 3a 61 70 70 66 73  .}]......::appfs
3100: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
3110: 54 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70  T version FROM p
3120: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 69 73  ackages WHERE is
3130: 4c 61 74 65 73 74 20 3d 20 31 20 41 4e 44 20 68  Latest = 1 AND h
3140: 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69  ostname = $pathi
3150: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e  nfo(hostname) AN
3160: 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74  D package = $pat
3170: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41  hinfo(package) A
3180: 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66  ND os = $pathinf
3190: 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63  o(os) AND cpuArc
31a0: 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70  h = $pathinfo(cp
31b0: 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61 74  u) LIMIT 1;} lat
31c0: 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09  est_info {}.....
31d0: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
31e0: 73 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76 65  s latest_info(ve
31f0: 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09 09  rsion)]} {......
3200: 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22  lappend retval "
3210: 6c 61 74 65 73 74 22 0a 09 09 09 09 7d 0a 0a 09  latest".....}...
3220: 09 09 09 72 65 74 75 72 6e 20 24 72 65 74 76 61  ...return $retva
3230: 6c 0a 09 09 09 7d 0a 09 09 09 22 66 69 6c 65 73  l....}...."files
3240: 22 20 7b 0a 09 09 09 09 63 61 74 63 68 20 7b 0a  " {.....catch {.
3250: 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65  .....::appfs::ge
3260: 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 24 70 61  tpkgmanifest $pa
3270: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
3280: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
3290: 67 65 5f 73 68 61 31 29 0a 09 09 09 09 7d 0a 0a  ge_sha1).....}..
32a0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b  ....set retval [
32b0: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
32c0: 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43   {SELECT DISTINC
32d0: 54 20 66 69 6c 65 5f 6e 61 6d 65 20 46 52 4f 4d  T file_name FROM
32e0: 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61 63   files WHERE pac
32f0: 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61 74  kage_sha1 = $pat
3300: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68  hinfo(package_sh
3310: 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69 72  a1) AND file_dir
3320: 65 63 74 6f 72 79 20 3d 20 24 70 61 74 68 69 6e  ectory = $pathin
3330: 66 6f 28 66 69 6c 65 29 3b 7d 5d 0a 0a 09 09 09  fo(file);}].....
3340: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
3350: 73 20 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61  s pathinfo(packa
3360: 67 65 29 5d 20 26 26 20 5b 69 6e 66 6f 20 65 78  ge)] && [info ex
3370: 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 68 6f  ists pathinfo(ho
3380: 73 74 6e 61 6d 65 29 5d 20 26 26 20 5b 69 6e 66  stname)] && [inf
3390: 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66  o exists pathinf
33a0: 6f 28 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 09  o(file)]} {.....
33b0: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09  ._as_user {.....
33c0: 09 09 73 65 74 20 64 69 72 20 5b 5f 6c 6f 63 61  ..set dir [_loca
33d0: 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28  lpath $pathinfo(
33e0: 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e  package) $pathin
33f0: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
3400: 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09  thinfo(file)]...
3410: 09 09 09 09 73 65 74 20 77 68 69 74 65 6f 75 74  ....set whiteout
3420: 64 69 72 20 5b 73 74 72 69 6e 67 20 72 61 6e 67  dir [string rang
3430: 65 20 5b 5f 77 68 69 74 65 6f 75 74 70 61 74 68  e [_whiteoutpath
3440: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
3450: 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  ge) $pathinfo(ho
3460: 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66  stname) $pathinf
3470: 6f 28 66 69 6c 65 29 5d 20 30 20 65 6e 64 2d 31  o(file)] 0 end-1
3480: 35 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 77  5]........if {$w
3490: 68 69 74 65 6f 75 74 64 69 72 20 21 3d 20 22 22  hiteoutdir != ""
34a0: 7d 20 7b 0a 09 09 09 09 09 09 09 66 6f 72 65 61  } {........forea
34b0: 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e  ch file [glob -n
34c0: 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 61 69 6c 73  ocomplain -tails
34d0: 20 2d 64 69 72 65 63 74 6f 72 79 20 24 77 68 69   -directory $whi
34e0: 74 65 6f 75 74 64 69 72 20 7b 7b 2e 2c 7d 2a 2e  teoutdir {{.,}*.
34f0: 41 50 50 46 53 2e 57 48 49 54 45 4f 55 54 7d 5d  APPFS.WHITEOUT}]
3500: 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72   {.........set r
3510: 65 6d 6f 76 65 20 5b 73 74 72 69 6e 67 20 72 61  emove [string ra
3520: 6e 67 65 20 24 66 69 6c 65 20 30 20 65 6e 64 2d  nge $file 0 end-
3530: 31 35 5d 0a 09 09 09 09 09 09 09 09 73 65 74 20  15].........set 
3540: 69 64 78 20 5b 6c 73 65 61 72 63 68 20 2d 65 78  idx [lsearch -ex
3550: 61 63 74 20 24 72 65 74 76 61 6c 20 24 72 65 6d  act $retval $rem
3560: 6f 76 65 5d 0a 09 09 09 09 09 09 09 09 69 66 20  ove].........if 
3570: 7b 24 69 64 78 20 21 3d 20 2d 31 7d 20 7b 0a 09  {$idx != -1} {..
3580: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3590: 61 6c 20 5b 6c 72 65 70 6c 61 63 65 20 24 72 65  al [lreplace $re
35a0: 74 76 61 6c 20 24 69 64 78 20 24 69 64 78 5d 0a  tval $idx $idx].
35b0: 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09  ........}.......
35c0: 09 7d 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09 09  .}.......}......
35d0: 09 09 69 66 20 7b 24 64 69 72 20 21 3d 20 22 22  ..if {$dir != ""
35e0: 7d 20 7b 0a 09 09 09 09 09 09 09 66 6f 72 65 61  } {........forea
35f0: 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e  ch file [glob -n
3600: 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 61 69 6c 73  ocomplain -tails
3610: 20 2d 64 69 72 65 63 74 6f 72 79 20 24 64 69 72   -directory $dir
3620: 20 7b 7b 2e 2c 7d 2a 7d 5d 20 7b 0a 09 09 09 09   {{.,}*}] {.....
3630: 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d 3d  ....if {$file ==
3640: 20 22 2e 22 20 7c 7c 20 24 66 69 6c 65 20 3d 3d   "." || $file ==
3650: 20 22 2e 2e 22 7d 20 7b 0a 09 09 09 09 09 09 09   ".."} {........
3660: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09  ..continue......
3670: 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 69 66  ...}..........if
3680: 20 7b 24 66 69 6c 65 20 3d 3d 20 22 2e 41 50 50   {$file == ".APP
3690: 46 53 2e 57 48 49 54 45 4f 55 54 22 7d 20 7b 0a  FS.WHITEOUT"} {.
36a0: 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75  .........continu
36b0: 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09 09  e.........}.....
36c0: 09 09 09 09 09 69 66 20 7b 5b 6c 73 65 61 72 63  .....if {[lsearc
36d0: 68 20 2d 65 78 61 63 74 20 24 72 65 74 76 61 6c  h -exact $retval
36e0: 20 24 66 69 6c 65 5d 20 21 3d 20 2d 31 7d 20 7b   $file] != -1} {
36f0: 0a 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e  ..........contin
3700: 75 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09  ue.........}....
3710: 09 09 09 09 09 09 6c 61 70 70 65 6e 64 20 72 65  ......lappend re
3720: 74 76 61 6c 20 24 66 69 6c 65 0a 09 09 09 09 09  tval $file......
3730: 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09  ..}.......}.....
3740: 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65  .}.....}......re
3750: 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09  turn $retval....
3760: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  }...}....return 
3770: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49 6e 76  -code error "Inv
3780: 61 6c 69 64 20 6f 72 20 75 6e 61 63 63 65 70 74  alid or unaccept
3790: 61 62 6c 65 20 70 61 74 68 3a 20 24 64 69 72 22  able path: $dir"
37a0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 61 74  ..}...proc getat
37b0: 74 72 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72  tr {path} {...ar
37c0: 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f  ray set pathinfo
37d0: 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61   [_parsepath $pa
37e0: 74 68 5d 0a 09 09 61 72 72 61 79 20 73 65 74 20  th]...array set 
37f0: 72 65 74 76 61 6c 20 5b 6c 69 73 74 5d 0a 0a 09  retval [list]...
3800: 09 63 61 74 63 68 20 7b 0a 09 09 09 3a 3a 61 70  .catch {....::ap
3810: 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24 70  pfs::getindex $p
3820: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
3830: 29 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65  )....::appfs::ge
3840: 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 24 70 61  tpkgmanifest $pa
3850: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
3860: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
3870: 67 65 5f 73 68 61 31 29 0a 09 09 7d 0a 0a 09 09  ge_sha1)...}....
3880: 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68 69  switch -- $pathi
3890: 6e 66 6f 28 5f 74 79 70 65 29 20 7b 0a 09 09 09  nfo(_type) {....
38a0: 22 74 6f 70 6c 65 76 65 6c 22 20 7b 0a 09 09 09  "toplevel" {....
38b0: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
38c0: 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09  ) directory.....
38d0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
38e0: 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20  count) [llength 
38f0: 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61  [getchildren $pa
3900: 74 68 5d 5d 0a 09 09 09 7d 0a 09 09 09 22 73 69  th]]....}...."si
3910: 74 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20 63  tes" {.....set c
3920: 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64  heck [::appfs::d
3930: 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c  b onecolumn {SEL
3940: 45 43 54 20 31 20 46 52 4f 4d 20 70 61 63 6b 61  ECT 1 FROM packa
3950: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
3960: 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68  me = $pathinfo(h
3970: 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09 09  ostname);}].....
3980: 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31  if {$check == "1
3990: 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65  "} {......set re
39a0: 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63  tval(type) direc
39b0: 74 6f 72 79 0a 09 09 09 09 09 73 65 74 20 72 65  tory......set re
39c0: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
39d0: 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68   [llength [getch
39e0: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09  ildren $path]]..
39f0: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 70 61  ...}....}...."pa
3a00: 63 6b 61 67 65 73 22 20 7b 0a 09 09 09 09 73 65  ckages" {.....se
3a10: 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73  t check [::appfs
3a20: 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b  ::db onecolumn {
3a30: 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61  SELECT 1 FROM pa
3a40: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
3a50: 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66  tname = $pathinf
3a60: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  o(hostname) AND 
3a70: 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69  package = $pathi
3a80: 6e 66 6f 28 70 61 63 6b 61 67 65 29 3b 7d 5d 0a  nfo(package);}].
3a90: 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20 3d  ....if {$check =
3aa0: 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 73 65  = "1"} {......se
3ab0: 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64  t retval(type) d
3ac0: 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 73 65  irectory......se
3ad0: 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f  t retval(childco
3ae0: 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67  unt) [llength [g
3af0: 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68  etchildren $path
3b00: 5d 5d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09  ]].....}....}...
3b10: 09 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09 09  ."os-cpu" {.....
3b20: 69 66 20 7b 24 70 61 74 68 69 6e 66 6f 28 6f 73  if {$pathinfo(os
3b30: 29 20 3d 3d 20 22 70 6c 61 74 66 6f 72 6d 22 20  ) == "platform" 
3b40: 26 26 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75  && $pathinfo(cpu
3b50: 29 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  ) == ""} {......
3b60: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
3b70: 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09 73 65   symlink......se
3b80: 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29  t retval(source)
3b90: 20 5b 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e 65   [platform::gene
3ba0: 72 69 63 5d 0a 09 09 09 09 7d 20 65 6c 73 65 20  ric].....} else 
3bb0: 7b 0a 09 09 09 09 09 73 65 74 20 63 68 65 63 6b  {......set check
3bc0: 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e   [::appfs::db on
3bd0: 65 63 6f 6c 75 6d 6e 20 7b 0a 09 09 09 09 09 09  ecolumn {.......
3be0: 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61  SELECT 1 FROM pa
3bf0: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
3c00: 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66  tname = $pathinf
3c10: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  o(hostname) AND 
3c20: 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69  package = $pathi
3c30: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44  nfo(package) AND
3c40: 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28   os = $pathinfo(
3c50: 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20  os) AND cpuArch 
3c60: 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29  = $pathinfo(cpu)
3c70: 3b 0a 09 09 09 09 09 7d 5d 0a 09 09 09 09 09 69  ;......}]......i
3c80: 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31 22  f {$check == "1"
3c90: 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  } {.......set re
3ca0: 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63  tval(type) direc
3cb0: 74 6f 72 79 0a 09 09 09 09 09 09 73 65 74 20 72  tory.......set r
3cc0: 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74  etval(childcount
3cd0: 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63  ) [llength [getc
3ce0: 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a  hildren $path]].
3cf0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09  .....}.....}....
3d00: 7d 0a 09 09 09 22 76 65 72 73 69 6f 6e 73 22 20  }...."versions" 
3d10: 7b 0a 09 09 09 09 69 66 20 7b 24 70 61 74 68 69  {.....if {$pathi
3d20: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 3d 3d 20  nfo(version) == 
3d30: 22 6c 61 74 65 73 74 22 7d 20 7b 0a 09 09 09 09  "latest"} {.....
3d40: 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  .::appfs::db eva
3d50: 6c 20 7b 53 45 4c 45 43 54 20 76 65 72 73 69 6f  l {SELECT versio
3d60: 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  n FROM packages 
3d70: 57 48 45 52 45 20 69 73 4c 61 74 65 73 74 20 3d  WHERE isLatest =
3d80: 20 31 20 41 4e 44 20 68 6f 73 74 6e 61 6d 65 20   1 AND hostname 
3d90: 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  = $pathinfo(host
3da0: 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67  name) AND packag
3db0: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  e = $pathinfo(pa
3dc0: 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20  ckage) AND os = 
3dd0: 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e  $pathinfo(os) AN
3de0: 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61 74  D cpuArch = $pat
3df0: 68 69 6e 66 6f 28 63 70 75 29 20 4c 49 4d 49 54  hinfo(cpu) LIMIT
3e00: 20 31 3b 7d 20 6c 61 74 65 73 74 5f 69 6e 66 6f   1;} latest_info
3e10: 20 7b 7d 0a 0a 09 09 09 09 09 69 66 20 7b 5b 69   {}.......if {[i
3e20: 6e 66 6f 20 65 78 69 73 74 73 20 6c 61 74 65 73  nfo exists lates
3e30: 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 5d  t_info(version)]
3e40: 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  } {.......set re
3e50: 74 76 61 6c 28 74 79 70 65 29 20 73 79 6d 6c 69  tval(type) symli
3e60: 6e 6b 0a 09 09 09 09 09 09 73 65 74 20 72 65 74  nk.......set ret
3e70: 76 61 6c 28 73 6f 75 72 63 65 29 20 24 6c 61 74  val(source) $lat
3e80: 65 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e  est_info(version
3e90: 29 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20 65  )......}.....} e
3ea0: 6c 73 65 20 7b 0a 09 09 09 09 09 69 66 20 7b 5b  lse {......if {[
3eb0: 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68  info exists path
3ec0: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61  info(package_sha
3ed0: 31 29 5d 20 26 26 20 24 70 61 74 68 69 6e 66 6f  1)] && $pathinfo
3ee0: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 21  (package_sha1) !
3ef0: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 73 65  = ""} {.......se
3f00: 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64  t retval(type) d
3f10: 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 09 73  irectory.......s
3f20: 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63  et retval(childc
3f30: 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b  ount) [llength [
3f40: 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74  getchildren $pat
3f50: 68 5d 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  h]]......}.....}
3f60: 0a 09 09 09 7d 0a 09 09 09 22 66 69 6c 65 73 22  ....}...."files"
3f70: 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74 76 61   {.....set retva
3f80: 6c 28 70 61 63 6b 61 67 65 64 29 20 31 0a 0a 09  l(packaged) 1...
3f90: 09 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74 68  ...set localpath
3fa0: 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61   [_localpath $pa
3fb0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
3fc0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
3fd0: 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69  me) $pathinfo(fi
3fe0: 6c 65 29 5d 0a 09 09 09 09 73 65 74 20 77 68 69  le)].....set whi
3ff0: 74 65 6f 75 74 70 61 74 68 20 20 5b 5f 77 68 69  teoutpath  [_whi
4000: 74 65 6f 75 74 70 61 74 68 20 24 70 61 74 68 69  teoutpath $pathi
4010: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61  nfo(package) $pa
4020: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
4030: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
4040: 5d 0a 0a 09 09 09 09 73 65 74 20 72 65 74 76 61  ]......set retva
4050: 6c 28 6c 6f 63 61 6c 70 61 74 68 29 20 24 6c 6f  l(localpath) $lo
4060: 63 61 6c 70 61 74 68 0a 09 09 09 09 73 65 74 20  calpath.....set 
4070: 72 65 74 76 61 6c 28 77 68 69 74 65 6f 75 74 70  retval(whiteoutp
4080: 61 74 68 29 20 24 77 68 69 74 65 6f 75 74 70 61  ath) $whiteoutpa
4090: 74 68 0a 0a 09 09 09 09 69 66 20 7b 24 6c 6f 63  th......if {$loc
40a0: 61 6c 70 61 74 68 20 21 3d 20 22 22 20 26 26 20  alpath != "" && 
40b0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 6c 6f  [file exists $lo
40c0: 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09  calpath]} {.....
40d0: 09 73 65 74 20 72 65 74 76 61 6c 28 69 73 5f 6c  .set retval(is_l
40e0: 6f 63 61 6c 66 69 6c 65 29 20 31 0a 09 09 09 09  ocalfile) 1.....
40f0: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 09 5f  .catch {......._
4100: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09 09  as_user {.......
4110: 09 66 69 6c 65 20 6c 73 74 61 74 20 24 6c 6f 63  .file lstat $loc
4120: 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70 61 74 68  alpath localpath
4130: 69 6e 66 6f 0a 09 09 09 09 09 09 7d 0a 09 09 09  info.......}....
4140: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 69  ...set retval(ti
4150: 6d 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e  me) $localpathin
4160: 66 6f 28 6d 74 69 6d 65 29 0a 0a 09 09 09 09 09  fo(mtime).......
4170: 09 73 77 69 74 63 68 20 2d 2d 20 24 6c 6f 63 61  .switch -- $loca
4180: 6c 70 61 74 68 69 6e 66 6f 28 74 79 70 65 29 20  lpathinfo(type) 
4190: 7b 0a 09 09 09 09 09 09 09 22 64 69 72 65 63 74  {........"direct
41a0: 6f 72 79 22 20 7b 0a 09 09 09 09 09 09 09 09 73  ory" {.........s
41b0: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
41c0: 22 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09  "directory".....
41d0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
41e0: 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e  hildcount) [llen
41f0: 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e  gth [getchildren
4200: 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 09 09   $path]]........
4210: 7d 0a 09 09 09 09 09 09 09 22 66 69 6c 65 22 20  }........"file" 
4220: 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  {.........set re
4230: 74 76 61 6c 28 74 79 70 65 29 20 22 66 69 6c 65  tval(type) "file
4240: 22 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  ".........set re
4250: 74 76 61 6c 28 73 69 7a 65 29 20 24 6c 6f 63 61  tval(size) $loca
4260: 6c 70 61 74 68 69 6e 66 6f 28 73 69 7a 65 29 0a  lpathinfo(size).
4270: 09 09 09 09 09 09 09 09 5f 61 73 5f 75 73 65 72  ........_as_user
4280: 20 7b 0a 09 09 09 09 09 09 09 09 09 69 66 20 7b   {..........if {
4290: 5b 66 69 6c 65 20 65 78 65 63 75 74 61 62 6c 65  [file executable
42a0: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a   $localpath]} {.
42b0: 09 09 09 09 09 09 09 09 09 09 73 65 74 20 72 65  ..........set re
42c0: 74 76 61 6c 28 70 65 72 6d 73 29 20 22 78 22 0a  tval(perms) "x".
42d0: 09 09 09 09 09 09 09 09 09 7d 20 65 6c 73 65 20  .........} else 
42e0: 7b 0a 09 09 09 09 09 09 09 09 09 09 73 65 74 20  {...........set 
42f0: 72 65 74 76 61 6c 28 70 65 72 6d 73 29 20 22 22  retval(perms) ""
4300: 0a 09 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09  ..........}.....
4310: 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a 09  ....}........}..
4320: 09 09 09 09 09 09 22 6c 69 6e 6b 22 20 7b 0a 09  ......"link" {..
4330: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
4340: 6c 28 74 79 70 65 29 20 22 73 79 6d 6c 69 6e 6b  l(type) "symlink
4350: 22 0a 0a 09 09 09 09 09 09 09 09 5f 61 73 5f 75  ".........._as_u
4360: 73 65 72 20 7b 0a 09 09 09 09 09 09 09 09 09 73  ser {..........s
4370: 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65  et retval(source
4380: 29 20 5b 66 69 6c 65 20 72 65 61 64 6c 69 6e 6b  ) [file readlink
4390: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a 09 09 09   $localpath]....
43a0: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a  .....}........}.
43b0: 09 09 09 09 09 09 09 22 66 69 66 6f 22 20 7b 0a  ......."fifo" {.
43c0: 09 09 09 09 09 09 09 09 23 20 43 61 70 69 74 61  ........# Capita
43d0: 6c 69 7a 65 64 20 73 6f 20 74 68 61 74 20 74 68  lized so that th
43e0: 65 20 66 69 72 73 74 20 63 68 61 72 20 69 73 20  e first char is 
43f0: 75 6e 69 71 75 65 0a 09 09 09 09 09 09 09 09 73  unique.........s
4400: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
4410: 22 46 69 66 6f 22 0a 09 09 09 09 09 09 09 7d 0a  "Fifo"........}.
4420: 09 09 09 09 09 09 09 22 73 6f 63 6b 65 74 22 20  ......."socket" 
4430: 7b 0a 09 09 09 09 09 09 09 09 23 20 43 61 70 69  {.........# Capi
4440: 74 61 6c 69 7a 65 64 20 73 6f 20 74 68 61 74 20  talized so that 
4450: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 20 69  the first char i
4460: 73 20 75 6e 69 71 75 65 0a 09 09 09 09 09 09 09  s unique........
4470: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
4480: 29 20 22 53 6f 63 6b 65 74 22 0a 09 09 09 09 09  ) "Socket"......
4490: 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09  ..}.......}.....
44a0: 09 7d 20 65 72 72 0a 09 09 09 09 7d 20 65 6c 73  .} err.....} els
44b0: 65 20 7b 0a 09 09 09 09 09 69 66 20 7b 24 77 68  e {......if {$wh
44c0: 69 74 65 6f 75 74 70 61 74 68 20 3d 3d 20 22 22  iteoutpath == ""
44d0: 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 73 74   || ![file exist
44e0: 73 20 24 77 68 69 74 65 6f 75 74 70 61 74 68 5d  s $whiteoutpath]
44f0: 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  } {.......set re
4500: 74 76 61 6c 28 69 73 5f 72 65 6d 6f 74 65 66 69  tval(is_remotefi
4510: 6c 65 29 20 31 0a 0a 09 09 09 09 09 09 73 65 74  le) 1........set
4520: 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 70 61   work [split $pa
4530: 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22 2f 22  thinfo(file) "/"
4540: 5d 0a 09 09 09 09 09 09 73 65 74 20 64 69 72 65  ].......set dire
4550: 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61  ctory [join [lra
4560: 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e 64 2d  nge $work 0 end-
4570: 31 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 73 65  1] "/"].......se
4580: 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20 24  t file [lindex $
4590: 77 6f 72 6b 20 65 6e 64 5d 0a 0a 09 09 09 09 09  work end].......
45a0: 09 69 66 20 7b 24 64 69 72 65 63 74 6f 72 79 20  .if {$directory 
45b0: 3d 3d 20 22 22 20 26 26 20 24 66 69 6c 65 20 3d  == "" && $file =
45c0: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 61  = ""} {........a
45d0: 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c 20  rray set retval 
45e0: 5b 6c 69 73 74 20 74 79 70 65 20 64 69 72 65 63  [list type direc
45f0: 74 6f 72 79 5d 0a 09 09 09 09 09 09 7d 0a 0a 09  tory].......}...
4600: 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62  .....::appfs::db
4610: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 79   eval {SELECT ty
4620: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
4630: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 20 46 52  , size, perms FR
4640: 4f 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70  OM files WHERE p
4650: 61 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70  ackage_sha1 = $p
4660: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f  athinfo(package_
4670: 73 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64  sha1) AND file_d
4680: 69 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65  irectory = $dire
4690: 63 74 6f 72 79 20 41 4e 44 20 66 69 6c 65 5f 6e  ctory AND file_n
46a0: 61 6d 65 20 3d 20 24 66 69 6c 65 3b 7d 20 72 65  ame = $file;} re
46b0: 74 76 61 6c 20 7b 7d 0a 0a 09 09 09 09 09 09 69  tval {}........i
46c0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
46d0: 72 65 74 76 61 6c 28 74 79 70 65 29 5d 20 26 26  retval(type)] &&
46e0: 20 24 72 65 74 76 61 6c 28 74 79 70 65 29 20 3d   $retval(type) =
46f0: 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20 7b  = "directory"} {
4700: 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
4710: 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b  al(childcount) [
4720: 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c  llength [getchil
4730: 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09  dren $path]]....
4740: 09 09 09 7d 0a 0a 09 09 09 09 09 09 75 6e 73 65  ...}........unse
4750: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
4760: 74 76 61 6c 28 2a 29 0a 09 09 09 09 09 7d 0a 09  tval(*)......}..
4770: 09 09 09 7d 0a 0a 09 09 09 7d 0a 09 09 7d 0a 0a  ...}.....}...}..
4780: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69  ..if {![info exi
4790: 73 74 73 20 72 65 74 76 61 6c 28 74 79 70 65 29  sts retval(type)
47a0: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  ]} {....return -
47b0: 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f 20 73  code error "No s
47c0: 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72 65  uch file or dire
47d0: 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09 72 65  ctory"...}....re
47e0: 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20  turn [array get 
47f0: 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72 6f  retval]..}...pro
4800: 63 20 6f 70 65 6e 70 61 74 68 20 7b 70 61 74 68  c openpath {path
4810: 20 6d 6f 64 65 7d 20 7b 0a 09 09 61 72 72 61 79   mode} {...array
4820: 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f   set pathinfo [_
4830: 70 61 72 73 65 70 61 74 68 20 24 70 61 74 68 5d  parsepath $path]
4840: 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69 6e 66  ....if {$pathinf
4850: 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66 69 6c  o(_type) != "fil
4860: 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  es"} {....return
4870: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e   -code error "in
4880: 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d 0a  valid type"...}.
4890: 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74 68  ...set localpath
48a0: 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61   [_localpath $pa
48b0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
48c0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
48d0: 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69  me) $pathinfo(fi
48e0: 6c 65 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64  le)]....if {$mod
48f0: 65 20 3d 3d 20 22 63 72 65 61 74 65 22 7d 20 7b  e == "create"} {
4900: 0a 09 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61  ....if {$localpa
4910: 74 68 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09  th == ""} {.....
4920: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
4930: 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 63 72 65  or "Asked to cre
4940: 61 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65  ate, but no home
4950: 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 09 09 09   directory."....
4960: 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f  }.....return $lo
4970: 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 69  calpath...}....i
4980: 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 21 3d  f {$localpath !=
4990: 20 22 22 20 26 26 20 5b 66 69 6c 65 20 65 78 69   "" && [file exi
49a0: 73 74 73 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d  sts $localpath]}
49b0: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f   {....return $lo
49c0: 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 73  calpath...}....s
49d0: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24  et work [split $
49e0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22  pathinfo(file) "
49f0: 2f 22 5d 0a 09 09 73 65 74 20 64 69 72 65 63 74  /"]...set direct
4a00: 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67  ory [join [lrang
4a10: 65 20 24 77 6f 72 6b 20 30 20 65 6e 64 2d 31 5d  e $work 0 end-1]
4a20: 20 22 2f 22 5d 0a 09 09 73 65 74 20 66 69 6c 65   "/"]...set file
4a30: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 65   [lindex $work e
4a40: 6e 64 5d 0a 09 09 3a 3a 61 70 70 66 73 3a 3a 64  nd]...::appfs::d
4a50: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 66  b eval {SELECT f
4a60: 69 6c 65 5f 73 68 61 31 2c 20 70 65 72 6d 73 20  ile_sha1, perms 
4a70: 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 52 45  FROM files WHERE
4a80: 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20 3d 20   package_sha1 = 
4a90: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
4aa0: 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69 6c 65  e_sha1) AND file
4ab0: 5f 6e 61 6d 65 20 3d 20 24 66 69 6c 65 20 41 4e  _name = $file AN
4ac0: 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79  D file_directory
4ad0: 20 3d 20 24 64 69 72 65 63 74 6f 72 79 3b 7d 20   = $directory;} 
4ae0: 70 6b 67 70 61 74 68 69 6e 66 6f 20 7b 7d 0a 0a  pkgpathinfo {}..
4af0: 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68 69 6e  ..if {$pkgpathin
4b00: 66 6f 28 66 69 6c 65 5f 73 68 61 31 29 20 3d 3d  fo(file_sha1) ==
4b10: 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e   ""} {....return
4b20: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f   -code error "No
4b30: 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69   such file or di
4b40: 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09  rectory"...}....
4b50: 73 65 74 20 6c 6f 63 61 6c 63 61 63 68 65 66 69  set localcachefi
4b60: 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 70 61  le [download $pa
4b70: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
4b80: 20 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 66 69   $pkgpathinfo(fi
4b90: 6c 65 5f 73 68 61 31 29 5d 0a 0a 09 09 69 66 20  le_sha1)]....if 
4ba0: 7b 24 6d 6f 64 65 20 3d 3d 20 22 77 72 69 74 65  {$mode == "write
4bb0: 22 7d 20 7b 0a 09 09 09 5f 61 73 5f 75 73 65 72  "} {...._as_user
4bc0: 20 7b 0a 09 09 09 09 73 65 74 20 74 6d 70 6c 6f   {.....set tmplo
4bd0: 63 61 6c 70 61 74 68 20 22 24 7b 6c 6f 63 61 6c  calpath "${local
4be0: 70 61 74 68 7d 2e 5b 65 78 70 72 20 72 61 6e 64  path}.[expr rand
4bf0: 28 29 5d 5b 63 6c 6f 63 6b 20 63 6c 69 63 6b 73  ()][clock clicks
4c00: 5d 22 0a 0a 09 09 09 09 73 65 74 20 66 61 69 6c  ]"......set fail
4c10: 65 64 20 30 0a 09 09 09 09 69 66 20 7b 5b 63 61  ed 0.....if {[ca
4c20: 74 63 68 20 7b 0a 09 09 09 09 09 66 69 6c 65 20  tch {......file 
4c30: 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e  mkdir [file dirn
4c40: 61 6d 65 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a  ame $localpath].
4c50: 09 09 09 09 09 66 69 6c 65 20 63 6f 70 79 20 2d  .....file copy -
4c60: 66 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61 6c 63  force -- $localc
4c70: 61 63 68 65 66 69 6c 65 20 24 74 6d 70 6c 6f 63  achefile $tmploc
4c80: 61 6c 70 61 74 68 0a 0a 09 09 09 09 09 69 66 20  alpath.......if 
4c90: 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 70 65  {$pkgpathinfo(pe
4ca0: 72 6d 73 29 20 3d 3d 20 22 78 22 7d 20 7b 0a 09  rms) == "x"} {..
4cb0: 09 09 09 09 09 66 69 6c 65 20 61 74 74 72 69 62  .....file attrib
4cc0: 75 74 65 73 20 24 74 6d 70 6c 6f 63 61 6c 70 61  utes $tmplocalpa
4cd0: 74 68 20 2d 70 65 72 6d 69 73 73 69 6f 6e 73 20  th -permissions 
4ce0: 2b 78 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09  +x......}.......
4cf0: 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66 6f 72  file rename -for
4d00: 63 65 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70  ce -- $tmplocalp
4d10: 61 74 68 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09  ath $localpath..
4d20: 09 09 09 7d 20 65 72 72 5d 7d 20 7b 0a 09 09 09  ...} err]} {....
4d30: 09 09 73 65 74 20 66 61 69 6c 65 64 20 31 0a 09  ..set failed 1..
4d40: 09 09 09 7d 0a 09 09 09 09 63 61 74 63 68 20 7b  ...}.....catch {
4d50: 0a 09 09 09 09 09 66 69 6c 65 20 64 65 6c 65 74  ......file delet
4d60: 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70  e -force -- $tmp
4d70: 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 09 7d 0a  localpath.....}.
4d80: 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 66 61  ...}.....if {$fa
4d90: 69 6c 65 64 7d 20 7b 0a 09 09 09 09 72 65 74 75  iled} {.....retu
4da0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24  rn -code error $
4db0: 65 72 72 0a 09 09 09 7d 0a 0a 09 09 09 72 65 74  err....}.....ret
4dc0: 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09  urn $localpath..
4dd0: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 6c 6f  .}....return $lo
4de0: 63 61 6c 63 61 63 68 65 66 69 6c 65 0a 09 7d 0a  calcachefile..}.
4df0: 0a 09 70 72 6f 63 20 6c 6f 63 61 6c 70 61 74 68  ..proc localpath
4e00: 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72 72 61   {path} {...arra
4e10: 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b  y set pathinfo [
4e20: 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74 68  _parsepath $path
4e30: 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69 6e  ]....if {$pathin
4e40: 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66 69  fo(_type) != "fi
4e50: 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  les"} {....retur
4e60: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69  n -code error "i
4e70: 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d  nvalid type"...}
4e80: 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74  ....set localpat
4e90: 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70  h [_localpath $p
4ea0: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
4eb0: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4ec0: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
4ed0: 69 6c 65 29 5d 0a 0a 09 09 72 65 74 75 72 6e 20  ile)]....return 
4ee0: 24 6c 6f 63 61 6c 70 61 74 68 0a 09 7d 0a 0a 09  $localpath..}...
4ef0: 70 72 6f 63 20 65 78 69 73 74 73 20 7b 70 61 74  proc exists {pat
4f00: 68 7d 20 7b 0a 09 09 63 61 74 63 68 20 7b 0a 09  h} {...catch {..
4f10: 09 09 73 65 74 20 69 6e 66 6f 20 5b 67 65 74 61  ..set info [geta
4f20: 74 74 72 20 24 70 61 74 68 5d 0a 09 09 7d 20 65  ttr $path]...} e
4f30: 72 72 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f  rr....if {![info
4f40: 20 65 78 69 73 74 73 20 69 6e 66 6f 5d 7d 20 7b   exists info]} {
4f50: 0a 09 09 09 69 66 20 7b 24 65 72 72 20 3d 3d 20  ....if {$err == 
4f60: 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 6f 72  "No such file or
4f70: 20 64 69 72 65 63 74 6f 72 79 22 7d 20 7b 0a 09   directory"} {..
4f80: 09 09 09 72 65 74 75 72 6e 20 5b 6c 69 73 74 5d  ...return [list]
4f90: 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
4fa0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
4fb0: 72 6f 72 20 24 65 72 72 0a 09 09 09 7d 0a 09 09  ror $err....}...
4fc0: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 69 6e 66  }....return $inf
4fd0: 6f 0a 09 7d 0a 0a 09 70 72 6f 63 20 70 72 65 70  o..}...proc prep
4fe0: 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 20 7b 70  are_to_create {p
4ff0: 61 74 68 20 7b 6d 75 73 74 5f 6e 6f 74 5f 65 78  ath {must_not_ex
5000: 69 73 74 20 31 7d 7d 20 7b 0a 09 09 69 66 20 7b  ist 1}} {...if {
5010: 24 6d 75 73 74 5f 6e 6f 74 5f 65 78 69 73 74 7d  $must_not_exist}
5020: 20 7b 0a 09 09 09 69 66 20 7b 5b 65 78 69 73 74   {....if {[exist
5030: 73 20 24 70 61 74 68 5d 20 21 3d 20 22 22 7d 20  s $path] != ""} 
5040: 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f  {.....return -co
5050: 64 65 20 65 72 72 6f 72 20 22 46 69 6c 65 20 61  de error "File a
5060: 6c 72 65 61 64 79 20 65 78 69 73 74 73 22 0a 09  lready exists"..
5070: 09 09 7d 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66  ..}...}....set f
5080: 69 6c 65 6e 61 6d 65 20 5b 6c 6f 63 61 6c 70 61  ilename [localpa
5090: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20  th $path]....if 
50a0: 7b 24 66 69 6c 65 6e 61 6d 65 20 3d 3d 20 22 22  {$filename == ""
50b0: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  } {....return -c
50c0: 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64  ode error "Asked
50d0: 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75 74 20   to create, but 
50e0: 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72  no home director
50f0: 79 2e 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 64  y."...}....set d
5100: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72  irname [file dir
5110: 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65 5d 0a  name $filename].
5120: 0a 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09  ..._as_user {...
5130: 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 64 69 72  .file mkdir $dir
5140: 6e 61 6d 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75  name...}....retu
5150: 72 6e 20 24 66 69 6c 65 6e 61 6d 65 0a 09 7d 0a  rn $filename..}.
5160: 0a 09 70 72 6f 63 20 75 6e 6c 69 6e 6b 70 61 74  ..proc unlinkpat
5170: 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72 72  h {path} {...arr
5180: 61 79 20 73 65 74 20 70 61 74 68 61 74 74 72 73  ay set pathattrs
5190: 20 5b 65 78 69 73 74 73 20 24 70 61 74 68 5d 0a   [exists $path].
51a0: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
51b0: 69 73 74 73 20 70 61 74 68 61 74 74 72 73 28 70  ists pathattrs(p
51c0: 61 63 6b 61 67 65 64 29 5d 7d 20 7b 0a 09 09 09  ackaged)]} {....
51d0: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
51e0: 6f 72 20 22 69 6e 76 61 6c 69 64 20 74 79 70 65  or "invalid type
51f0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63  "...}....set loc
5200: 61 6c 70 61 74 68 20 24 70 61 74 68 61 74 74 72  alpath $pathattr
5210: 73 28 6c 6f 63 61 6c 70 61 74 68 29 0a 0a 09 09  s(localpath)....
5220: 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 3d  if {$localpath =
5230: 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  = ""} {....retur
5240: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41  n -code error "A
5250: 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 2c 20  sked to delete, 
5260: 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65  but no home dire
5270: 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 09 69  ctory."...}....i
5280: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
5290: 70 61 74 68 61 74 74 72 73 28 69 73 5f 6c 6f 63  pathattrs(is_loc
52a0: 61 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 69  alfile)]} {....i
52b0: 66 20 7b 5b 66 69 6c 65 20 69 73 64 69 72 65 63  f {[file isdirec
52c0: 74 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74 68 5d  tory $localpath]
52d0: 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68 69 6c  } {.....set chil
52e0: 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64 72 65  dren [getchildre
52f0: 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09 69 66  n $path]......if
5300: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68 69 6c   {[llength $chil
5310: 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09 09  dren] != 0} {...
5320: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
5330: 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20  error "Asked to 
5340: 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74 79  delete non-empty
5350: 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09   directory".....
5360: 7d 0a 09 09 09 7d 0a 0a 09 09 09 5f 61 73 5f 75  }....}....._as_u
5370: 73 65 72 20 7b 0a 09 09 09 09 66 69 6c 65 20 64  ser {.....file d
5380: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20  elete -force -- 
5390: 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 7d 0a  $localpath....}.
53a0: 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66  ..} elseif {[inf
53b0: 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 74 74  o exists pathatt
53c0: 72 73 28 69 73 5f 72 65 6d 6f 74 65 66 69 6c 65  rs(is_remotefile
53d0: 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 70 61  )]} {....if {$pa
53e0: 74 68 61 74 74 72 73 28 74 79 70 65 29 20 3d 3d  thattrs(type) ==
53f0: 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20 7b 0a   "directory"} {.
5400: 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 65 6e  ....set children
5410: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
5420: 61 74 68 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 6c  ath]......if {[l
5430: 6c 65 6e 67 74 68 20 24 63 68 69 6c 64 72 65 6e  length $children
5440: 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 09 09 72  ] != 0} {......r
5450: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
5460: 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65 6c 65  r "Asked to dele
5470: 74 65 20 6e 6f 6e 2d 65 6d 70 74 79 20 64 69 72  te non-empty dir
5480: 65 63 74 6f 72 79 22 0a 09 09 09 09 7d 0a 09 09  ectory".....}...
5490: 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .}...} else {...
54a0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
54b0: 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 69 66 20  ror "Unknown if 
54c0: 66 69 6c 65 20 69 73 20 72 65 6d 6f 74 65 20 6f  file is remote o
54d0: 72 20 6c 6f 63 61 6c 20 21 3f 22 0a 09 09 7d 0a  r local !?"...}.
54e0: 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75 74 66  ...set whiteoutf
54f0: 69 6c 65 20 24 70 61 74 68 61 74 74 72 73 28 77  ile $pathattrs(w
5500: 68 69 74 65 6f 75 74 70 61 74 68 29 0a 09 09 73  hiteoutpath)...s
5510: 65 74 20 77 68 69 74 65 6f 75 74 64 69 72 20 5b  et whiteoutdir [
5520: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 77 68  file dirname $wh
5530: 69 74 65 6f 75 74 66 69 6c 65 5d 0a 0a 09 09 5f  iteoutfile]...._
5540: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66 69 6c  as_user {....fil
5550: 65 20 6d 6b 64 69 72 20 24 77 68 69 74 65 6f 75  e mkdir $whiteou
5560: 74 64 69 72 0a 09 09 09 63 6c 6f 73 65 20 5b 6f  tdir....close [o
5570: 70 65 6e 20 24 77 68 69 74 65 6f 75 74 66 69 6c  pen $whiteoutfil
5580: 65 20 77 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a        e w]...}..}.}.