Hex Artifact Content

Artifact 60c35bda9573b3f249fdda7d13b2c7a2dd8c8804:


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 09 22 64 69 72 65 63 74 6f 72 79  ......"directory
2160: 22 20 7b 0a 09 09 09 09 09 09 23 20 4e 6f 20 65  " {.......# No e
2170: 78 74 72 61 20 64 61 74 61 20 72 65 71 75 69 72  xtra data requir
2180: 65 64 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 64  ed......}......d
2190: 65 66 61 75 6c 74 20 7b 0a 09 09 09 09 09 09 23  efault {.......#
21a0: 20 48 61 6e 64 6c 65 20 75 6e 6b 6e 6f 77 6e 20   Handle unknown 
21b0: 74 79 70 65 73 0a 09 09 09 09 09 09 69 66 20 7b  types.......if {
21c0: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 66  [string index $f
21d0: 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 30 5d  ileInfo(type) 0]
21e0: 20 3d 3d 20 22 23 22 7d 20 7b 0a 09 09 09 09 09   == "#"} {......
21f0: 09 09 23 20 4d 65 74 61 64 61 74 61 20 74 79 70  ..# Metadata typ
2200: 65 2c 20 69 67 6e 6f 72 65 0a 09 09 09 09 09 09  e, ignore.......
2210: 09 23 20 69 74 20 69 66 20 77 65 20 64 6f 6e 27  .# it if we don'
2220: 74 0a 09 09 09 09 09 09 09 23 20 75 6e 64 65 72  t........# under
2230: 73 74 61 6e 64 20 74 68 69 73 20 74 79 70 65 0a  stand this type.
2240: 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a  .......continue.
2250: 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ......} else {..
2260: 09 09 09 09 09 09 23 20 55 6e 6b 6e 6f 77 6e 20  ......# Unknown 
2270: 74 79 70 65 2c 0a 09 09 09 09 09 09 09 23 20 67  type,........# g
2280: 65 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f 72  enerate an error
2290: 0a 09 09 09 09 09 09 09 65 72 72 6f 72 20 22 4d  ........error "M
22a0: 61 6e 69 66 65 73 74 20 63 61 6e 6e 6f 74 20 62  anifest cannot b
22b0: 65 20 70 61 72 73 65 64 22 0a 09 09 09 09 09 09  e parsed".......
22c0: 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a  }......}.....}..
22d0: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
22e0: 28 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 24 77 6f  (name) [join $wo
22f0: 72 6b 20 22 2c 22 5d 0a 09 09 09 09 73 65 74 20  rk ","].....set 
2300: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b  fileInfo(name) [
2310: 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72  split [string tr
2320: 69 6d 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d  im $fileInfo(nam
2330: 65 29 20 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 09  e) "/"] "/"]....
2340: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 64 69  .set fileInfo(di
2350: 72 65 63 74 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b  rectory) [join [
2360: 6c 72 61 6e 67 65 20 24 66 69 6c 65 49 6e 66 6f  lrange $fileInfo
2370: 28 6e 61 6d 65 29 20 30 20 65 6e 64 2d 31 5d 20  (name) 0 end-1] 
2380: 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c  "/"].....set fil
2390: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c 69 6e  eInfo(name) [lin
23a0: 64 65 78 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61  dex $fileInfo(na
23b0: 6d 65 29 20 65 6e 64 5d 0a 0a 09 09 09 09 64 62  me) end]......db
23c0: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e   eval {INSERT IN
23d0: 54 4f 20 66 69 6c 65 73 20 28 70 61 63 6b 61 67  TO files (packag
23e0: 65 5f 73 68 61 31 2c 20 74 79 70 65 2c 20 74 69  e_sha1, type, ti
23f0: 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65  me, source, size
2400: 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68  , perms, file_sh
2410: 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66  a1, file_name, f
2420: 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 29 20 56  ile_directory) V
2430: 41 4c 55 45 53 20 28 24 70 61 63 6b 61 67 65 5f  ALUES ($package_
2440: 73 68 61 31 2c 20 24 66 69 6c 65 49 6e 66 6f 28  sha1, $fileInfo(
2450: 74 79 70 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f  type), $fileInfo
2460: 28 74 69 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66  (time), $fileInf
2470: 6f 28 73 6f 75 72 63 65 29 2c 20 24 66 69 6c 65  o(source), $file
2480: 49 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66 69 6c  Info(size), $fil
2490: 65 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20 24 66  eInfo(perms), $f
24a0: 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c 20 24  ileInfo(sha1), $
24b0: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20  fileInfo(name), 
24c0: 24 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74  $fileInfo(direct
24d0: 6f 72 79 29 20 29 3b 7d 0a 09 09 09 09 64 62 20  ory) );}.....db 
24e0: 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63  eval {UPDATE pac
24f0: 6b 61 67 65 73 20 53 45 54 20 68 61 76 65 4d 61  kages SET haveMa
2500: 6e 69 66 65 73 74 20 3d 20 31 20 57 48 45 52 45  nifest = 1 WHERE
2510: 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65   sha1 = $package
2520: 5f 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 7d  _sha1;}....}...}
2530: 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65 74 5f  ....appfsd::get_
2540: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f  path_info_cache_
2550: 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72 6e 20  flush....return 
2560: 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 70 72  COMPLETE..}...pr
2570: 6f 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20 7b 70  oc _localpath {p
2580: 61 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d 65 20  ackage hostname 
2590: 66 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20 64 69  file} {...set di
25a0: 72 20 22 22 0a 09 09 63 61 74 63 68 20 7b 0a 09  r ""...catch {..
25b0: 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20 5b 3a  ..set homedir [:
25c0: 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 67 65  :appfs::user::ge
25d0: 74 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 09 73 65  t_homedir]....se
25e0: 74 20 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 6e  t dir [file join
25f0: 20 24 68 6f 6d 65 64 69 72 20 2e 61 70 70 66 73   $homedir .appfs
2600: 20 22 2e 2f 24 7b 70 61 63 6b 61 67 65 7d 40 24   "./${package}@$
2610: 7b 68 6f 73 74 6e 61 6d 65 7d 22 20 22 2e 2f 24  {hostname}" "./$
2620: 7b 66 69 6c 65 7d 22 5d 0a 09 09 7d 0a 09 09 72  {file}"]...}...r
2630: 65 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a 09  eturn $dir..}...
2640: 70 72 6f 63 20 5f 77 68 69 74 65 6f 75 74 70 61  proc _whiteoutpa
2650: 74 68 20 7b 70 61 63 6b 61 67 65 20 68 6f 73 74  th {package host
2660: 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09 09 73  name file} {...s
2670: 65 74 20 64 69 72 20 22 22 0a 09 09 63 61 74 63  et dir ""...catc
2680: 68 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d 65 64  h {....set homed
2690: 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65  ir [::appfs::use
26a0: 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a  r::get_homedir].
26b0: 09 09 09 73 65 74 20 64 69 72 20 5b 66 69 6c 65  ...set dir [file
26c0: 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20 2e   join $homedir .
26d0: 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b 61  appfs "./${packa
26e0: 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d 22  ge}@${hostname}"
26f0: 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55   ".APPFS.WHITEOU
2700: 54 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e 41 50  T" "./${file}.AP
2710: 50 46 53 2e 57 48 49 54 45 4f 55 54 22 5d 0a 09  PFS.WHITEOUT"]..
2720: 09 7d 0a 09 09 72 65 74 75 72 6e 20 24 64 69 72  .}...return $dir
2730: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61 72 73  ..}...proc _pars
2740: 65 70 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09  epath {path} {..
2750: 09 73 65 74 20 70 61 74 68 20 5b 73 74 72 69 6e  .set path [strin
2760: 67 20 74 72 69 6d 20 24 70 61 74 68 20 22 2f 22  g trim $path "/"
2770: 5d 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73 70  ]...set path [sp
2780: 6c 69 74 20 24 70 61 74 68 20 22 2f 22 5d 0a 09  lit $path "/"]..
2790: 09 73 65 74 20 70 61 74 68 6c 65 6e 20 5b 6c 6c  .set pathlen [ll
27a0: 65 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a 09 09  ength $path]....
27b0: 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c  array set retval
27c0: 20 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72 65 6e   [list _children
27d0: 20 73 69 74 65 73 20 5f 74 79 70 65 20 74 6f 70   sites _type top
27e0: 6c 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b 24 70  level]....if {$p
27f0: 61 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a 09 09  athlen > 0} {...
2800: 09 73 65 74 20 72 65 74 76 61 6c 28 68 6f 73 74  .set retval(host
2810: 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 70  name) [lindex $p
2820: 61 74 68 20 30 5d 0a 09 09 09 73 65 74 20 72 65  ath 0]....set re
2830: 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20  tval(_children) 
2840: 70 61 63 6b 61 67 65 73 0a 09 09 09 73 65 74 20  packages....set 
2850: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 73 69  retval(_type) si
2860: 74 65 73 0a 0a 09 09 09 69 66 20 7b 24 70 61 74  tes.....if {$pat
2870: 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09 09 09  hlen > 1} {.....
2880: 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c 69 6e  set package [lin
2890: 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09 09 09  dex $path 1]....
28a0: 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e  .if {[string len
28b0: 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20 3d 3d  gth $package] ==
28c0: 20 22 34 30 22 20 26 26 20 5b 72 65 67 65 78 70   "40" && [regexp
28d0: 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a 24   {^[a-fA-F0-9]*$
28e0: 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b 0a 09  } $package]} {..
28f0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
2900: 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24 70 61  ackage_sha1) $pa
2910: 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20 72  ckage......set r
2920: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
2930: 20 66 69 6c 65 73 0a 09 09 09 09 09 73 65 74 20   files......set 
2940: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66 69  retval(_type) fi
2950: 6c 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70 70 66  les.......::appf
2960: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
2970: 43 54 20 70 61 63 6b 61 67 65 2c 20 6f 73 2c 20  CT package, os, 
2980: 63 70 75 41 72 63 68 2c 20 76 65 72 73 69 6f 6e  cpuArch, version
2990: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
29a0: 48 45 52 45 20 73 68 61 31 20 3d 20 24 72 65 74  HERE sha1 = $ret
29b0: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
29c0: 29 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d 0a 09  );} pkginfo {}..
29d0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
29e0: 61 63 6b 61 67 65 29 20 24 70 6b 67 69 6e 66 6f  ackage) $pkginfo
29f0: 28 70 61 63 6b 61 67 65 29 0a 09 09 09 09 09 73  (package)......s
2a00: 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20 24 70  et retval(os) $p
2a10: 6b 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09 09 09  kginfo(os)......
2a20: 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29 20  set retval(cpu) 
2a30: 24 70 6b 67 69 6e 66 6f 28 63 70 75 41 72 63 68  $pkginfo(cpuArch
2a40: 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61  )......set retva
2a50: 6c 28 76 65 72 73 69 6f 6e 29 20 24 70 6b 67 69  l(version) $pkgi
2a60: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a 09 09  nfo(version)....
2a70: 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20  ...if {$pathlen 
2a80: 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65 74  > 2} {.......set
2a90: 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a   retval(file) [j
2aa0: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61 74  oin [lrange $pat
2ab0: 68 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09  h 2 end] "/"]...
2ac0: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
2ad0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
2ae0: 65 29 20 22 22 0a 09 09 09 09 09 7d 0a 09 09 09  e) ""......}....
2af0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 73  .} else {......s
2b00: 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67  et retval(packag
2b10: 65 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09 09  e) $package.....
2b20: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69  .set retval(_chi
2b30: 6c 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a 09 09  ldren) os-cpu...
2b40: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74  ...set retval(_t
2b50: 79 70 65 29 20 70 61 63 6b 61 67 65 73 0a 0a 09  ype) packages...
2b60: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e  ....if {$pathlen
2b70: 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65   > 2} {.......se
2b80: 74 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64 65 78  t os_cpu [lindex
2b90: 20 24 70 61 74 68 20 32 5d 0a 09 09 09 09 09 09   $path 2].......
2ba0: 73 65 74 20 6f 73 5f 63 70 75 20 5b 73 70 6c 69  set os_cpu [spli
2bb0: 74 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d 0a 0a  t $os_cpu "-"]..
2bc0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2bd0: 28 6f 73 29 20 5b 6c 69 6e 64 65 78 20 24 6f 73  (os) [lindex $os
2be0: 5f 63 70 75 20 30 5d 0a 09 09 09 09 09 09 73 65  _cpu 0].......se
2bf0: 74 20 72 65 74 76 61 6c 28 63 70 75 29 20 5b 6c  t retval(cpu) [l
2c00: 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 31 5d  index $os_cpu 1]
2c10: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2c20: 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 76 65 72  l(_children) ver
2c30: 73 69 6f 6e 73 0a 09 09 09 09 09 09 73 65 74 20  sions.......set 
2c40: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 6f 73  retval(_type) os
2c50: 2d 63 70 75 0a 0a 09 09 09 09 09 09 69 66 20 7b  -cpu........if {
2c60: 24 70 61 74 68 6c 65 6e 20 3e 20 33 7d 20 7b 0a  $pathlen > 3} {.
2c70: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2c80: 6c 28 76 65 72 73 69 6f 6e 29 20 5b 6c 69 6e 64  l(version) [lind
2c90: 65 78 20 24 70 61 74 68 20 33 5d 0a 09 09 09 09  ex $path 3].....
2ca0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
2cb0: 68 69 6c 64 72 65 6e 29 20 66 69 6c 65 73 0a 09  hildren) files..
2cc0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2cd0: 28 5f 74 79 70 65 29 20 76 65 72 73 69 6f 6e 73  (_type) versions
2ce0: 0a 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
2cf0: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
2d00: 29 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f  ) [::appfs::db o
2d10: 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54  necolumn {SELECT
2d20: 20 73 68 61 31 20 46 52 4f 4d 20 70 61 63 6b 61   sha1 FROM packa
2d30: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
2d40: 6d 65 20 3d 20 24 72 65 74 76 61 6c 28 68 6f 73  me = $retval(hos
2d50: 74 6e 61 6d 65 29 20 41 4e 44 20 6f 73 20 3d 20  tname) AND os = 
2d60: 24 72 65 74 76 61 6c 28 6f 73 29 20 41 4e 44 20  $retval(os) AND 
2d70: 63 70 75 41 72 63 68 20 3d 20 24 72 65 74 76 61  cpuArch = $retva
2d80: 6c 28 63 70 75 29 20 41 4e 44 20 76 65 72 73 69  l(cpu) AND versi
2d90: 6f 6e 20 3d 20 24 72 65 74 76 61 6c 28 76 65 72  on = $retval(ver
2da0: 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09 09 09 09 09  sion);}]........
2db0: 69 66 20 7b 24 72 65 74 76 61 6c 28 70 61 63 6b  if {$retval(pack
2dc0: 61 67 65 5f 73 68 61 31 29 20 3d 3d 20 22 22 7d  age_sha1) == ""}
2dd0: 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72   {.........set r
2de0: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
2df0: 20 64 65 61 64 0a 09 09 09 09 09 09 09 09 72 65   dead.........re
2e00: 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20  turn [array get 
2e10: 72 65 74 76 61 6c 5d 0a 09 09 09 09 09 09 09 7d  retval]........}
2e20: 0a 0a 09 09 09 09 09 09 09 69 66 20 7b 24 70 61  .........if {$pa
2e30: 74 68 6c 65 6e 20 3e 20 34 7d 20 7b 0a 09 09 09  thlen > 4} {....
2e40: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
2e50: 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 09 09 09  _type) files....
2e60: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
2e70: 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61  file) [join [lra
2e80: 6e 67 65 20 24 70 61 74 68 20 34 20 65 6e 64 5d  nge $path 4 end]
2e90: 20 22 2f 22 5d 0a 09 09 09 09 09 09 09 7d 20 65   "/"]........} e
2ea0: 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 73 65  lse {.........se
2eb0: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
2ec0: 66 69 6c 65 73 0a 09 09 09 09 09 09 09 09 73 65  files.........se
2ed0: 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 22  t retval(file) "
2ee0: 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  "........}......
2ef0: 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a  .}......}.....}.
2f00: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75  ...}...}....retu
2f10: 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20 72 65  rn [array get re
2f20: 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72 6f 63 20  tval]..}...proc 
2f30: 67 65 74 63 68 69 6c 64 72 65 6e 20 7b 64 69 72  getchildren {dir
2f40: 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20  } {...array set 
2f50: 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65  pathinfo [_parse
2f60: 70 61 74 68 20 24 64 69 72 5d 0a 0a 09 09 73 77  path $dir]....sw
2f70: 69 74 63 68 20 2d 2d 20 24 70 61 74 68 69 6e 66  itch -- $pathinf
2f80: 6f 28 5f 63 68 69 6c 64 72 65 6e 29 20 7b 0a 09  o(_children) {..
2f90: 09 09 22 73 69 74 65 73 22 20 7b 0a 09 09 09 09  .."sites" {.....
2fa0: 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a  return [::appfs:
2fb0: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  :db eval {SELECT
2fc0: 20 44 49 53 54 49 4e 43 54 20 68 6f 73 74 6e 61   DISTINCT hostna
2fd0: 6d 65 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  me FROM packages
2fe0: 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 70 61 63  ;}]....}...."pac
2ff0: 6b 61 67 65 73 22 20 7b 0a 09 09 09 09 63 61 74  kages" {.....cat
3000: 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70 66  ch {......::appf
3010: 73 3a 3a 67 65 74 69 6e 64 65 78 20 24 70 61 74  s::getindex $pat
3020: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 0a  hinfo(hostname).
3030: 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75 72  ....}......retur
3040: 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65  n [::appfs::db e
3050: 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 49 53 54  val {SELECT DIST
3060: 49 4e 43 54 20 70 61 63 6b 61 67 65 20 46 52 4f  INCT package FRO
3070: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
3080: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74   hostname = $pat
3090: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 3b  hinfo(hostname);
30a0: 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63  }]....}...."os-c
30b0: 70 75 22 20 7b 0a 09 09 09 09 73 65 74 20 72 65  pu" {.....set re
30c0: 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64  tval [::appfs::d
30d0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44  b eval {SELECT D
30e0: 49 53 54 49 4e 43 54 20 6f 73 20 7c 7c 20 22 2d  ISTINCT os || "-
30f0: 22 20 7c 7c 20 63 70 75 41 72 63 68 20 46 52 4f  " || cpuArch FRO
3100: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
3110: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74   hostname = $pat
3120: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20  hinfo(hostname) 
3130: 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70  AND package = $p
3140: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
3150: 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70 70 65 6e 64  ;}]......lappend
3160: 20 72 65 74 76 61 6c 20 22 70 6c 61 74 66 6f 72   retval "platfor
3170: 6d 22 0a 0a 09 09 09 09 72 65 74 75 72 6e 20 24  m"......return $
3180: 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 09 09 22  retval....}...."
3190: 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09  versions" {.....
31a0: 73 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70  set retval [::ap
31b0: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 0a 09  pfs::db eval {..
31c0: 09 09 09 09 53 45 4c 45 43 54 20 44 49 53 54 49  ....SELECT DISTI
31d0: 4e 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d  NCT version FROM
31e0: 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20   packages WHERE 
31f0: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68  hostname = $path
3200: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41  info(hostname) A
3210: 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61  ND package = $pa
3220: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
3230: 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e  AND os = $pathin
3240: 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72  fo(os) AND cpuAr
3250: 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63  ch = $pathinfo(c
3260: 70 75 29 3b 0a 09 09 09 09 7d 5d 0a 0a 09 09 09  pu);.....}].....
3270: 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61  .::appfs::db eva
3280: 6c 20 7b 53 45 4c 45 43 54 20 76 65 72 73 69 6f  l {SELECT versio
3290: 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  n FROM packages 
32a0: 57 48 45 52 45 20 69 73 4c 61 74 65 73 74 20 3d  WHERE isLatest =
32b0: 20 31 20 41 4e 44 20 68 6f 73 74 6e 61 6d 65 20   1 AND hostname 
32c0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  = $pathinfo(host
32d0: 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67  name) AND packag
32e0: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  e = $pathinfo(pa
32f0: 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20  ckage) AND os = 
3300: 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e  $pathinfo(os) AN
3310: 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61 74  D cpuArch = $pat
3320: 68 69 6e 66 6f 28 63 70 75 29 20 4c 49 4d 49 54  hinfo(cpu) LIMIT
3330: 20 31 3b 7d 20 6c 61 74 65 73 74 5f 69 6e 66 6f   1;} latest_info
3340: 20 7b 7d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e   {}......if {[in
3350: 66 6f 20 65 78 69 73 74 73 20 6c 61 74 65 73 74  fo exists latest
3360: 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 5d 7d  _info(version)]}
3370: 20 7b 0a 09 09 09 09 09 6c 61 70 70 65 6e 64 20   {......lappend 
3380: 72 65 74 76 61 6c 20 22 6c 61 74 65 73 74 22 0a  retval "latest".
3390: 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75 72  ....}......retur
33a0: 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09  n $retval....}..
33b0: 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09  .."files" {.....
33c0: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61  catch {......::a
33d0: 70 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69  ppfs::getpkgmani
33e0: 66 65 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68  fest $pathinfo(h
33f0: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
3400: 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29  fo(package_sha1)
3410: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20  .....}......set 
3420: 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a  retval [::appfs:
3430: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  :db eval {SELECT
3440: 20 44 49 53 54 49 4e 43 54 20 66 69 6c 65 5f 6e   DISTINCT file_n
3450: 61 6d 65 20 46 52 4f 4d 20 66 69 6c 65 73 20 57  ame FROM files W
3460: 48 45 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61  HERE package_sha
3470: 31 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  1 = $pathinfo(pa
3480: 63 6b 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20  ckage_sha1) AND 
3490: 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d  file_directory =
34a0: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
34b0: 3b 7d 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e  ;}]......if {[in
34c0: 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e  fo exists pathin
34d0: 66 6f 28 70 61 63 6b 61 67 65 29 5d 20 26 26 20  fo(package)] && 
34e0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74  [info exists pat
34f0: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 5d  hinfo(hostname)]
3500: 20 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73   && [info exists
3510: 20 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d   pathinfo(file)]
3520: 7d 20 7b 0a 09 09 09 09 09 5f 61 73 5f 75 73 65  } {......_as_use
3530: 72 20 7b 0a 09 09 09 09 09 09 73 65 74 20 64 69  r {.......set di
3540: 72 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70  r [_localpath $p
3550: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
3560: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
3570: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66  ame) $pathinfo(f
3580: 69 6c 65 29 5d 0a 09 09 09 09 09 09 73 65 74 20  ile)].......set 
3590: 77 68 69 74 65 6f 75 74 64 69 72 20 5b 73 74 72  whiteoutdir [str
35a0: 69 6e 67 20 72 61 6e 67 65 20 5b 5f 77 68 69 74  ing range [_whit
35b0: 65 6f 75 74 70 61 74 68 20 24 70 61 74 68 69 6e  eoutpath $pathin
35c0: 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61 74  fo(package) $pat
35d0: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20  hinfo(hostname) 
35e0: 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d  $pathinfo(file)]
35f0: 20 30 20 65 6e 64 2d 31 35 5d 0a 0a 09 09 09 09   0 end-15]......
3600: 09 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 64  ..if {$whiteoutd
3610: 69 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09  ir != ""} {.....
3620: 09 09 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20  ...foreach file 
3630: 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69  [glob -nocomplai
3640: 6e 20 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74  n -tails -direct
3650: 6f 72 79 20 24 77 68 69 74 65 6f 75 74 64 69 72  ory $whiteoutdir
3660: 20 7b 7b 2e 2c 7d 2a 2e 41 50 50 46 53 2e 57 48   {{.,}*.APPFS.WH
3670: 49 54 45 4f 55 54 7d 5d 20 7b 0a 09 09 09 09 09  ITEOUT}] {......
3680: 09 09 09 73 65 74 20 72 65 6d 6f 76 65 20 5b 73  ...set remove [s
3690: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c  tring range $fil
36a0: 65 20 30 20 65 6e 64 2d 31 35 5d 0a 09 09 09 09  e 0 end-15].....
36b0: 09 09 09 09 73 65 74 20 69 64 78 20 5b 6c 73 65  ....set idx [lse
36c0: 61 72 63 68 20 2d 65 78 61 63 74 20 24 72 65 74  arch -exact $ret
36d0: 76 61 6c 20 24 72 65 6d 6f 76 65 5d 0a 09 09 09  val $remove]....
36e0: 09 09 09 09 09 69 66 20 7b 24 69 64 78 20 21 3d  .....if {$idx !=
36f0: 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09   -1} {..........
3700: 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 72 65 70  set retval [lrep
3710: 6c 61 63 65 20 24 72 65 74 76 61 6c 20 24 69 64  lace $retval $id
3720: 78 20 24 69 64 78 5d 0a 09 09 09 09 09 09 09 09  x $idx].........
3730: 7d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  }........}......
3740: 09 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64  .}........if {$d
3750: 69 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09  ir != ""} {.....
3760: 09 09 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20  ...foreach file 
3770: 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69  [glob -nocomplai
3780: 6e 20 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74  n -tails -direct
3790: 6f 72 79 20 24 64 69 72 20 7b 7b 2e 2c 7d 2a 7d  ory $dir {{.,}*}
37a0: 5d 20 7b 0a 09 09 09 09 09 09 09 09 69 66 20 7b  ] {.........if {
37b0: 24 66 69 6c 65 20 3d 3d 20 22 2e 22 20 7c 7c 20  $file == "." || 
37c0: 24 66 69 6c 65 20 3d 3d 20 22 2e 2e 22 7d 20 7b  $file == ".."} {
37d0: 0a 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e  ..........contin
37e0: 75 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09  ue.........}....
37f0: 09 09 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20  ......if {$file 
3800: 3d 3d 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45  == ".APPFS.WHITE
3810: 4f 55 54 22 7d 20 7b 0a 09 09 09 09 09 09 09 09  OUT"} {.........
3820: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09  .continue.......
3830: 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 69 66 20  ..}..........if 
3840: 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74  {[lsearch -exact
3850: 20 24 72 65 74 76 61 6c 20 24 66 69 6c 65 5d 20   $retval $file] 
3860: 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09  != -1} {........
3870: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09  ..continue......
3880: 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 6c 61  ...}..........la
3890: 70 70 65 6e 64 20 72 65 74 76 61 6c 20 24 66 69  ppend retval $fi
38a0: 6c 65 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09  le........}.....
38b0: 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  ..}......}.....}
38c0: 0a 0a 09 09 09 09 72 65 74 75 72 6e 20 24 72 65  ......return $re
38d0: 74 76 61 6c 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  tval....}...}...
38e0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
38f0: 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 6f 72 20  ror "Invalid or 
3900: 75 6e 61 63 63 65 70 74 61 62 6c 65 20 70 61 74  unacceptable pat
3910: 68 3a 20 24 64 69 72 22 0a 09 7d 0a 0a 09 70 72  h: $dir"..}...pr
3920: 6f 63 20 67 65 74 61 74 74 72 20 7b 70 61 74 68  oc getattr {path
3930: 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20  } {...array set 
3940: 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65  pathinfo [_parse
3950: 70 61 74 68 20 24 70 61 74 68 5d 0a 09 09 61 72  path $path]...ar
3960: 72 61 79 20 73 65 74 20 72 65 74 76 61 6c 20 5b  ray set retval [
3970: 6c 69 73 74 5d 0a 0a 09 09 63 61 74 63 68 20 7b  list]....catch {
3980: 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74  ....::appfs::get
3990: 69 6e 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28  index $pathinfo(
39a0: 68 6f 73 74 6e 61 6d 65 29 0a 09 09 09 3a 3a 61  hostname)....::a
39b0: 70 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69  ppfs::getpkgmani
39c0: 66 65 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68  fest $pathinfo(h
39d0: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
39e0: 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29  fo(package_sha1)
39f0: 0a 09 09 7d 0a 0a 09 09 73 77 69 74 63 68 20 2d  ...}....switch -
3a00: 2d 20 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70  - $pathinfo(_typ
3a10: 65 29 20 7b 0a 09 09 09 22 74 6f 70 6c 65 76 65  e) {...."topleve
3a20: 6c 22 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74  l" {.....set ret
3a30: 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74  val(type) direct
3a40: 6f 72 79 0a 09 09 09 09 73 65 74 20 72 65 74 76  ory.....set retv
3a50: 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b  al(childcount) [
3a60: 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c  llength [getchil
3a70: 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09  dren $path]]....
3a80: 7d 0a 09 09 09 22 73 69 74 65 73 22 20 7b 0a 09  }...."sites" {..
3a90: 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a  ...set check [::
3aa0: 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c  appfs::db onecol
3ab0: 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31 20 46 52  umn {SELECT 1 FR
3ac0: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
3ad0: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
3ae0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
3af0: 3b 7d 5d 0a 09 09 09 09 69 66 20 7b 24 63 68 65  ;}].....if {$che
3b00: 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09  ck == "1"} {....
3b10: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
3b20: 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09  e) directory....
3b30: 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69  ..set retval(chi
3b40: 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74  ldcount) [llengt
3b50: 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24  h [getchildren $
3b60: 70 61 74 68 5d 5d 0a 09 09 09 09 7d 0a 09 09 09  path]].....}....
3b70: 7d 0a 09 09 09 22 70 61 63 6b 61 67 65 73 22 20  }...."packages" 
3b80: 7b 0a 09 09 09 09 73 65 74 20 63 68 65 63 6b 20  {.....set check 
3b90: 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65  [::appfs::db one
3ba0: 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31  column {SELECT 1
3bb0: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
3bc0: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
3bd0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
3be0: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
3bf0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
3c00: 61 67 65 29 3b 7d 5d 0a 09 09 09 09 69 66 20 7b  age);}].....if {
3c10: 24 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b  $check == "1"} {
3c20: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3c30: 28 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79  (type) directory
3c40: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3c50: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c  (childcount) [ll
3c60: 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72  ength [getchildr
3c70: 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 7d  en $path]].....}
3c80: 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63 70 75  ....}...."os-cpu
3c90: 22 20 7b 0a 09 09 09 09 69 66 20 7b 24 70 61 74  " {.....if {$pat
3ca0: 68 69 6e 66 6f 28 6f 73 29 20 3d 3d 20 22 70 6c  hinfo(os) == "pl
3cb0: 61 74 66 6f 72 6d 22 20 26 26 20 24 70 61 74 68  atform" && $path
3cc0: 69 6e 66 6f 28 63 70 75 29 20 3d 3d 20 22 22 7d  info(cpu) == ""}
3cd0: 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76   {......set retv
3ce0: 61 6c 28 74 79 70 65 29 20 73 79 6d 6c 69 6e 6b  al(type) symlink
3cf0: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3d00: 28 73 6f 75 72 63 65 29 20 5b 70 6c 61 74 66 6f  (source) [platfo
3d10: 72 6d 3a 3a 67 65 6e 65 72 69 63 5d 0a 09 09 09  rm::generic]....
3d20: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 73  .} else {......s
3d30: 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66  et check [::appf
3d40: 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20  s::db onecolumn 
3d50: 7b 0a 09 09 09 09 09 09 53 45 4c 45 43 54 20 31  {.......SELECT 1
3d60: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
3d70: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
3d80: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
3d90: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
3da0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
3db0: 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70  age) AND os = $p
3dc0: 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20  athinfo(os) AND 
3dd0: 63 70 75 41 72 63 68 20 3d 20 24 70 61 74 68 69  cpuArch = $pathi
3de0: 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09 09 09 7d  nfo(cpu);......}
3df0: 5d 0a 09 09 09 09 09 69 66 20 7b 24 63 68 65 63  ]......if {$chec
3e00: 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09  k == "1"} {.....
3e10: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
3e20: 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09  e) directory....
3e30: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68  ...set retval(ch
3e40: 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67  ildcount) [lleng
3e50: 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  th [getchildren 
3e60: 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 7d 0a 09  $path]]......}..
3e70: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 76 65  ...}....}...."ve
3e80: 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09 69 66  rsions" {.....if
3e90: 20 7b 24 70 61 74 68 69 6e 66 6f 28 76 65 72 73   {$pathinfo(vers
3ea0: 69 6f 6e 29 20 3d 3d 20 22 6c 61 74 65 73 74 22  ion) == "latest"
3eb0: 7d 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70 66 73  } {......::appfs
3ec0: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
3ed0: 54 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70  T version FROM p
3ee0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 69 73  ackages WHERE is
3ef0: 4c 61 74 65 73 74 20 3d 20 31 20 41 4e 44 20 68  Latest = 1 AND h
3f00: 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69  ostname = $pathi
3f10: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e  nfo(hostname) AN
3f20: 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74  D package = $pat
3f30: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41  hinfo(package) A
3f40: 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66  ND os = $pathinf
3f50: 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63  o(os) AND cpuArc
3f60: 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70  h = $pathinfo(cp
3f70: 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61 74  u) LIMIT 1;} lat
3f80: 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09  est_info {}.....
3f90: 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  ..if {[info exis
3fa0: 74 73 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76  ts latest_info(v
3fb0: 65 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09  ersion)]} {.....
3fc0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
3fd0: 65 29 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09  e) symlink......
3fe0: 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72  .set retval(sour
3ff0: 63 65 29 20 24 6c 61 74 65 73 74 5f 69 6e 66 6f  ce) $latest_info
4000: 28 76 65 72 73 69 6f 6e 29 0a 09 09 09 09 09 7d  (version)......}
4010: 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .....} else {...
4020: 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  ...if {[info exi
4030: 73 74 73 20 70 61 74 68 69 6e 66 6f 28 70 61 63  sts pathinfo(pac
4040: 6b 61 67 65 5f 73 68 61 31 29 5d 20 26 26 20 24  kage_sha1)] && $
4050: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
4060: 5f 73 68 61 31 29 20 21 3d 20 22 22 7d 20 7b 0a  _sha1) != ""} {.
4070: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
4080: 28 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79  (type) directory
4090: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
40a0: 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c  l(childcount) [l
40b0: 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64  length [getchild
40c0: 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09  ren $path]].....
40d0: 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09  .}.....}....}...
40e0: 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09 73  ."files" {.....s
40f0: 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67  et retval(packag
4100: 65 64 29 20 31 0a 0a 09 09 09 09 73 65 74 20 6c  ed) 1......set l
4110: 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c  ocalpath [_local
4120: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
4130: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
4140: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
4150: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09 09  hinfo(file)]....
4160: 09 73 65 74 20 77 68 69 74 65 6f 75 74 70 61 74  .set whiteoutpat
4170: 68 20 20 5b 5f 77 68 69 74 65 6f 75 74 70 61 74  h  [_whiteoutpat
4180: 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  h $pathinfo(pack
4190: 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68  age) $pathinfo(h
41a0: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
41b0: 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 09 09 73  fo(file)]......s
41c0: 65 74 20 72 65 74 76 61 6c 28 6c 6f 63 61 6c 70  et retval(localp
41d0: 61 74 68 29 20 24 6c 6f 63 61 6c 70 61 74 68 0a  ath) $localpath.
41e0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 77  ....set retval(w
41f0: 68 69 74 65 6f 75 74 70 61 74 68 29 20 24 77 68  hiteoutpath) $wh
4200: 69 74 65 6f 75 74 70 61 74 68 0a 0a 09 09 09 09  iteoutpath......
4210: 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 21  if {$localpath !
4220: 3d 20 22 22 20 26 26 20 5b 66 69 6c 65 20 65 78  = "" && [file ex
4230: 69 73 74 73 20 24 6c 6f 63 61 6c 70 61 74 68 5d  ists $localpath]
4240: 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74  } {......set ret
4250: 76 61 6c 28 69 73 5f 6c 6f 63 61 6c 66 69 6c 65  val(is_localfile
4260: 29 20 31 0a 09 09 09 09 09 63 61 74 63 68 20 7b  ) 1......catch {
4270: 0a 09 09 09 09 09 09 5f 61 73 5f 75 73 65 72 20  ......._as_user 
4280: 7b 0a 09 09 09 09 09 09 09 66 69 6c 65 20 6c 73  {........file ls
4290: 74 61 74 20 24 6c 6f 63 61 6c 70 61 74 68 20 6c  tat $localpath l
42a0: 6f 63 61 6c 70 61 74 68 69 6e 66 6f 0a 09 09 09  ocalpathinfo....
42b0: 09 09 09 7d 0a 09 09 09 09 09 09 73 65 74 20 72  ...}.......set r
42c0: 65 74 76 61 6c 28 74 69 6d 65 29 20 24 6c 6f 63  etval(time) $loc
42d0: 61 6c 70 61 74 68 69 6e 66 6f 28 6d 74 69 6d 65  alpathinfo(mtime
42e0: 29 0a 0a 09 09 09 09 09 09 73 77 69 74 63 68 20  )........switch 
42f0: 2d 2d 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66  -- $localpathinf
4300: 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09 09  o(type) {.......
4310: 09 22 64 69 72 65 63 74 6f 72 79 22 20 7b 0a 09  ."directory" {..
4320: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
4330: 6c 28 74 79 70 65 29 20 22 64 69 72 65 63 74 6f  l(type) "directo
4340: 72 79 22 0a 09 09 09 09 09 09 09 09 73 65 74 20  ry".........set 
4350: 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e  retval(childcoun
4360: 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74  t) [llength [get
4370: 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d  children $path]]
4380: 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09  ........}.......
4390: 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09 09  ."file" {.......
43a0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
43b0: 65 29 20 22 66 69 6c 65 22 0a 09 09 09 09 09 09  e) "file".......
43c0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 69 7a  ..set retval(siz
43d0: 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66  e) $localpathinf
43e0: 6f 28 73 69 7a 65 29 0a 09 09 09 09 09 09 09 09  o(size).........
43f0: 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09  _as_user {......
4400: 09 09 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78  ....if {[file ex
4410: 65 63 75 74 61 62 6c 65 20 24 6c 6f 63 61 6c 70  ecutable $localp
4420: 61 74 68 5d 7d 20 7b 0a 09 09 09 09 09 09 09 09  ath]} {.........
4430: 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65 72  ..set retval(per
4440: 6d 73 29 20 22 78 22 0a 09 09 09 09 09 09 09 09  ms) "x".........
4450: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09  .} else {.......
4460: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
4470: 65 72 6d 73 29 20 22 22 0a 09 09 09 09 09 09 09  erms) ""........
4480: 09 09 7d 0a 09 09 09 09 09 09 09 09 7d 0a 09 09  ..}.........}...
4490: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22 6c  .....}........"l
44a0: 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 09 09 73  ink" {.........s
44b0: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
44c0: 22 73 79 6d 6c 69 6e 6b 22 0a 0a 09 09 09 09 09  "symlink".......
44d0: 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09  ..._as_user {...
44e0: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
44f0: 6c 28 73 6f 75 72 63 65 29 20 5b 66 69 6c 65 20  l(source) [file 
4500: 72 65 61 64 6c 69 6e 6b 20 24 6c 6f 63 61 6c 70  readlink $localp
4510: 61 74 68 5d 0a 09 09 09 09 09 09 09 09 7d 0a 09  ath].........}..
4520: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22  ......}........"
4530: 66 69 66 6f 22 20 7b 0a 09 09 09 09 09 09 09 09  fifo" {.........
4540: 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20 73 6f  # Capitalized so
4550: 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74 20   that the first 
4560: 63 68 61 72 20 69 73 20 75 6e 69 71 75 65 0a 09  char is unique..
4570: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
4580: 6c 28 74 79 70 65 29 20 22 46 69 66 6f 22 0a 09  l(type) "Fifo"..
4590: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22  ......}........"
45a0: 73 6f 63 6b 65 74 22 20 7b 0a 09 09 09 09 09 09  socket" {.......
45b0: 09 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20  ..# Capitalized 
45c0: 73 6f 20 74 68 61 74 20 74 68 65 20 66 69 72 73  so that the firs
45d0: 74 20 63 68 61 72 20 69 73 20 75 6e 69 71 75 65  t char is unique
45e0: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
45f0: 76 61 6c 28 74 79 70 65 29 20 22 53 6f 63 6b 65  val(type) "Socke
4600: 74 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09  t"........}.....
4610: 09 09 7d 0a 09 09 09 09 09 7d 20 65 72 72 0a 09  ..}......} err..
4620: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
4630: 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 70 61  .if {$whiteoutpa
4640: 74 68 20 3d 3d 20 22 22 20 7c 7c 20 21 5b 66 69  th == "" || ![fi
4650: 6c 65 20 65 78 69 73 74 73 20 24 77 68 69 74 65  le exists $white
4660: 6f 75 74 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09  outpath]} {.....
4670: 09 09 73 65 74 20 72 65 74 76 61 6c 28 69 73 5f  ..set retval(is_
4680: 72 65 6d 6f 74 65 66 69 6c 65 29 20 31 0a 0a 09  remotefile) 1...
4690: 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73  .....set work [s
46a0: 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f 28 66  plit $pathinfo(f
46b0: 69 6c 65 29 20 22 2f 22 5d 0a 09 09 09 09 09 09  ile) "/"].......
46c0: 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6a  set directory [j
46d0: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72  oin [lrange $wor
46e0: 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a  k 0 end-1] "/"].
46f0: 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 20 5b  ......set file [
4700: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 65 6e 64  lindex $work end
4710: 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64 69  ]........if {$di
4720: 72 65 63 74 6f 72 79 20 3d 3d 20 22 22 20 26 26  rectory == "" &&
4730: 20 24 66 69 6c 65 20 3d 3d 20 22 22 7d 20 7b 0a   $file == ""} {.
4740: 09 09 09 09 09 09 09 61 72 72 61 79 20 73 65 74  .......array set
4750: 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 20 74 79   retval [list ty
4760: 70 65 20 64 69 72 65 63 74 6f 72 79 5d 0a 09 09  pe directory]...
4770: 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 3a 3a 61  ....}........::a
4780: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53  ppfs::db eval {S
4790: 45 4c 45 43 54 20 74 79 70 65 2c 20 74 69 6d 65  ELECT type, time
47a0: 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c 20  , source, size, 
47b0: 70 65 72 6d 73 20 46 52 4f 4d 20 66 69 6c 65 73  perms FROM files
47c0: 20 57 48 45 52 45 20 70 61 63 6b 61 67 65 5f 73   WHERE package_s
47d0: 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ha1 = $pathinfo(
47e0: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 41 4e  package_sha1) AN
47f0: 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79  D file_directory
4800: 20 3d 20 24 64 69 72 65 63 74 6f 72 79 20 41 4e   = $directory AN
4810: 44 20 66 69 6c 65 5f 6e 61 6d 65 20 3d 20 24 66  D file_name = $f
4820: 69 6c 65 3b 7d 20 72 65 74 76 61 6c 20 7b 7d 0a  ile;} retval {}.
4830: 0a 09 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f  .......if {[info
4840: 20 65 78 69 73 74 73 20 72 65 74 76 61 6c 28 74   exists retval(t
4850: 79 70 65 29 5d 20 26 26 20 24 72 65 74 76 61 6c  ype)] && $retval
4860: 28 74 79 70 65 29 20 3d 3d 20 22 64 69 72 65 63  (type) == "direc
4870: 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 09 09 09  tory"} {........
4880: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
4890: 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20  count) [llength 
48a0: 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61  [getchildren $pa
48b0: 74 68 5d 5d 0a 09 09 09 09 09 09 7d 0a 0a 09 09  th]].......}....
48c0: 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
48d0: 70 6c 61 69 6e 20 72 65 74 76 61 6c 28 2a 29 0a  plain retval(*).
48e0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09  .....}.....}....
48f0: 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b  .}...}....if {![
4900: 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74 76  info exists retv
4910: 61 6c 28 74 79 70 65 29 5d 7d 20 7b 0a 09 09 09  al(type)]} {....
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 4e 6f 20 73 75 63 68 20 66 69 6c 65  or "No such file
4940: 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 0a 09   or directory"..
4950: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61 72  .}....return [ar
4960: 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d 0a  ray get retval].
4970: 09 7d 0a 0a 09 70 72 6f 63 20 6f 70 65 6e 70 61  .}...proc openpa
4980: 74 68 20 7b 70 61 74 68 20 6d 6f 64 65 7d 20 7b  th {path mode} {
4990: 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61 74  ...array set pat
49a0: 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61 74  hinfo [_parsepat
49b0: 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b  h $path]....if {
49c0: 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29  $pathinfo(_type)
49d0: 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a 09   != "files"} {..
49e0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
49f0: 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74 79  rror "invalid ty
4a00: 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c  pe"...}....set l
4a10: 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c  ocalpath [_local
4a20: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
4a30: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
4a40: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
4a50: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09  hinfo(file)]....
4a60: 69 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 63 72  if {$mode == "cr
4a70: 65 61 74 65 22 7d 20 7b 0a 09 09 09 69 66 20 7b  eate"} {....if {
4a80: 24 6c 6f 63 61 6c 70 61 74 68 20 3d 3d 20 22 22  $localpath == ""
4a90: 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d  } {.....return -
4aa0: 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65  code error "Aske
4ab0: 64 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75 74  d to create, but
4ac0: 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74 6f   no home directo
4ad0: 72 79 2e 22 0a 09 09 09 7d 0a 0a 09 09 09 72 65  ry."....}.....re
4ae0: 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a  turn $localpath.
4af0: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6c 6f 63 61  ..}....if {$loca
4b00: 6c 70 61 74 68 20 21 3d 20 22 22 20 26 26 20 5b  lpath != "" && [
4b10: 66 69 6c 65 20 65 78 69 73 74 73 20 24 6c 6f 63  file exists $loc
4b20: 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 72 65  alpath]} {....re
4b30: 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a  turn $localpath.
4b40: 09 09 7d 0a 0a 09 09 73 65 74 20 77 6f 72 6b 20  ..}....set work 
4b50: 5b 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f  [split $pathinfo
4b60: 28 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 73 65  (file) "/"]...se
4b70: 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6a 6f 69  t directory [joi
4b80: 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20  n [lrange $work 
4b90: 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09  0 end-1] "/"]...
4ba0: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78  set file [lindex
4bb0: 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 09 09 3a 3a   $work end]...::
4bc0: 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b  appfs::db eval {
4bd0: 53 45 4c 45 43 54 20 66 69 6c 65 5f 73 68 61 31  SELECT file_sha1
4be0: 2c 20 70 65 72 6d 73 20 46 52 4f 4d 20 66 69 6c  , perms FROM fil
4bf0: 65 73 20 57 48 45 52 45 20 70 61 63 6b 61 67 65  es WHERE package
4c00: 5f 73 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66  _sha1 = $pathinf
4c10: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20  o(package_sha1) 
4c20: 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65 20 3d 20  AND file_name = 
4c30: 24 66 69 6c 65 20 41 4e 44 20 66 69 6c 65 5f 64  $file AND file_d
4c40: 69 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65  irectory = $dire
4c50: 63 74 6f 72 79 3b 7d 20 70 6b 67 70 61 74 68 69  ctory;} pkgpathi
4c60: 6e 66 6f 20 7b 7d 0a 0a 09 09 69 66 20 7b 24 70  nfo {}....if {$p
4c70: 6b 67 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 5f  kgpathinfo(file_
4c80: 73 68 61 31 29 20 3d 3d 20 22 22 7d 20 7b 0a 09  sha1) == ""} {..
4c90: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
4ca0: 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69  rror "No such fi
4cb0: 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22  le or directory"
4cc0: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61  ...}....set loca
4cd0: 6c 63 61 63 68 65 66 69 6c 65 20 5b 64 6f 77 6e  lcachefile [down
4ce0: 6c 6f 61 64 20 24 70 61 74 68 69 6e 66 6f 28 68  load $pathinfo(h
4cf0: 6f 73 74 6e 61 6d 65 29 20 24 70 6b 67 70 61 74  ostname) $pkgpat
4d00: 68 69 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31 29  hinfo(file_sha1)
4d10: 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64 65 20 3d  ]....if {$mode =
4d20: 3d 20 22 77 72 69 74 65 22 7d 20 7b 0a 09 09 09  = "write"} {....
4d30: 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 73  _as_user {.....s
4d40: 65 74 20 74 6d 70 6c 6f 63 61 6c 70 61 74 68 20  et tmplocalpath 
4d50: 22 24 7b 6c 6f 63 61 6c 70 61 74 68 7d 2e 5b 65  "${localpath}.[e
4d60: 78 70 72 20 72 61 6e 64 28 29 5d 5b 63 6c 6f 63  xpr rand()][cloc
4d70: 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 09 09  k clicks]"......
4d80: 73 65 74 20 66 61 69 6c 65 64 20 30 0a 09 09 09  set failed 0....
4d90: 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09  .if {[catch {...
4da0: 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66  ...file mkdir [f
4db0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 6c 6f 63  ile dirname $loc
4dc0: 61 6c 70 61 74 68 5d 0a 09 09 09 09 09 66 69 6c  alpath]......fil
4dd0: 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d  e copy -force --
4de0: 20 24 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65   $localcachefile
4df0: 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 0a   $tmplocalpath..
4e00: 09 09 09 09 09 69 66 20 7b 24 70 6b 67 70 61 74  .....if {$pkgpat
4e10: 68 69 6e 66 6f 28 70 65 72 6d 73 29 20 3d 3d 20  hinfo(perms) == 
4e20: 22 78 22 7d 20 7b 0a 09 09 09 09 09 09 66 69 6c  "x"} {.......fil
4e30: 65 20 61 74 74 72 69 62 75 74 65 73 20 24 74 6d  e attributes $tm
4e40: 70 6c 6f 63 61 6c 70 61 74 68 20 2d 70 65 72 6d  plocalpath -perm
4e50: 69 73 73 69 6f 6e 73 20 2b 78 0a 09 09 09 09 09  issions +x......
4e60: 7d 0a 0a 09 09 09 09 09 66 69 6c 65 20 72 65 6e  }.......file ren
4e70: 61 6d 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74  ame -force -- $t
4e80: 6d 70 6c 6f 63 61 6c 70 61 74 68 20 24 6c 6f 63  mplocalpath $loc
4e90: 61 6c 70 61 74 68 0a 09 09 09 09 7d 20 65 72 72  alpath.....} err
4ea0: 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 66 61  ]} {......set fa
4eb0: 69 6c 65 64 20 31 0a 09 09 09 09 7d 0a 09 09 09  iled 1.....}....
4ec0: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 66 69  .catch {......fi
4ed0: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
4ee0: 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74   -- $tmplocalpat
4ef0: 68 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09  h.....}....}....
4f00: 09 69 66 20 7b 24 66 61 69 6c 65 64 7d 20 7b 0a  .if {$failed} {.
4f10: 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
4f20: 20 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09 7d   error $err....}
4f30: 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63  .....return $loc
4f40: 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72 65  alpath...}....re
4f50: 74 75 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68 65  turn $localcache
4f60: 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 6c  file..}...proc l
4f70: 6f 63 61 6c 70 61 74 68 20 7b 70 61 74 68 7d 20  ocalpath {path} 
4f80: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
4f90: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61  thinfo [_parsepa
4fa0: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20  th $path]....if 
4fb0: 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65  {$pathinfo(_type
4fc0: 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a  ) != "files"} {.
4fd0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
4fe0: 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74  error "invalid t
4ff0: 79 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ype"...}....set 
5000: 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61  localpath [_loca
5010: 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28  lpath $pathinfo(
5020: 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e  package) $pathin
5030: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
5040: 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09  thinfo(file)]...
5050: 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61  .return $localpa
5060: 74 68 0a 09 7d 0a 0a 09 70 72 6f 63 20 65 78 69  th..}...proc exi
5070: 73 74 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09 63  sts {path} {...c
5080: 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 69 6e  atch {....set in
5090: 66 6f 20 5b 67 65 74 61 74 74 72 20 24 70 61 74  fo [getattr $pat
50a0: 68 5d 0a 09 09 7d 20 65 72 72 0a 0a 09 09 69 66  h]...} err....if
50b0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
50c0: 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09 69 66 20 7b  info]} {....if {
50d0: 24 65 72 72 20 3d 3d 20 22 4e 6f 20 73 75 63 68  $err == "No such
50e0: 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f   file or directo
50f0: 72 79 22 7d 20 7b 0a 09 09 09 09 72 65 74 75 72  ry"} {.....retur
5100: 6e 20 5b 6c 69 73 74 5d 0a 09 09 09 7d 20 65 6c  n [list]....} el
5110: 73 65 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  se {.....return 
5120: 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72 72  -code error $err
5130: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74  ....}...}....ret
5140: 75 72 6e 20 24 69 6e 66 6f 0a 09 7d 0a 0a 09 70  urn $info..}...p
5150: 72 6f 63 20 70 72 65 70 61 72 65 5f 74 6f 5f 63  roc prepare_to_c
5160: 72 65 61 74 65 20 7b 70 61 74 68 20 7b 6d 75 73  reate {path {mus
5170: 74 5f 6e 6f 74 5f 65 78 69 73 74 20 31 7d 7d 20  t_not_exist 1}} 
5180: 7b 0a 09 09 69 66 20 7b 24 6d 75 73 74 5f 6e 6f  {...if {$must_no
5190: 74 5f 65 78 69 73 74 7d 20 7b 0a 09 09 09 69 66  t_exist} {....if
51a0: 20 7b 5b 65 78 69 73 74 73 20 24 70 61 74 68 5d   {[exists $path]
51b0: 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72 65   != ""} {.....re
51c0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
51d0: 20 22 46 69 6c 65 20 61 6c 72 65 61 64 79 20 65   "File already e
51e0: 78 69 73 74 73 22 0a 09 09 09 7d 0a 09 09 7d 0a  xists"....}...}.
51f0: 0a 09 09 73 65 74 20 66 69 6c 65 6e 61 6d 65 20  ...set filename 
5200: 5b 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68  [localpath $path
5210: 5d 0a 0a 09 09 69 66 20 7b 24 66 69 6c 65 6e 61  ]....if {$filena
5220: 6d 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72  me == ""} {....r
5230: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
5240: 72 20 22 41 73 6b 65 64 20 74 6f 20 63 72 65 61  r "Asked to crea
5250: 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20  te, but no home 
5260: 64 69 72 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a  directory."...}.
5270: 0a 09 09 73 65 74 20 64 69 72 6e 61 6d 65 20 5b  ...set dirname [
5280: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69  file dirname $fi
5290: 6c 65 6e 61 6d 65 5d 0a 0a 09 09 5f 61 73 5f 75  lename]...._as_u
52a0: 73 65 72 20 7b 0a 09 09 09 66 69 6c 65 20 6d 6b  ser {....file mk
52b0: 64 69 72 20 24 64 69 72 6e 61 6d 65 0a 09 09 7d  dir $dirname...}
52c0: 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65  ....return $file
52d0: 6e 61 6d 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 75  name..}...proc u
52e0: 6e 6c 69 6e 6b 70 61 74 68 20 7b 70 61 74 68 7d  nlinkpath {path}
52f0: 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70   {...array set p
5300: 61 74 68 61 74 74 72 73 20 5b 65 78 69 73 74 73  athattrs [exists
5310: 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b 21   $path]....if {!
5320: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74  [info exists pat
5330: 68 61 74 74 72 73 28 70 61 63 6b 61 67 65 64 29  hattrs(packaged)
5340: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  ]} {....return -
5350: 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e 76 61  code error "inva
5360: 6c 69 64 20 74 79 70 65 22 0a 09 09 7d 0a 0a 09  lid type"...}...
5370: 09 73 65 74 20 6c 6f 63 61 6c 70 61 74 68 20 24  .set localpath $
5380: 70 61 74 68 61 74 74 72 73 28 6c 6f 63 61 6c 70  pathattrs(localp
5390: 61 74 68 29 0a 0a 09 09 69 66 20 7b 24 6c 6f 63  ath)....if {$loc
53a0: 61 6c 70 61 74 68 20 3d 3d 20 22 22 7d 20 7b 0a  alpath == ""} {.
53b0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
53c0: 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20  error "Asked to 
53d0: 64 65 6c 65 74 65 2c 20 62 75 74 20 6e 6f 20 68  delete, but no h
53e0: 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a  ome directory.".
53f0: 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66 6f  ..}....if {[info
5400: 20 65 78 69 73 74 73 20 70 61 74 68 61 74 74 72   exists pathattr
5410: 73 28 69 73 5f 6c 6f 63 61 6c 66 69 6c 65 29 5d  s(is_localfile)]
5420: 7d 20 7b 0a 09 09 09 69 66 20 7b 5b 66 69 6c 65  } {....if {[file
5430: 20 69 73 64 69 72 65 63 74 6f 72 79 20 24 6c 6f   isdirectory $lo
5440: 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09  calpath]} {.....
5450: 73 65 74 20 63 68 69 6c 64 72 65 6e 20 5b 67 65  set children [ge
5460: 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d  tchildren $path]
5470: 0a 0a 09 09 09 09 69 66 20 7b 5b 6c 6c 65 6e 67  ......if {[lleng
5480: 74 68 20 24 63 68 69 6c 64 72 65 6e 5d 20 21 3d  th $children] !=
5490: 20 30 7d 20 7b 0a 09 09 09 09 09 72 65 74 75 72   0} {......retur
54a0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41  n -code error "A
54b0: 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 20 6e  sked to delete n
54c0: 6f 6e 2d 65 6d 70 74 79 20 64 69 72 65 63 74 6f  on-empty directo
54d0: 72 79 22 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a  ry".....}....}..
54e0: 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09  ..._as_user {...
54f0: 09 09 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66  ..file delete -f
5500: 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61 6c 70 61  orce -- $localpa
5510: 74 68 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65  th....}...} else
5520: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
5530: 20 70 61 74 68 61 74 74 72 73 28 69 73 5f 72 65   pathattrs(is_re
5540: 6d 6f 74 65 66 69 6c 65 29 5d 7d 20 7b 0a 09 09  motefile)]} {...
5550: 09 69 66 20 7b 24 70 61 74 68 61 74 74 72 73 28  .if {$pathattrs(
5560: 74 79 70 65 29 20 3d 3d 20 22 64 69 72 65 63 74  type) == "direct
5570: 6f 72 79 22 7d 20 7b 0a 09 09 09 09 73 65 74 20  ory"} {.....set 
5580: 63 68 69 6c 64 72 65 6e 20 5b 67 65 74 63 68 69  children [getchi
5590: 6c 64 72 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09  ldren $path]....
55a0: 09 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24  ..if {[llength $
55b0: 63 68 69 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20  children] != 0} 
55c0: 7b 0a 09 09 09 09 09 72 65 74 75 72 6e 20 2d 63  {......return -c
55d0: 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64  ode error "Asked
55e0: 20 74 6f 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65   to delete non-e
55f0: 6d 70 74 79 20 64 69 72 65 63 74 6f 72 79 22 0a  mpty directory".
5600: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 20 65  ....}....}...} e
5610: 6c 73 65 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  lse {....return 
5620: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 6b  -code error "Unk
5630: 6e 6f 77 6e 20 69 66 20 66 69 6c 65 20 69 73 20  nown if file is 
5640: 72 65 6d 6f 74 65 20 6f 72 20 6c 6f 63 61 6c 20  remote or local 
5650: 21 3f 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 77  !?"...}....set w
5660: 68 69 74 65 6f 75 74 66 69 6c 65 20 24 70 61 74  hiteoutfile $pat
5670: 68 61 74 74 72 73 28 77 68 69 74 65 6f 75 74 70  hattrs(whiteoutp
5680: 61 74 68 29 0a 09 09 73 65 74 20 77 68 69 74 65  ath)...set white
5690: 6f 75 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72  outdir [file dir
56a0: 6e 61 6d 65 20 24 77 68 69 74 65 6f 75 74 66 69  name $whiteoutfi
56b0: 6c 65 5d 0a 0a 09 09 5f 61 73 5f 75 73 65 72 20  le]...._as_user 
56c0: 7b 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20  {....file mkdir 
56d0: 24 77 68 69 74 65 6f 75 74 64 69 72 0a 09 09 09  $whiteoutdir....
56e0: 63 6c 6f 73 65 20 5b 6f 70 65 6e 20 24 77 68 69  close [open $whi
56f0: 74 65 6f 75 74 66 69 6c 65 20 77 5d 0a 09 09 7d  teoutfile w]...}
5700: 0a 09 7d 0a 7d 0a                                ..}.}.