Hex Artifact Content

Artifact eb68884ad6726ef2ae08c60edb968e93c73663ad:


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 23 0a 23 20 43 6f 70 79 72  tclsh..#.# Copyr
0020: 69 67 68 74 20 28 63 29 20 32 30 31 34 20 20 52  ight (c) 2014  R
0030: 6f 79 20 4b 65 65 6e 65 0a 23 0a 23 20 50 65 72  oy Keene.#.# Per
0040: 6d 69 73 73 69 6f 6e 20 69 73 20 68 65 72 65 62  mission is hereb
0050: 79 20 67 72 61 6e 74 65 64 2c 20 66 72 65 65 20  y granted, free 
0060: 6f 66 20 63 68 61 72 67 65 2c 20 74 6f 20 61 6e  of charge, to an
0070: 79 20 70 65 72 73 6f 6e 20 6f 62 74 61 69 6e 69  y person obtaini
0080: 6e 67 20 61 20 63 6f 70 79 0a 23 20 6f 66 20 74  ng a copy.# of t
0090: 68 69 73 20 73 6f 66 74 77 61 72 65 20 61 6e 64  his software and
00a0: 20 61 73 73 6f 63 69 61 74 65 64 20 64 6f 63 75   associated docu
00b0: 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6c 65 73 20  mentation files 
00c0: 28 74 68 65 20 22 53 6f 66 74 77 61 72 65 22 29  (the "Software")
00d0: 2c 20 74 6f 20 64 65 61 6c 0a 23 20 69 6e 20 74  , to deal.# in t
00e0: 68 65 20 53 6f 66 74 77 61 72 65 20 77 69 74 68  he Software with
00f0: 6f 75 74 20 72 65 73 74 72 69 63 74 69 6f 6e 2c  out restriction,
0100: 20 69 6e 63 6c 75 64 69 6e 67 20 77 69 74 68 6f   including witho
0110: 75 74 20 6c 69 6d 69 74 61 74 69 6f 6e 20 74 68  ut limitation th
0120: 65 20 72 69 67 68 74 73 0a 23 20 74 6f 20 75 73  e rights.# to us
0130: 65 2c 20 63 6f 70 79 2c 20 6d 6f 64 69 66 79 2c  e, copy, modify,
0140: 20 6d 65 72 67 65 2c 20 70 75 62 6c 69 73 68 2c   merge, publish,
0150: 20 64 69 73 74 72 69 62 75 74 65 2c 20 73 75 62   distribute, sub
0160: 6c 69 63 65 6e 73 65 2c 20 61 6e 64 2f 6f 72 20  license, and/or 
0170: 73 65 6c 6c 0a 23 20 63 6f 70 69 65 73 20 6f 66  sell.# copies of
0180: 20 74 68 65 20 53 6f 66 74 77 61 72 65 2c 20 61   the Software, a
0190: 6e 64 20 74 6f 20 70 65 72 6d 69 74 20 70 65 72  nd to permit per
01a0: 73 6f 6e 73 20 74 6f 20 77 68 6f 6d 20 74 68 65  sons to whom the
01b0: 20 53 6f 66 74 77 61 72 65 20 69 73 0a 23 20 66   Software is.# f
01c0: 75 72 6e 69 73 68 65 64 20 74 6f 20 64 6f 20 73  urnished to do s
01d0: 6f 2c 20 73 75 62 6a 65 63 74 20 74 6f 20 74 68  o, subject to th
01e0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64  e following cond
01f0: 69 74 69 6f 6e 73 3a 0a 23 0a 23 20 54 68 65 20  itions:.#.# The 
0200: 61 62 6f 76 65 20 63 6f 70 79 72 69 67 68 74 20  above copyright 
0210: 6e 6f 74 69 63 65 20 61 6e 64 20 74 68 69 73 20  notice and this 
0220: 70 65 72 6d 69 73 73 69 6f 6e 20 6e 6f 74 69 63  permission notic
0230: 65 20 73 68 61 6c 6c 20 62 65 20 69 6e 63 6c 75  e shall be inclu
0240: 64 65 64 20 69 6e 0a 23 20 61 6c 6c 20 63 6f 70  ded in.# all cop
0250: 69 65 73 20 6f 72 20 73 75 62 73 74 61 6e 74 69  ies or substanti
0260: 61 6c 20 70 6f 72 74 69 6f 6e 73 20 6f 66 20 74  al portions of t
0270: 68 65 20 53 6f 66 74 77 61 72 65 2e 0a 23 0a 23  he Software..#.#
0280: 20 54 48 45 20 53 4f 46 54 57 41 52 45 20 49 53   THE SOFTWARE IS
0290: 20 50 52 4f 56 49 44 45 44 20 22 41 53 20 49 53   PROVIDED "AS IS
02a0: 22 2c 20 57 49 54 48 4f 55 54 20 57 41 52 52 41  ", WITHOUT WARRA
02b0: 4e 54 59 20 4f 46 20 41 4e 59 20 4b 49 4e 44 2c  NTY OF ANY KIND,
02c0: 20 45 58 50 52 45 53 53 20 4f 52 0a 23 20 49 4d   EXPRESS OR.# IM
02d0: 50 4c 49 45 44 2c 20 49 4e 43 4c 55 44 49 4e 47  PLIED, INCLUDING
02e0: 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44   BUT NOT LIMITED
02f0: 20 54 4f 20 54 48 45 20 57 41 52 52 41 4e 54 49   TO THE WARRANTI
0300: 45 53 20 4f 46 20 4d 45 52 43 48 41 4e 54 41 42  ES OF MERCHANTAB
0310: 49 4c 49 54 59 2c 0a 23 20 46 49 54 4e 45 53 53  ILITY,.# FITNESS
0320: 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41   FOR A PARTICULA
0330: 52 20 50 55 52 50 4f 53 45 20 41 4e 44 20 4e 4f  R PURPOSE AND NO
0340: 4e 49 4e 46 52 49 4e 47 45 4d 45 4e 54 2e 20 49  NINFRINGEMENT. I
0350: 4e 20 4e 4f 20 45 56 45 4e 54 20 53 48 41 4c 4c  N NO EVENT SHALL
0360: 20 54 48 45 0a 23 20 41 55 54 48 4f 52 53 20 4f   THE.# AUTHORS O
0370: 52 20 43 4f 50 59 52 49 47 48 54 20 48 4f 4c 44  R COPYRIGHT HOLD
0380: 45 52 53 20 42 45 20 4c 49 41 42 4c 45 20 46 4f  ERS BE LIABLE FO
0390: 52 20 41 4e 59 20 43 4c 41 49 4d 2c 20 44 41 4d  R ANY CLAIM, DAM
03a0: 41 47 45 53 20 4f 52 20 4f 54 48 45 52 0a 23 20  AGES OR OTHER.# 
03b0: 4c 49 41 42 49 4c 49 54 59 2c 20 57 48 45 54 48  LIABILITY, WHETH
03c0: 45 52 20 49 4e 20 41 4e 20 41 43 54 49 4f 4e 20  ER IN AN ACTION 
03d0: 4f 46 20 43 4f 4e 54 52 41 43 54 2c 20 54 4f 52  OF CONTRACT, TOR
03e0: 54 20 4f 52 20 4f 54 48 45 52 57 49 53 45 2c 20  T OR OTHERWISE, 
03f0: 41 52 49 53 49 4e 47 20 46 52 4f 4d 2c 0a 23 20  ARISING FROM,.# 
0400: 4f 55 54 20 4f 46 20 4f 52 20 49 4e 20 43 4f 4e  OUT OF OR IN CON
0410: 4e 45 43 54 49 4f 4e 20 57 49 54 48 20 54 48 45  NECTION WITH THE
0420: 20 53 4f 46 54 57 41 52 45 20 4f 52 20 54 48 45   SOFTWARE OR THE
0430: 20 55 53 45 20 4f 52 20 4f 54 48 45 52 20 44 45   USE OR OTHER DE
0440: 41 4c 49 4e 47 53 20 49 4e 0a 23 20 54 48 45 20  ALINGS IN.# THE 
0450: 53 4f 46 54 57 41 52 45 2e 0a 23 0a 0a 70 61 63  SOFTWARE..#..pac
0460: 6b 61 67 65 20 72 65 71 75 69 72 65 20 68 74 74  kage require htt
0470: 70 20 32 2e 37 0a 70 61 63 6b 61 67 65 20 72 65  p 2.7.package re
0480: 71 75 69 72 65 20 73 71 6c 69 74 65 33 0a 70 61  quire sqlite3.pa
0490: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 68  ckage require sh
04a0: 61 31 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  a1.package requi
04b0: 72 65 20 61 70 70 66 73 64 0a 70 61 63 6b 61 67  re appfsd.packag
04c0: 65 20 72 65 71 75 69 72 65 20 70 6c 61 74 66 6f  e require platfo
04d0: 72 6d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  rm.package requi
04e0: 72 65 20 70 6b 69 0a 0a 23 20 46 75 6e 63 74 69  re pki..# Functi
04f0: 6f 6e 73 20 73 70 65 63 69 66 69 63 61 6c 6c 79  ons specifically
0500: 20 6d 65 61 6e 74 20 66 6f 72 20 75 73 65 72 73   meant for users
0510: 20 74 6f 20 72 65 70 6c 61 63 65 20 61 73 20 61   to replace as a
0520: 20 70 61 72 74 20 6f 66 20 63 6f 6e 66 69 67 75   part of configu
0530: 72 61 74 69 6f 6e 0a 6e 61 6d 65 73 70 61 63 65  ration.namespace
0540: 20 65 76 61 6c 20 3a 3a 61 70 70 66 73 3a 3a 75   eval ::appfs::u
0550: 73 65 72 20 7b 0a 09 23 20 55 73 65 72 2d 72 65  ser {..# User-re
0560: 70 6c 61 63 61 62 6c 65 20 66 75 6e 63 74 69 6f  placable functio
0570: 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20 61 20 68  n to convert a h
0580: 6f 73 74 6e 61 6d 65 2f 68 61 73 68 2f 6d 65 74  ostname/hash/met
0590: 68 6f 64 20 74 6f 20 61 6e 20 55 52 4c 0a 09 70  hod to an URL..p
05a0: 72 6f 63 20 63 6f 6e 73 74 72 75 63 74 5f 75 72  roc construct_ur
05b0: 6c 20 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68  l {hostname hash
05c0: 20 6d 65 74 68 6f 64 7d 20 7b 0a 09 09 72 65 74   method} {...ret
05d0: 75 72 6e 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73  urn "http://$hos
05e0: 74 6e 61 6d 65 2f 61 70 70 66 73 2f 24 6d 65 74  tname/appfs/$met
05f0: 68 6f 64 2f 24 68 61 73 68 22 0a 09 7d 0a 0a 09  hod/$hash"..}...
0600: 23 20 55 73 65 72 2d 72 65 70 6c 61 63 65 61 62  # User-replaceab
0610: 6c 65 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 20  le function get 
0620: 74 68 65 20 68 6f 6d 65 20 64 69 72 65 63 74 6f  the home directo
0630: 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e  ry of the curren
0640: 74 20 75 73 65 72 0a 09 70 72 6f 63 20 67 65 74  t user..proc get
0650: 5f 68 6f 6d 65 64 69 72 20 7b 7d 20 7b 0a 09 09  _homedir {} {...
0660: 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 64  return [::appfsd
0670: 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09  ::get_homedir]..
0680: 7d 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65  }.}..namespace e
0690: 76 61 6c 20 3a 3a 61 70 70 66 73 20 7b 0a 09 76  val ::appfs {..v
06a0: 61 72 69 61 62 6c 65 20 63 61 63 68 65 64 69 72  ariable cachedir
06b0: 20 22 2f 74 6d 70 2f 61 70 70 66 73 2d 63 61 63   "/tmp/appfs-cac
06c0: 68 65 22 0a 09 76 61 72 69 61 62 6c 65 20 74 74  he"..variable tt
06d0: 6c 20 33 36 30 30 0a 09 76 61 72 69 61 62 6c 65  l 3600..variable
06e0: 20 6e 74 74 6c 20 36 30 0a 09 76 61 72 69 61 62   nttl 60..variab
06f0: 6c 65 20 74 72 75 73 74 65 64 5f 63 61 73 20 5b  le trusted_cas [
0700: 6c 69 73 74 5d 0a 09 76 61 72 69 61 62 6c 65 20  list]..variable 
0710: 70 6c 61 74 66 6f 72 6d 20 5b 3a 3a 70 6c 61 74  platform [::plat
0720: 66 6f 72 6d 3a 3a 67 65 6e 65 72 69 63 5d 0a 0a  form::generic]..
0730: 09 70 72 6f 63 20 5f 68 61 73 68 5f 73 65 70 20  .proc _hash_sep 
0740: 7b 68 61 73 68 20 7b 73 65 70 73 20 34 7d 7d 20  {hash {seps 4}} 
0750: 7b 0a 09 09 66 6f 72 20 7b 73 65 74 20 69 64 78  {...for {set idx
0760: 20 30 7d 20 7b 24 69 64 78 20 3c 20 24 73 65 70   0} {$idx < $sep
0770: 73 7d 20 7b 69 6e 63 72 20 69 64 78 7d 20 7b 0a  s} {incr idx} {.
0780: 09 09 09 61 70 70 65 6e 64 20 72 65 74 76 61 6c  ...append retval
0790: 20 22 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20   "[string range 
07a0: 24 68 61 73 68 20 5b 65 78 70 72 20 7b 24 69 64  $hash [expr {$id
07b0: 78 20 2a 20 32 7d 5d 20 5b 65 78 70 72 20 7b 28  x * 2}] [expr {(
07c0: 24 69 64 78 20 2a 20 32 29 20 2b 20 31 7d 5d 5d  $idx * 2) + 1}]]
07d0: 2f 22 0a 09 09 7d 0a 09 09 61 70 70 65 6e 64 20  /"...}...append 
07e0: 72 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20  retval "[string 
07f0: 72 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70  range $hash [exp
0800: 72 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 65 6e  r {$idx * 2}] en
0810: 64 5d 22 0a 0a 09 09 72 65 74 75 72 6e 20 24 72  d]"....return $r
0820: 65 74 76 61 6c 0a 09 7d 0a 0a 09 70 72 6f 63 20  etval..}...proc 
0830: 5f 63 61 63 68 65 66 69 6c 65 20 7b 75 72 6c 20  _cachefile {url 
0840: 6b 65 79 20 7b 6b 65 79 49 73 48 61 73 68 20 31  key {keyIsHash 1
0850: 7d 7d 20 7b 0a 09 09 73 65 74 20 66 69 6c 65 6b  }} {...set filek
0860: 65 79 20 24 6b 65 79 0a 09 09 69 66 20 7b 24 6b  ey $key...if {$k
0870: 65 79 49 73 48 61 73 68 7d 20 7b 0a 09 09 09 73  eyIsHash} {....s
0880: 65 74 20 66 69 6c 65 6b 65 79 20 5b 5f 68 61 73  et filekey [_has
0890: 68 5f 73 65 70 20 24 66 69 6c 65 6b 65 79 5d 0a  h_sep $filekey].
08a0: 09 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 20  ..}....set file 
08b0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70  [file join $::ap
08c0: 70 66 73 3a 3a 63 61 63 68 65 64 69 72 20 24 66  pfs::cachedir $f
08d0: 69 6c 65 6b 65 79 5d 0a 0a 09 09 66 69 6c 65 20  ilekey]....file 
08e0: 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e  mkdir [file dirn
08f0: 61 6d 65 20 24 66 69 6c 65 5d 0a 0a 09 09 69 66  ame $file]....if
0900: 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24   {[file exists $
0910: 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75  file]} {....retu
0920: 72 6e 20 24 66 69 6c 65 0a 09 09 7d 0a 0a 09 09  rn $file...}....
0930: 73 65 74 20 74 6d 70 66 69 6c 65 20 22 24 7b 66  set tmpfile "${f
0940: 69 6c 65 7d 2e 5b 65 78 70 72 20 7b 72 61 6e 64  ile}.[expr {rand
0950: 28 29 7d 5d 5b 63 6c 6f 63 6b 20 63 6c 69 63 6b  ()}][clock click
0960: 73 5d 22 0a 0a 09 09 73 65 74 20 66 64 20 5b 6f  s]"....set fd [o
0970: 70 65 6e 20 24 74 6d 70 66 69 6c 65 20 22 77 22  pen $tmpfile "w"
0980: 5d 0a 09 09 66 63 6f 6e 66 69 67 75 72 65 20 24  ]...fconfigure $
0990: 66 64 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20  fd -translation 
09a0: 62 69 6e 61 72 79 0a 0a 09 09 63 61 74 63 68 20  binary....catch 
09b0: 7b 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b  {....set token [
09c0: 3a 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 24  ::http::geturl $
09d0: 75 72 6c 20 2d 63 68 61 6e 6e 65 6c 20 24 66 64  url -channel $fd
09e0: 20 2d 62 69 6e 61 72 79 20 74 72 75 65 5d 0a 09   -binary true]..
09f0: 09 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20  .}....if {[info 
0a00: 65 78 69 73 74 73 20 74 6f 6b 65 6e 5d 7d 20 7b  exists token]} {
0a10: 0a 09 09 09 73 65 74 20 6e 63 6f 64 65 20 5b 3a  ....set ncode [:
0a20: 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f  :http::ncode $to
0a30: 6b 65 6e 5d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a  ken]....::http::
0a40: 72 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 7d  reset $token...}
0a50: 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 6e   else {....set n
0a60: 63 6f 64 65 20 22 39 30 30 22 0a 09 09 7d 0a 0a  code "900"...}..
0a70: 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 69  ..close $fd....i
0a80: 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b  f {$keyIsHash} {
0a90: 0a 09 09 09 73 65 74 20 68 61 73 68 20 5b 73 74  ....set hash [st
0aa0: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 68  ring tolower [sh
0ab0: 61 31 3a 3a 73 68 61 31 20 2d 68 65 78 20 2d 66  a1::sha1 -hex -f
0ac0: 69 6c 65 20 24 74 6d 70 66 69 6c 65 5d 5d 0a 09  ile $tmpfile]]..
0ad0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74  .} else {....set
0ae0: 20 68 61 73 68 20 24 6b 65 79 0a 09 09 7d 0a 0a   hash $key...}..
0af0: 09 09 69 66 20 7b 24 6e 63 6f 64 65 20 3d 3d 20  ..if {$ncode == 
0b00: 22 32 30 30 22 20 26 26 20 24 68 61 73 68 20 3d  "200" && $hash =
0b10: 3d 20 24 6b 65 79 7d 20 7b 0a 09 09 09 66 69 6c  = $key} {....fil
0b20: 65 20 72 65 6e 61 6d 65 20 2d 66 6f 72 63 65 20  e rename -force 
0b30: 2d 2d 20 24 74 6d 70 66 69 6c 65 20 24 66 69 6c  -- $tmpfile $fil
0b40: 65 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  e...} else {....
0b50: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
0b60: 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65 0a 09  ce -- $tmpfile..
0b70: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69  .}....return $fi
0b80: 6c 65 0a 09 7d 0a 0a 0a 09 70 72 6f 63 20 5f 69  le..}....proc _i
0b90: 73 48 61 73 68 20 7b 76 61 6c 75 65 7d 20 7b 0a  sHash {value} {.
0ba0: 09 09 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72  ..set value [str
0bb0: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 76 61 6c  ing tolower $val
0bc0: 75 65 5d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69  ue]....if {[stri
0bd0: 6e 67 20 6c 65 6e 67 74 68 20 24 76 61 6c 75 65  ng length $value
0be0: 5d 20 21 3d 20 34 30 7d 20 7b 0a 09 09 09 72 65  ] != 40} {....re
0bf0: 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a  turn false...}..
0c00: 09 09 69 66 20 7b 21 5b 72 65 67 65 78 70 20 7b  ..if {![regexp {
0c10: 5e 5b 30 2d 39 61 2d 66 5d 2a 24 7d 20 24 76 61  ^[0-9a-f]*$} $va
0c20: 6c 75 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  lue]} {....retur
0c30: 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 72  n false...}....r
0c40: 65 74 75 72 6e 20 74 72 75 65 0a 09 7d 0a 0a 09  eturn true..}...
0c50: 70 72 6f 63 20 5f 76 65 72 69 66 79 53 69 67 6e  proc _verifySign
0c60: 61 74 75 72 65 41 6e 64 43 65 72 74 69 66 69 63  atureAndCertific
0c70: 61 74 65 20 7b 68 6f 73 74 6e 61 6d 65 20 63 65  ate {hostname ce
0c80: 72 74 69 66 69 63 61 74 65 20 73 69 67 6e 61 74  rtificate signat
0c90: 75 72 65 20 68 61 73 68 7d 20 7b 0a 09 09 73 65  ure hash} {...se
0ca0: 74 20 63 65 72 74 69 66 69 63 61 74 65 20 5b 62  t certificate [b
0cb0: 69 6e 61 72 79 20 66 6f 72 6d 61 74 20 22 48 2a  inary format "H*
0cc0: 22 20 24 63 65 72 74 69 66 69 63 61 74 65 5d 0a  " $certificate].
0cd0: 09 09 73 65 74 20 73 69 67 6e 61 74 75 72 65 20  ..set signature 
0ce0: 20 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d 61 74    [binary format
0cf0: 20 22 48 2a 22 20 24 73 69 67 6e 61 74 75 72 65   "H*" $signature
0d00: 5d 0a 0a 09 09 73 65 74 20 63 65 72 74 69 66 69  ]....set certifi
0d10: 63 61 74 65 20 5b 3a 3a 70 6b 69 3a 3a 78 35 30  cate [::pki::x50
0d20: 39 3a 3a 70 61 72 73 65 5f 63 65 72 74 20 24 63  9::parse_cert $c
0d30: 65 72 74 69 66 69 63 61 74 65 5d 0a 0a 09 09 61  ertificate]....a
0d40: 72 72 61 79 20 73 65 74 20 63 65 72 74 69 66 69  rray set certifi
0d50: 63 61 74 65 5f 61 72 72 20 24 63 65 72 74 69 66  cate_arr $certif
0d60: 69 63 61 74 65 0a 09 09 73 65 74 20 63 65 72 74  icate...set cert
0d70: 69 66 69 63 61 74 65 5f 63 6e 20 5b 3a 3a 70 6b  ificate_cn [::pk
0d80: 69 3a 3a 78 35 30 39 3a 3a 5f 64 6e 5f 74 6f 5f  i::x509::_dn_to_
0d90: 63 6e 20 24 63 65 72 74 69 66 69 63 61 74 65 5f  cn $certificate_
0da0: 61 72 72 28 73 75 62 6a 65 63 74 29 5d 0a 0a 09  arr(subject)]...
0db0: 09 69 66 20 7b 21 5b 3a 3a 70 6b 69 3a 3a 76 65  .if {![::pki::ve
0dc0: 72 69 66 79 20 24 73 69 67 6e 61 74 75 72 65 20  rify $signature 
0dd0: 22 24 68 61 73 68 2c 73 68 61 31 22 20 24 63 65  "$hash,sha1" $ce
0de0: 72 74 69 66 69 63 61 74 65 5d 7d 20 7b 0a 09 09  rtificate]} {...
0df0: 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09  .return false...
0e00: 7d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e 67  }....if {[string
0e10: 20 74 6f 6c 6f 77 65 72 20 24 63 65 72 74 69 66   tolower $certif
0e20: 69 63 61 74 65 5f 63 6e 5d 20 21 3d 20 5b 73 74  icate_cn] != [st
0e30: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 68 6f  ring tolower $ho
0e40: 73 74 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65  stname]} {....re
0e50: 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a  turn false...}..
0e60: 09 09 69 66 20 7b 21 5b 3a 3a 70 6b 69 3a 3a 78  ..if {![::pki::x
0e70: 35 30 39 3a 3a 76 65 72 69 66 79 5f 63 65 72 74  509::verify_cert
0e80: 20 24 63 65 72 74 69 66 69 63 61 74 65 20 24 3a   $certificate $:
0e90: 3a 61 70 70 66 73 3a 3a 74 72 75 73 74 65 64 5f  :appfs::trusted_
0ea0: 63 61 73 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  cas]} {....retur
0eb0: 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 72  n false...}....r
0ec0: 65 74 75 72 6e 20 74 72 75 65 0a 09 7d 0a 0a 09  eturn true..}...
0ed0: 70 72 6f 63 20 5f 6e 6f 72 6d 61 6c 69 7a 65 4f  proc _normalizeO
0ee0: 53 20 7b 6f 73 20 7b 74 6f 6c 65 72 61 6e 74 20  S {os {tolerant 
0ef0: 30 7d 7d 20 7b 0a 09 09 73 65 74 20 6f 73 20 5b  0}} {...set os [
0f00: 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b  string tolower [
0f10: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6f 73 5d  string trim $os]
0f20: 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24  ]....switch -- $
0f30: 6f 73 20 7b 0a 09 09 09 22 6c 69 6e 75 78 22 20  os {...."linux" 
0f40: 2d 20 22 66 72 65 65 62 73 64 22 20 2d 20 22 6f  - "freebsd" - "o
0f50: 70 65 6e 62 73 64 22 20 2d 20 22 6e 65 74 62 73  penbsd" - "netbs
0f60: 64 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  d" {.....return 
0f70: 24 6f 73 0a 09 09 09 7d 0a 09 09 09 22 73 75 6e  $os....}...."sun
0f80: 6f 73 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  os" {.....return
0f90: 20 22 73 6f 6c 61 72 69 73 22 0a 09 09 09 7d 0a   "solaris"....}.
0fa0: 09 09 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e  ..."noarch" - "n
0fb0: 6f 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22  one" - "any" - "
0fc0: 61 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72  all" {.....retur
0fd0: 6e 20 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a  n "noarch"....}.
0fe0: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 74 6f 6c 65  ..}....if {$tole
0ff0: 72 61 6e 74 7d 20 7b 0a 09 09 09 72 65 74 75 72  rant} {....retur
1000: 6e 20 24 6f 73 0a 09 09 7d 0a 0a 09 09 72 65 74  n $os...}....ret
1010: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
1020: 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d 61  "Unable to norma
1030: 6c 69 7a 65 20 4f 53 3a 20 24 6f 73 22 0a 09 7d  lize OS: $os"..}
1040: 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61 6c 69  ...proc _normali
1050: 7a 65 43 50 55 20 7b 63 70 75 20 7b 74 6f 6c 65  zeCPU {cpu {tole
1060: 72 61 6e 74 20 30 7d 7d 20 7b 0a 09 09 73 65 74  rant 0}} {...set
1070: 20 63 70 75 20 5b 73 74 72 69 6e 67 20 74 6f 6c   cpu [string tol
1080: 6f 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72 69  ower [string tri
1090: 6d 20 24 63 70 75 5d 5d 0a 0a 09 09 73 77 69 74  m $cpu]]....swit
10a0: 63 68 20 2d 67 6c 6f 62 20 2d 2d 20 24 63 70 75  ch -glob -- $cpu
10b0: 20 7b 0a 09 09 09 22 69 3f 38 36 22 20 7b 0a 09   {...."i?86" {..
10c0: 09 09 09 72 65 74 75 72 6e 20 22 69 78 38 36 22  ...return "ix86"
10d0: 0a 09 09 09 7d 0a 09 09 09 22 78 38 36 5f 36 34  ....}...."x86_64
10e0: 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 24  " {.....return $
10f0: 63 70 75 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61  cpu....}...."noa
1100: 72 63 68 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20  rch" - "none" - 
1110: 22 61 6e 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a  "any" - "all" {.
1120: 09 09 09 09 72 65 74 75 72 6e 20 22 6e 6f 61 72  ....return "noar
1130: 63 68 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09  ch"....}...}....
1140: 69 66 20 7b 24 74 6f 6c 65 72 61 6e 74 7d 20 7b  if {$tolerant} {
1150: 0a 09 09 09 72 65 74 75 72 6e 20 24 63 70 75 0a  ....return $cpu.
1160: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63  ..}....return -c
1170: 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c  ode error "Unabl
1180: 65 20 74 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20 43  e to normalize C
1190: 50 55 3a 20 24 63 70 75 22 0a 09 7d 0a 0a 09 70  PU: $cpu"..}...p
11a0: 72 6f 63 20 5f 61 73 5f 75 73 65 72 20 7b 63 6f  roc _as_user {co
11b0: 64 65 7d 20 7b 0a 09 09 3a 3a 61 70 70 66 73 64  de} {...::appfsd
11c0: 3a 3a 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f  ::simulate_user_
11d0: 66 73 5f 65 6e 74 65 72 0a 0a 09 09 73 65 74 20  fs_enter....set 
11e0: 72 65 74 63 6f 64 65 20 5b 63 61 74 63 68 20 5b  retcode [catch [
11f0: 6c 69 73 74 20 75 70 6c 65 76 65 6c 20 24 63 6f  list uplevel $co
1200: 64 65 5d 20 72 65 74 73 74 72 5d 0a 0a 09 09 3a  de] retstr]....:
1210: 3a 61 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74  :appfsd::simulat
1220: 65 5f 75 73 65 72 5f 66 73 5f 6c 65 61 76 65 0a  e_user_fs_leave.
1230: 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
1240: 24 72 65 74 63 6f 64 65 20 24 72 65 74 73 74 72  $retcode $retstr
1250: 0a 09 7d 0a 0a 09 70 72 6f 63 20 69 6e 69 74 20  ..}...proc init 
1260: 7b 7d 20 7b 0a 09 09 69 66 20 7b 5b 69 6e 66 6f  {} {...if {[info
1270: 20 65 78 69 73 74 73 20 3a 3a 61 70 70 66 73 3a   exists ::appfs:
1280: 3a 69 6e 69 74 5f 63 61 6c 6c 65 64 5d 7d 20 7b  :init_called]} {
1290: 0a 09 09 09 72 65 74 75 72 6e 0a 09 09 7d 0a 0a  ....return...}..
12a0: 09 09 23 20 46 6f 72 63 65 20 5b 70 61 72 72 61  ..# Force [parra
12b0: 79 5d 20 61 6e 64 20 5b 63 6c 6f 63 6b 5d 20 74  y] and [clock] t
12c0: 6f 20 62 65 20 6c 6f 61 64 65 64 0a 09 09 63 61  o be loaded...ca
12d0: 74 63 68 20 7b 0a 09 09 09 70 61 72 72 61 79 20  tch {....parray 
12e0: 64 6f 65 73 5f 6e 6f 74 5f 65 78 69 73 74 0a 09  does_not_exist..
12f0: 09 7d 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09  .}...catch {....
1300: 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 0a 09 09  clock seconds...
1310: 7d 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 63  }...catch {....c
1320: 6c 6f 63 6b 20 61 64 64 20 5b 63 6c 6f 63 6b 20  lock add [clock 
1330: 73 65 63 6f 6e 64 73 5d 20 33 20 73 65 63 6f 6e  seconds] 3 secon
1340: 64 73 0a 09 09 7d 0a 0a 09 09 73 65 74 20 3a 3a  ds...}....set ::
1350: 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c  appfs::init_call
1360: 65 64 20 31 0a 0a 09 09 23 20 41 64 64 20 61 20  ed 1....# Add a 
1370: 64 65 66 61 75 6c 74 20 43 41 20 74 6f 20 6c 69  default CA to li
1380: 73 74 20 6f 66 20 74 72 75 73 74 65 64 20 43 41  st of trusted CA
1390: 73 0a 09 09 6c 61 70 70 65 6e 64 20 3a 3a 61 70  s...lappend ::ap
13a0: 70 66 73 3a 3a 74 72 75 73 74 65 64 5f 63 61 73  pfs::trusted_cas
13b0: 20 5b 3a 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a 70   [::pki::x509::p
13c0: 61 72 73 65 5f 63 65 72 74 20 7b 0a 2d 2d 2d 2d  arse_cert {.----
13d0: 2d 42 45 47 49 4e 20 43 45 52 54 49 46 49 43 41  -BEGIN CERTIFICA
13e0: 54 45 2d 2d 2d 2d 2d 0a 4d 49 49 43 37 44 43 43  TE-----.MIIC7DCC
13f0: 41 64 53 67 41 77 49 42 41 67 49 42 41 54 41 4e  AdSgAwIBAgIBATAN
1400: 42 67 6b 71 68 6b 69 47 39 77 30 42 41 51 55 46  BgkqhkiG9w0BAQUF
1410: 41 44 41 76 4d 52 49 77 45 41 59 44 56 51 51 4b  ADAvMRIwEAYDVQQK
1420: 45 77 6c 53 62 33 6b 67 0a 53 32 56 6c 62 6d 55  EwlSb3kg.S2VlbmU
1430: 78 47 54 41 58 42 67 4e 56 42 41 4d 54 45 45 46  xGTAXBgNVBAMTEEF
1440: 77 63 45 5a 54 49 45 74 6c 65 53 42 4e 59 58 4e  wcEZTIEtleSBNYXN
1450: 30 5a 58 49 77 48 68 63 4e 4d 54 51 78 4d 54 45  0ZXIwHhcNMTQxMTE
1460: 33 4d 6a 41 78 4e 7a 49 34 0a 57 68 63 4e 4d 54  3MjAxNzI4.WhcNMT
1470: 6b 78 4d 54 45 33 4d 6a 41 78 4e 7a 49 34 57 6a  kxMTE3MjAxNzI4Wj
1480: 41 76 4d 52 49 77 45 41 59 44 56 51 51 4b 45 77  AvMRIwEAYDVQQKEw
1490: 6c 53 62 33 6b 67 53 32 56 6c 62 6d 55 78 47 54  lSb3kgS2VlbmUxGT
14a0: 41 58 42 67 4e 56 42 41 4d 54 0a 45 45 46 77 63  AXBgNVBAMT.EEFwc
14b0: 45 5a 54 49 45 74 6c 65 53 42 4e 59 58 4e 30 5a  EZTIEtleSBNYXN0Z
14c0: 58 49 77 67 67 45 69 4d 41 30 47 43 53 71 47 53  XIwggEiMA0GCSqGS
14d0: 49 62 33 44 51 45 42 41 51 55 41 41 34 49 42 44  Ib3DQEBAQUAA4IBD
14e0: 77 41 77 67 67 45 4b 41 6f 49 42 0a 41 51 43 71  wAwggEKAoIB.AQCq
14f0: 36 75 53 4b 34 36 79 47 35 62 36 52 4a 57 77 52  6uSK46yG5b6RJWwR
1500: 6c 76 77 35 67 6c 41 6e 6a 73 63 31 47 69 58 33  lvw5glAnjsc1GiX3
1510: 64 75 58 41 30 76 47 34 71 6e 4b 55 6e 44 74 6c  duXA0vG4qnKUnDtl
1520: 2f 6a 63 4d 6d 71 32 47 4d 4f 42 39 0a 49 79 31  /jcMmq2GMOB9.Iy1
1530: 74 6a 61 62 45 48 41 30 4d 68 57 32 6a 37 56 77  tjabEHA0MhW2j7Vw
1540: 65 2f 4f 39 4d 4c 46 4a 6b 4a 33 30 4d 31 50 56  e/O9MLFJkJ30M1PV
1550: 44 37 59 5a 52 52 4e 61 41 73 7a 33 55 57 49 4b  D7YZRRNaAsz3UWIK
1560: 45 6a 50 49 37 42 42 63 33 32 4b 4f 6d 0a 42 4c  EjPI7BBc32KOm.BL
1570: 33 43 54 58 43 43 64 7a 6c 6c 4c 31 48 68 56 62  3CTXCCdzllL1HhVb
1580: 6e 4d 35 69 43 41 6d 67 48 63 67 31 44 55 6b 2f  nM5iCAmgHcg1DUk/
1590: 45 76 57 58 76 6e 45 44 78 58 52 79 32 6c 56 39  EvWXvnEDxXRy2lV9
15a0: 6d 51 73 6d 44 65 64 72 66 66 59 37 57 6c 0a 4f  mQsmDedrffY7Wl.O
15b0: 72 35 37 6e 6c 63 7a 61 4d 75 50 4c 70 79 52 53  r57nlczaMuPLpyRS
15c0: 6b 76 37 35 50 41 6e 6a 51 4a 78 54 33 73 57 6c  kv75PAnjQJxT3sWl
15d0: 42 70 79 2b 2f 48 39 49 6d 75 64 51 64 70 4a 4e  Bpy+/H9ImudQdpJN
15e0: 66 2f 46 74 78 63 71 4e 37 69 44 77 48 35 42 0a  f/FtxcqN7iDwH5B.
15f0: 76 49 63 65 59 45 74 44 56 78 46 73 76 6f 35 48  vIceYEtDVxFsvo5H
1600: 4f 56 6b 53 6c 39 6a 65 6f 35 45 34 47 70 65 33  OVkSl9jeo5E4Gpe3
1610: 77 79 66 52 68 6f 71 42 32 55 6b 61 57 31 4b 71  wyfRhoqB2UkaW1Kq
1620: 30 69 48 35 52 2b 30 30 53 37 36 30 78 51 4d 78  0iH5R+00S760xQMx
1630: 0a 4c 4c 39 4c 31 64 75 68 75 31 64 4c 37 48 73  .LL9L1duhu1dL7Hs
1640: 6d 45 77 37 49 65 59 55 52 41 67 4d 42 41 41 47  mEw7IeYURAgMBAAG
1650: 6a 45 7a 41 52 4d 41 38 47 41 31 55 64 45 77 45  jEzARMA8GA1UdEwE
1660: 42 2f 77 51 46 4d 41 4d 42 41 66 38 77 44 51 59  B/wQFMAMBAf8wDQY
1670: 4a 0a 4b 6f 5a 49 68 76 63 4e 41 51 45 46 42 51  J.KoZIhvcNAQEFBQ
1680: 41 44 67 67 45 42 41 4b 68 4f 34 5a 53 7a 59 50  ADggEBAKhO4ZSzYP
1690: 33 37 42 71 69 78 4e 48 4b 4b 39 2b 67 53 65 43  37BqixNHKK9+gSeC
16a0: 36 46 67 61 38 35 69 4c 57 68 77 70 50 57 30 6b  6Fga85iLWhwpPW0k
16b0: 53 6c 0a 7a 30 33 68 61 6c 38 30 4b 5a 2b 6b 50  Sl.z03hal80KZ+kP
16c0: 4d 7a 62 38 43 35 32 4e 32 38 33 74 51 4e 41 71  Mzb8C52N283tQNAq
16d0: 4a 39 51 38 61 6b 44 50 5a 78 53 7a 7a 4d 55 56  J9Q8akDPZxSzzMUV
16e0: 4f 47 70 47 77 32 70 4a 37 5a 73 77 4b 44 7a 30  OGpGw2pJ7ZswKDz0
16f0: 5a 54 61 0a 30 65 64 71 2f 67 64 54 2f 48 72 64  ZTa.0edq/gdT/Hrd
1700: 65 67 76 4e 74 44 50 63 32 6a 6f 6e 61 35 46 56  egvNtDPc2jona5FV
1710: 4f 59 71 77 64 63 7a 35 6b 62 6c 31 55 57 42 61  OYqwdcz5kbl1UWBa
1720: 42 70 33 56 58 55 67 63 59 6a 58 53 52 61 42 4b  Bp3VXUgcYjXSRaBK
1730: 34 33 57 64 0a 63 76 65 69 44 55 65 5a 77 37 67  43Wd.cveiDUeZw7g
1740: 48 71 52 53 4e 2f 41 79 59 55 43 74 4a 7a 57 6d  HqRSN/AyYUCtJzWm
1750: 76 47 73 4a 75 49 46 68 4d 42 6f 6e 75 7a 38 6a  vGsJuIFhMBonuz8j
1760: 79 6c 68 79 4d 4a 43 59 4a 46 54 34 69 4d 55 43  ylhyMJCYJFT4iMUC
1770: 38 4d 4e 49 77 0a 6e 69 58 31 78 78 2b 4e 75 36  8MNIw.niX1xx+Nu6
1780: 66 50 56 35 5a 5a 48 6a 39 72 62 68 69 42 61 4c  fPV5ZZHj9rbhiBaL
1790: 6a 6d 2b 74 6b 44 77 74 50 67 41 33 6a 32 70 78  jm+tkDwtPgA3j2px
17a0: 76 48 4b 59 70 74 75 57 78 65 59 4f 2b 39 44 44  vHKYptuWxeYO+9DD
17b0: 4e 61 39 73 43 62 0a 45 35 41 6e 4a 49 6c 4f 6e  Na9sCb.E5AnJIlOn
17c0: 64 2f 74 47 65 30 43 68 66 30 73 46 51 67 2b 6c  d/tGe0Chf0sFQg+l
17d0: 39 6e 4e 69 4e 72 57 47 67 7a 64 64 39 5a 50 4a  9nNiNrWGgzdd9ZPJ
17e0: 4b 34 3d 0a 2d 2d 2d 2d 2d 45 4e 44 20 43 45 52  K4=.-----END CER
17f0: 54 49 46 49 43 41 54 45 2d 2d 2d 2d 2d 0a 7d 5d  TIFICATE-----.}]
1800: 0a 0a 09 09 23 20 4c 6f 61 64 20 63 6f 6e 66 69  ....# Load confi
1810: 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 0a 09 09  guration file...
1820: 73 65 74 20 63 6f 6e 66 69 67 5f 66 69 6c 65 20  set config_file 
1830: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70  [file join $::ap
1840: 70 66 73 3a 3a 63 61 63 68 65 64 69 72 20 63 6f  pfs::cachedir co
1850: 6e 66 69 67 5d 0a 09 09 69 66 20 7b 5b 66 69 6c  nfig]...if {[fil
1860: 65 20 65 78 69 73 74 73 20 24 63 6f 6e 66 69 67  e exists $config
1870: 5f 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 73 6f 75  _file]} {....sou
1880: 72 63 65 20 24 63 6f 6e 66 69 67 5f 66 69 6c 65  rce $config_file
1890: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e  ...}....if {![in
18a0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70 70 66  fo exists ::appf
18b0: 73 3a 3a 64 62 5d 7d 20 7b 0a 09 09 09 66 69 6c  s::db]} {....fil
18c0: 65 20 6d 6b 64 69 72 20 24 3a 3a 61 70 70 66 73  e mkdir $::appfs
18d0: 3a 3a 63 61 63 68 65 64 69 72 0a 0a 09 09 09 73  ::cachedir.....s
18e0: 71 6c 69 74 65 33 20 3a 3a 61 70 70 66 73 3a 3a  qlite3 ::appfs::
18f0: 64 62 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a  db [file join $:
1900: 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72  :appfs::cachedir
1910: 20 63 61 63 68 65 2e 64 62 5d 0a 0a 09 09 09 3a   cache.db].....:
1920: 3a 61 70 70 66 73 3a 3a 64 62 20 74 69 6d 65 6f  :appfs::db timeo
1930: 75 74 20 33 30 30 30 30 0a 09 09 7d 0a 0a 09 09  ut 30000...}....
1940: 23 20 43 72 65 61 74 65 20 74 61 62 6c 65 73 0a  # Create tables.
1950: 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54  ..db eval {CREAT
1960: 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45  E TABLE IF NOT E
1970: 58 49 53 54 53 20 73 69 74 65 73 28 68 6f 73 74  XISTS sites(host
1980: 6e 61 6d 65 20 50 52 49 4d 41 52 59 20 4b 45 59  name PRIMARY KEY
1990: 2c 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74 74  , lastUpdate, tt
19a0: 6c 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b  l);}...db eval {
19b0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
19c0: 4e 4f 54 20 45 58 49 53 54 53 20 70 61 63 6b 61  NOT EXISTS packa
19d0: 67 65 73 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68  ges(hostname, sh
19e0: 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72  a1, package, ver
19f0: 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63  sion, os, cpuArc
1a00: 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61 76  h, isLatest, hav
1a10: 65 4d 61 6e 69 66 65 73 74 29 3b 7d 0a 09 09 64  eManifest);}...d
1a20: 62 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54  b eval {CREATE T
1a30: 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53  ABLE IF NOT EXIS
1a40: 54 53 20 66 69 6c 65 73 28 70 61 63 6b 61 67 65  TS files(package
1a50: 5f 73 68 61 31 2c 20 74 79 70 65 2c 20 74 69 6d  _sha1, type, tim
1a60: 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c  e, source, size,
1a70: 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61   perms, file_sha
1a80: 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69  1, file_name, fi
1a90: 6c 65 5f 64 69 72 65 63 74 6f 72 79 29 3b 7d 0a  le_directory);}.
1aa0: 0a 09 09 23 20 43 72 65 61 74 65 20 69 6e 64 65  ...# Create inde
1ab0: 78 65 73 0a 09 09 64 62 20 65 76 61 6c 20 7b 43  xes...db eval {C
1ac0: 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e  REATE INDEX IF N
1ad0: 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73 5f  OT EXISTS sites_
1ae0: 69 6e 64 65 78 20 4f 4e 20 73 69 74 65 73 20 28  index ON sites (
1af0: 68 6f 73 74 6e 61 6d 65 29 3b 7d 0a 09 09 64 62  hostname);}...db
1b00: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e   eval {CREATE IN
1b10: 44 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54  DEX IF NOT EXIST
1b20: 53 20 70 61 63 6b 61 67 65 73 5f 69 6e 64 65 78  S packages_index
1b30: 20 4f 4e 20 70 61 63 6b 61 67 65 73 20 28 68 6f   ON packages (ho
1b40: 73 74 6e 61 6d 65 2c 20 73 68 61 31 2c 20 70 61  stname, sha1, pa
1b50: 63 6b 61 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20  ckage, version, 
1b60: 6f 73 2c 20 63 70 75 41 72 63 68 29 3b 7d 0a 09  os, cpuArch);}..
1b70: 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54 45  .db eval {CREATE
1b80: 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45 58   INDEX IF NOT EX
1b90: 49 53 54 53 20 66 69 6c 65 73 5f 69 6e 64 65 78  ISTS files_index
1ba0: 20 4f 4e 20 66 69 6c 65 73 20 28 70 61 63 6b 61   ON files (packa
1bb0: 67 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61  ge_sha1, file_na
1bc0: 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f  me, file_directo
1bd0: 72 79 29 3b 7d 0a 09 7d 0a 0a 09 70 72 6f 63 20  ry);}..}...proc 
1be0: 64 6f 77 6e 6c 6f 61 64 20 7b 68 6f 73 74 6e 61  download {hostna
1bf0: 6d 65 20 68 61 73 68 20 7b 6d 65 74 68 6f 64 20  me hash {method 
1c00: 73 68 61 31 7d 7d 20 7b 0a 09 09 73 65 74 20 75  sha1}} {...set u
1c10: 72 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65  rl [::appfs::use
1c20: 72 3a 3a 63 6f 6e 73 74 72 75 63 74 5f 75 72 6c  r::construct_url
1c30: 20 24 68 6f 73 74 6e 61 6d 65 20 24 68 61 73 68   $hostname $hash
1c40: 20 24 6d 65 74 68 6f 64 5d 0a 09 09 73 65 74 20   $method]...set 
1c50: 66 69 6c 65 20 5b 5f 63 61 63 68 65 66 69 6c 65  file [_cachefile
1c60: 20 24 75 72 6c 20 24 68 61 73 68 5d 0a 0a 09 09   $url $hash]....
1c70: 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74  if {![file exist
1c80: 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 72  s $file]} {....r
1c90: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
1ca0: 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74  r "Unable to fet
1cb0: 63 68 20 28 66 69 6c 65 20 64 6f 65 73 20 6e 6f  ch (file does no
1cc0: 74 20 65 78 69 73 74 3a 20 24 66 69 6c 65 29 22  t exist: $file)"
1cd0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24  ...}....return $
1ce0: 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 67  file..}...proc g
1cf0: 65 74 69 6e 64 65 78 20 7b 68 6f 73 74 6e 61 6d  etindex {hostnam
1d00: 65 7d 20 7b 0a 09 09 73 65 74 20 6e 6f 77 20 5b  e} {...set now [
1d10: 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 0a 0a  clock seconds]..
1d20: 09 09 73 65 74 20 6c 61 73 74 55 70 64 61 74 65  ..set lastUpdate
1d30: 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s [db eval {SELE
1d40: 43 54 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74  CT lastUpdate, t
1d50: 74 6c 20 46 52 4f 4d 20 73 69 74 65 73 20 57 48  tl FROM sites WH
1d60: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
1d70: 68 6f 73 74 6e 61 6d 65 20 4c 49 4d 49 54 20 31  hostname LIMIT 1
1d80: 3b 7d 5d 0a 09 09 69 66 20 7b 5b 6c 6c 65 6e 67  ;}]...if {[lleng
1d90: 74 68 20 24 6c 61 73 74 55 70 64 61 74 65 73 5d  th $lastUpdates]
1da0: 20 3d 3d 20 30 7d 20 7b 0a 09 09 09 73 65 74 20   == 0} {....set 
1db0: 6c 61 73 74 55 70 64 61 74 65 20 30 0a 09 09 09  lastUpdate 0....
1dc0: 73 65 74 20 74 74 6c 20 30 0a 09 09 7d 20 65 6c  set ttl 0...} el
1dd0: 73 65 20 7b 0a 09 09 09 73 65 74 20 6c 61 73 74  se {....set last
1de0: 55 70 64 61 74 65 20 5b 6c 69 6e 64 65 78 20 24  Update [lindex $
1df0: 6c 61 73 74 55 70 64 61 74 65 73 20 30 5d 0a 09  lastUpdates 0]..
1e00: 09 09 73 65 74 20 74 74 6c 20 5b 6c 69 6e 64 65  ..set ttl [linde
1e10: 78 20 24 6c 61 73 74 55 70 64 61 74 65 73 20 31  x $lastUpdates 1
1e20: 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 6f  ]...}....if {$no
1e30: 77 20 3c 20 28 24 6c 61 73 74 55 70 64 61 74 65  w < ($lastUpdate
1e40: 20 2b 20 24 74 74 6c 29 7d 20 7b 0a 09 09 09 72   + $ttl)} {....r
1e50: 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09  eturn COMPLETE..
1e60: 09 7d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e  .}....if {[strin
1e70: 67 20 6d 61 74 63 68 20 22 2a 5c 5b 2f 7e 5c 5d  g match "*\[/~\]
1e80: 2a 22 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b  *" $hostname]} {
1e90: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
1ea0: 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20   error "Invalid 
1eb0: 68 6f 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09  hostname"...}...
1ec0: 09 73 65 74 20 75 72 6c 20 22 68 74 74 70 3a 2f  .set url "http:/
1ed0: 2f 24 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73  /$hostname/appfs
1ee0: 2f 69 6e 64 65 78 22 0a 0a 09 09 63 61 74 63 68  /index"....catch
1ef0: 20 7b 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e 20   {....set token 
1f00: 5b 3a 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c 20  [::http::geturl 
1f10: 24 75 72 6c 5d 0a 09 09 09 69 66 20 7b 5b 3a 3a  $url]....if {[::
1f20: 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f 6b  http::ncode $tok
1f30: 65 6e 5d 20 3d 3d 20 22 32 30 30 22 7d 20 7b 0a  en] == "200"} {.
1f40: 09 09 09 09 73 65 74 20 69 6e 64 65 78 68 61 73  ....set indexhas
1f50: 68 5f 64 61 74 61 20 5b 3a 3a 68 74 74 70 3a 3a  h_data [::http::
1f60: 64 61 74 61 20 24 74 6f 6b 65 6e 5d 0a 09 09 09  data $token]....
1f70: 7d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 72 65 73  }....::http::res
1f80: 65 74 20 24 74 6f 6b 65 6e 0a 09 09 09 3a 3a 68  et $token....::h
1f90: 74 74 70 3a 3a 63 6c 65 61 6e 75 70 20 24 74 6f  ttp::cleanup $to
1fa0: 6b 65 6e 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  ken...}....if {!
1fb0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69 6e 64  [info exists ind
1fc0: 65 78 68 61 73 68 5f 64 61 74 61 5d 7d 20 7b 0a  exhash_data]} {.
1fd0: 09 09 09 23 20 43 61 63 68 65 20 74 68 69 73 20  ...# Cache this 
1fe0: 72 65 73 75 6c 74 20 66 6f 72 20 36 30 20 73 65  result for 60 se
1ff0: 63 6f 6e 64 73 0a 09 09 09 64 62 20 65 76 61 6c  conds....db eval
2000: 20 7b 49 4e 53 45 52 54 20 4f 52 20 52 45 50 4c   {INSERT OR REPL
2010: 41 43 45 20 49 4e 54 4f 20 73 69 74 65 73 20 28  ACE INTO sites (
2020: 68 6f 73 74 6e 61 6d 65 2c 20 6c 61 73 74 55 70  hostname, lastUp
2030: 64 61 74 65 2c 20 74 74 6c 29 20 56 41 4c 55 45  date, ttl) VALUE
2040: 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 6e  S ($hostname, $n
2050: 6f 77 2c 20 24 3a 3a 61 70 70 66 73 3a 3a 6e 74  ow, $::appfs::nt
2060: 74 6c 29 3b 7d 0a 0a 09 09 09 72 65 74 75 72 6e  tl);}.....return
2070: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e   -code error "Un
2080: 61 62 6c 65 20 74 6f 20 66 65 74 63 68 20 24 75  able to fetch $u
2090: 72 6c 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 69  rl"...}....set i
20a0: 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b 73  ndexhash_data [s
20b0: 74 72 69 6e 67 20 74 72 69 6d 20 24 69 6e 64 65  tring trim $inde
20c0: 78 68 61 73 68 5f 64 61 74 61 20 22 5c 72 5c 6e  xhash_data "\r\n
20d0: 22 5d 0a 09 09 73 65 74 20 69 6e 64 65 78 68 61  "]...set indexha
20e0: 73 68 5f 64 61 74 61 20 5b 73 70 6c 69 74 20 24  sh_data [split $
20f0: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 22  indexhash_data "
2100: 2c 22 5d 0a 09 09 73 65 74 20 69 6e 64 65 78 68  ,"]...set indexh
2110: 61 73 68 20 20 20 20 20 20 20 5b 6c 69 6e 64 65  ash       [linde
2120: 78 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61 74  x $indexhash_dat
2130: 61 20 30 5d 0a 09 09 73 65 74 20 69 6e 64 65 78  a 0]...set index
2140: 68 61 73 68 6d 65 74 68 6f 64 20 5b 6c 69 6e 64  hashmethod [lind
2150: 65 78 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61  ex $indexhash_da
2160: 74 61 20 31 5d 0a 09 09 73 65 74 20 69 6e 64 65  ta 1]...set inde
2170: 78 68 61 73 68 63 65 72 74 20 20 20 5b 6c 69 6e  xhashcert   [lin
2180: 64 65 78 20 24 69 6e 64 65 78 68 61 73 68 5f 64  dex $indexhash_d
2190: 61 74 61 20 32 5d 0a 09 09 73 65 74 20 69 6e 64  ata 2]...set ind
21a0: 65 78 68 61 73 68 73 69 67 20 20 20 20 5b 6c 69  exhashsig    [li
21b0: 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73 68 5f  ndex $indexhash_
21c0: 64 61 74 61 20 33 5d 0a 0a 09 09 69 66 20 7b 21  data 3]....if {!
21d0: 5b 5f 69 73 48 61 73 68 20 24 69 6e 64 65 78 68  [_isHash $indexh
21e0: 61 73 68 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  ash]} {....retur
21f0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49  n -code error "I
2200: 6e 76 61 6c 69 64 20 68 61 73 68 3a 20 24 69 6e  nvalid hash: $in
2210: 64 65 78 68 61 73 68 22 0a 09 09 7d 0a 0a 09 09  dexhash"...}....
2220: 69 66 20 7b 21 5b 5f 76 65 72 69 66 79 53 69 67  if {![_verifySig
2230: 6e 61 74 75 72 65 41 6e 64 43 65 72 74 69 66 69  natureAndCertifi
2240: 63 61 74 65 20 24 68 6f 73 74 6e 61 6d 65 20 24  cate $hostname $
2250: 69 6e 64 65 78 68 61 73 68 63 65 72 74 20 24 69  indexhashcert $i
2260: 6e 64 65 78 68 61 73 68 73 69 67 20 24 69 6e 64  ndexhashsig $ind
2270: 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09 09 72 65  exhash]} {....re
2280: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
2290: 20 22 49 6e 76 61 6c 69 64 20 73 69 67 6e 61 74   "Invalid signat
22a0: 75 72 65 20 6f 72 20 63 65 72 74 69 66 69 63 61  ure or certifica
22b0: 74 65 20 66 72 6f 6d 20 24 68 6f 73 74 6e 61 6d  te from $hostnam
22c0: 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66 69  e"...}....set fi
22d0: 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68 6f  le [download $ho
22e0: 73 74 6e 61 6d 65 20 24 69 6e 64 65 78 68 61 73  stname $indexhas
22f0: 68 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65  h]...set fd [ope
2300: 6e 20 24 66 69 6c 65 5d 0a 09 09 73 65 74 20 64  n $file]...set d
2310: 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09  ata [read $fd]..
2320: 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 73 65  .close $fd....se
2330: 74 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20  t curr_packages 
2340: 5b 6c 69 73 74 5d 0a 09 09 66 6f 72 65 61 63 68  [list]...foreach
2350: 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 64 61   line [split $da
2360: 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 73 65  ta "\n"] {....se
2370: 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74  t line [string t
2380: 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 69  rim $line].....i
2390: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  f {[string match
23a0: 20 22 2a 2f 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b   "*/*" $line]} {
23b0: 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09  .....continue...
23c0: 09 7d 0a 0a 09 09 09 69 66 20 7b 24 6c 69 6e 65  .}.....if {$line
23d0: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 63 6f   == ""} {.....co
23e0: 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09  ntinue....}.....
23f0: 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20  set work [split 
2400: 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 75  $line ","].....u
2410: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
2420: 20 70 6b 67 49 6e 66 6f 0a 09 09 09 69 66 20 7b   pkgInfo....if {
2430: 5b 63 61 74 63 68 20 7b 0a 09 09 09 09 73 65 74  [catch {.....set
2440: 20 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65   pkgInfo(package
2450: 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  )  [lindex $work
2460: 20 30 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49   0].....set pkgI
2470: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 20 5b 6c  nfo(version)  [l
2480: 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a 09  index $work 1]..
2490: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 6f  ...set pkgInfo(o
24a0: 73 29 20 20 20 20 20 20 20 5b 5f 6e 6f 72 6d 61  s)       [_norma
24b0: 6c 69 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24  lizeOS [lindex $
24c0: 77 6f 72 6b 20 32 5d 5d 0a 09 09 09 09 73 65 74  work 2]].....set
24d0: 20 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68   pkgInfo(cpuArch
24e0: 29 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50  )  [_normalizeCP
24f0: 55 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  U [lindex $work 
2500: 33 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49  3]].....set pkgI
2510: 6e 66 6f 28 68 61 73 68 29 20 20 20 20 20 5b 73  nfo(hash)     [s
2520: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 6c  tring tolower [l
2530: 69 6e 64 65 78 20 24 77 6f 72 6b 20 34 5d 5d 0a  index $work 4]].
2540: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
2550: 68 61 73 68 5f 74 79 70 65 29 20 22 73 68 61 31  hash_type) "sha1
2560: 22 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66  ".....set pkgInf
2570: 6f 28 69 73 4c 61 74 65 73 74 29 20 5b 65 78 70  o(isLatest) [exp
2580: 72 20 7b 21 21 5b 6c 69 6e 64 65 78 20 24 77 6f  r {!![lindex $wo
2590: 72 6b 20 35 5d 7d 5d 0a 09 09 09 7d 5d 7d 20 7b  rk 5]}]....}]} {
25a0: 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09  .....continue...
25b0: 09 7d 0a 0a 09 09 09 69 66 20 7b 21 5b 5f 69 73  .}.....if {![_is
25c0: 48 61 73 68 20 24 70 6b 67 49 6e 66 6f 28 68 61  Hash $pkgInfo(ha
25d0: 73 68 29 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74  sh)]} {.....cont
25e0: 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 6c 61  inue....}.....la
25f0: 70 70 65 6e 64 20 63 75 72 72 5f 70 61 63 6b 61  ppend curr_packa
2600: 67 65 73 20 24 70 6b 67 49 6e 66 6f 28 68 61 73  ges $pkgInfo(has
2610: 68 29 0a 0a 09 09 09 23 20 44 6f 20 6e 6f 74 20  h).....# Do not 
2620: 64 6f 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61  do any additiona
2630: 6c 20 77 6f 72 6b 20 69 66 20 77 65 20 61 6c 72  l work if we alr
2640: 65 61 64 79 20 68 61 76 65 20 74 68 69 73 20 70  eady have this p
2650: 61 63 6b 61 67 65 0a 09 09 09 73 65 74 20 65 78  ackage....set ex
2660: 69 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20  isting_packages 
2670: 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  [db eval {SELECT
2680: 20 70 61 63 6b 61 67 65 20 46 52 4f 4d 20 70 61   package FROM pa
2690: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
26a0: 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d  tname = $hostnam
26b0: 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70 6b  e AND sha1 = $pk
26c0: 67 49 6e 66 6f 28 68 61 73 68 29 3b 7d 5d 0a 09  gInfo(hash);}]..
26d0: 09 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d  ..if {[lsearch -
26e0: 65 78 61 63 74 20 24 65 78 69 73 74 69 6e 67 5f  exact $existing_
26f0: 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e 66  packages $pkgInf
2700: 6f 28 70 61 63 6b 61 67 65 29 5d 20 21 3d 20 2d  o(package)] != -
2710: 31 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75  1} {.....continu
2720: 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24  e....}.....if {$
2730: 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74  pkgInfo(isLatest
2740: 29 7d 20 7b 0a 09 09 09 09 64 62 20 65 76 61 6c  )} {.....db eval
2750: 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61 67 65   {UPDATE package
2760: 73 20 53 45 54 20 69 73 4c 61 74 65 73 74 20 3d  s SET isLatest =
2770: 20 30 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d   0 WHERE hostnam
2780: 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41 4e  e = $hostname AN
2790: 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 6b 67  D package = $pkg
27a0: 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20 41  Info($package) A
27b0: 4e 44 20 6f 73 20 3d 20 24 70 6b 67 49 6e 66 6f  ND os = $pkgInfo
27c0: 28 24 70 61 63 6b 61 67 65 29 20 41 4e 44 20 63  ($package) AND c
27d0: 70 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e 66  puArch = $pkgInf
27e0: 6f 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 09  o(cpuArch);}....
27f0: 7d 0a 0a 09 09 09 64 62 20 65 76 61 6c 20 7b 49  }.....db eval {I
2800: 4e 53 45 52 54 20 49 4e 54 4f 20 70 61 63 6b 61  NSERT INTO packa
2810: 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73  ges (hostname, s
2820: 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65  ha1, package, ve
2830: 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72  rsion, os, cpuAr
2840: 63 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61  ch, isLatest, ha
2850: 76 65 4d 61 6e 69 66 65 73 74 29 20 56 41 4c 55  veManifest) VALU
2860: 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24  ES ($hostname, $
2870: 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c 20 24  pkgInfo(hash), $
2880: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
2890: 2c 20 24 70 6b 67 49 6e 66 6f 28 76 65 72 73 69  , $pkgInfo(versi
28a0: 6f 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f 73  on), $pkgInfo(os
28b0: 29 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70 75 41  ), $pkgInfo(cpuA
28c0: 72 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 69  rch), $pkgInfo(i
28d0: 73 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a 0a  sLatest), 0);}..
28e0: 09 09 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f  ..}....# Look fo
28f0: 72 20 70 61 63 6b 61 67 65 73 20 74 68 61 74 20  r packages that 
2900: 68 61 76 65 20 62 65 65 6e 20 64 65 6c 65 74 65  have been delete
2910: 64 0a 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61  d...set found_pa
2920: 63 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20  ckages [db eval 
2930: 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f  {SELECT sha1 FRO
2940: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
2950: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73   hostname = $hos
2960: 74 6e 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61  tname;}]...forea
2970: 63 68 20 70 61 63 6b 61 67 65 20 24 66 6f 75 6e  ch package $foun
2980: 64 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09  d_packages {....
2990: 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67  set found_packag
29a0: 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29  es_arr($package)
29b0: 20 31 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63   1...}....foreac
29c0: 68 20 70 61 63 6b 61 67 65 20 24 63 75 72 72 5f  h package $curr_
29d0: 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e  packages {....un
29e0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
29f0: 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61  found_packages_a
2a00: 72 72 28 24 70 61 63 6b 61 67 65 29 0a 09 09 7d  rr($package)...}
2a10: 0a 0a 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b  ....foreach pack
2a20: 61 67 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  age [array names
2a30: 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f   found_packages_
2a40: 61 72 72 5d 20 7b 0a 09 09 09 64 62 20 65 76 61  arr] {....db eva
2a50: 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 70  l {DELETE FROM p
2a60: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
2a70: 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61  stname = $hostna
2a80: 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70  me AND sha1 = $p
2a90: 61 63 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09  ackage;}...}....
2aa0: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20  db eval {INSERT 
2ab0: 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20  OR REPLACE INTO 
2ac0: 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c  sites (hostname,
2ad0: 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c   lastUpdate, ttl
2ae0: 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e  ) VALUES ($hostn
2af0: 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70  ame, $now, $::ap
2b00: 70 66 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09 09 61  pfs::ttl);}....a
2b10: 70 70 66 73 64 3a 3a 67 65 74 5f 70 61 74 68 5f  ppfsd::get_path_
2b20: 69 6e 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68  info_cache_flush
2b30: 0a 0a 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c  ....return COMPL
2b40: 45 54 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65  ETE..}...proc ge
2b50: 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f  tpkgmanifest {ho
2b60: 73 74 6e 61 6d 65 20 70 61 63 6b 61 67 65 5f 73  stname package_s
2b70: 68 61 31 7d 20 7b 0a 09 09 73 65 74 20 68 61 76  ha1} {...set hav
2b80: 65 4d 61 6e 69 66 65 73 74 20 5b 64 62 20 6f 6e  eManifest [db on
2b90: 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20  ecolumn {SELECT 
2ba0: 68 61 76 65 4d 61 6e 69 66 65 73 74 20 46 52 4f  haveManifest FRO
2bb0: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
2bc0: 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65   sha1 = $package
2bd0: 5f 73 68 61 31 20 4c 49 4d 49 54 20 31 3b 7d 5d  _sha1 LIMIT 1;}]
2be0: 0a 0a 09 09 69 66 20 7b 24 68 61 76 65 4d 61 6e  ....if {$haveMan
2bf0: 69 66 65 73 74 20 3d 3d 20 22 31 22 7d 20 7b 0a  ifest == "1"} {.
2c00: 09 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45  ...return COMPLE
2c10: 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b  TE...}....if {![
2c20: 5f 69 73 48 61 73 68 20 24 70 61 63 6b 61 67 65  _isHash $package
2c30: 5f 73 68 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74  _sha1]} {....ret
2c40: 75 72 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09  urn FAIL...}....
2c50: 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f  set file [downlo
2c60: 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 70 61  ad $hostname $pa
2c70: 63 6b 61 67 65 5f 73 68 61 31 5d 0a 09 09 73 65  ckage_sha1]...se
2c80: 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65  t fd [open $file
2c90: 5d 0a 09 09 73 65 74 20 70 6b 67 64 61 74 61 20  ]...set pkgdata 
2ca0: 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 63 6c 6f  [read $fd]...clo
2cb0: 73 65 20 24 66 64 0a 0a 09 09 64 62 20 74 72 61  se $fd....db tra
2cc0: 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 09 09 66 6f  nsaction {....fo
2cd0: 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69  reach line [spli
2ce0: 74 20 24 70 6b 67 64 61 74 61 20 22 5c 6e 22 5d  t $pkgdata "\n"]
2cf0: 20 7b 0a 09 09 09 09 73 65 74 20 6c 69 6e 65 20   {.....set line 
2d00: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69  [string trim $li
2d10: 6e 65 5d 0a 0a 09 09 09 09 69 66 20 7b 24 6c 69  ne]......if {$li
2d20: 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09  ne == ""} {.....
2d30: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 7d 0a  .continue.....}.
2d40: 0a 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73  .....set work [s
2d50: 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a  plit $line ","].
2d60: 0a 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f  .....unset -noco
2d70: 6d 70 6c 61 69 6e 20 66 69 6c 65 49 6e 66 6f 0a  mplain fileInfo.
2d80: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
2d90: 28 74 79 70 65 29 20 5b 6c 69 6e 64 65 78 20 24  (type) [lindex $
2da0: 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65 74 20  work 0].....set 
2db0: 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65 29 20 5b  fileInfo(time) [
2dc0: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a  lindex $work 1].
2dd0: 0a 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c  .....set work [l
2de0: 72 61 6e 67 65 20 24 77 6f 72 6b 20 32 20 65 6e  range $work 2 en
2df0: 64 5d 0a 09 09 09 09 73 77 69 74 63 68 20 2d 2d  d].....switch --
2e00: 20 24 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29   $fileInfo(type)
2e10: 20 7b 0a 09 09 09 09 09 22 23 6d 61 6e 69 66 65   {......"#manife
2e20: 73 74 6d 65 74 61 64 61 74 61 22 20 7b 0a 09 09  stmetadata" {...
2e30: 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
2e40: 70 6c 61 69 6e 20 66 69 6c 65 49 6e 66 6f 0a 09  plain fileInfo..
2e50: 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09  .....continue...
2e60: 09 09 09 7d 0a 09 09 09 09 09 22 66 69 6c 65 22  ...}......"file"
2e70: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c   {.......set fil
2e80: 65 49 6e 66 6f 28 73 69 7a 65 29 20 5b 6c 69 6e  eInfo(size) [lin
2e90: 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09  dex $work 0]....
2ea0: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28  ...set fileInfo(
2eb0: 70 65 72 6d 73 29 20 5b 6c 69 6e 64 65 78 20 24  perms) [lindex $
2ec0: 77 6f 72 6b 20 31 5d 0a 09 09 09 09 09 09 73 65  work 1].......se
2ed0: 74 20 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29  t fileInfo(sha1)
2ee0: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 32   [lindex $work 2
2ef0: 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 77 6f 72  ]........set wor
2f00: 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20  k [lrange $work 
2f10: 33 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a 09 09  3 end]......}...
2f20: 09 09 09 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09  ..."symlink" {..
2f30: 09 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
2f40: 6f 28 73 6f 75 72 63 65 29 20 5b 6c 69 6e 64 65  o(source) [linde
2f50: 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09  x $work 0]......
2f60: 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67  .set work [lrang
2f70: 65 20 24 77 6f 72 6b 20 31 20 65 6e 64 5d 0a 09  e $work 1 end]..
2f80: 09 09 09 09 7d 0a 09 09 09 09 09 22 64 69 72 65  ....}......"dire
2f90: 63 74 6f 72 79 22 20 7b 0a 09 09 09 09 09 09 23  ctory" {.......#
2fa0: 20 4e 6f 20 65 78 74 72 61 20 64 61 74 61 20 72   No extra data r
2fb0: 65 71 75 69 72 65 64 0a 09 09 09 09 09 7d 0a 09  equired......}..
2fc0: 09 09 09 09 64 65 66 61 75 6c 74 20 7b 0a 09 09  ....default {...
2fd0: 09 09 09 09 23 20 48 61 6e 64 6c 65 20 75 6e 6b  ....# Handle unk
2fe0: 6e 6f 77 6e 20 74 79 70 65 73 0a 09 09 09 09 09  nown types......
2ff0: 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64  .if {[string ind
3000: 65 78 20 24 66 69 6c 65 49 6e 66 6f 28 74 79 70  ex $fileInfo(typ
3010: 65 29 20 30 5d 20 3d 3d 20 22 23 22 7d 20 7b 0a  e) 0] == "#"} {.
3020: 09 09 09 09 09 09 09 23 20 4d 65 74 61 64 61 74  .......# Metadat
3030: 61 20 74 79 70 65 2c 20 69 67 6e 6f 72 65 0a 09  a type, ignore..
3040: 09 09 09 09 09 09 23 20 69 74 20 69 66 20 77 65  ......# it if we
3050: 20 64 6f 6e 27 74 0a 09 09 09 09 09 09 09 23 20   don't........# 
3060: 75 6e 64 65 72 73 74 61 6e 64 20 74 68 69 73 20  understand this 
3070: 74 79 70 65 0a 09 09 09 09 09 09 09 63 6f 6e 74  type........cont
3080: 69 6e 75 65 0a 09 09 09 09 09 09 7d 20 65 6c 73  inue.......} els
3090: 65 20 7b 0a 09 09 09 09 09 09 09 23 20 55 6e 6b  e {........# Unk
30a0: 6e 6f 77 6e 20 74 79 70 65 2c 0a 09 09 09 09 09  nown type,......
30b0: 09 09 23 20 67 65 6e 65 72 61 74 65 20 61 6e 20  ..# generate an 
30c0: 65 72 72 6f 72 0a 09 09 09 09 09 09 09 65 72 72  error........err
30d0: 6f 72 20 22 4d 61 6e 69 66 65 73 74 20 63 61 6e  or "Manifest can
30e0: 6e 6f 74 20 62 65 20 70 61 72 73 65 64 22 0a 09  not be parsed"..
30f0: 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09  .....}......}...
3100: 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 66 69 6c  ..}......set fil
3110: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6a 6f 69  eInfo(name) [joi
3120: 6e 20 24 77 6f 72 6b 20 22 2c 22 5d 0a 09 09 09  n $work ","]....
3130: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61  .set fileInfo(na
3140: 6d 65 29 20 5b 73 70 6c 69 74 20 5b 73 74 72 69  me) [split [stri
3150: 6e 67 20 74 72 69 6d 20 24 66 69 6c 65 49 6e 66  ng trim $fileInf
3160: 6f 28 6e 61 6d 65 29 20 22 2f 22 5d 20 22 2f 22  o(name) "/"] "/"
3170: 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  ].....set fileIn
3180: 66 6f 28 64 69 72 65 63 74 6f 72 79 29 20 5b 6a  fo(directory) [j
3190: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 66 69 6c  oin [lrange $fil
31a0: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 30 20 65 6e  eInfo(name) 0 en
31b0: 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09 09 73 65  d-1] "/"].....se
31c0: 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29  t fileInfo(name)
31d0: 20 5b 6c 69 6e 64 65 78 20 24 66 69 6c 65 49 6e   [lindex $fileIn
31e0: 66 6f 28 6e 61 6d 65 29 20 65 6e 64 5d 0a 0a 09  fo(name) end]...
31f0: 09 09 09 64 62 20 65 76 61 6c 20 7b 49 4e 53 45  ...db eval {INSE
3200: 52 54 20 49 4e 54 4f 20 66 69 6c 65 73 20 28 70  RT INTO files (p
3210: 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70  ackage_sha1, typ
3220: 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c  e, time, source,
3230: 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69   size, perms, fi
3240: 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61  le_sha1, file_na
3250: 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f  me, file_directo
3260: 72 79 29 20 56 41 4c 55 45 53 20 28 24 70 61 63  ry) VALUES ($pac
3270: 6b 61 67 65 5f 73 68 61 31 2c 20 24 66 69 6c 65  kage_sha1, $file
3280: 49 6e 66 6f 28 74 79 70 65 29 2c 20 24 66 69 6c  Info(type), $fil
3290: 65 49 6e 66 6f 28 74 69 6d 65 29 2c 20 24 66 69  eInfo(time), $fi
32a0: 6c 65 49 6e 66 6f 28 73 6f 75 72 63 65 29 2c 20  leInfo(source), 
32b0: 24 66 69 6c 65 49 6e 66 6f 28 73 69 7a 65 29 2c  $fileInfo(size),
32c0: 20 24 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73   $fileInfo(perms
32d0: 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73 68 61  ), $fileInfo(sha
32e0: 31 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61  1), $fileInfo(na
32f0: 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 64  me), $fileInfo(d
3300: 69 72 65 63 74 6f 72 79 29 20 29 3b 7d 0a 09 09  irectory) );}...
3310: 09 09 64 62 20 65 76 61 6c 20 7b 55 50 44 41 54  ..db eval {UPDAT
3320: 45 20 70 61 63 6b 61 67 65 73 20 53 45 54 20 68  E packages SET h
3330: 61 76 65 4d 61 6e 69 66 65 73 74 20 3d 20 31 20  aveManifest = 1 
3340: 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 70 61  WHERE sha1 = $pa
3350: 63 6b 61 67 65 5f 73 68 61 31 3b 7d 0a 09 09 09  ckage_sha1;}....
3360: 7d 0a 09 09 7d 0a 0a 09 09 61 70 70 66 73 64 3a  }...}....appfsd:
3370: 3a 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63  :get_path_info_c
3380: 61 63 68 65 5f 66 6c 75 73 68 0a 0a 09 09 72 65  ache_flush....re
3390: 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d  turn COMPLETE..}
33a0: 0a 0a 09 70 72 6f 63 20 5f 6c 6f 63 61 6c 70 61  ...proc _localpa
33b0: 74 68 20 7b 70 61 63 6b 61 67 65 20 68 6f 73 74  th {package host
33c0: 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09 09 73  name file} {...s
33d0: 65 74 20 64 69 72 20 22 22 0a 09 09 63 61 74 63  et dir ""...catc
33e0: 68 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d 65 64  h {....set homed
33f0: 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65  ir [::appfs::use
3400: 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a  r::get_homedir].
3410: 09 09 09 73 65 74 20 64 69 72 20 5b 66 69 6c 65  ...set dir [file
3420: 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20 2e   join $homedir .
3430: 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b 61  appfs "./${packa
3440: 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d 22  ge}@${hostname}"
3450: 20 22 2e 2f 24 7b 66 69 6c 65 7d 22 5d 0a 09 09   "./${file}"]...
3460: 7d 0a 09 09 72 65 74 75 72 6e 20 24 64 69 72 0a  }...return $dir.
3470: 09 7d 0a 0a 09 70 72 6f 63 20 5f 77 68 69 74 65  .}...proc _white
3480: 6f 75 74 70 61 74 68 20 7b 70 61 63 6b 61 67 65  outpath {package
3490: 20 68 6f 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20   hostname file} 
34a0: 7b 0a 09 09 73 65 74 20 64 69 72 20 22 22 0a 09  {...set dir ""..
34b0: 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20  .catch {....set 
34c0: 68 6f 6d 65 64 69 72 20 5b 3a 3a 61 70 70 66 73  homedir [::appfs
34d0: 3a 3a 75 73 65 72 3a 3a 67 65 74 5f 68 6f 6d 65  ::user::get_home
34e0: 64 69 72 5d 0a 09 09 09 73 65 74 20 64 69 72 20  dir]....set dir 
34f0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d 65  [file join $home
3500: 64 69 72 20 2e 61 70 70 66 73 20 22 2e 2f 24 7b  dir .appfs "./${
3510: 70 61 63 6b 61 67 65 7d 40 24 7b 68 6f 73 74 6e  package}@${hostn
3520: 61 6d 65 7d 22 20 22 2e 41 50 50 46 53 2e 57 48  ame}" ".APPFS.WH
3530: 49 54 45 4f 55 54 22 20 22 2e 2f 24 7b 66 69 6c  ITEOUT" "./${fil
3540: 65 7d 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55  e}.APPFS.WHITEOU
3550: 54 22 5d 0a 09 09 7d 0a 09 09 72 65 74 75 72 6e  T"]...}...return
3560: 20 24 64 69 72 0a 09 7d 0a 0a 09 70 72 6f 63 20   $dir..}...proc 
3570: 5f 70 61 72 73 65 70 61 74 68 20 7b 70 61 74 68  _parsepath {path
3580: 7d 20 7b 0a 09 09 73 65 74 20 70 61 74 68 20 5b  } {...set path [
3590: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 70 61 74  string trim $pat
35a0: 68 20 22 2f 22 5d 0a 09 09 73 65 74 20 70 61 74  h "/"]...set pat
35b0: 68 20 5b 73 70 6c 69 74 20 24 70 61 74 68 20 22  h [split $path "
35c0: 2f 22 5d 0a 09 09 73 65 74 20 70 61 74 68 6c 65  /"]...set pathle
35d0: 6e 20 5b 6c 6c 65 6e 67 74 68 20 24 70 61 74 68  n [llength $path
35e0: 5d 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20 72  ]....array set r
35f0: 65 74 76 61 6c 20 5b 6c 69 73 74 20 5f 63 68 69  etval [list _chi
3600: 6c 64 72 65 6e 20 73 69 74 65 73 20 5f 74 79 70  ldren sites _typ
3610: 65 20 74 6f 70 6c 65 76 65 6c 5d 0a 0a 09 09 69  e toplevel]....i
3620: 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 30 7d  f {$pathlen > 0}
3630: 20 7b 0a 09 09 09 73 65 74 20 72 65 74 76 61 6c   {....set retval
3640: 28 68 6f 73 74 6e 61 6d 65 29 20 5b 6c 69 6e 64  (hostname) [lind
3650: 65 78 20 24 70 61 74 68 20 30 5d 0a 09 09 09 73  ex $path 0]....s
3660: 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64  et retval(_child
3670: 72 65 6e 29 20 70 61 63 6b 61 67 65 73 0a 09 09  ren) packages...
3680: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
3690: 65 29 20 73 69 74 65 73 0a 0a 09 09 09 69 66 20  e) sites.....if 
36a0: 7b 24 70 61 74 68 6c 65 6e 20 3e 20 31 7d 20 7b  {$pathlen > 1} {
36b0: 0a 09 09 09 09 73 65 74 20 70 61 63 6b 61 67 65  .....set package
36c0: 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20 31   [lindex $path 1
36d0: 5d 0a 09 09 09 09 69 66 20 7b 5b 73 74 72 69 6e  ].....if {[strin
36e0: 67 20 6c 65 6e 67 74 68 20 24 70 61 63 6b 61 67  g length $packag
36f0: 65 5d 20 3d 3d 20 22 34 30 22 20 26 26 20 5b 72  e] == "40" && [r
3700: 65 67 65 78 70 20 7b 5e 5b 61 2d 66 41 2d 46 30  egexp {^[a-fA-F0
3710: 2d 39 5d 2a 24 7d 20 24 70 61 63 6b 61 67 65 5d  -9]*$} $package]
3720: 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74  } {......set ret
3730: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
3740: 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09 09 09  ) $package......
3750: 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c  set retval(_chil
3760: 64 72 65 6e 29 20 66 69 6c 65 73 0a 09 09 09 09  dren) files.....
3770: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
3780: 65 29 20 66 69 6c 65 73 0a 0a 09 09 09 09 09 3a  e) files.......:
3790: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
37a0: 7b 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 2c  {SELECT package,
37b0: 20 6f 73 2c 20 63 70 75 41 72 63 68 2c 20 76 65   os, cpuArch, ve
37c0: 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61  rsion FROM packa
37d0: 67 65 73 20 57 48 45 52 45 20 73 68 61 31 20 3d  ges WHERE sha1 =
37e0: 20 24 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65   $retval(package
37f0: 5f 73 68 61 31 29 3b 7d 20 70 6b 67 69 6e 66 6f  _sha1);} pkginfo
3800: 20 7b 7d 0a 09 09 09 09 09 73 65 74 20 72 65 74   {}......set ret
3810: 76 61 6c 28 70 61 63 6b 61 67 65 29 20 24 70 6b  val(package) $pk
3820: 67 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 0a 09  ginfo(package)..
3830: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 6f  ....set retval(o
3840: 73 29 20 24 70 6b 67 69 6e 66 6f 28 6f 73 29 0a  s) $pkginfo(os).
3850: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3860: 63 70 75 29 20 24 70 6b 67 69 6e 66 6f 28 63 70  cpu) $pkginfo(cp
3870: 75 41 72 63 68 29 0a 09 09 09 09 09 73 65 74 20  uArch)......set 
3880: 72 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20  retval(version) 
3890: 24 70 6b 67 69 6e 66 6f 28 76 65 72 73 69 6f 6e  $pkginfo(version
38a0: 29 0a 0a 09 09 09 09 09 69 66 20 7b 24 70 61 74  ).......if {$pat
38b0: 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09  hlen > 2} {.....
38c0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
38d0: 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65  e) [join [lrange
38e0: 20 24 70 61 74 68 20 32 20 65 6e 64 5d 20 22 2f   $path 2 end] "/
38f0: 22 5d 0a 09 09 09 09 09 7d 20 65 6c 73 65 20 7b  "]......} else {
3900: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
3910: 6c 28 66 69 6c 65 29 20 22 22 0a 09 09 09 09 09  l(file) ""......
3920: 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  }.....} else {..
3930: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
3940: 61 63 6b 61 67 65 29 20 24 70 61 63 6b 61 67 65  ackage) $package
3950: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3960: 28 5f 63 68 69 6c 64 72 65 6e 29 20 6f 73 2d 63  (_children) os-c
3970: 70 75 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  pu......set retv
3980: 61 6c 28 5f 74 79 70 65 29 20 70 61 63 6b 61 67  al(_type) packag
3990: 65 73 0a 0a 09 09 09 09 09 69 66 20 7b 24 70 61  es.......if {$pa
39a0: 74 68 6c 65 6e 20 3e 20 32 7d 20 7b 0a 09 09 09  thlen > 2} {....
39b0: 09 09 09 73 65 74 20 6f 73 5f 63 70 75 20 5b 6c  ...set os_cpu [l
39c0: 69 6e 64 65 78 20 24 70 61 74 68 20 32 5d 0a 09  index $path 2]..
39d0: 09 09 09 09 09 73 65 74 20 6f 73 5f 63 70 75 20  .....set os_cpu 
39e0: 5b 73 70 6c 69 74 20 24 6f 73 5f 63 70 75 20 22  [split $os_cpu "
39f0: 2d 22 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 72  -"]........set r
3a00: 65 74 76 61 6c 28 6f 73 29 20 5b 5f 6e 6f 72 6d  etval(os) [_norm
3a10: 61 6c 69 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20  alizeOS [lindex 
3a20: 24 6f 73 5f 63 70 75 20 30 5d 20 31 5d 0a 09 09  $os_cpu 0] 1]...
3a30: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
3a40: 70 75 29 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43  pu) [_normalizeC
3a50: 50 55 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63  PU [lindex $os_c
3a60: 70 75 20 31 5d 20 31 5d 0a 09 09 09 09 09 09 73  pu 1] 1].......s
3a70: 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64  et retval(_child
3a80: 72 65 6e 29 20 76 65 72 73 69 6f 6e 73 0a 09 09  ren) versions...
3a90: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
3aa0: 74 79 70 65 29 20 6f 73 2d 63 70 75 0a 0a 09 09  type) os-cpu....
3ab0: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e  ....if {$pathlen
3ac0: 20 3e 20 33 7d 20 7b 0a 09 09 09 09 09 09 09 73   > 3} {........s
3ad0: 65 74 20 72 65 74 76 61 6c 28 76 65 72 73 69 6f  et retval(versio
3ae0: 6e 29 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68  n) [lindex $path
3af0: 20 33 5d 0a 09 09 09 09 09 09 09 73 65 74 20 72   3]........set r
3b00: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
3b10: 20 66 69 6c 65 73 0a 09 09 09 09 09 09 09 73 65   files........se
3b20: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
3b30: 76 65 72 73 69 6f 6e 73 0a 0a 09 09 09 09 09 09  versions........
3b40: 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b  .set retval(pack
3b50: 61 67 65 5f 73 68 61 31 29 20 5b 3a 3a 61 70 70  age_sha1) [::app
3b60: 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e  fs::db onecolumn
3b70: 20 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46 52   {SELECT sha1 FR
3b80: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
3b90: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 72 65  E hostname = $re
3ba0: 74 76 61 6c 28 68 6f 73 74 6e 61 6d 65 29 20 41  tval(hostname) A
3bb0: 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 72 65  ND package = $re
3bc0: 74 76 61 6c 28 70 61 63 6b 61 67 65 29 20 41 4e  tval(package) AN
3bd0: 44 20 6f 73 20 3d 20 24 72 65 74 76 61 6c 28 6f  D os = $retval(o
3be0: 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d  s) AND cpuArch =
3bf0: 20 24 72 65 74 76 61 6c 28 63 70 75 29 20 41 4e   $retval(cpu) AN
3c00: 44 20 76 65 72 73 69 6f 6e 20 3d 20 24 72 65 74  D version = $ret
3c10: 76 61 6c 28 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a  val(version);}].
3c20: 09 09 09 09 09 09 09 69 66 20 7b 24 72 65 74 76  .......if {$retv
3c30: 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29  al(package_sha1)
3c40: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09   == ""} {.......
3c50: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68  ..set retval(_ch
3c60: 69 6c 64 72 65 6e 29 20 64 65 61 64 0a 09 09 09  ildren) dead....
3c70: 09 09 09 09 09 72 65 74 75 72 6e 20 5b 61 72 72  .....return [arr
3c80: 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d 0a 09  ay get retval]..
3c90: 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 09  ......}.........
3ca0: 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 34  if {$pathlen > 4
3cb0: 7d 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20  } {.........set 
3cc0: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66 69  retval(_type) fi
3cd0: 6c 65 73 0a 09 09 09 09 09 09 09 09 73 65 74 20  les.........set 
3ce0: 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a 6f  retval(file) [jo
3cf0: 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61 74 68  in [lrange $path
3d00: 20 34 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09 09   4 end] "/"]....
3d10: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
3d20: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3d30: 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 09 09 09  _type) files....
3d40: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3d50: 66 69 6c 65 29 20 22 22 0a 09 09 09 09 09 09 09  file) ""........
3d60: 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d  }.......}......}
3d70: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a  .....}....}...}.
3d80: 0a 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79  ...return [array
3d90: 20 67 65 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a   get retval]..}.
3da0: 0a 09 70 72 6f 63 20 67 65 74 63 68 69 6c 64 72  ..proc getchildr
3db0: 65 6e 20 7b 64 69 72 7d 20 7b 0a 09 09 61 72 72  en {dir} {...arr
3dc0: 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20  ay set pathinfo 
3dd0: 5b 5f 70 61 72 73 65 70 61 74 68 20 24 64 69 72  [_parsepath $dir
3de0: 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24  ]....switch -- $
3df0: 70 61 74 68 69 6e 66 6f 28 5f 63 68 69 6c 64 72  pathinfo(_childr
3e00: 65 6e 29 20 7b 0a 09 09 09 22 73 69 74 65 73 22  en) {...."sites"
3e10: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 5b 3a   {.....return [:
3e20: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
3e30: 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54  {SELECT DISTINCT
3e40: 20 68 6f 73 74 6e 61 6d 65 20 46 52 4f 4d 20 70   hostname FROM p
3e50: 61 63 6b 61 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a  ackages;}]....}.
3e60: 09 09 09 22 70 61 63 6b 61 67 65 73 22 20 7b 0a  ..."packages" {.
3e70: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09  ....catch {.....
3e80: 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64  .::appfs::getind
3e90: 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  ex $pathinfo(hos
3ea0: 74 6e 61 6d 65 29 0a 09 09 09 09 7d 0a 0a 09 09  tname).....}....
3eb0: 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66  ..return [::appf
3ec0: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
3ed0: 43 54 20 44 49 53 54 49 4e 43 54 20 70 61 63 6b  CT DISTINCT pack
3ee0: 61 67 65 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  age FROM package
3ef0: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
3f00: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
3f10: 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09  tname);}]....}..
3f20: 09 09 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09  .."os-cpu" {....
3f30: 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61  .set retval [::a
3f40: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53  ppfs::db eval {S
3f50: 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 6f  ELECT DISTINCT o
3f60: 73 20 7c 7c 20 22 2d 22 20 7c 7c 20 63 70 75 41  s || "-" || cpuA
3f70: 72 63 68 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  rch FROM package
3f80: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
3f90: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
3fa0: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
3fb0: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
3fc0: 61 63 6b 61 67 65 29 3b 7d 5d 0a 0a 09 09 09 09  ackage);}]......
3fd0: 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22  lappend retval "
3fe0: 70 6c 61 74 66 6f 72 6d 22 0a 0a 09 09 09 09 72  platform"......r
3ff0: 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09  eturn $retval...
4000: 09 7d 0a 09 09 09 22 76 65 72 73 69 6f 6e 73 22  .}...."versions"
4010: 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74 76 61   {.....set retva
4020: 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65  l [::appfs::db e
4030: 76 61 6c 20 7b 0a 09 09 09 09 09 53 45 4c 45 43  val {......SELEC
4040: 54 20 44 49 53 54 49 4e 43 54 20 76 65 72 73 69  T DISTINCT versi
4050: 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  on FROM packages
4060: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20   WHERE hostname 
4070: 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  = $pathinfo(host
4080: 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67  name) AND packag
4090: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  e = $pathinfo(pa
40a0: 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20  ckage) AND os = 
40b0: 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e  $pathinfo(os) AN
40c0: 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61 74  D cpuArch = $pat
40d0: 68 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09 09  hinfo(cpu);.....
40e0: 7d 5d 0a 0a 09 09 09 09 3a 3a 61 70 70 66 73 3a  }]......::appfs:
40f0: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  :db eval {SELECT
4100: 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61   version FROM pa
4110: 63 6b 61 67 65 73 20 57 48 45 52 45 20 69 73 4c  ckages WHERE isL
4120: 61 74 65 73 74 20 3d 20 31 20 41 4e 44 20 68 6f  atest = 1 AND ho
4130: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
4140: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44  fo(hostname) AND
4150: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68   package = $path
4160: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e  info(package) AN
4170: 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f  D os = $pathinfo
4180: 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68  (os) AND cpuArch
4190: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75   = $pathinfo(cpu
41a0: 29 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61 74 65  ) LIMIT 1;} late
41b0: 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09  st_info {}......
41c0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
41d0: 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76 65 72   latest_info(ver
41e0: 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09 09 6c  sion)]} {......l
41f0: 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 6c  append retval "l
4200: 61 74 65 73 74 22 0a 09 09 09 09 7d 0a 0a 09 09  atest".....}....
4210: 09 09 72 65 74 75 72 6e 20 24 72 65 74 76 61 6c  ..return $retval
4220: 0a 09 09 09 7d 0a 09 09 09 22 66 69 6c 65 73 22  ....}...."files"
4230: 20 7b 0a 09 09 09 09 63 61 74 63 68 20 7b 0a 09   {.....catch {..
4240: 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74  ....::appfs::get
4250: 69 6e 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28  index $pathinfo(
4260: 68 6f 73 74 6e 61 6d 65 29 0a 09 09 09 09 09 3a  hostname)......:
4270: 3a 61 70 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61  :appfs::getpkgma
4280: 6e 69 66 65 73 74 20 24 70 61 74 68 69 6e 66 6f  nifest $pathinfo
4290: 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68  (hostname) $path
42a0: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61  info(package_sha
42b0: 31 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65  1).....}......se
42c0: 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66  t retval [::appf
42d0: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
42e0: 43 54 20 44 49 53 54 49 4e 43 54 20 66 69 6c 65  CT DISTINCT file
42f0: 5f 6e 61 6d 65 20 46 52 4f 4d 20 66 69 6c 65 73  _name FROM files
4300: 20 57 48 45 52 45 20 70 61 63 6b 61 67 65 5f 73   WHERE package_s
4310: 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ha1 = $pathinfo(
4320: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 41 4e  package_sha1) AN
4330: 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79  D file_directory
4340: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c   = $pathinfo(fil
4350: 65 29 3b 7d 5d 0a 0a 09 09 09 09 69 66 20 7b 5b  e);}]......if {[
4360: 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68  info exists path
4370: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 5d 20 26  info(package)] &
4380: 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70  & [info exists p
4390: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
43a0: 29 5d 20 26 26 20 5b 69 6e 66 6f 20 65 78 69 73  )] && [info exis
43b0: 74 73 20 70 61 74 68 69 6e 66 6f 28 66 69 6c 65  ts pathinfo(file
43c0: 29 5d 7d 20 7b 0a 09 09 09 09 09 5f 61 73 5f 75  )]} {......_as_u
43d0: 73 65 72 20 7b 0a 09 09 09 09 09 09 73 65 74 20  ser {.......set 
43e0: 64 69 72 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20  dir [_localpath 
43f0: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
4400: 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  e) $pathinfo(hos
4410: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f  tname) $pathinfo
4420: 28 66 69 6c 65 29 5d 0a 09 09 09 09 09 09 73 65  (file)].......se
4430: 74 20 77 68 69 74 65 6f 75 74 64 69 72 20 5b 73  t whiteoutdir [s
4440: 74 72 69 6e 67 20 72 61 6e 67 65 20 5b 5f 77 68  tring range [_wh
4450: 69 74 65 6f 75 74 70 61 74 68 20 24 70 61 74 68  iteoutpath $path
4460: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70  info(package) $p
4470: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
4480: 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65  ) $pathinfo(file
4490: 29 5d 20 30 20 65 6e 64 2d 31 35 5d 0a 0a 09 09  )] 0 end-15]....
44a0: 09 09 09 09 69 66 20 7b 24 77 68 69 74 65 6f 75  ....if {$whiteou
44b0: 74 64 69 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09  tdir != ""} {...
44c0: 09 09 09 09 09 66 6f 72 65 61 63 68 20 66 69 6c  .....foreach fil
44d0: 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c  e [glob -nocompl
44e0: 61 69 6e 20 2d 74 61 69 6c 73 20 2d 64 69 72 65  ain -tails -dire
44f0: 63 74 6f 72 79 20 24 77 68 69 74 65 6f 75 74 64  ctory $whiteoutd
4500: 69 72 20 7b 7b 2e 2c 7d 2a 2e 41 50 50 46 53 2e  ir {{.,}*.APPFS.
4510: 57 48 49 54 45 4f 55 54 7d 5d 20 7b 0a 09 09 09  WHITEOUT}] {....
4520: 09 09 09 09 09 73 65 74 20 72 65 6d 6f 76 65 20  .....set remove 
4530: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66  [string range $f
4540: 69 6c 65 20 30 20 65 6e 64 2d 31 35 5d 0a 09 09  ile 0 end-15]...
4550: 09 09 09 09 09 09 73 65 74 20 69 64 78 20 5b 6c  ......set idx [l
4560: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 72  search -exact $r
4570: 65 74 76 61 6c 20 24 72 65 6d 6f 76 65 5d 0a 09  etval $remove]..
4580: 09 09 09 09 09 09 09 69 66 20 7b 24 69 64 78 20  .......if {$idx 
4590: 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09  != -1} {........
45a0: 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 72  ..set retval [lr
45b0: 65 70 6c 61 63 65 20 24 72 65 74 76 61 6c 20 24  eplace $retval $
45c0: 69 64 78 20 24 69 64 78 5d 0a 09 09 09 09 09 09  idx $idx].......
45d0: 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09  ..}........}....
45e0: 09 09 09 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b  ...}........if {
45f0: 24 64 69 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09  $dir != ""} {...
4600: 09 09 09 09 09 66 6f 72 65 61 63 68 20 66 69 6c  .....foreach fil
4610: 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c  e [glob -nocompl
4620: 61 69 6e 20 2d 74 61 69 6c 73 20 2d 64 69 72 65  ain -tails -dire
4630: 63 74 6f 72 79 20 24 64 69 72 20 7b 7b 2e 2c 7d  ctory $dir {{.,}
4640: 2a 7d 5d 20 7b 0a 09 09 09 09 09 09 09 09 69 66  *}] {.........if
4650: 20 7b 24 66 69 6c 65 20 3d 3d 20 22 2e 22 20 7c   {$file == "." |
4660: 7c 20 24 66 69 6c 65 20 3d 3d 20 22 2e 2e 22 7d  | $file == ".."}
4670: 20 7b 0a 09 09 09 09 09 09 09 09 09 63 6f 6e 74   {..........cont
4680: 69 6e 75 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a  inue.........}..
4690: 09 09 09 09 09 09 09 09 69 66 20 7b 24 66 69 6c  ........if {$fil
46a0: 65 20 3d 3d 20 22 2e 41 50 50 46 53 2e 57 48 49  e == ".APPFS.WHI
46b0: 54 45 4f 55 54 22 7d 20 7b 0a 09 09 09 09 09 09  TEOUT"} {.......
46c0: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09  ...continue.....
46d0: 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 69  ....}..........i
46e0: 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61  f {[lsearch -exa
46f0: 63 74 20 24 72 65 74 76 61 6c 20 24 66 69 6c 65  ct $retval $file
4700: 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09  ] != -1} {......
4710: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
4720: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 09  .....}..........
4730: 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 24  lappend retval $
4740: 66 69 6c 65 0a 09 09 09 09 09 09 09 7d 0a 09 09  file........}...
4750: 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09  ....}......}....
4760: 09 7d 0a 0a 09 09 09 09 72 65 74 75 72 6e 20 24  .}......return $
4770: 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 09 7d 0a  retval....}...}.
4780: 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
4790: 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 6f  error "Invalid o
47a0: 72 20 75 6e 61 63 63 65 70 74 61 62 6c 65 20 70  r unacceptable p
47b0: 61 74 68 3a 20 24 64 69 72 22 0a 09 7d 0a 0a 09  ath: $dir"..}...
47c0: 70 72 6f 63 20 67 65 74 61 74 74 72 20 7b 70 61  proc getattr {pa
47d0: 74 68 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65  th} {...array se
47e0: 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72  t pathinfo [_par
47f0: 73 65 70 61 74 68 20 24 70 61 74 68 5d 0a 09 09  sepath $path]...
4800: 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c  array set retval
4810: 20 5b 6c 69 73 74 5d 0a 0a 09 09 63 61 74 63 68   [list]....catch
4820: 20 7b 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67   {....::appfs::g
4830: 65 74 69 6e 64 65 78 20 24 70 61 74 68 69 6e 66  etindex $pathinf
4840: 6f 28 68 6f 73 74 6e 61 6d 65 29 0a 09 09 09 3a  o(hostname)....:
4850: 3a 61 70 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61  :appfs::getpkgma
4860: 6e 69 66 65 73 74 20 24 70 61 74 68 69 6e 66 6f  nifest $pathinfo
4870: 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68  (hostname) $path
4880: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61  info(package_sha
4890: 31 29 0a 09 09 7d 0a 0a 09 09 73 77 69 74 63 68  1)...}....switch
48a0: 20 2d 2d 20 24 70 61 74 68 69 6e 66 6f 28 5f 74   -- $pathinfo(_t
48b0: 79 70 65 29 20 7b 0a 09 09 09 22 74 6f 70 6c 65  ype) {...."tople
48c0: 76 65 6c 22 20 7b 0a 09 09 09 09 73 65 74 20 72  vel" {.....set r
48d0: 65 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65  etval(type) dire
48e0: 63 74 6f 72 79 0a 09 09 09 09 73 65 74 20 72 65  ctory.....set re
48f0: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
4900: 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68   [llength [getch
4910: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09  ildren $path]]..
4920: 09 09 7d 0a 09 09 09 22 73 69 74 65 73 22 20 7b  ..}...."sites" {
4930: 0a 09 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b  .....set check [
4940: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63  ::appfs::db onec
4950: 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31 20  olumn {SELECT 1 
4960: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
4970: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
4980: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
4990: 65 29 3b 7d 5d 0a 09 09 09 09 69 66 20 7b 24 63  e);}].....if {$c
49a0: 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09  heck == "1"} {..
49b0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74  ....set retval(t
49c0: 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09  ype) directory..
49d0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
49e0: 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e  hildcount) [llen
49f0: 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e  gth [getchildren
4a00: 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 7d 0a 09   $path]].....}..
4a10: 09 09 7d 0a 09 09 09 22 70 61 63 6b 61 67 65 73  ..}...."packages
4a20: 22 20 7b 0a 09 09 09 09 73 65 74 20 63 68 65 63  " {.....set chec
4a30: 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f  k [::appfs::db o
4a40: 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54  necolumn {SELECT
4a50: 20 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73   1 FROM packages
4a60: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20   WHERE hostname 
4a70: 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  = $pathinfo(host
4a80: 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67  name) AND packag
4a90: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  e = $pathinfo(pa
4aa0: 63 6b 61 67 65 29 3b 7d 5d 0a 09 09 09 09 69 66  ckage);}].....if
4ab0: 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d   {$check == "1"}
4ac0: 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76   {......set retv
4ad0: 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74 6f  al(type) directo
4ae0: 72 79 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  ry......set retv
4af0: 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b  al(childcount) [
4b00: 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c  llength [getchil
4b10: 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09  dren $path]]....
4b20: 09 7d 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63  .}....}...."os-c
4b30: 70 75 22 20 7b 0a 09 09 09 09 69 66 20 7b 24 70  pu" {.....if {$p
4b40: 61 74 68 69 6e 66 6f 28 6f 73 29 20 3d 3d 20 22  athinfo(os) == "
4b50: 70 6c 61 74 66 6f 72 6d 22 20 26 26 20 24 70 61  platform" && $pa
4b60: 74 68 69 6e 66 6f 28 63 70 75 29 20 3d 3d 20 22  thinfo(cpu) == "
4b70: 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 63 68  "} {......set ch
4b80: 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62  eck [::appfs::db
4b90: 20 65 76 61 6c 20 7b 0a 09 09 09 09 09 09 53 45   eval {.......SE
4ba0: 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 6f 73  LECT DISTINCT os
4bb0: 2c 20 63 70 75 41 72 63 68 20 46 52 4f 4d 20 70  , cpuArch FROM p
4bc0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
4bd0: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
4be0: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44  fo(hostname) AND
4bf0: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68   package = $path
4c00: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 3b 0a 09  info(package);..
4c10: 09 09 09 09 7d 5d 0a 0a 09 09 09 09 09 73 65 74  ....}].......set
4c20: 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 73 79   retval(type) sy
4c30: 6d 6c 69 6e 6b 0a 0a 09 09 09 09 09 69 66 20 7b  mlink.......if {
4c40: 24 63 68 65 63 6b 20 3d 3d 20 5b 6c 69 73 74 20  $check == [list 
4c50: 22 6e 6f 61 72 63 68 22 20 22 6e 6f 61 72 63 68  "noarch" "noarch
4c60: 22 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20  "]} {.......set 
4c70: 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29 20 22  retval(source) "
4c80: 6e 6f 61 72 63 68 2d 6e 6f 61 72 63 68 22 0a 09  noarch-noarch"..
4c90: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
4ca0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f  ...set retval(so
4cb0: 75 72 63 65 29 20 24 3a 3a 61 70 70 66 73 3a 3a  urce) $::appfs::
4cc0: 70 6c 61 74 66 6f 72 6d 0a 09 09 09 09 09 7d 0a  platform......}.
4cd0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
4ce0: 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61  ..set check [::a
4cf0: 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75  ppfs::db onecolu
4d00: 6d 6e 20 7b 0a 09 09 09 09 09 09 53 45 4c 45 43  mn {.......SELEC
4d10: 54 20 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  T 1 FROM package
4d20: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
4d30: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
4d40: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
4d50: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
4d60: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d  ackage) AND os =
4d70: 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41   $pathinfo(os) A
4d80: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61  ND cpuArch = $pa
4d90: 74 68 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09  thinfo(cpu);....
4da0: 09 09 7d 5d 0a 09 09 09 09 09 69 66 20 7b 24 63  ..}]......if {$c
4db0: 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09  heck == "1"} {..
4dc0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
4dd0: 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a  type) directory.
4de0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
4df0: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c  (childcount) [ll
4e00: 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72  ength [getchildr
4e10: 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09  en $path]]......
4e20: 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09  }.....}....}....
4e30: 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09  "versions" {....
4e40: 09 69 66 20 7b 24 70 61 74 68 69 6e 66 6f 28 76  .if {$pathinfo(v
4e50: 65 72 73 69 6f 6e 29 20 3d 3d 20 22 6c 61 74 65  ersion) == "late
4e60: 73 74 22 7d 20 7b 0a 09 09 09 09 09 3a 3a 61 70  st"} {......::ap
4e70: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
4e80: 4c 45 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f  LECT version FRO
4e90: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
4ea0: 20 69 73 4c 61 74 65 73 74 20 3d 20 31 20 41 4e   isLatest = 1 AN
4eb0: 44 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  D hostname = $pa
4ec0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
4ed0: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24   AND package = $
4ee0: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
4ef0: 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68  ) AND os = $path
4f00: 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75  info(os) AND cpu
4f10: 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f  Arch = $pathinfo
4f20: 28 63 70 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20  (cpu) LIMIT 1;} 
4f30: 6c 61 74 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a  latest_info {}..
4f40: 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65  .....if {[info e
4f50: 78 69 73 74 73 20 6c 61 74 65 73 74 5f 69 6e 66  xists latest_inf
4f60: 6f 28 76 65 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09  o(version)]} {..
4f70: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
4f80: 74 79 70 65 29 20 73 79 6d 6c 69 6e 6b 0a 09 09  type) symlink...
4f90: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73  ....set retval(s
4fa0: 6f 75 72 63 65 29 20 24 6c 61 74 65 73 74 5f 69  ource) $latest_i
4fb0: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 09 09 09  nfo(version)....
4fc0: 09 09 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b  ..}.....} else {
4fd0: 0a 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20  ......if {[info 
4fe0: 65 78 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28  exists pathinfo(
4ff0: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 5d 20 26  package_sha1)] &
5000: 26 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  & $pathinfo(pack
5010: 61 67 65 5f 73 68 61 31 29 20 21 3d 20 22 22 7d  age_sha1) != ""}
5020: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65 74   {.......set ret
5030: 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74  val(type) direct
5040: 6f 72 79 0a 09 09 09 09 09 09 73 65 74 20 72 65  ory.......set re
5050: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
5060: 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68   [llength [getch
5070: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09  ildren $path]]..
5080: 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d  ....}.....}....}
5090: 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 09  ...."files" {...
50a0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63  ..set retval(pac
50b0: 6b 61 67 65 64 29 20 31 0a 0a 09 09 09 09 73 65  kaged) 1......se
50c0: 74 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f  t localpath [_lo
50d0: 63 61 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66  calpath $pathinf
50e0: 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68  o(package) $path
50f0: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24  info(hostname) $
5100: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a  pathinfo(file)].
5110: 09 09 09 09 73 65 74 20 77 68 69 74 65 6f 75 74  ....set whiteout
5120: 70 61 74 68 20 20 5b 5f 77 68 69 74 65 6f 75 74  path  [_whiteout
5130: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
5140: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
5150: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
5160: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09  hinfo(file)]....
5170: 09 09 73 65 74 20 72 65 74 76 61 6c 28 6c 6f 63  ..set retval(loc
5180: 61 6c 70 61 74 68 29 20 24 6c 6f 63 61 6c 70 61  alpath) $localpa
5190: 74 68 0a 09 09 09 09 73 65 74 20 72 65 74 76 61  th.....set retva
51a0: 6c 28 77 68 69 74 65 6f 75 74 70 61 74 68 29 20  l(whiteoutpath) 
51b0: 24 77 68 69 74 65 6f 75 74 70 61 74 68 0a 0a 09  $whiteoutpath...
51c0: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
51d0: 6c 61 69 6e 20 6c 6f 63 61 6c 70 61 74 68 69 6e  lain localpathin
51e0: 66 6f 0a 09 09 09 09 69 66 20 7b 24 6c 6f 63 61  fo.....if {$loca
51f0: 6c 70 61 74 68 20 21 3d 20 22 22 7d 20 7b 0a 09  lpath != ""} {..
5200: 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09  ...._as_user {..
5210: 09 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09  .....catch {....
5220: 09 09 09 09 66 69 6c 65 20 6c 73 74 61 74 20 24  ....file lstat $
5230: 6c 6f 63 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70  localpath localp
5240: 61 74 68 69 6e 66 6f 0a 09 09 09 09 09 09 7d 0a  athinfo.......}.
5250: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09  .....}.....}....
5260: 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68  ..if {$localpath
5270: 20 21 3d 20 22 22 20 26 26 20 5b 69 6e 66 6f 20   != "" && [info 
5280: 65 78 69 73 74 73 20 6c 6f 63 61 6c 70 61 74 68  exists localpath
5290: 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09 09 09 73 65  info]} {......se
52a0: 74 20 72 65 74 76 61 6c 28 69 73 5f 6c 6f 63 61  t retval(is_loca
52b0: 6c 66 69 6c 65 29 20 31 0a 09 09 09 09 09 63 61  lfile) 1......ca
52c0: 74 63 68 20 7b 0a 09 09 09 09 09 09 73 65 74 20  tch {.......set 
52d0: 72 65 74 76 61 6c 28 74 69 6d 65 29 20 24 6c 6f  retval(time) $lo
52e0: 63 61 6c 70 61 74 68 69 6e 66 6f 28 6d 74 69 6d  calpathinfo(mtim
52f0: 65 29 0a 0a 09 09 09 09 09 09 73 77 69 74 63 68  e)........switch
5300: 20 2d 2d 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e   -- $localpathin
5310: 66 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09  fo(type) {......
5320: 09 09 22 64 69 72 65 63 74 6f 72 79 22 20 7b 0a  .."directory" {.
5330: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
5340: 61 6c 28 74 79 70 65 29 20 22 64 69 72 65 63 74  al(type) "direct
5350: 6f 72 79 22 0a 09 09 09 09 09 09 09 09 73 65 74  ory".........set
5360: 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75   retval(childcou
5370: 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65  nt) [llength [ge
5380: 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d  tchildren $path]
5390: 5d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  ]........}......
53a0: 09 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09  .."file" {......
53b0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79  ...set retval(ty
53c0: 70 65 29 20 22 66 69 6c 65 22 0a 09 09 09 09 09  pe) "file"......
53d0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 69  ...set retval(si
53e0: 7a 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e  ze) $localpathin
53f0: 66 6f 28 73 69 7a 65 29 0a 09 09 09 09 09 09 09  fo(size)........
5400: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09  ._as_user {.....
5410: 09 09 09 09 09 69 66 20 7b 5b 66 69 6c 65 20 65  .....if {[file e
5420: 78 65 63 75 74 61 62 6c 65 20 24 6c 6f 63 61 6c  xecutable $local
5430: 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09 09 09 09  path]} {........
5440: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
5450: 72 6d 73 29 20 22 78 22 0a 09 09 09 09 09 09 09  rms) "x"........
5460: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
5470: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5480: 70 65 72 6d 73 29 20 22 22 0a 09 09 09 09 09 09  perms) "".......
5490: 09 09 09 7d 0a 09 09 09 09 09 09 09 09 7d 0a 09  ...}.........}..
54a0: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22  ......}........"
54b0: 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 09 09  link" {.........
54c0: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
54d0: 20 22 73 79 6d 6c 69 6e 6b 22 0a 0a 09 09 09 09   "symlink"......
54e0: 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09  ...._as_user {..
54f0: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
5500: 61 6c 28 73 6f 75 72 63 65 29 20 5b 66 69 6c 65  al(source) [file
5510: 20 72 65 61 64 6c 69 6e 6b 20 24 6c 6f 63 61 6c   readlink $local
5520: 70 61 74 68 5d 0a 09 09 09 09 09 09 09 09 7d 0a  path].........}.
5530: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
5540: 22 66 69 66 6f 22 20 7b 0a 09 09 09 09 09 09 09  "fifo" {........
5550: 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20 73  .# Capitalized s
5560: 6f 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74  o that the first
5570: 20 63 68 61 72 20 69 73 20 75 6e 69 71 75 65 0a   char is unique.
5580: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
5590: 61 6c 28 74 79 70 65 29 20 22 46 69 66 6f 22 0a  al(type) "Fifo".
55a0: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
55b0: 22 73 6f 63 6b 65 74 22 20 7b 0a 09 09 09 09 09  "socket" {......
55c0: 09 09 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64  ...# Capitalized
55d0: 20 73 6f 20 74 68 61 74 20 74 68 65 20 66 69 72   so that the fir
55e0: 73 74 20 63 68 61 72 20 69 73 20 75 6e 69 71 75  st char is uniqu
55f0: 65 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  e.........set re
5600: 74 76 61 6c 28 74 79 70 65 29 20 22 53 6f 63 6b  tval(type) "Sock
5610: 65 74 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09  et"........}....
5620: 09 09 09 7d 0a 09 09 09 09 09 7d 20 65 72 72 0a  ...}......} err.
5630: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
5640: 09 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 70  ..if {$whiteoutp
5650: 61 74 68 20 3d 3d 20 22 22 20 7c 7c 20 21 5b 66  ath == "" || ![f
5660: 69 6c 65 20 65 78 69 73 74 73 20 24 77 68 69 74  ile exists $whit
5670: 65 6f 75 74 70 61 74 68 5d 7d 20 7b 0a 09 09 09  eoutpath]} {....
5680: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 69 73  ...set retval(is
5690: 5f 72 65 6d 6f 74 65 66 69 6c 65 29 20 31 0a 0a  _remotefile) 1..
56a0: 09 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  ......set work [
56b0: 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f 28  split $pathinfo(
56c0: 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 09 09 09  file) "/"]......
56d0: 09 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b  .set directory [
56e0: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f  join [lrange $wo
56f0: 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d  rk 0 end-1] "/"]
5700: 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 20  .......set file 
5710: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 65 6e  [lindex $work en
5720: 64 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64  d]........if {$d
5730: 69 72 65 63 74 6f 72 79 20 3d 3d 20 22 22 20 26  irectory == "" &
5740: 26 20 24 66 69 6c 65 20 3d 3d 20 22 22 7d 20 7b  & $file == ""} {
5750: 0a 09 09 09 09 09 09 09 61 72 72 61 79 20 73 65  ........array se
5760: 74 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 20 74  t retval [list t
5770: 79 70 65 20 64 69 72 65 63 74 6f 72 79 5d 0a 09  ype directory]..
5780: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 3a 3a  .....}........::
5790: 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b  appfs::db eval {
57a0: 53 45 4c 45 43 54 20 74 79 70 65 2c 20 74 69 6d  SELECT type, tim
57b0: 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c  e, source, size,
57c0: 20 70 65 72 6d 73 20 46 52 4f 4d 20 66 69 6c 65   perms FROM file
57d0: 73 20 57 48 45 52 45 20 70 61 63 6b 61 67 65 5f  s WHERE package_
57e0: 73 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66 6f  sha1 = $pathinfo
57f0: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 41  (package_sha1) A
5800: 4e 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72  ND file_director
5810: 79 20 3d 20 24 64 69 72 65 63 74 6f 72 79 20 41  y = $directory A
5820: 4e 44 20 66 69 6c 65 5f 6e 61 6d 65 20 3d 20 24  ND file_name = $
5830: 66 69 6c 65 3b 7d 20 72 65 74 76 61 6c 20 7b 7d  file;} retval {}
5840: 0a 0a 09 09 09 09 09 09 69 66 20 7b 5b 69 6e 66  ........if {[inf
5850: 6f 20 65 78 69 73 74 73 20 72 65 74 76 61 6c 28  o exists retval(
5860: 74 79 70 65 29 5d 20 26 26 20 24 72 65 74 76 61  type)] && $retva
5870: 6c 28 74 79 70 65 29 20 3d 3d 20 22 64 69 72 65  l(type) == "dire
5880: 63 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 09 09  ctory"} {.......
5890: 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c  .set retval(chil
58a0: 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68  dcount) [llength
58b0: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
58c0: 61 74 68 5d 5d 0a 09 09 09 09 09 09 7d 0a 0a 09  ath]].......}...
58d0: 09 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f  .....unset -noco
58e0: 6d 70 6c 61 69 6e 20 72 65 74 76 61 6c 28 2a 29  mplain retval(*)
58f0: 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09  ......}.....}...
5900: 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  ..}...}....if {!
5910: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74  [info exists ret
5920: 76 61 6c 28 74 79 70 65 29 5d 7d 20 7b 0a 09 09  val(type)]} {...
5930: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
5940: 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69 6c  ror "No such fil
5950: 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 0a  e or directory".
5960: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61  ..}....return [a
5970: 72 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d  rray get retval]
5980: 0a 09 7d 0a 0a 09 70 72 6f 63 20 6f 70 65 6e 70  ..}...proc openp
5990: 61 74 68 20 7b 70 61 74 68 20 6d 6f 64 65 7d 20  ath {path mode} 
59a0: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
59b0: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61  thinfo [_parsepa
59c0: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20  th $path]....if 
59d0: 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65  {$pathinfo(_type
59e0: 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a  ) != "files"} {.
59f0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
5a00: 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74  error "invalid t
5a10: 79 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ype"...}....set 
5a20: 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61  localpath [_loca
5a30: 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28  lpath $pathinfo(
5a40: 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e  package) $pathin
5a50: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
5a60: 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09  thinfo(file)]...
5a70: 09 69 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 63  .if {$mode == "c
5a80: 72 65 61 74 65 22 7d 20 7b 0a 09 09 09 69 66 20  reate"} {....if 
5a90: 7b 24 6c 6f 63 61 6c 70 61 74 68 20 3d 3d 20 22  {$localpath == "
5aa0: 22 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  "} {.....return 
5ab0: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b  -code error "Ask
5ac0: 65 64 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75  ed to create, bu
5ad0: 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74  t no home direct
5ae0: 6f 72 79 2e 22 0a 09 09 09 7d 0a 0a 09 09 09 72  ory."....}.....r
5af0: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68  eturn $localpath
5b00: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6c 6f 63  ...}....if {$loc
5b10: 61 6c 70 61 74 68 20 21 3d 20 22 22 20 26 26 20  alpath != "" && 
5b20: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 6c 6f  [file exists $lo
5b30: 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 72  calpath]} {....r
5b40: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68  eturn $localpath
5b50: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 77 6f 72 6b  ...}....set work
5b60: 20 5b 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66   [split $pathinf
5b70: 6f 28 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 73  o(file) "/"]...s
5b80: 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6a 6f  et directory [jo
5b90: 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b  in [lrange $work
5ba0: 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09   0 end-1] "/"]..
5bb0: 09 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65  .set file [linde
5bc0: 78 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 09 09 3a  x $work end]...:
5bd0: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
5be0: 7b 53 45 4c 45 43 54 20 66 69 6c 65 5f 73 68 61  {SELECT file_sha
5bf0: 31 2c 20 70 65 72 6d 73 20 46 52 4f 4d 20 66 69  1, perms FROM fi
5c00: 6c 65 73 20 57 48 45 52 45 20 70 61 63 6b 61 67  les WHERE packag
5c10: 65 5f 73 68 61 31 20 3d 20 24 70 61 74 68 69 6e  e_sha1 = $pathin
5c20: 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29  fo(package_sha1)
5c30: 20 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65 20 3d   AND file_name =
5c40: 20 24 66 69 6c 65 20 41 4e 44 20 66 69 6c 65 5f   $file AND file_
5c50: 64 69 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72  directory = $dir
5c60: 65 63 74 6f 72 79 3b 7d 20 70 6b 67 70 61 74 68  ectory;} pkgpath
5c70: 69 6e 66 6f 20 7b 7d 0a 0a 09 09 69 66 20 7b 24  info {}....if {$
5c80: 70 6b 67 70 61 74 68 69 6e 66 6f 28 66 69 6c 65  pkgpathinfo(file
5c90: 5f 73 68 61 31 29 20 3d 3d 20 22 22 7d 20 7b 0a  _sha1) == ""} {.
5ca0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
5cb0: 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66  error "No such f
5cc0: 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79  ile or directory
5cd0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63  "...}....set loc
5ce0: 61 6c 63 61 63 68 65 66 69 6c 65 20 5b 64 6f 77  alcachefile [dow
5cf0: 6e 6c 6f 61 64 20 24 70 61 74 68 69 6e 66 6f 28  nload $pathinfo(
5d00: 68 6f 73 74 6e 61 6d 65 29 20 24 70 6b 67 70 61  hostname) $pkgpa
5d10: 74 68 69 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31  thinfo(file_sha1
5d20: 29 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64 65 20  )]....if {$mode 
5d30: 3d 3d 20 22 77 72 69 74 65 22 7d 20 7b 0a 09 09  == "write"} {...
5d40: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09  ._as_user {.....
5d50: 73 65 74 20 74 6d 70 6c 6f 63 61 6c 70 61 74 68  set tmplocalpath
5d60: 20 22 24 7b 6c 6f 63 61 6c 70 61 74 68 7d 2e 5b   "${localpath}.[
5d70: 65 78 70 72 20 72 61 6e 64 28 29 5d 5b 63 6c 6f  expr rand()][clo
5d80: 63 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 09  ck clicks]".....
5d90: 09 73 65 74 20 66 61 69 6c 65 64 20 30 0a 09 09  .set failed 0...
5da0: 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09  ..if {[catch {..
5db0: 09 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b  ....file mkdir [
5dc0: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 6c 6f  file dirname $lo
5dd0: 63 61 6c 70 61 74 68 5d 0a 09 09 09 09 09 66 69  calpath]......fi
5de0: 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d  le copy -force -
5df0: 2d 20 24 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c  - $localcachefil
5e00: 65 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a  e $tmplocalpath.
5e10: 0a 09 09 09 09 09 69 66 20 7b 24 70 6b 67 70 61  ......if {$pkgpa
5e20: 74 68 69 6e 66 6f 28 70 65 72 6d 73 29 20 3d 3d  thinfo(perms) ==
5e30: 20 22 78 22 7d 20 7b 0a 09 09 09 09 09 09 66 69   "x"} {.......fi
5e40: 6c 65 20 61 74 74 72 69 62 75 74 65 73 20 24 74  le attributes $t
5e50: 6d 70 6c 6f 63 61 6c 70 61 74 68 20 2d 70 65 72  mplocalpath -per
5e60: 6d 69 73 73 69 6f 6e 73 20 2b 78 0a 09 09 09 09  missions +x.....
5e70: 09 7d 0a 0a 09 09 09 09 09 66 69 6c 65 20 72 65  .}.......file re
5e80: 6e 61 6d 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24  name -force -- $
5e90: 74 6d 70 6c 6f 63 61 6c 70 61 74 68 20 24 6c 6f  tmplocalpath $lo
5ea0: 63 61 6c 70 61 74 68 0a 09 09 09 09 7d 20 65 72  calpath.....} er
5eb0: 72 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 66  r]} {......set f
5ec0: 61 69 6c 65 64 20 31 0a 09 09 09 09 7d 0a 09 09  ailed 1.....}...
5ed0: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 66  ..catch {......f
5ee0: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
5ef0: 65 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70 61  e -- $tmplocalpa
5f00: 74 68 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09  th.....}....}...
5f10: 09 09 69 66 20 7b 24 66 61 69 6c 65 64 7d 20 7b  ..if {$failed} {
5f20: 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  .....return -cod
5f30: 65 20 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09  e error $err....
5f40: 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f  }.....return $lo
5f50: 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72  calpath...}....r
5f60: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68  eturn $localcach
5f70: 65 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  efile..}...proc 
5f80: 6c 6f 63 61 6c 70 61 74 68 20 7b 70 61 74 68 7d  localpath {path}
5f90: 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70   {...array set p
5fa0: 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70  athinfo [_parsep
5fb0: 61 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66  ath $path]....if
5fc0: 20 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70   {$pathinfo(_typ
5fd0: 65 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b  e) != "files"} {
5fe0: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
5ff0: 20 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20   error "invalid 
6000: 74 79 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74  type"...}....set
6010: 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63   localpath [_loc
6020: 61 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f  alpath $pathinfo
6030: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69  (package) $pathi
6040: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
6050: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a  athinfo(file)]..
6060: 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70  ..return $localp
6070: 61 74 68 0a 09 7d 0a 0a 09 70 72 6f 63 20 65 78  ath..}...proc ex
6080: 69 73 74 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09  ists {path} {...
6090: 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 69  catch {....set i
60a0: 6e 66 6f 20 5b 67 65 74 61 74 74 72 20 24 70 61  nfo [getattr $pa
60b0: 74 68 5d 0a 09 09 7d 20 65 72 72 0a 0a 09 09 69  th]...} err....i
60c0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
60d0: 20 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09 69 66 20   info]} {....if 
60e0: 7b 24 65 72 72 20 3d 3d 20 22 4e 6f 20 73 75 63  {$err == "No suc
60f0: 68 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74  h file or direct
6100: 6f 72 79 22 7d 20 7b 0a 09 09 09 09 72 65 74 75  ory"} {.....retu
6110: 72 6e 20 5b 6c 69 73 74 5d 0a 09 09 09 7d 20 65  rn [list]....} e
6120: 6c 73 65 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  lse {.....return
6130: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72   -code error $er
6140: 72 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65  r....}...}....re
6150: 74 75 72 6e 20 24 69 6e 66 6f 0a 09 7d 0a 0a 09  turn $info..}...
6160: 70 72 6f 63 20 70 72 65 70 61 72 65 5f 74 6f 5f  proc prepare_to_
6170: 63 72 65 61 74 65 20 7b 70 61 74 68 20 7b 6d 75  create {path {mu
6180: 73 74 5f 6e 6f 74 5f 65 78 69 73 74 20 31 7d 7d  st_not_exist 1}}
6190: 20 7b 0a 09 09 69 66 20 7b 24 6d 75 73 74 5f 6e   {...if {$must_n
61a0: 6f 74 5f 65 78 69 73 74 7d 20 7b 0a 09 09 09 69  ot_exist} {....i
61b0: 66 20 7b 5b 65 78 69 73 74 73 20 24 70 61 74 68  f {[exists $path
61c0: 5d 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72  ] != ""} {.....r
61d0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
61e0: 72 20 22 46 69 6c 65 20 61 6c 72 65 61 64 79 20  r "File already 
61f0: 65 78 69 73 74 73 22 0a 09 09 09 7d 0a 09 09 7d  exists"....}...}
6200: 0a 0a 09 09 73 65 74 20 66 69 6c 65 6e 61 6d 65  ....set filename
6210: 20 5b 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74   [localpath $pat
6220: 68 5d 0a 0a 09 09 69 66 20 7b 24 66 69 6c 65 6e  h]....if {$filen
6230: 61 6d 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09  ame == ""} {....
6240: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
6250: 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 63 72 65  or "Asked to cre
6260: 61 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65  ate, but no home
6270: 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 09 09 7d   directory."...}
6280: 0a 0a 09 09 73 65 74 20 64 69 72 6e 61 6d 65 20  ....set dirname 
6290: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 66  [file dirname $f
62a0: 69 6c 65 6e 61 6d 65 5d 0a 0a 09 09 5f 61 73 5f  ilename]...._as_
62b0: 75 73 65 72 20 7b 0a 09 09 09 66 69 6c 65 20 6d  user {....file m
62c0: 6b 64 69 72 20 24 64 69 72 6e 61 6d 65 0a 09 09  kdir $dirname...
62d0: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c  }....return $fil
62e0: 65 6e 61 6d 65 0a 09 7d 0a 0a 09 70 72 6f 63 20  ename..}...proc 
62f0: 75 6e 6c 69 6e 6b 70 61 74 68 20 7b 70 61 74 68  unlinkpath {path
6300: 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20  } {...array set 
6310: 70 61 74 68 61 74 74 72 73 20 5b 65 78 69 73 74  pathattrs [exist
6320: 73 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b  s $path]....if {
6330: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61  ![info exists pa
6340: 74 68 61 74 74 72 73 28 70 61 63 6b 61 67 65 64  thattrs(packaged
6350: 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  )]} {....return 
6360: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e 76  -code error "inv
6370: 61 6c 69 64 20 74 79 70 65 22 0a 09 09 7d 0a 0a  alid type"...}..
6380: 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 74 68 20  ..set localpath 
6390: 24 70 61 74 68 61 74 74 72 73 28 6c 6f 63 61 6c  $pathattrs(local
63a0: 70 61 74 68 29 0a 0a 09 09 69 66 20 7b 24 6c 6f  path)....if {$lo
63b0: 63 61 6c 70 61 74 68 20 3d 3d 20 22 22 7d 20 7b  calpath == ""} {
63c0: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
63d0: 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f   error "Asked to
63e0: 20 64 65 6c 65 74 65 2c 20 62 75 74 20 6e 6f 20   delete, but no 
63f0: 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 2e 22  home directory."
6400: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66  ...}....if {[inf
6410: 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 74 74  o exists pathatt
6420: 72 73 28 69 73 5f 6c 6f 63 61 6c 66 69 6c 65 29  rs(is_localfile)
6430: 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 5b 66 69 6c  ]} {....if {[fil
6440: 65 20 69 73 64 69 72 65 63 74 6f 72 79 20 24 6c  e isdirectory $l
6450: 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09  ocalpath]} {....
6460: 09 73 65 74 20 63 68 69 6c 64 72 65 6e 20 5b 67  .set children [g
6470: 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68  etchildren $path
6480: 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 6c 6c 65 6e  ]......if {[llen
6490: 67 74 68 20 24 63 68 69 6c 64 72 65 6e 5d 20 21  gth $children] !
64a0: 3d 20 30 7d 20 7b 0a 09 09 09 09 09 72 65 74 75  = 0} {......retu
64b0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
64c0: 41 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 20  Asked to delete 
64d0: 6e 6f 6e 2d 65 6d 70 74 79 20 64 69 72 65 63 74  non-empty direct
64e0: 6f 72 79 22 0a 09 09 09 09 7d 0a 09 09 09 7d 0a  ory".....}....}.
64f0: 0a 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09  ...._as_user {..
6500: 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  ...file delete -
6510: 66 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61 6c 70  force -- $localp
6520: 61 74 68 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73  ath....}...} els
6530: 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  eif {[info exist
6540: 73 20 70 61 74 68 61 74 74 72 73 28 69 73 5f 72  s pathattrs(is_r
6550: 65 6d 6f 74 65 66 69 6c 65 29 5d 7d 20 7b 0a 09  emotefile)]} {..
6560: 09 09 69 66 20 7b 24 70 61 74 68 61 74 74 72 73  ..if {$pathattrs
6570: 28 74 79 70 65 29 20 3d 3d 20 22 64 69 72 65 63  (type) == "direc
6580: 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 73 65 74  tory"} {.....set
6590: 20 63 68 69 6c 64 72 65 6e 20 5b 67 65 74 63 68   children [getch
65a0: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 0a 0a 09  ildren $path]...
65b0: 09 09 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20  ...if {[llength 
65c0: 24 63 68 69 6c 64 72 65 6e 5d 20 21 3d 20 30 7d  $children] != 0}
65d0: 20 7b 0a 09 09 09 09 09 72 65 74 75 72 6e 20 2d   {......return -
65e0: 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65  code error "Aske
65f0: 64 20 74 6f 20 64 65 6c 65 74 65 20 6e 6f 6e 2d  d to delete non-
6600: 65 6d 70 74 79 20 64 69 72 65 63 74 6f 72 79 22  empty directory"
6610: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 20  .....}....}...} 
6620: 65 6c 73 65 20 7b 0a 09 09 09 72 65 74 75 72 6e  else {....return
6630: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e   -code error "Un
6640: 6b 6e 6f 77 6e 20 69 66 20 66 69 6c 65 20 69 73  known if file is
6650: 20 72 65 6d 6f 74 65 20 6f 72 20 6c 6f 63 61 6c   remote or local
6660: 20 21 3f 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20   !?"...}....set 
6670: 77 68 69 74 65 6f 75 74 66 69 6c 65 20 24 70 61  whiteoutfile $pa
6680: 74 68 61 74 74 72 73 28 77 68 69 74 65 6f 75 74  thattrs(whiteout
6690: 70 61 74 68 29 0a 09 09 73 65 74 20 77 68 69 74  path)...set whit
66a0: 65 6f 75 74 64 69 72 20 5b 66 69 6c 65 20 64 69  eoutdir [file di
66b0: 72 6e 61 6d 65 20 24 77 68 69 74 65 6f 75 74 66  rname $whiteoutf
66c0: 69 6c 65 5d 0a 0a 09 09 5f 61 73 5f 75 73 65 72  ile]...._as_user
66d0: 20 7b 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69 72   {....file mkdir
66e0: 20 24 77 68 69 74 65 6f 75 74 64 69 72 0a 09 09   $whiteoutdir...
66f0: 09 63 6c 6f 73 65 20 5b 6f 70 65 6e 20 24 77 68  .close [open $wh
6700: 69 74 65 6f 75 74 66 69 6c 65 20 77 5d 0a 09 09  iteoutfile w]...
6710: 7d 0a 09 7d 0a 7d 0a                             }..}.}.