Hex Artifact Content

Artifact 865f14848a9f750035ac80d0ab2fea82371e3a6b:


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 0a 09 23 20 55 73 65 72 2d 72 65 70 6c 61  }...# User-repla
0690: 63 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 74  cable function t
06a0: 6f 20 75 70 64 61 74 65 20 70 65 72 6d 69 73 73  o update permiss
06b0: 69 6f 6e 73 0a 09 70 72 6f 63 20 63 68 61 6e 67  ions..proc chang
06c0: 65 5f 70 65 72 6d 73 20 7b 66 69 6c 65 20 73 68  e_perms {file sh
06d0: 61 31 20 70 65 72 6d 73 7d 20 7b 0a 09 09 69 66  a1 perms} {...if
06e0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
06f0: 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64  :appfs::user::ad
0700: 64 5f 70 65 72 6d 73 28 24 66 69 6c 65 29 5d 7d  d_perms($file)]}
0710: 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 70 65 72   {....append per
0720: 6d 73 20 24 3a 3a 61 70 70 66 73 3a 3a 75 73 65  ms $::appfs::use
0730: 72 3a 3a 61 64 64 5f 70 65 72 6d 73 28 24 66 69  r::add_perms($fi
0740: 6c 65 29 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b  le)...}....if {[
0750: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70  info exists ::ap
0760: 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64 64 5f 70  pfs::user::add_p
0770: 65 72 6d 73 28 24 73 68 61 31 29 5d 7d 20 7b 0a  erms($sha1)]} {.
0780: 09 09 09 61 70 70 65 6e 64 20 70 65 72 6d 73 20  ...append perms 
0790: 24 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a  $::appfs::user::
07a0: 61 64 64 5f 70 65 72 6d 73 28 24 73 68 61 31 29  add_perms($sha1)
07b0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24  ...}....return $
07c0: 70 65 72 6d 73 0a 09 7d 0a 7d 0a 0a 6e 61 6d 65  perms..}.}..name
07d0: 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 61 70 70  space eval ::app
07e0: 66 73 20 7b 0a 09 76 61 72 69 61 62 6c 65 20 63  fs {..variable c
07f0: 61 63 68 65 64 69 72 20 22 2f 74 6d 70 2f 61 70  achedir "/tmp/ap
0800: 70 66 73 2d 63 61 63 68 65 22 0a 09 76 61 72 69  pfs-cache"..vari
0810: 61 62 6c 65 20 74 74 6c 20 33 36 30 30 0a 09 76  able ttl 3600..v
0820: 61 72 69 61 62 6c 65 20 6e 74 74 6c 20 36 30 0a  ariable nttl 60.
0830: 09 76 61 72 69 61 62 6c 65 20 74 72 75 73 74 65  .variable truste
0840: 64 5f 63 61 73 20 5b 6c 69 73 74 5d 0a 09 76 61  d_cas [list]..va
0850: 72 69 61 62 6c 65 20 70 6c 61 74 66 6f 72 6d 20  riable platform 
0860: 5b 3a 3a 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e  [::platform::gen
0870: 65 72 69 63 5d 0a 0a 09 70 72 6f 63 20 5f 68 61  eric]...proc _ha
0880: 73 68 5f 73 65 70 20 7b 68 61 73 68 20 7b 73 65  sh_sep {hash {se
0890: 70 73 20 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b  ps 4}} {...for {
08a0: 73 65 74 20 69 64 78 20 30 7d 20 7b 24 69 64 78  set idx 0} {$idx
08b0: 20 3c 20 24 73 65 70 73 7d 20 7b 69 6e 63 72 20   < $seps} {incr 
08c0: 69 64 78 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64  idx} {....append
08d0: 20 72 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67   retval "[string
08e0: 20 72 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78   range $hash [ex
08f0: 70 72 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b  pr {$idx * 2}] [
0900: 65 78 70 72 20 7b 28 24 69 64 78 20 2a 20 32 29  expr {($idx * 2)
0910: 20 2b 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09   + 1}]]/"...}...
0920: 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b  append retval "[
0930: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61  string range $ha
0940: 73 68 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a  sh [expr {$idx *
0950: 20 32 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65   2}] end]"....re
0960: 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a  turn $retval..}.
0970: 0a 09 70 72 6f 63 20 5f 63 61 63 68 65 66 69 6c  ..proc _cachefil
0980: 65 20 7b 75 72 6c 20 6b 65 79 20 7b 6b 65 79 49  e {url key {keyI
0990: 73 48 61 73 68 20 31 7d 7d 20 7b 0a 09 09 73 65  sHash 1}} {...se
09a0: 74 20 66 69 6c 65 6b 65 79 20 24 6b 65 79 0a 09  t filekey $key..
09b0: 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d  .if {$keyIsHash}
09c0: 20 7b 0a 09 09 09 73 65 74 20 66 69 6c 65 6b 65   {....set fileke
09d0: 79 20 5b 5f 68 61 73 68 5f 73 65 70 20 24 66 69  y [_hash_sep $fi
09e0: 6c 65 6b 65 79 5d 0a 09 09 7d 0a 0a 09 09 73 65  lekey]...}....se
09f0: 74 20 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69  t file [file joi
0a00: 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68  n $::appfs::cach
0a10: 65 64 69 72 20 24 66 69 6c 65 6b 65 79 5d 0a 0a  edir $filekey]..
0a20: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69  ..file mkdir [fi
0a30: 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69 6c 65  le dirname $file
0a40: 5d 0a 0a 09 09 69 66 20 7b 5b 66 69 6c 65 20 65  ]....if {[file e
0a50: 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a  xists $file]} {.
0a60: 09 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a  ...return $file.
0a70: 09 09 7d 0a 0a 09 09 73 65 74 20 74 6d 70 66 69  ..}....set tmpfi
0a80: 6c 65 20 22 24 7b 66 69 6c 65 7d 2e 5b 65 78 70  le "${file}.[exp
0a90: 72 20 7b 72 61 6e 64 28 29 7d 5d 5b 63 6c 6f 63  r {rand()}][cloc
0aa0: 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 73 65  k clicks]"....se
0ab0: 74 20 66 64 20 5b 6f 70 65 6e 20 24 74 6d 70 66  t fd [open $tmpf
0ac0: 69 6c 65 20 22 77 22 5d 0a 09 09 66 63 6f 6e 66  ile "w"]...fconf
0ad0: 69 67 75 72 65 20 24 66 64 20 2d 74 72 61 6e 73  igure $fd -trans
0ae0: 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 0a 09  lation binary...
0af0: 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20  .catch {....set 
0b00: 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67  token [::http::g
0b10: 65 74 75 72 6c 20 24 75 72 6c 20 2d 63 68 61 6e  eturl $url -chan
0b20: 6e 65 6c 20 24 66 64 20 2d 62 69 6e 61 72 79 20  nel $fd -binary 
0b30: 74 72 75 65 5d 0a 09 09 7d 0a 0a 09 09 69 66 20  true]...}....if 
0b40: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 6f  {[info exists to
0b50: 6b 65 6e 5d 7d 20 7b 0a 09 09 09 73 65 74 20 6e  ken]} {....set n
0b60: 63 6f 64 65 20 5b 3a 3a 68 74 74 70 3a 3a 6e 63  code [::http::nc
0b70: 6f 64 65 20 24 74 6f 6b 65 6e 5d 0a 09 09 09 3a  ode $token]....:
0b80: 3a 68 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f  :http::reset $to
0b90: 6b 65 6e 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ken...} else {..
0ba0: 09 09 73 65 74 20 6e 63 6f 64 65 20 22 39 30 30  ..set ncode "900
0bb0: 22 0a 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24  "...}....close $
0bc0: 66 64 0a 0a 09 09 69 66 20 7b 24 6b 65 79 49 73  fd....if {$keyIs
0bd0: 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74 20 68  Hash} {....set h
0be0: 61 73 68 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f  ash [string tolo
0bf0: 77 65 72 20 5b 73 68 61 31 3a 3a 73 68 61 31 20  wer [sha1::sha1 
0c00: 2d 68 65 78 20 2d 66 69 6c 65 20 24 74 6d 70 66  -hex -file $tmpf
0c10: 69 6c 65 5d 5d 0a 09 09 7d 20 65 6c 73 65 20 7b  ile]]...} else {
0c20: 0a 09 09 09 73 65 74 20 68 61 73 68 20 24 6b 65  ....set hash $ke
0c30: 79 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 63  y...}....if {$nc
0c40: 6f 64 65 20 3d 3d 20 22 32 30 30 22 20 26 26 20  ode == "200" && 
0c50: 24 68 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b  $hash == $key} {
0c60: 0a 09 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20  ....file rename 
0c70: 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69  -force -- $tmpfi
0c80: 6c 65 20 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73  le $file...} els
0c90: 65 20 7b 0a 09 09 09 66 69 6c 65 20 64 65 6c 65  e {....file dele
0ca0: 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d  te -force -- $tm
0cb0: 70 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74  pfile...}....ret
0cc0: 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09  urn $file..}....
0cd0: 70 72 6f 63 20 5f 69 73 48 61 73 68 20 7b 76 61  proc _isHash {va
0ce0: 6c 75 65 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c  lue} {...set val
0cf0: 75 65 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77  ue [string tolow
0d00: 65 72 20 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66  er $value]....if
0d10: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
0d20: 20 24 76 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20   $value] != 40} 
0d30: 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73  {....return fals
0d40: 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72  e...}....if {![r
0d50: 65 67 65 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d  egexp {^[0-9a-f]
0d60: 2a 24 7d 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09  *$} $value]} {..
0d70: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09  ..return false..
0d80: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75  .}....return tru
0d90: 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 76 65 72  e..}...proc _ver
0da0: 69 66 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43  ifySignatureAndC
0db0: 65 72 74 69 66 69 63 61 74 65 20 7b 68 6f 73 74  ertificate {host
0dc0: 6e 61 6d 65 20 63 65 72 74 69 66 69 63 61 74 65  name certificate
0dd0: 20 73 69 67 6e 61 74 75 72 65 20 68 61 73 68 7d   signature hash}
0de0: 20 7b 0a 09 09 73 65 74 20 63 65 72 74 69 66 69   {...set certifi
0df0: 63 61 74 65 20 5b 62 69 6e 61 72 79 20 66 6f 72  cate [binary for
0e00: 6d 61 74 20 22 48 2a 22 20 24 63 65 72 74 69 66  mat "H*" $certif
0e10: 69 63 61 74 65 5d 0a 09 09 73 65 74 20 73 69 67  icate]...set sig
0e20: 6e 61 74 75 72 65 20 20 20 5b 62 69 6e 61 72 79  nature   [binary
0e30: 20 66 6f 72 6d 61 74 20 22 48 2a 22 20 24 73 69   format "H*" $si
0e40: 67 6e 61 74 75 72 65 5d 0a 0a 09 09 73 65 74 20  gnature]....set 
0e50: 63 65 72 74 69 66 69 63 61 74 65 20 5b 3a 3a 70  certificate [::p
0e60: 6b 69 3a 3a 78 35 30 39 3a 3a 70 61 72 73 65 5f  ki::x509::parse_
0e70: 63 65 72 74 20 24 63 65 72 74 69 66 69 63 61 74  cert $certificat
0e80: 65 5d 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20  e]....array set 
0e90: 63 65 72 74 69 66 69 63 61 74 65 5f 61 72 72 20  certificate_arr 
0ea0: 24 63 65 72 74 69 66 69 63 61 74 65 0a 09 09 73  $certificate...s
0eb0: 65 74 20 63 65 72 74 69 66 69 63 61 74 65 5f 63  et certificate_c
0ec0: 6e 20 5b 3a 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a  n [::pki::x509::
0ed0: 5f 64 6e 5f 74 6f 5f 63 6e 20 24 63 65 72 74 69  _dn_to_cn $certi
0ee0: 66 69 63 61 74 65 5f 61 72 72 28 73 75 62 6a 65  ficate_arr(subje
0ef0: 63 74 29 5d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a  ct)]....if {![::
0f00: 70 6b 69 3a 3a 76 65 72 69 66 79 20 24 73 69 67  pki::verify $sig
0f10: 6e 61 74 75 72 65 20 22 24 68 61 73 68 2c 73 68  nature "$hash,sh
0f20: 61 31 22 20 24 63 65 72 74 69 66 69 63 61 74 65  a1" $certificate
0f30: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 66  ]} {....return f
0f40: 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  alse...}....if {
0f50: 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20  [string tolower 
0f60: 24 63 65 72 74 69 66 69 63 61 74 65 5f 63 6e 5d  $certificate_cn]
0f70: 20 21 3d 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f   != [string tolo
0f80: 77 65 72 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20  wer $hostname]} 
0f90: 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73  {....return fals
0fa0: 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 3a  e...}....if {![:
0fb0: 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a 76 65 72 69  :pki::x509::veri
0fc0: 66 79 5f 63 65 72 74 20 24 63 65 72 74 69 66 69  fy_cert $certifi
0fd0: 63 61 74 65 20 24 3a 3a 61 70 70 66 73 3a 3a 74  cate $::appfs::t
0fe0: 72 75 73 74 65 64 5f 63 61 73 5d 7d 20 7b 0a 09  rusted_cas]} {..
0ff0: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09  ..return false..
1000: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75  .}....return tru
1010: 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72  e..}...proc _nor
1020: 6d 61 6c 69 7a 65 4f 53 20 7b 6f 73 20 7b 74 6f  malizeOS {os {to
1030: 6c 65 72 61 6e 74 20 30 7d 7d 20 7b 0a 09 09 73  lerant 0}} {...s
1040: 65 74 20 6f 73 20 5b 73 74 72 69 6e 67 20 74 6f  et os [string to
1050: 6c 6f 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72  lower [string tr
1060: 69 6d 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69 74  im $os]]....swit
1070: 63 68 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09 22  ch -- $os {...."
1080: 6c 69 6e 75 78 22 20 2d 20 22 66 72 65 65 62 73  linux" - "freebs
1090: 64 22 20 2d 20 22 6f 70 65 6e 62 73 64 22 20 2d  d" - "openbsd" -
10a0: 20 22 6e 65 74 62 73 64 22 20 7b 0a 09 09 09 09   "netbsd" {.....
10b0: 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d 0a  return $os....}.
10c0: 09 09 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09 09  ..."sunos" {....
10d0: 09 72 65 74 75 72 6e 20 22 73 6f 6c 61 72 69 73  .return "solaris
10e0: 22 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63  "....}...."noarc
10f0: 68 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61  h" - "none" - "a
1100: 6e 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09  ny" - "all" {...
1110: 09 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68  ..return "noarch
1120: 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66  "....}...}....if
1130: 20 7b 24 74 6f 6c 65 72 61 6e 74 7d 20 7b 0a 09   {$tolerant} {..
1140: 09 09 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 7d  ..return $os...}
1150: 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
1160: 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74   error "Unable t
1170: 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20  o normalize OS: 
1180: 24 6f 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f  $os"..}...proc _
1190: 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70  normalizeCPU {cp
11a0: 75 20 7b 74 6f 6c 65 72 61 6e 74 20 30 7d 7d 20  u {tolerant 0}} 
11b0: 7b 0a 09 09 73 65 74 20 63 70 75 20 5b 73 74 72  {...set cpu [str
11c0: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72  ing tolower [str
11d0: 69 6e 67 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a  ing trim $cpu]].
11e0: 0a 09 09 73 77 69 74 63 68 20 2d 67 6c 6f 62 20  ...switch -glob 
11f0: 2d 2d 20 24 63 70 75 20 7b 0a 09 09 09 22 69 3f  -- $cpu {...."i?
1200: 38 36 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  86" {.....return
1210: 20 22 69 78 38 36 22 0a 09 09 09 7d 0a 09 09 09   "ix86"....}....
1220: 22 78 38 36 5f 36 34 22 20 7b 0a 09 09 09 09 72  "x86_64" {.....r
1230: 65 74 75 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a  eturn $cpu....}.
1240: 09 09 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e  ..."noarch" - "n
1250: 6f 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22  one" - "any" - "
1260: 61 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72  all" {.....retur
1270: 6e 20 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a  n "noarch"....}.
1280: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 74 6f 6c 65  ..}....if {$tole
1290: 72 61 6e 74 7d 20 7b 0a 09 09 09 72 65 74 75 72  rant} {....retur
12a0: 6e 20 24 63 70 75 0a 09 09 7d 0a 0a 09 09 72 65  n $cpu...}....re
12b0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
12c0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d   "Unable to norm
12d0: 61 6c 69 7a 65 20 43 50 55 3a 20 24 63 70 75 22  alize CPU: $cpu"
12e0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 61 73 5f 75  ..}...proc _as_u
12f0: 73 65 72 20 7b 63 6f 64 65 7d 20 7b 0a 09 09 3a  ser {code} {...:
1300: 3a 61 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74  :appfsd::simulat
1310: 65 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 0a  e_user_fs_enter.
1320: 0a 09 09 73 65 74 20 72 65 74 63 6f 64 65 20 5b  ...set retcode [
1330: 63 61 74 63 68 20 5b 6c 69 73 74 20 75 70 6c 65  catch [list uple
1340: 76 65 6c 20 24 63 6f 64 65 5d 20 72 65 74 73 74  vel $code] retst
1350: 72 5d 0a 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a  r]....::appfsd::
1360: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73  simulate_user_fs
1370: 5f 6c 65 61 76 65 0a 0a 09 09 72 65 74 75 72 6e  _leave....return
1380: 20 2d 63 6f 64 65 20 24 72 65 74 63 6f 64 65 20   -code $retcode 
1390: 24 72 65 74 73 74 72 0a 09 7d 0a 0a 09 70 72 6f  $retstr..}...pro
13a0: 63 20 69 6e 69 74 20 7b 7d 20 7b 0a 09 09 69 66  c init {} {...if
13b0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
13c0: 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c  :appfs::init_cal
13d0: 6c 65 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  led]} {....retur
13e0: 6e 0a 09 09 7d 0a 0a 09 09 23 20 46 6f 72 63 65  n...}....# Force
13f0: 20 5b 70 61 72 72 61 79 5d 20 61 6e 64 20 5b 63   [parray] and [c
1400: 6c 6f 63 6b 5d 20 74 6f 20 62 65 20 6c 6f 61 64  lock] to be load
1410: 65 64 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09  ed...catch {....
1420: 70 61 72 72 61 79 20 64 6f 65 73 5f 6e 6f 74 5f  parray does_not_
1430: 65 78 69 73 74 0a 09 09 7d 0a 09 09 63 61 74 63  exist...}...catc
1440: 68 20 7b 0a 09 09 09 63 6c 6f 63 6b 20 73 65 63  h {....clock sec
1450: 6f 6e 64 73 0a 09 09 7d 0a 09 09 63 61 74 63 68  onds...}...catch
1460: 20 7b 0a 09 09 09 63 6c 6f 63 6b 20 61 64 64 20   {....clock add 
1470: 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 20  [clock seconds] 
1480: 33 20 73 65 63 6f 6e 64 73 0a 09 09 7d 0a 0a 09  3 seconds...}...
1490: 09 73 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e  .set ::appfs::in
14a0: 69 74 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 23  it_called 1....#
14b0: 20 41 64 64 20 61 20 64 65 66 61 75 6c 74 20 43   Add a default C
14c0: 41 20 74 6f 20 6c 69 73 74 20 6f 66 20 74 72 75  A to list of tru
14d0: 73 74 65 64 20 43 41 73 0a 09 09 6c 61 70 70 65  sted CAs...lappe
14e0: 6e 64 20 3a 3a 61 70 70 66 73 3a 3a 74 72 75 73  nd ::appfs::trus
14f0: 74 65 64 5f 63 61 73 20 5b 3a 3a 70 6b 69 3a 3a  ted_cas [::pki::
1500: 78 35 30 39 3a 3a 70 61 72 73 65 5f 63 65 72 74  x509::parse_cert
1510: 20 7b 0a 2d 2d 2d 2d 2d 42 45 47 49 4e 20 43 45   {.-----BEGIN CE
1520: 52 54 49 46 49 43 41 54 45 2d 2d 2d 2d 2d 0a 4d  RTIFICATE-----.M
1530: 49 49 43 37 44 43 43 41 64 53 67 41 77 49 42 41  IIC7DCCAdSgAwIBA
1540: 67 49 42 41 54 41 4e 42 67 6b 71 68 6b 69 47 39  gIBATANBgkqhkiG9
1550: 77 30 42 41 51 55 46 41 44 41 76 4d 52 49 77 45  w0BAQUFADAvMRIwE
1560: 41 59 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 0a  AYDVQQKEwlSb3kg.
1570: 53 32 56 6c 62 6d 55 78 47 54 41 58 42 67 4e 56  S2VlbmUxGTAXBgNV
1580: 42 41 4d 54 45 45 46 77 63 45 5a 54 49 45 74 6c  BAMTEEFwcEZTIEtl
1590: 65 53 42 4e 59 58 4e 30 5a 58 49 77 48 68 63 4e  eSBNYXN0ZXIwHhcN
15a0: 4d 54 51 78 4d 54 45 33 4d 6a 41 78 4e 7a 49 34  MTQxMTE3MjAxNzI4
15b0: 0a 57 68 63 4e 4d 54 6b 78 4d 54 45 33 4d 6a 41  .WhcNMTkxMTE3MjA
15c0: 78 4e 7a 49 34 57 6a 41 76 4d 52 49 77 45 41 59  xNzI4WjAvMRIwEAY
15d0: 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 53 32 56  DVQQKEwlSb3kgS2V
15e0: 6c 62 6d 55 78 47 54 41 58 42 67 4e 56 42 41 4d  lbmUxGTAXBgNVBAM
15f0: 54 0a 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53  T.EEFwcEZTIEtleS
1600: 42 4e 59 58 4e 30 5a 58 49 77 67 67 45 69 4d 41  BNYXN0ZXIwggEiMA
1610: 30 47 43 53 71 47 53 49 62 33 44 51 45 42 41 51  0GCSqGSIb3DQEBAQ
1620: 55 41 41 34 49 42 44 77 41 77 67 67 45 4b 41 6f  UAA4IBDwAwggEKAo
1630: 49 42 0a 41 51 43 71 36 75 53 4b 34 36 79 47 35  IB.AQCq6uSK46yG5
1640: 62 36 52 4a 57 77 52 6c 76 77 35 67 6c 41 6e 6a  b6RJWwRlvw5glAnj
1650: 73 63 31 47 69 58 33 64 75 58 41 30 76 47 34 71  sc1GiX3duXA0vG4q
1660: 6e 4b 55 6e 44 74 6c 2f 6a 63 4d 6d 71 32 47 4d  nKUnDtl/jcMmq2GM
1670: 4f 42 39 0a 49 79 31 74 6a 61 62 45 48 41 30 4d  OB9.Iy1tjabEHA0M
1680: 68 57 32 6a 37 56 77 65 2f 4f 39 4d 4c 46 4a 6b  hW2j7Vwe/O9MLFJk
1690: 4a 33 30 4d 31 50 56 44 37 59 5a 52 52 4e 61 41  J30M1PVD7YZRRNaA
16a0: 73 7a 33 55 57 49 4b 45 6a 50 49 37 42 42 63 33  sz3UWIKEjPI7BBc3
16b0: 32 4b 4f 6d 0a 42 4c 33 43 54 58 43 43 64 7a 6c  2KOm.BL3CTXCCdzl
16c0: 6c 4c 31 48 68 56 62 6e 4d 35 69 43 41 6d 67 48  lL1HhVbnM5iCAmgH
16d0: 63 67 31 44 55 6b 2f 45 76 57 58 76 6e 45 44 78  cg1DUk/EvWXvnEDx
16e0: 58 52 79 32 6c 56 39 6d 51 73 6d 44 65 64 72 66  XRy2lV9mQsmDedrf
16f0: 66 59 37 57 6c 0a 4f 72 35 37 6e 6c 63 7a 61 4d  fY7Wl.Or57nlczaM
1700: 75 50 4c 70 79 52 53 6b 76 37 35 50 41 6e 6a 51  uPLpyRSkv75PAnjQ
1710: 4a 78 54 33 73 57 6c 42 70 79 2b 2f 48 39 49 6d  JxT3sWlBpy+/H9Im
1720: 75 64 51 64 70 4a 4e 66 2f 46 74 78 63 71 4e 37  udQdpJNf/FtxcqN7
1730: 69 44 77 48 35 42 0a 76 49 63 65 59 45 74 44 56  iDwH5B.vIceYEtDV
1740: 78 46 73 76 6f 35 48 4f 56 6b 53 6c 39 6a 65 6f  xFsvo5HOVkSl9jeo
1750: 35 45 34 47 70 65 33 77 79 66 52 68 6f 71 42 32  5E4Gpe3wyfRhoqB2
1760: 55 6b 61 57 31 4b 71 30 69 48 35 52 2b 30 30 53  UkaW1Kq0iH5R+00S
1770: 37 36 30 78 51 4d 78 0a 4c 4c 39 4c 31 64 75 68  760xQMx.LL9L1duh
1780: 75 31 64 4c 37 48 73 6d 45 77 37 49 65 59 55 52  u1dL7HsmEw7IeYUR
1790: 41 67 4d 42 41 41 47 6a 45 7a 41 52 4d 41 38 47  AgMBAAGjEzARMA8G
17a0: 41 31 55 64 45 77 45 42 2f 77 51 46 4d 41 4d 42  A1UdEwEB/wQFMAMB
17b0: 41 66 38 77 44 51 59 4a 0a 4b 6f 5a 49 68 76 63  Af8wDQYJ.KoZIhvc
17c0: 4e 41 51 45 46 42 51 41 44 67 67 45 42 41 4b 68  NAQEFBQADggEBAKh
17d0: 4f 34 5a 53 7a 59 50 33 37 42 71 69 78 4e 48 4b  O4ZSzYP37BqixNHK
17e0: 4b 39 2b 67 53 65 43 36 46 67 61 38 35 69 4c 57  K9+gSeC6Fga85iLW
17f0: 68 77 70 50 57 30 6b 53 6c 0a 7a 30 33 68 61 6c  hwpPW0kSl.z03hal
1800: 38 30 4b 5a 2b 6b 50 4d 7a 62 38 43 35 32 4e 32  80KZ+kPMzb8C52N2
1810: 38 33 74 51 4e 41 71 4a 39 51 38 61 6b 44 50 5a  83tQNAqJ9Q8akDPZ
1820: 78 53 7a 7a 4d 55 56 4f 47 70 47 77 32 70 4a 37  xSzzMUVOGpGw2pJ7
1830: 5a 73 77 4b 44 7a 30 5a 54 61 0a 30 65 64 71 2f  ZswKDz0ZTa.0edq/
1840: 67 64 54 2f 48 72 64 65 67 76 4e 74 44 50 63 32  gdT/HrdegvNtDPc2
1850: 6a 6f 6e 61 35 46 56 4f 59 71 77 64 63 7a 35 6b  jona5FVOYqwdcz5k
1860: 62 6c 31 55 57 42 61 42 70 33 56 58 55 67 63 59  bl1UWBaBp3VXUgcY
1870: 6a 58 53 52 61 42 4b 34 33 57 64 0a 63 76 65 69  jXSRaBK43Wd.cvei
1880: 44 55 65 5a 77 37 67 48 71 52 53 4e 2f 41 79 59  DUeZw7gHqRSN/AyY
1890: 55 43 74 4a 7a 57 6d 76 47 73 4a 75 49 46 68 4d  UCtJzWmvGsJuIFhM
18a0: 42 6f 6e 75 7a 38 6a 79 6c 68 79 4d 4a 43 59 4a  Bonuz8jylhyMJCYJ
18b0: 46 54 34 69 4d 55 43 38 4d 4e 49 77 0a 6e 69 58  FT4iMUC8MNIw.niX
18c0: 31 78 78 2b 4e 75 36 66 50 56 35 5a 5a 48 6a 39  1xx+Nu6fPV5ZZHj9
18d0: 72 62 68 69 42 61 4c 6a 6d 2b 74 6b 44 77 74 50  rbhiBaLjm+tkDwtP
18e0: 67 41 33 6a 32 70 78 76 48 4b 59 70 74 75 57 78  gA3j2pxvHKYptuWx
18f0: 65 59 4f 2b 39 44 44 4e 61 39 73 43 62 0a 45 35  eYO+9DDNa9sCb.E5
1900: 41 6e 4a 49 6c 4f 6e 64 2f 74 47 65 30 43 68 66  AnJIlOnd/tGe0Chf
1910: 30 73 46 51 67 2b 6c 39 6e 4e 69 4e 72 57 47 67  0sFQg+l9nNiNrWGg
1920: 7a 64 64 39 5a 50 4a 4b 34 3d 0a 2d 2d 2d 2d 2d  zdd9ZPJK4=.-----
1930: 45 4e 44 20 43 45 52 54 49 46 49 43 41 54 45 2d  END CERTIFICATE-
1940: 2d 2d 2d 2d 0a 7d 5d 0a 0a 09 09 23 20 4c 6f 61  ----.}]....# Loa
1950: 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20  d configuration 
1960: 66 69 6c 65 0a 09 09 73 65 74 20 63 6f 6e 66 69  file...set confi
1970: 67 5f 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69  g_file [file joi
1980: 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68  n $::appfs::cach
1990: 65 64 69 72 20 63 6f 6e 66 69 67 5d 0a 09 09 69  edir config]...i
19a0: 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20  f {[file exists 
19b0: 24 63 6f 6e 66 69 67 5f 66 69 6c 65 5d 7d 20 7b  $config_file]} {
19c0: 0a 09 09 09 73 6f 75 72 63 65 20 24 63 6f 6e 66  ....source $conf
19d0: 69 67 5f 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 69  ig_file...}....i
19e0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
19f0: 20 3a 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b   ::appfs::db]} {
1a00: 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24  ....file mkdir $
1a10: 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69  ::appfs::cachedi
1a20: 72 0a 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a  r.....sqlite3 ::
1a30: 61 70 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20  appfs::db [file 
1a40: 6a 6f 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63  join $::appfs::c
1a50: 61 63 68 65 64 69 72 20 63 61 63 68 65 2e 64 62  achedir cache.db
1a60: 5d 0a 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64  ].....::appfs::d
1a70: 62 20 74 69 6d 65 6f 75 74 20 33 30 30 30 30 0a  b timeout 30000.
1a80: 09 09 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20  ..}....# Create 
1a90: 74 61 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c  tables...db eval
1aa0: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 49   {CREATE TABLE I
1ab0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74  F NOT EXISTS sit
1ac0: 65 73 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d  es(hostname PRIM
1ad0: 41 52 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64  ARY KEY, lastUpd
1ae0: 61 74 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62  ate, ttl);}...db
1af0: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41   eval {CREATE TA
1b00: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54  BLE IF NOT EXIST
1b10: 53 20 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e  S packages(hostn
1b20: 61 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61  ame, sha1, packa
1b30: 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c  ge, version, os,
1b40: 20 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65   cpuArch, isLate
1b50: 73 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74  st, haveManifest
1b60: 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43  );}...db eval {C
1b70: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
1b80: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 28  OT EXISTS files(
1b90: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79  package_sha1, ty
1ba0: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
1bb0: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66  , size, perms, f
1bc0: 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e  ile_sha1, file_n
1bd0: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74  ame, file_direct
1be0: 6f 72 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61  ory);}....# Crea
1bf0: 74 65 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20  te indexes...db 
1c00: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44  eval {CREATE IND
1c10: 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53  EX IF NOT EXISTS
1c20: 20 73 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20   sites_index ON 
1c30: 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29  sites (hostname)
1c40: 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52  ;}...db eval {CR
1c50: 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f  EATE INDEX IF NO
1c60: 54 20 45 58 49 53 54 53 20 70 61 63 6b 61 67 65  T EXISTS package
1c70: 73 5f 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61  s_index ON packa
1c80: 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73  ges (hostname, s
1c90: 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65  ha1, package, ve
1ca0: 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72  rsion, os, cpuAr
1cb0: 63 68 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20  ch);}...db eval 
1cc0: 7b 43 52 45 41 54 45 20 49 4e 44 45 58 20 49 46  {CREATE INDEX IF
1cd0: 20 4e 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65   NOT EXISTS file
1ce0: 73 5f 69 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73  s_index ON files
1cf0: 20 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20   (package_sha1, 
1d00: 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f  file_name, file_
1d10: 64 69 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a  directory);}..}.
1d20: 0a 09 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20  ..proc download 
1d30: 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b  {hostname hash {
1d40: 6d 65 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a  method sha1}} {.
1d50: 09 09 73 65 74 20 75 72 6c 20 5b 3a 3a 61 70 70  ..set url [::app
1d60: 66 73 3a 3a 75 73 65 72 3a 3a 63 6f 6e 73 74 72  fs::user::constr
1d70: 75 63 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d  uct_url $hostnam
1d80: 65 20 24 68 61 73 68 20 24 6d 65 74 68 6f 64 5d  e $hash $method]
1d90: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61  ...set file [_ca
1da0: 63 68 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61  chefile $url $ha
1db0: 73 68 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c  sh]....if {![fil
1dc0: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d  e exists $file]}
1dd0: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f   {....return -co
1de0: 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65  de error "Unable
1df0: 20 74 6f 20 66 65 74 63 68 20 28 66 69 6c 65 20   to fetch (file 
1e00: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 20  does not exist: 
1e10: 24 66 69 6c 65 29 22 0a 09 09 7d 0a 0a 09 09 72  $file)"...}....r
1e20: 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a  eturn $file..}..
1e30: 09 70 72 6f 63 20 67 65 74 69 6e 64 65 78 20 7b  .proc getindex {
1e40: 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09 09 69 66  hostname} {...if
1e50: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
1e60: 22 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74  "*\[/~\]*" $host
1e70: 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75  name]} {....retu
1e80: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
1e90: 49 6e 76 61 6c 69 64 20 68 6f 73 74 6e 61 6d 65  Invalid hostname
1ea0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6e 6f 77  "...}....set now
1eb0: 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d   [clock seconds]
1ec0: 0a 0a 09 09 73 65 74 20 6c 61 73 74 55 70 64 61  ....set lastUpda
1ed0: 74 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45  tes [db eval {SE
1ee0: 4c 45 43 54 20 6c 61 73 74 55 70 64 61 74 65 2c  LECT lastUpdate,
1ef0: 20 74 74 6c 20 46 52 4f 4d 20 73 69 74 65 73 20   ttl FROM sites 
1f00: 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d  WHERE hostname =
1f10: 20 24 68 6f 73 74 6e 61 6d 65 20 4c 49 4d 49 54   $hostname LIMIT
1f20: 20 31 3b 7d 5d 0a 09 09 69 66 20 7b 5b 6c 6c 65   1;}]...if {[lle
1f30: 6e 67 74 68 20 24 6c 61 73 74 55 70 64 61 74 65  ngth $lastUpdate
1f40: 73 5d 20 3d 3d 20 30 7d 20 7b 0a 09 09 09 73 65  s] == 0} {....se
1f50: 74 20 6c 61 73 74 55 70 64 61 74 65 20 30 0a 09  t lastUpdate 0..
1f60: 09 09 73 65 74 20 74 74 6c 20 30 0a 09 09 7d 20  ..set ttl 0...} 
1f70: 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 6c 61  else {....set la
1f80: 73 74 55 70 64 61 74 65 20 5b 6c 69 6e 64 65 78  stUpdate [lindex
1f90: 20 24 6c 61 73 74 55 70 64 61 74 65 73 20 30 5d   $lastUpdates 0]
1fa0: 0a 09 09 09 73 65 74 20 74 74 6c 20 5b 6c 69 6e  ....set ttl [lin
1fb0: 64 65 78 20 24 6c 61 73 74 55 70 64 61 74 65 73  dex $lastUpdates
1fc0: 20 31 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24   1]...}....if {$
1fd0: 6e 6f 77 20 3c 20 28 24 6c 61 73 74 55 70 64 61  now < ($lastUpda
1fe0: 74 65 20 2b 20 24 74 74 6c 29 7d 20 7b 0a 09 09  te + $ttl)} {...
1ff0: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
2000: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 75 72 6c 20  ...}....set url 
2010: 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61 6d  "http://$hostnam
2020: 65 2f 61 70 70 66 73 2f 69 6e 64 65 78 22 0a 0a  e/appfs/index"..
2030: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74  ..catch {....set
2040: 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a   token [::http::
2050: 67 65 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09 09  geturl $url]....
2060: 69 66 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f  if {[::http::nco
2070: 64 65 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22 32  de $token] == "2
2080: 30 30 22 7d 20 7b 0a 09 09 09 09 73 65 74 20 69  00"} {.....set i
2090: 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b 3a  ndexhash_data [:
20a0: 3a 68 74 74 70 3a 3a 64 61 74 61 20 24 74 6f 6b  :http::data $tok
20b0: 65 6e 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a 68 74  en]....}....::ht
20c0: 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65 6e  tp::reset $token
20d0: 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 63 6c 65 61  ....::http::clea
20e0: 6e 75 70 20 24 74 6f 6b 65 6e 0a 09 09 7d 0a 0a  nup $token...}..
20f0: 09 09 23 20 4e 6f 74 65 20 74 68 61 74 20 77 65  ..# Note that we
2100: 20 61 74 74 65 6d 70 74 65 64 20 74 6f 20 66 65   attempted to fe
2110: 74 63 68 20 74 68 69 73 20 69 6e 64 65 78 20 61  tch this index a
2120: 6e 64 20 64 6f 20 6e 6f 74 20 74 72 79 0a 09 09  nd do not try...
2130: 23 20 61 67 61 69 6e 20 66 6f 72 20 61 20 77 68  # again for a wh
2140: 69 6c 65 0a 09 09 64 62 20 65 76 61 6c 20 7b 49  ile...db eval {I
2150: 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45  NSERT OR REPLACE
2160: 20 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73   INTO sites (hos
2170: 74 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74  tname, lastUpdat
2180: 65 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28  e, ttl) VALUES (
2190: 24 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c  $hostname, $now,
21a0: 20 24 3a 3a 61 70 70 66 73 3a 3a 6e 74 74 6c 29   $::appfs::nttl)
21b0: 3b 7d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f  ;}....if {![info
21c0: 20 65 78 69 73 74 73 20 69 6e 64 65 78 68 61 73   exists indexhas
21d0: 68 5f 64 61 74 61 5d 7d 20 7b 0a 09 09 09 72 65  h_data]} {....re
21e0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
21f0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63   "Unable to fetc
2200: 68 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73  h $url"...}....s
2210: 65 74 20 69 6e 64 65 78 68 61 73 68 5f 64 61 74  et indexhash_dat
2220: 61 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  a [string trim $
2230: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 22  indexhash_data "
2240: 5c 72 5c 6e 22 5d 0a 09 09 73 65 74 20 69 6e 64  \r\n"]...set ind
2250: 65 78 68 61 73 68 5f 64 61 74 61 20 5b 73 70 6c  exhash_data [spl
2260: 69 74 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61  it $indexhash_da
2270: 74 61 20 22 2c 22 5d 0a 09 09 73 65 74 20 69 6e  ta ","]...set in
2280: 64 65 78 68 61 73 68 20 20 20 20 20 20 20 5b 6c  dexhash       [l
2290: 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73 68  index $indexhash
22a0: 5f 64 61 74 61 20 30 5d 0a 09 09 73 65 74 20 69  _data 0]...set i
22b0: 6e 64 65 78 68 61 73 68 6d 65 74 68 6f 64 20 5b  ndexhashmethod [
22c0: 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73  lindex $indexhas
22d0: 68 5f 64 61 74 61 20 31 5d 0a 09 09 73 65 74 20  h_data 1]...set 
22e0: 69 6e 64 65 78 68 61 73 68 63 65 72 74 20 20 20  indexhashcert   
22f0: 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61  [lindex $indexha
2300: 73 68 5f 64 61 74 61 20 32 5d 0a 09 09 73 65 74  sh_data 2]...set
2310: 20 69 6e 64 65 78 68 61 73 68 73 69 67 20 20 20   indexhashsig   
2320: 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68   [lindex $indexh
2330: 61 73 68 5f 64 61 74 61 20 33 5d 0a 0a 09 09 69  ash_data 3]....i
2340: 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 69 6e  f {![_isHash $in
2350: 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09 09 72  dexhash]} {....r
2360: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
2370: 72 20 22 49 6e 76 61 6c 69 64 20 68 61 73 68 3a  r "Invalid hash:
2380: 20 24 69 6e 64 65 78 68 61 73 68 22 0a 09 09 7d   $indexhash"...}
2390: 0a 0a 09 09 69 66 20 7b 21 5b 5f 76 65 72 69 66  ....if {![_verif
23a0: 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65 72  ySignatureAndCer
23b0: 74 69 66 69 63 61 74 65 20 24 68 6f 73 74 6e 61  tificate $hostna
23c0: 6d 65 20 24 69 6e 64 65 78 68 61 73 68 63 65 72  me $indexhashcer
23d0: 74 20 24 69 6e 64 65 78 68 61 73 68 73 69 67 20  t $indexhashsig 
23e0: 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09  $indexhash]} {..
23f0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
2400: 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 73 69  rror "Invalid si
2410: 67 6e 61 74 75 72 65 20 6f 72 20 63 65 72 74 69  gnature or certi
2420: 66 69 63 61 74 65 20 66 72 6f 6d 20 24 68 6f 73  ficate from $hos
2430: 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73 65  tname"...}....se
2440: 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64  t file [download
2450: 20 24 68 6f 73 74 6e 61 6d 65 20 24 69 6e 64 65   $hostname $inde
2460: 78 68 61 73 68 5d 0a 09 09 63 61 74 63 68 20 7b  xhash]...catch {
2470: 0a 09 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e  ....set fd [open
2480: 20 24 66 69 6c 65 5d 0a 09 09 7d 0a 0a 09 09 69   $file]...}....i
2490: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
24a0: 20 66 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72   fd]} {....retur
24b0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55  n -code error "U
24c0: 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f 61  nable to downloa
24d0: 64 20 6f 72 20 6f 70 65 6e 20 24 66 69 6c 65 22  d or open $file"
24e0: 0a 09 09 7d 0a 0a 09 09 75 6e 73 65 74 20 2d 6e  ...}....unset -n
24f0: 6f 63 6f 6d 70 6c 61 69 6e 20 64 61 74 61 0a 09  ocomplain data..
2500: 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20  .catch {....set 
2510: 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a  data [read $fd].
2520: 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64  ..}....close $fd
2530: 0a 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61 63  ....set curr_pac
2540: 6b 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 66  kages [list]...f
2550: 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c  oreach line [spl
2560: 69 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b  it $data "\n"] {
2570: 0a 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74  ....set line [st
2580: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d  ring trim $line]
2590: 0a 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67  .....if {[string
25a0: 20 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69   match "*/*" $li
25b0: 6e 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  ne]} {.....conti
25c0: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
25d0: 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a  {$line == ""} {.
25e0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
25f0: 7d 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  }.....set work [
2600: 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d  split $line ","]
2610: 0a 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f  .....unset -noco
2620: 6d 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a 09  mplain pkgInfo..
2630: 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09  ..if {[catch {..
2640: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 70  ...set pkgInfo(p
2650: 61 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65 78  ackage)  [lindex
2660: 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65   $work 0].....se
2670: 74 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f  t pkgInfo(versio
2680: 6e 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  n)  [lindex $wor
2690: 6b 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b 67  k 1].....set pkg
26a0: 49 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20 5b  Info(os)       [
26b0: 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c 69  _normalizeOS [li
26c0: 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a 09  ndex $work 2]]..
26d0: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 63  ...set pkgInfo(c
26e0: 70 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d 61  puArch)  [_norma
26f0: 6c 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78 20  lizeCPU [lindex 
2700: 24 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73 65  $work 3]].....se
2710: 74 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 20  t pkgInfo(hash) 
2720: 20 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f      [string tolo
2730: 77 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  wer [lindex $wor
2740: 6b 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b  k 4]].....set pk
2750: 67 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65 29  gInfo(hash_type)
2760: 20 22 73 68 61 31 22 0a 09 09 09 09 73 65 74 20   "sha1".....set 
2770: 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74  pkgInfo(isLatest
2780: 29 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e 64  ) [expr {!![lind
2790: 65 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09 09  ex $work 5]}]...
27a0: 09 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  .}]} {.....conti
27b0: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
27c0: 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67 49  {![_isHash $pkgI
27d0: 6e 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09 09  nfo(hash)]} {...
27e0: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a  ..continue....}.
27f0: 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72 72  ....lappend curr
2800: 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e  _packages $pkgIn
2810: 66 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20 44  fo(hash).....# D
2820: 6f 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64 64  o not do any add
2830: 69 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66 20  itional work if 
2840: 77 65 20 61 6c 72 65 61 64 79 20 68 61 76 65 20  we already have 
2850: 74 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09 09  this package....
2860: 73 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61 63  set existing_pac
2870: 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b  kages [db eval {
2880: 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20 46  SELECT package F
2890: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
28a0: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
28b0: 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31  ostname AND sha1
28c0: 20 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68   = $pkgInfo(hash
28d0: 29 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73 65  );}]....if {[lse
28e0: 61 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 69  arch -exact $exi
28f0: 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 24  sting_packages $
2900: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
2910: 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 63  ] != -1} {.....c
2920: 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09  ontinue....}....
2930: 09 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69 73  .if {$pkgInfo(is
2940: 4c 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09 64  Latest)} {.....d
2950: 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70  b eval {UPDATE p
2960: 61 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c 61  ackages SET isLa
2970: 74 65 73 74 20 3d 20 30 20 57 48 45 52 45 20 68  test = 0 WHERE h
2980: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
2990: 61 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65 20  ame AND package 
29a0: 3d 20 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61  = $pkgInfo(packa
29b0: 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 6b  ge) AND os = $pk
29c0: 67 49 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70  gInfo(os) AND cp
29d0: 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e 66 6f  uArch = $pkgInfo
29e0: 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 09 7d  (cpuArch);}....}
29f0: 0a 0a 09 09 09 64 62 20 65 76 61 6c 20 7b 49 4e  .....db eval {IN
2a00: 53 45 52 54 20 49 4e 54 4f 20 70 61 63 6b 61 67  SERT INTO packag
2a10: 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68  es (hostname, sh
2a20: 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72  a1, package, ver
2a30: 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63  sion, os, cpuArc
2a40: 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61 76  h, isLatest, hav
2a50: 65 4d 61 6e 69 66 65 73 74 29 20 56 41 4c 55 45  eManifest) VALUE
2a60: 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 70  S ($hostname, $p
2a70: 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c 20 24 70  kgInfo(hash), $p
2a80: 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 2c  kgInfo(package),
2a90: 20 24 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f   $pkgInfo(versio
2aa0: 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f 73 29  n), $pkgInfo(os)
2ab0: 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70 75 41 72  , $pkgInfo(cpuAr
2ac0: 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 69 73  ch), $pkgInfo(is
2ad0: 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a 09 09  Latest), 0);}...
2ae0: 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f 72 20  }....# Look for 
2af0: 70 61 63 6b 61 67 65 73 20 74 68 61 74 20 68 61  packages that ha
2b00: 76 65 20 62 65 65 6e 20 64 65 6c 65 74 65 64 0a  ve been deleted.
2b10: 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b  ..set found_pack
2b20: 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53  ages [db eval {S
2b30: 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20  ELECT sha1 FROM 
2b40: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
2b50: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
2b60: 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61 63 68  ame;}]...foreach
2b70: 20 70 61 63 6b 61 67 65 20 24 66 6f 75 6e 64 5f   package $found_
2b80: 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 73 65  packages {....se
2b90: 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73  t found_packages
2ba0: 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29 20 31  _arr($package) 1
2bb0: 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20  ...}....foreach 
2bc0: 70 61 63 6b 61 67 65 20 24 63 75 72 72 5f 70 61  package $curr_pa
2bd0: 63 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e 73 65  ckages {....unse
2be0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 6f  t -nocomplain fo
2bf0: 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72  und_packages_arr
2c00: 28 24 70 61 63 6b 61 67 65 29 0a 09 09 7d 0a 0a  ($package)...}..
2c10: 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67  ..foreach packag
2c20: 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66  e [array names f
2c30: 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72  ound_packages_ar
2c40: 72 5d 20 7b 0a 09 09 09 64 62 20 65 76 61 6c 20  r] {....db eval 
2c50: 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 70 61 63  {DELETE FROM pac
2c60: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
2c70: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
2c80: 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70 61 63   AND sha1 = $pac
2c90: 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09 64 62  kage;}...}....db
2ca0: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52   eval {INSERT OR
2cb0: 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69   REPLACE INTO si
2cc0: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c  tes (hostname, l
2cd0: 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20  astUpdate, ttl) 
2ce0: 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d  VALUES ($hostnam
2cf0: 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66  e, $now, $::appf
2d00: 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09 09 61 70 70  s::ttl);}....app
2d10: 66 73 64 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e  fsd::get_path_in
2d20: 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 0a 0a  fo_cache_flush..
2d30: 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54  ..return COMPLET
2d40: 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 70  E..}...proc getp
2d50: 6b 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f 73 74  kgmanifest {host
2d60: 6e 61 6d 65 20 70 61 63 6b 61 67 65 5f 73 68 61  name package_sha
2d70: 31 7d 20 7b 0a 09 09 73 65 74 20 68 61 76 65 4d  1} {...set haveM
2d80: 61 6e 69 66 65 73 74 20 5b 64 62 20 6f 6e 65 63  anifest [db onec
2d90: 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 68 61  olumn {SELECT ha
2da0: 76 65 4d 61 6e 69 66 65 73 74 20 46 52 4f 4d 20  veManifest FROM 
2db0: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 73  packages WHERE s
2dc0: 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73  ha1 = $package_s
2dd0: 68 61 31 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 0a  ha1 LIMIT 1;}]..
2de0: 09 09 69 66 20 7b 24 68 61 76 65 4d 61 6e 69 66  ..if {$haveManif
2df0: 65 73 74 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09  est == "1"} {...
2e00: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
2e10: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69  ...}....if {![_i
2e20: 73 48 61 73 68 20 24 70 61 63 6b 61 67 65 5f 73  sHash $package_s
2e30: 68 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  ha1]} {....retur
2e40: 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65  n FAIL...}....se
2e50: 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64  t file [download
2e60: 20 24 68 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b   $hostname $pack
2e70: 61 67 65 5f 73 68 61 31 5d 0a 0a 09 09 63 61 74  age_sha1]....cat
2e80: 63 68 20 7b 0a 09 09 09 73 65 74 20 66 64 20 5b  ch {....set fd [
2e90: 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 7d 0a  open $file]...}.
2ea0: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
2eb0: 69 73 74 73 20 66 64 5d 7d 20 7b 0a 09 09 09 72  ists fd]} {....r
2ec0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
2ed0: 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77  r "Unable to dow
2ee0: 6e 6c 6f 61 64 20 6f 72 20 6f 70 65 6e 20 24 66  nload or open $f
2ef0: 69 6c 65 22 0a 09 09 7d 0a 0a 09 09 63 61 74 63  ile"...}....catc
2f00: 68 20 7b 0a 09 09 09 73 65 74 20 70 6b 67 64 61  h {....set pkgda
2f10: 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09  ta [read $fd]...
2f20: 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a  }....close $fd..
2f30: 09 09 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e  ..db transaction
2f40: 20 7b 0a 09 09 09 66 6f 72 65 61 63 68 20 6c 69   {....foreach li
2f50: 6e 65 20 5b 73 70 6c 69 74 20 24 70 6b 67 64 61  ne [split $pkgda
2f60: 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 09 73  ta "\n"] {.....s
2f70: 65 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20  et line [string 
2f80: 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09  trim $line].....
2f90: 09 69 66 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22  .if {$line == ""
2fa0: 7d 20 7b 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75  } {......continu
2fb0: 65 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74  e.....}......set
2fc0: 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 6c 69   work [split $li
2fd0: 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 09 75 6e 73  ne ","]......uns
2fe0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66  et -nocomplain f
2ff0: 69 6c 65 49 6e 66 6f 0a 09 09 09 09 73 65 74 20  ileInfo.....set 
3000: 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 5b  fileInfo(type) [
3010: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a  lindex $work 0].
3020: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
3030: 28 74 69 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24  (time) [lindex $
3040: 77 6f 72 6b 20 31 5d 0a 0a 09 09 09 09 73 65 74  work 1]......set
3050: 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77   work [lrange $w
3060: 6f 72 6b 20 32 20 65 6e 64 5d 0a 09 09 09 09 73  ork 2 end].....s
3070: 77 69 74 63 68 20 2d 2d 20 24 66 69 6c 65 49 6e  witch -- $fileIn
3080: 66 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09  fo(type) {......
3090: 22 23 6d 61 6e 69 66 65 73 74 6d 65 74 61 64 61  "#manifestmetada
30a0: 74 61 22 20 7b 0a 09 09 09 09 09 09 75 6e 73 65  ta" {.......unse
30b0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69  t -nocomplain fi
30c0: 6c 65 49 6e 66 6f 0a 09 09 09 09 09 09 63 6f 6e  leInfo.......con
30d0: 74 69 6e 75 65 0a 09 09 09 09 09 7d 0a 09 09 09  tinue......}....
30e0: 09 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09  .."file" {......
30f0: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 69  .set fileInfo(si
3100: 7a 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  ze) [lindex $wor
3110: 6b 20 30 5d 0a 0a 09 09 09 09 09 09 23 20 57 65  k 0]........# We
3120: 20 6c 6f 77 65 72 2d 63 61 73 65 20 74 68 65 20   lower-case the 
3130: 70 65 72 6d 69 73 73 69 6f 6e 73 20 62 65 63 61  permissions beca
3140: 75 73 65 20 75 70 70 65 72 2d 63 61 73 65 20 70  use upper-case p
3150: 65 72 6d 69 73 73 69 6f 6e 73 0a 09 09 09 09 09  ermissions......
3160: 09 23 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65  .# should not be
3170: 20 73 65 74 20 72 65 6d 6f 74 65 6c 79 20 61 73   set remotely as
3180: 20 74 68 65 79 20 6d 61 79 20 69 6e 66 6c 75 65   they may influe
3190: 6e 63 65 20 74 68 65 20 73 65 63 75 72 69 74 79  nce the security
31a0: 0a 09 09 09 09 09 09 23 20 6f 66 20 74 68 65 20  .......# of the 
31b0: 73 79 73 74 65 6d 2e 0a 09 09 09 09 09 09 73 65  system........se
31c0: 74 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73  t fileInfo(perms
31d0: 29 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  ) [string tolowe
31e0: 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  r [lindex $work 
31f0: 31 5d 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 66  1]]........set f
3200: 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c  ileInfo(sha1) [l
3210: 69 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a  index $work 2]..
3220: 09 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  ......set work [
3230: 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65  lrange $work 3 e
3240: 6e 64 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09  nd]......}......
3250: 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09  "symlink" {.....
3260: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73  ..set fileInfo(s
3270: 6f 75 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24  ource) [lindex $
3280: 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65  work 0].......se
3290: 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24  t work [lrange $
32a0: 77 6f 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09  work 1 end].....
32b0: 09 7d 0a 09 09 09 09 09 22 64 69 72 65 63 74 6f  .}......"directo
32c0: 72 79 22 20 7b 0a 09 09 09 09 09 09 23 20 4e 6f  ry" {.......# No
32d0: 20 65 78 74 72 61 20 64 61 74 61 20 72 65 71 75   extra data requ
32e0: 69 72 65 64 0a 09 09 09 09 09 7d 0a 09 09 09 09  ired......}.....
32f0: 09 64 65 66 61 75 6c 74 20 7b 0a 09 09 09 09 09  .default {......
3300: 09 23 20 48 61 6e 64 6c 65 20 75 6e 6b 6e 6f 77  .# Handle unknow
3310: 6e 20 74 79 70 65 73 0a 09 09 09 09 09 09 69 66  n types.......if
3320: 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20   {[string index 
3330: 24 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20  $fileInfo(type) 
3340: 30 5d 20 3d 3d 20 22 23 22 7d 20 7b 0a 09 09 09  0] == "#"} {....
3350: 09 09 09 09 23 20 4d 65 74 61 64 61 74 61 20 74  ....# Metadata t
3360: 79 70 65 2c 20 69 67 6e 6f 72 65 0a 09 09 09 09  ype, ignore.....
3370: 09 09 09 23 20 69 74 20 69 66 20 77 65 20 64 6f  ...# it if we do
3380: 6e 27 74 0a 09 09 09 09 09 09 09 23 20 75 6e 64  n't........# und
3390: 65 72 73 74 61 6e 64 20 74 68 69 73 20 74 79 70  erstand this typ
33a0: 65 0a 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75  e........continu
33b0: 65 0a 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b  e.......} else {
33c0: 0a 09 09 09 09 09 09 09 23 20 55 6e 6b 6e 6f 77  ........# Unknow
33d0: 6e 20 74 79 70 65 2c 0a 09 09 09 09 09 09 09 23  n type,........#
33e0: 20 67 65 6e 65 72 61 74 65 20 61 6e 20 65 72 72   generate an err
33f0: 6f 72 0a 09 09 09 09 09 09 09 65 72 72 6f 72 20  or........error 
3400: 22 4d 61 6e 69 66 65 73 74 20 63 61 6e 6e 6f 74  "Manifest cannot
3410: 20 62 65 20 70 61 72 73 65 64 22 0a 09 09 09 09   be parsed".....
3420: 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  ..}......}.....}
3430: 0a 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  ......set fileIn
3440: 66 6f 28 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 24  fo(name) [join $
3450: 77 6f 72 6b 20 22 2c 22 5d 0a 09 09 09 09 73 65  work ","].....se
3460: 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29  t fileInfo(name)
3470: 20 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20   [split [string 
3480: 74 72 69 6d 20 24 66 69 6c 65 49 6e 66 6f 28 6e  trim $fileInfo(n
3490: 61 6d 65 29 20 22 2f 22 5d 20 22 2f 22 5d 0a 09  ame) "/"] "/"]..
34a0: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28  ...set fileInfo(
34b0: 64 69 72 65 63 74 6f 72 79 29 20 5b 6a 6f 69 6e  directory) [join
34c0: 20 5b 6c 72 61 6e 67 65 20 24 66 69 6c 65 49 6e   [lrange $fileIn
34d0: 66 6f 28 6e 61 6d 65 29 20 30 20 65 6e 64 2d 31  fo(name) 0 end-1
34e0: 5d 20 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66  ] "/"].....set f
34f0: 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c  ileInfo(name) [l
3500: 69 6e 64 65 78 20 24 66 69 6c 65 49 6e 66 6f 28  index $fileInfo(
3510: 6e 61 6d 65 29 20 65 6e 64 5d 0a 0a 09 09 09 09  name) end]......
3520: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20  db eval {INSERT 
3530: 49 4e 54 4f 20 66 69 6c 65 73 20 28 70 61 63 6b  INTO files (pack
3540: 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65 2c 20  age_sha1, type, 
3550: 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73 69  time, source, si
3560: 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f  ze, perms, file_
3570: 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c  sha1, file_name,
3580: 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 29   file_directory)
3590: 20 56 41 4c 55 45 53 20 28 24 70 61 63 6b 61 67   VALUES ($packag
35a0: 65 5f 73 68 61 31 2c 20 24 66 69 6c 65 49 6e 66  e_sha1, $fileInf
35b0: 6f 28 74 79 70 65 29 2c 20 24 66 69 6c 65 49 6e  o(type), $fileIn
35c0: 66 6f 28 74 69 6d 65 29 2c 20 24 66 69 6c 65 49  fo(time), $fileI
35d0: 6e 66 6f 28 73 6f 75 72 63 65 29 2c 20 24 66 69  nfo(source), $fi
35e0: 6c 65 49 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66  leInfo(size), $f
35f0: 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20  ileInfo(perms), 
3600: 24 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c  $fileInfo(sha1),
3610: 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29   $fileInfo(name)
3620: 2c 20 24 66 69 6c 65 49 6e 66 6f 28 64 69 72 65  , $fileInfo(dire
3630: 63 74 6f 72 79 29 20 29 3b 7d 0a 09 09 09 09 64  ctory) );}.....d
3640: 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70  b eval {UPDATE p
3650: 61 63 6b 61 67 65 73 20 53 45 54 20 68 61 76 65  ackages SET have
3660: 4d 61 6e 69 66 65 73 74 20 3d 20 31 20 57 48 45  Manifest = 1 WHE
3670: 52 45 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61  RE sha1 = $packa
3680: 67 65 5f 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09  ge_sha1;}....}..
3690: 09 7d 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65  .}....appfsd::ge
36a0: 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  t_path_info_cach
36b0: 65 5f 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72  e_flush....retur
36c0: 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09  n COMPLETE..}...
36d0: 70 72 6f 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20  proc _localpath 
36e0: 7b 70 61 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d  {package hostnam
36f0: 65 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20  e file} {...set 
3700: 64 69 72 20 22 22 0a 09 09 63 61 74 63 68 20 7b  dir ""...catch {
3710: 0a 09 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20  ....set homedir 
3720: 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a  [::appfs::user::
3730: 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 09  get_homedir]....
3740: 73 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6a 6f  set dir [file jo
3750: 69 6e 20 24 68 6f 6d 65 64 69 72 20 2e 61 70 70  in $homedir .app
3760: 66 73 20 22 2e 2f 24 7b 70 61 63 6b 61 67 65 7d  fs "./${package}
3770: 40 24 7b 68 6f 73 74 6e 61 6d 65 7d 22 20 22 2e  @${hostname}" ".
3780: 2f 24 7b 66 69 6c 65 7d 22 5d 0a 09 09 7d 0a 09  /${file}"]...}..
3790: 09 72 65 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a  .return $dir..}.
37a0: 0a 09 70 72 6f 63 20 5f 77 68 69 74 65 6f 75 74  ..proc _whiteout
37b0: 70 61 74 68 20 7b 70 61 63 6b 61 67 65 20 68 6f  path {package ho
37c0: 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09  stname file} {..
37d0: 09 73 65 74 20 64 69 72 20 22 22 0a 09 09 63 61  .set dir ""...ca
37e0: 74 63 68 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d  tch {....set hom
37f0: 65 64 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75  edir [::appfs::u
3800: 73 65 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72  ser::get_homedir
3810: 5d 0a 09 09 09 73 65 74 20 64 69 72 20 5b 66 69  ]....set dir [fi
3820: 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72  le join $homedir
3830: 20 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63   .appfs "./${pac
3840: 6b 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65  kage}@${hostname
3850: 7d 22 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45  }" ".APPFS.WHITE
3860: 4f 55 54 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e  OUT" "./${file}.
3870: 41 50 50 46 53 2e 57 48 49 54 45 4f 55 54 22 5d  APPFS.WHITEOUT"]
3880: 0a 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 24 64  ...}...return $d
3890: 69 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61  ir..}...proc _pa
38a0: 72 73 65 70 61 74 68 20 7b 70 61 74 68 7d 20 7b  rsepath {path} {
38b0: 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73 74 72  ...set path [str
38c0: 69 6e 67 20 74 72 69 6d 20 24 70 61 74 68 20 22  ing trim $path "
38d0: 2f 22 5d 0a 09 09 73 65 74 20 70 61 74 68 20 5b  /"]...set path [
38e0: 73 70 6c 69 74 20 24 70 61 74 68 20 22 2f 22 5d  split $path "/"]
38f0: 0a 09 09 73 65 74 20 70 61 74 68 6c 65 6e 20 5b  ...set pathlen [
3900: 6c 6c 65 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a  llength $path]..
3910: 09 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76  ..array set retv
3920: 61 6c 20 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72  al [list _childr
3930: 65 6e 20 73 69 74 65 73 20 5f 74 79 70 65 20 74  en sites _type t
3940: 6f 70 6c 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b  oplevel]....if {
3950: 24 70 61 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a  $pathlen > 0} {.
3960: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 68 6f  ...set retval(ho
3970: 73 74 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20  stname) [lindex 
3980: 24 70 61 74 68 20 30 5d 0a 09 09 09 73 65 74 20  $path 0]....set 
3990: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
39a0: 29 20 70 61 63 6b 61 67 65 73 0a 09 09 09 73 65  ) packages....se
39b0: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
39c0: 73 69 74 65 73 0a 0a 09 09 09 69 66 20 7b 24 70  sites.....if {$p
39d0: 61 74 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09  athlen > 1} {...
39e0: 09 09 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c  ..set package [l
39f0: 69 6e 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09  index $path 1]..
3a00: 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c  ...if {[string l
3a10: 65 6e 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20  ength $package] 
3a20: 3d 3d 20 22 34 30 22 20 26 26 20 5b 72 65 67 65  == "40" && [rege
3a30: 78 70 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d  xp {^[a-fA-F0-9]
3a40: 2a 24 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b  *$} $package]} {
3a50: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3a60: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24  (package_sha1) $
3a70: 70 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74  package......set
3a80: 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65   retval(_childre
3a90: 6e 29 20 66 69 6c 65 73 0a 09 09 09 09 09 73 65  n) files......se
3aa0: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
3ab0: 66 69 6c 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70  files.......::ap
3ac0: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
3ad0: 4c 45 43 54 20 70 61 63 6b 61 67 65 2c 20 6f 73  LECT package, os
3ae0: 2c 20 63 70 75 41 72 63 68 2c 20 76 65 72 73 69  , cpuArch, versi
3af0: 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  on FROM packages
3b00: 20 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 72   WHERE sha1 = $r
3b10: 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68  etval(package_sh
3b20: 61 31 29 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d  a1);} pkginfo {}
3b30: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3b40: 28 70 61 63 6b 61 67 65 29 20 24 70 6b 67 69 6e  (package) $pkgin
3b50: 66 6f 28 70 61 63 6b 61 67 65 29 0a 09 09 09 09  fo(package).....
3b60: 09 73 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20  .set retval(os) 
3b70: 24 70 6b 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09  $pkginfo(os)....
3b80: 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 70 75  ..set retval(cpu
3b90: 29 20 24 70 6b 67 69 6e 66 6f 28 63 70 75 41 72  ) $pkginfo(cpuAr
3ba0: 63 68 29 0a 09 09 09 09 09 73 65 74 20 72 65 74  ch)......set ret
3bb0: 76 61 6c 28 76 65 72 73 69 6f 6e 29 20 24 70 6b  val(version) $pk
3bc0: 67 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a  ginfo(version)..
3bd0: 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65  .....if {$pathle
3be0: 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73  n > 2} {.......s
3bf0: 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20  et retval(file) 
3c00: 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70  [join [lrange $p
3c10: 61 74 68 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a  ath 2 end] "/"].
3c20: 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .....} else {...
3c30: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 66  ....set retval(f
3c40: 69 6c 65 29 20 22 22 0a 09 09 09 09 09 7d 0a 09  ile) ""......}..
3c50: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
3c60: 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b  .set retval(pack
3c70: 61 67 65 29 20 24 70 61 63 6b 61 67 65 0a 09 09  age) $package...
3c80: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
3c90: 68 69 6c 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a  hildren) os-cpu.
3ca0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3cb0: 5f 74 79 70 65 29 20 70 61 63 6b 61 67 65 73 0a  _type) packages.
3cc0: 0a 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c  ......if {$pathl
3cd0: 65 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09  en > 2} {.......
3ce0: 73 65 74 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64  set os_cpu [lind
3cf0: 65 78 20 24 70 61 74 68 20 32 5d 0a 09 09 09 09  ex $path 2].....
3d00: 09 09 73 65 74 20 6f 73 5f 63 70 75 20 5b 73 70  ..set os_cpu [sp
3d10: 6c 69 74 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d  lit $os_cpu "-"]
3d20: 0a 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3d30: 61 6c 28 6f 73 29 20 5b 5f 6e 6f 72 6d 61 6c 69  al(os) [_normali
3d40: 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24 6f 73  zeOS [lindex $os
3d50: 5f 63 70 75 20 30 5d 20 31 5d 0a 09 09 09 09 09  _cpu 0] 1]......
3d60: 09 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29  .set retval(cpu)
3d70: 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20   [_normalizeCPU 
3d80: 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20  [lindex $os_cpu 
3d90: 31 5d 20 31 5d 0a 09 09 09 09 09 09 73 65 74 20  1] 1].......set 
3da0: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
3db0: 29 20 76 65 72 73 69 6f 6e 73 0a 09 09 09 09 09  ) versions......
3dc0: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
3dd0: 65 29 20 6f 73 2d 63 70 75 0a 0a 09 09 09 09 09  e) os-cpu.......
3de0: 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20  .if {$pathlen > 
3df0: 33 7d 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20  3} {........set 
3e00: 72 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20  retval(version) 
3e10: 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20 33 5d  [lindex $path 3]
3e20: 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3e30: 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 66 69  al(_children) fi
3e40: 6c 65 73 0a 09 09 09 09 09 09 09 73 65 74 20 72  les........set r
3e50: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 76 65 72  etval(_type) ver
3e60: 73 69 6f 6e 73 0a 0a 09 09 09 09 09 09 09 73 65  sions.........se
3e70: 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65  t retval(package
3e80: 5f 73 68 61 31 29 20 5b 3a 3a 61 70 70 66 73 3a  _sha1) [::appfs:
3e90: 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53  :db onecolumn {S
3ea0: 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20  ELECT sha1 FROM 
3eb0: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
3ec0: 6f 73 74 6e 61 6d 65 20 3d 20 24 72 65 74 76 61  ostname = $retva
3ed0: 6c 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  l(hostname) AND 
3ee0: 70 61 63 6b 61 67 65 20 3d 20 24 72 65 74 76 61  package = $retva
3ef0: 6c 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f  l(package) AND o
3f00: 73 20 3d 20 24 72 65 74 76 61 6c 28 6f 73 29 20  s = $retval(os) 
3f10: 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 72  AND cpuArch = $r
3f20: 65 74 76 61 6c 28 63 70 75 29 20 41 4e 44 20 76  etval(cpu) AND v
3f30: 65 72 73 69 6f 6e 20 3d 20 24 72 65 74 76 61 6c  ersion = $retval
3f40: 28 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09  (version);}]....
3f50: 09 09 09 09 69 66 20 7b 24 72 65 74 76 61 6c 28  ....if {$retval(
3f60: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 3d 3d  package_sha1) ==
3f70: 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 73   ""} {.........s
3f80: 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64  et retval(_child
3f90: 72 65 6e 29 20 64 65 61 64 0a 09 09 09 09 09 09  ren) dead.......
3fa0: 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20  ..return [array 
3fb0: 67 65 74 20 72 65 74 76 61 6c 5d 0a 09 09 09 09  get retval].....
3fc0: 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 69 66 20  ...}.........if 
3fd0: 7b 24 70 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b  {$pathlen > 4} {
3fe0: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
3ff0: 76 61 6c 28 5f 74 79 70 65 29 20 66 69 6c 65 73  val(_type) files
4000: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
4010: 76 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20  val(file) [join 
4020: 5b 6c 72 61 6e 67 65 20 24 70 61 74 68 20 34 20  [lrange $path 4 
4030: 65 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09  end] "/"].......
4040: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09  .} else {.......
4050: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79  ..set retval(_ty
4060: 70 65 29 20 66 69 6c 65 73 0a 09 09 09 09 09 09  pe) files.......
4070: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
4080: 65 29 20 22 22 0a 09 09 09 09 09 09 09 7d 0a 09  e) ""........}..
4090: 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09  .....}......}...
40a0: 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09  ..}....}...}....
40b0: 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65  return [array ge
40c0: 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70  t retval]..}...p
40d0: 72 6f 63 20 67 65 74 63 68 69 6c 64 72 65 6e 20  roc getchildren 
40e0: 7b 64 69 72 7d 20 7b 0a 09 09 61 72 72 61 79 20  {dir} {...array 
40f0: 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70  set pathinfo [_p
4100: 61 72 73 65 70 61 74 68 20 24 64 69 72 5d 0a 0a  arsepath $dir]..
4110: 09 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74  ..switch -- $pat
4120: 68 69 6e 66 6f 28 5f 63 68 69 6c 64 72 65 6e 29  hinfo(_children)
4130: 20 7b 0a 09 09 09 22 73 69 74 65 73 22 20 7b 0a   {...."sites" {.
4140: 09 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70  ....return [::ap
4150: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
4160: 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 68 6f  LECT DISTINCT ho
4170: 73 74 6e 61 6d 65 20 46 52 4f 4d 20 70 61 63 6b  stname FROM pack
4180: 61 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09  ages;}]....}....
4190: 22 70 61 63 6b 61 67 65 73 22 20 7b 0a 09 09 09  "packages" {....
41a0: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a  .catch {......::
41b0: 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20  appfs::getindex 
41c0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
41d0: 6d 65 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72  me).....}......r
41e0: 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a  eturn [::appfs::
41f0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
4200: 44 49 53 54 49 4e 43 54 20 70 61 63 6b 61 67 65  DISTINCT package
4210: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
4220: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
4230: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4240: 6d 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22  me);}]....}...."
4250: 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09 09 73 65  os-cpu" {.....se
4260: 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66  t retval [::appf
4270: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
4280: 43 54 20 44 49 53 54 49 4e 43 54 20 6f 73 20 7c  CT DISTINCT os |
4290: 7c 20 22 2d 22 20 7c 7c 20 63 70 75 41 72 63 68  | "-" || cpuArch
42a0: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
42b0: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
42c0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
42d0: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
42e0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
42f0: 61 67 65 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70  age);}]......lap
4300: 70 65 6e 64 20 72 65 74 76 61 6c 20 22 70 6c 61  pend retval "pla
4310: 74 66 6f 72 6d 22 0a 0a 09 09 09 09 72 65 74 75  tform"......retu
4320: 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a  rn $retval....}.
4330: 09 09 09 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a  ..."versions" {.
4340: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b  ....set retval [
4350: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
4360: 20 7b 0a 09 09 09 09 09 53 45 4c 45 43 54 20 44   {......SELECT D
4370: 49 53 54 49 4e 43 54 20 76 65 72 73 69 6f 6e 20  ISTINCT version 
4380: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
4390: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
43a0: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
43b0: 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  e) AND package =
43c0: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
43d0: 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61  ge) AND os = $pa
43e0: 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63  thinfo(os) AND c
43f0: 70 75 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e  puArch = $pathin
4400: 66 6f 28 63 70 75 29 3b 0a 09 09 09 09 7d 5d 0a  fo(cpu);.....}].
4410: 0a 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62  .....::appfs::db
4420: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 76 65   eval {SELECT ve
4430: 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61  rsion FROM packa
4440: 67 65 73 20 57 48 45 52 45 20 69 73 4c 61 74 65  ges WHERE isLate
4450: 73 74 20 3d 20 31 20 41 4e 44 20 68 6f 73 74 6e  st = 1 AND hostn
4460: 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ame = $pathinfo(
4470: 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61  hostname) AND pa
4480: 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66  ckage = $pathinf
4490: 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f  o(package) AND o
44a0: 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f 73  s = $pathinfo(os
44b0: 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20  ) AND cpuArch = 
44c0: 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29 20 4c  $pathinfo(cpu) L
44d0: 49 4d 49 54 20 31 3b 7d 20 6c 61 74 65 73 74 5f  IMIT 1;} latest_
44e0: 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09 69 66 20  info {}......if 
44f0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6c 61  {[info exists la
4500: 74 65 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f  test_info(versio
4510: 6e 29 5d 7d 20 7b 0a 09 09 09 09 09 6c 61 70 70  n)]} {......lapp
4520: 65 6e 64 20 72 65 74 76 61 6c 20 22 6c 61 74 65  end retval "late
4530: 73 74 22 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72  st".....}......r
4540: 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09  eturn $retval...
4550: 09 7d 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a  .}...."files" {.
4560: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09  ....catch {.....
4570: 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64  .::appfs::getind
4580: 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  ex $pathinfo(hos
4590: 74 6e 61 6d 65 29 0a 09 09 09 09 09 3a 3a 61 70  tname)......::ap
45a0: 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66  pfs::getpkgmanif
45b0: 65 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  est $pathinfo(ho
45c0: 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66  stname) $pathinf
45d0: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a  o(package_sha1).
45e0: 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 72  ....}......set r
45f0: 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a  etval [::appfs::
4600: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
4610: 44 49 53 54 49 4e 43 54 20 66 69 6c 65 5f 6e 61  DISTINCT file_na
4620: 6d 65 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48  me FROM files WH
4630: 45 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31  ERE package_sha1
4640: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63   = $pathinfo(pac
4650: 6b 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66  kage_sha1) AND f
4660: 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20  ile_directory = 
4670: 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 3b  $pathinfo(file);
4680: 7d 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e 66  }]......if {[inf
4690: 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66  o exists pathinf
46a0: 6f 28 70 61 63 6b 61 67 65 29 5d 20 26 26 20 5b  o(package)] && [
46b0: 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68  info exists path
46c0: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 5d 20  info(hostname)] 
46d0: 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  && [info exists 
46e0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 7d  pathinfo(file)]}
46f0: 20 7b 0a 09 09 09 09 09 5f 61 73 5f 75 73 65 72   {......_as_user
4700: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 64 69 72   {.......set dir
4710: 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61   [_localpath $pa
4720: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
4730: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4740: 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69  me) $pathinfo(fi
4750: 6c 65 29 5d 0a 09 09 09 09 09 09 73 65 74 20 77  le)].......set w
4760: 68 69 74 65 6f 75 74 64 69 72 20 5b 73 74 72 69  hiteoutdir [stri
4770: 6e 67 20 72 61 6e 67 65 20 5b 5f 77 68 69 74 65  ng range [_white
4780: 6f 75 74 70 61 74 68 20 24 70 61 74 68 69 6e 66  outpath $pathinf
4790: 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68  o(package) $path
47a0: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24  info(hostname) $
47b0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 20  pathinfo(file)] 
47c0: 30 20 65 6e 64 2d 31 35 5d 0a 0a 09 09 09 09 09  0 end-15].......
47d0: 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 64 69  .if {$whiteoutdi
47e0: 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  r != ""} {......
47f0: 09 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b  ..foreach file [
4800: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
4810: 20 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f   -tails -directo
4820: 72 79 20 24 77 68 69 74 65 6f 75 74 64 69 72 20  ry $whiteoutdir 
4830: 7b 7b 2e 2c 7d 2a 2e 41 50 50 46 53 2e 57 48 49  {{.,}*.APPFS.WHI
4840: 54 45 4f 55 54 7d 5d 20 7b 0a 09 09 09 09 09 09  TEOUT}] {.......
4850: 09 09 73 65 74 20 72 65 6d 6f 76 65 20 5b 73 74  ..set remove [st
4860: 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c 65  ring range $file
4870: 20 30 20 65 6e 64 2d 31 35 5d 0a 09 09 09 09 09   0 end-15]......
4880: 09 09 09 73 65 74 20 69 64 78 20 5b 6c 73 65 61  ...set idx [lsea
4890: 72 63 68 20 2d 65 78 61 63 74 20 24 72 65 74 76  rch -exact $retv
48a0: 61 6c 20 24 72 65 6d 6f 76 65 5d 0a 09 09 09 09  al $remove].....
48b0: 09 09 09 09 69 66 20 7b 24 69 64 78 20 21 3d 20  ....if {$idx != 
48c0: 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 73  -1} {..........s
48d0: 65 74 20 72 65 74 76 61 6c 20 5b 6c 72 65 70 6c  et retval [lrepl
48e0: 61 63 65 20 24 72 65 74 76 61 6c 20 24 69 64 78  ace $retval $idx
48f0: 20 24 69 64 78 5d 0a 09 09 09 09 09 09 09 09 7d   $idx].........}
4900: 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09  ........}.......
4910: 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64 69  }........if {$di
4920: 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  r != ""} {......
4930: 09 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b  ..foreach file [
4940: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
4950: 20 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f   -tails -directo
4960: 72 79 20 24 64 69 72 20 7b 7b 2e 2c 7d 2a 7d 5d  ry $dir {{.,}*}]
4970: 20 7b 0a 09 09 09 09 09 09 09 09 69 66 20 7b 24   {.........if {$
4980: 66 69 6c 65 20 3d 3d 20 22 2e 22 20 7c 7c 20 24  file == "." || $
4990: 66 69 6c 65 20 3d 3d 20 22 2e 2e 22 7d 20 7b 0a  file == ".."} {.
49a0: 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75  .........continu
49b0: 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09 09  e.........}.....
49c0: 09 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d  .....if {$file =
49d0: 3d 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f  = ".APPFS.WHITEO
49e0: 55 54 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 09  UT"} {..........
49f0: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09  continue........
4a00: 09 7d 0a 0a 09 09 09 09 09 09 09 09 69 66 20 7b  .}..........if {
4a10: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20  [lsearch -exact 
4a20: 24 72 65 74 76 61 6c 20 24 66 69 6c 65 5d 20 21  $retval $file] !
4a30: 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09  = -1} {.........
4a40: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09  .continue.......
4a50: 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 6c 61 70  ..}..........lap
4a60: 70 65 6e 64 20 72 65 74 76 61 6c 20 24 66 69 6c  pend retval $fil
4a70: 65 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  e........}......
4a80: 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a  .}......}.....}.
4a90: 0a 09 09 09 09 72 65 74 75 72 6e 20 24 72 65 74  .....return $ret
4aa0: 76 61 6c 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09  val....}...}....
4ab0: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
4ac0: 6f 72 20 22 49 6e 76 61 6c 69 64 20 6f 72 20 75  or "Invalid or u
4ad0: 6e 61 63 63 65 70 74 61 62 6c 65 20 70 61 74 68  nacceptable path
4ae0: 3a 20 24 64 69 72 22 0a 09 7d 0a 0a 09 70 72 6f  : $dir"..}...pro
4af0: 63 20 67 65 74 61 74 74 72 20 7b 70 61 74 68 7d  c getattr {path}
4b00: 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70   {...array set p
4b10: 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70  athinfo [_parsep
4b20: 61 74 68 20 24 70 61 74 68 5d 0a 09 09 61 72 72  ath $path]...arr
4b30: 61 79 20 73 65 74 20 72 65 74 76 61 6c 20 5b 6c  ay set retval [l
4b40: 69 73 74 5d 0a 0a 09 09 63 61 74 63 68 20 7b 0a  ist]....catch {.
4b50: 09 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69  ...::appfs::geti
4b60: 6e 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68  ndex $pathinfo(h
4b70: 6f 73 74 6e 61 6d 65 29 0a 09 09 09 3a 3a 61 70  ostname)....::ap
4b80: 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66  pfs::getpkgmanif
4b90: 65 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  est $pathinfo(ho
4ba0: 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66  stname) $pathinf
4bb0: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a  o(package_sha1).
4bc0: 09 09 7d 0a 0a 09 09 73 65 74 20 72 65 74 76 61  ..}....set retva
4bd0: 6c 28 70 61 74 68 5f 74 79 70 65 29 20 24 70 61  l(path_type) $pa
4be0: 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 0a 0a 09  thinfo(_type)...
4bf0: 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68  .switch -- $path
4c00: 69 6e 66 6f 28 5f 74 79 70 65 29 20 7b 0a 09 09  info(_type) {...
4c10: 09 22 74 6f 70 6c 65 76 65 6c 22 20 7b 0a 09 09  ."toplevel" {...
4c20: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
4c30: 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09  e) directory....
4c40: 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c  .set retval(chil
4c50: 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68  dcount) [llength
4c60: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
4c70: 61 74 68 5d 5d 0a 09 09 09 7d 0a 09 09 09 22 73  ath]]....}...."s
4c80: 69 74 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20  ites" {.....set 
4c90: 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a  check [::appfs::
4ca0: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45  db onecolumn {SE
4cb0: 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61 63 6b  LECT 1 FROM pack
4cc0: 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e  ages WHERE hostn
4cd0: 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ame = $pathinfo(
4ce0: 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09  hostname);}]....
4cf0: 09 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22  .if {$check == "
4d00: 31 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72  1"} {......set r
4d10: 65 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65  etval(type) dire
4d20: 63 74 6f 72 79 0a 09 09 09 09 09 73 65 74 20 72  ctory......set r
4d30: 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74  etval(childcount
4d40: 29 20 30 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09  ) 0.....}....}..
4d50: 09 09 22 70 61 63 6b 61 67 65 73 22 20 7b 0a 09  .."packages" {..
4d60: 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a  ...set check [::
4d70: 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c  appfs::db onecol
4d80: 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31 20 46 52  umn {SELECT 1 FR
4d90: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
4da0: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
4db0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
4dc0: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24   AND package = $
4dd0: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
4de0: 29 3b 7d 5d 0a 09 09 09 09 69 66 20 7b 24 63 68  );}].....if {$ch
4df0: 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09  eck == "1"} {...
4e00: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79  ...set retval(ty
4e10: 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09  pe) directory...
4e20: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68  ...set retval(ch
4e30: 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67  ildcount) [lleng
4e40: 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  th [getchildren 
4e50: 24 70 61 74 68 5d 5d 0a 09 09 09 09 7d 0a 09 09  $path]].....}...
4e60: 09 7d 0a 09 09 09 22 6f 73 2d 63 70 75 22 20 7b  .}...."os-cpu" {
4e70: 0a 09 09 09 09 69 66 20 7b 24 70 61 74 68 69 6e  .....if {$pathin
4e80: 66 6f 28 6f 73 29 20 3d 3d 20 22 70 6c 61 74 66  fo(os) == "platf
4e90: 6f 72 6d 22 20 26 26 20 24 70 61 74 68 69 6e 66  orm" && $pathinf
4ea0: 6f 28 63 70 75 29 20 3d 3d 20 22 22 7d 20 7b 0a  o(cpu) == ""} {.
4eb0: 09 09 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b  .....set check [
4ec0: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
4ed0: 20 7b 0a 09 09 09 09 09 09 53 45 4c 45 43 54 20   {.......SELECT 
4ee0: 44 49 53 54 49 4e 43 54 20 6f 73 2c 20 63 70 75  DISTINCT os, cpu
4ef0: 41 72 63 68 20 46 52 4f 4d 20 70 61 63 6b 61 67  Arch FROM packag
4f00: 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d  es WHERE hostnam
4f10: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  e = $pathinfo(ho
4f20: 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b  stname) AND pack
4f30: 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  age = $pathinfo(
4f40: 70 61 63 6b 61 67 65 29 3b 0a 09 09 09 09 09 7d  package);......}
4f50: 5d 0a 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  ].......set retv
4f60: 61 6c 28 74 79 70 65 29 20 73 79 6d 6c 69 6e 6b  al(type) symlink
4f70: 0a 0a 09 09 09 09 09 69 66 20 7b 24 63 68 65 63  .......if {$chec
4f80: 6b 20 3d 3d 20 5b 6c 69 73 74 20 22 6e 6f 61 72  k == [list "noar
4f90: 63 68 22 20 22 6e 6f 61 72 63 68 22 5d 7d 20 7b  ch" "noarch"]} {
4fa0: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
4fb0: 6c 28 73 6f 75 72 63 65 29 20 22 6e 6f 61 72 63  l(source) "noarc
4fc0: 68 2d 6e 6f 61 72 63 68 22 0a 09 09 09 09 09 7d  h-noarch"......}
4fd0: 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 73 65   else {.......se
4fe0: 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29  t retval(source)
4ff0: 20 24 3a 3a 61 70 70 66 73 3a 3a 70 6c 61 74 66   $::appfs::platf
5000: 6f 72 6d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  orm......}.....}
5010: 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 73 65 74   else {......set
5020: 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a   check [::appfs:
5030: 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 0a  :db onecolumn {.
5040: 09 09 09 09 09 09 53 45 4c 45 43 54 20 31 20 46  ......SELECT 1 F
5050: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
5060: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70  RE hostname = $p
5070: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
5080: 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20  ) AND package = 
5090: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
50a0: 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74  e) AND os = $pat
50b0: 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70  hinfo(os) AND cp
50c0: 75 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66  uArch = $pathinf
50d0: 6f 28 63 70 75 29 3b 0a 09 09 09 09 09 7d 5d 0a  o(cpu);......}].
50e0: 09 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20  .....if {$check 
50f0: 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 09  == "1"} {.......
5100: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
5110: 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09   directory......
5120: 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c  .set retval(chil
5130: 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68  dcount) [llength
5140: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
5150: 61 74 68 5d 5d 0a 09 09 09 09 09 7d 0a 09 09 09  ath]]......}....
5160: 09 7d 0a 09 09 09 7d 0a 09 09 09 22 76 65 72 73  .}....}...."vers
5170: 69 6f 6e 73 22 20 7b 0a 09 09 09 09 69 66 20 7b  ions" {.....if {
5180: 24 70 61 74 68 69 6e 66 6f 28 76 65 72 73 69 6f  $pathinfo(versio
5190: 6e 29 20 3d 3d 20 22 6c 61 74 65 73 74 22 7d 20  n) == "latest"} 
51a0: 7b 0a 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a  {......::appfs::
51b0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
51c0: 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63  version FROM pac
51d0: 6b 61 67 65 73 20 57 48 45 52 45 20 69 73 4c 61  kages WHERE isLa
51e0: 74 65 73 74 20 3d 20 31 20 41 4e 44 20 68 6f 73  test = 1 AND hos
51f0: 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66  tname = $pathinf
5200: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  o(hostname) AND 
5210: 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69  package = $pathi
5220: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44  nfo(package) AND
5230: 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28   os = $pathinfo(
5240: 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20  os) AND cpuArch 
5250: 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29  = $pathinfo(cpu)
5260: 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61 74 65 73   LIMIT 1;} lates
5270: 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09 09  t_info {}.......
5280: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
5290: 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76 65 72   latest_info(ver
52a0: 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09 09 09  sion)]} {.......
52b0: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
52c0: 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09 09 73   symlink.......s
52d0: 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65  et retval(source
52e0: 29 20 24 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76  ) $latest_info(v
52f0: 65 72 73 69 6f 6e 29 0a 09 09 09 09 09 7d 0a 09  ersion)......}..
5300: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
5310: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
5320: 73 20 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61  s pathinfo(packa
5330: 67 65 5f 73 68 61 31 29 5d 20 26 26 20 24 70 61  ge_sha1)] && $pa
5340: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
5350: 68 61 31 29 20 21 3d 20 22 22 7d 20 7b 0a 09 09  ha1) != ""} {...
5360: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74  ....set retval(t
5370: 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09  ype) directory..
5380: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5390: 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65  childcount) [lle
53a0: 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65  ngth [getchildre
53b0: 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 7d  n $path]]......}
53c0: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22  .....}....}...."
53d0: 66 69 6c 65 73 22 20 7b 0a 09 09 09 09 73 65 74  files" {.....set
53e0: 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 64   retval(packaged
53f0: 29 20 31 0a 0a 09 09 09 09 73 65 74 20 6c 6f 63  ) 1......set loc
5400: 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c 70 61  alpath [_localpa
5410: 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63  th $pathinfo(pac
5420: 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28  kage) $pathinfo(
5430: 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69  hostname) $pathi
5440: 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09 09 09 73  nfo(file)].....s
5450: 65 74 20 77 68 69 74 65 6f 75 74 70 61 74 68 20  et whiteoutpath 
5460: 20 5b 5f 77 68 69 74 65 6f 75 74 70 61 74 68 20   [_whiteoutpath 
5470: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
5480: 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  e) $pathinfo(hos
5490: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f  tname) $pathinfo
54a0: 28 66 69 6c 65 29 5d 0a 0a 09 09 09 09 73 65 74  (file)]......set
54b0: 20 72 65 74 76 61 6c 28 6c 6f 63 61 6c 70 61 74   retval(localpat
54c0: 68 29 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09  h) $localpath...
54d0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 77 68 69  ..set retval(whi
54e0: 74 65 6f 75 74 70 61 74 68 29 20 24 77 68 69 74  teoutpath) $whit
54f0: 65 6f 75 74 70 61 74 68 0a 0a 09 09 09 09 75 6e  eoutpath......un
5500: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
5510: 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f 0a 09 09  localpathinfo...
5520: 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68  ..if {$localpath
5530: 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 5f   != ""} {......_
5540: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09 09  as_user {.......
5550: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 09 09 66  catch {........f
5560: 69 6c 65 20 6c 73 74 61 74 20 24 6c 6f 63 61 6c  ile lstat $local
5570: 70 61 74 68 20 6c 6f 63 61 6c 70 61 74 68 69 6e  path localpathin
5580: 66 6f 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09  fo.......}......
5590: 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 20  }.....}......if 
55a0: 7b 24 6c 6f 63 61 6c 70 61 74 68 20 21 3d 20 22  {$localpath != "
55b0: 22 20 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74  " && [info exist
55c0: 73 20 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f 5d  s localpathinfo]
55d0: 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74  } {......set ret
55e0: 76 61 6c 28 69 73 5f 6c 6f 63 61 6c 66 69 6c 65  val(is_localfile
55f0: 29 20 31 0a 09 09 09 09 09 75 6e 73 65 74 20 72  ) 1......unset r
5600: 65 74 76 61 6c 28 70 61 63 6b 61 67 65 64 29 0a  etval(packaged).
5610: 09 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09  .....catch {....
5620: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 69  ...set retval(ti
5630: 6d 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e  me) $localpathin
5640: 66 6f 28 6d 74 69 6d 65 29 0a 0a 09 09 09 09 09  fo(mtime).......
5650: 09 73 77 69 74 63 68 20 2d 2d 20 24 6c 6f 63 61  .switch -- $loca
5660: 6c 70 61 74 68 69 6e 66 6f 28 74 79 70 65 29 20  lpathinfo(type) 
5670: 7b 0a 09 09 09 09 09 09 09 22 64 69 72 65 63 74  {........"direct
5680: 6f 72 79 22 20 7b 0a 09 09 09 09 09 09 09 09 73  ory" {.........s
5690: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
56a0: 22 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09  "directory".....
56b0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
56c0: 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e  hildcount) [llen
56d0: 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e  gth [getchildren
56e0: 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 09 09   $path]]........
56f0: 7d 0a 09 09 09 09 09 09 09 22 66 69 6c 65 22 20  }........"file" 
5700: 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  {.........set re
5710: 74 76 61 6c 28 74 79 70 65 29 20 22 66 69 6c 65  tval(type) "file
5720: 22 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  ".........set re
5730: 74 76 61 6c 28 73 69 7a 65 29 20 24 6c 6f 63 61  tval(size) $loca
5740: 6c 70 61 74 68 69 6e 66 6f 28 73 69 7a 65 29 0a  lpathinfo(size).
5750: 0a 09 09 09 09 09 09 09 09 23 20 4f 6e 63 65 20  .........# Once 
5760: 74 68 65 20 75 73 65 72 20 77 72 69 74 65 73 20  the user writes 
5770: 74 6f 20 61 20 66 69 6c 65 2c 20 61 6c 6c 20 69  to a file, all i
5780: 74 73 20 6f 74 68 65 72 0a 09 09 09 09 09 09 09  ts other........
5790: 09 23 20 61 74 74 72 69 62 75 74 65 73 20 28 73  .# attributes (s
57a0: 75 63 68 20 61 73 20 73 75 69 64 29 20 61 72 65  uch as suid) are
57b0: 20 6c 6f 73 74 0a 0a 09 09 09 09 09 09 09 09 5f   lost.........._
57c0: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09 09  as_user {.......
57d0: 09 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 65  ...if {[file exe
57e0: 63 75 74 61 62 6c 65 20 24 6c 6f 63 61 6c 70 61  cutable $localpa
57f0: 74 68 5d 7d 20 7b 0a 09 09 09 09 09 09 09 09 09  th]} {..........
5800: 09 73 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d  .set retval(perm
5810: 73 29 20 22 78 2d 22 0a 09 09 09 09 09 09 09 09  s) "x-".........
5820: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09  .} else {.......
5830: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
5840: 65 72 6d 73 29 20 22 2d 22 0a 09 09 09 09 09 09  erms) "-".......
5850: 09 09 09 7d 0a 09 09 09 09 09 09 09 09 7d 0a 09  ...}.........}..
5860: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22  ......}........"
5870: 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 09 09  link" {.........
5880: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29  set retval(type)
5890: 20 22 73 79 6d 6c 69 6e 6b 22 0a 0a 09 09 09 09   "symlink"......
58a0: 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09  ...._as_user {..
58b0: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
58c0: 61 6c 28 73 6f 75 72 63 65 29 20 5b 66 69 6c 65  al(source) [file
58d0: 20 72 65 61 64 6c 69 6e 6b 20 24 6c 6f 63 61 6c   readlink $local
58e0: 70 61 74 68 5d 0a 09 09 09 09 09 09 09 09 7d 0a  path].........}.
58f0: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
5900: 22 66 69 66 6f 22 20 7b 0a 09 09 09 09 09 09 09  "fifo" {........
5910: 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20 73  .# Capitalized s
5920: 6f 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74  o that the first
5930: 20 63 68 61 72 20 69 73 20 75 6e 69 71 75 65 0a   char is unique.
5940: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
5950: 61 6c 28 74 79 70 65 29 20 22 46 69 66 6f 22 0a  al(type) "Fifo".
5960: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
5970: 22 73 6f 63 6b 65 74 22 20 7b 0a 09 09 09 09 09  "socket" {......
5980: 09 09 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64  ...# Capitalized
5990: 20 73 6f 20 74 68 61 74 20 74 68 65 20 66 69 72   so that the fir
59a0: 73 74 20 63 68 61 72 20 69 73 20 75 6e 69 71 75  st char is uniqu
59b0: 65 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  e.........set re
59c0: 74 76 61 6c 28 74 79 70 65 29 20 22 53 6f 63 6b  tval(type) "Sock
59d0: 65 74 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09  et"........}....
59e0: 09 09 09 7d 0a 09 09 09 09 09 7d 20 65 72 72 0a  ...}......} err.
59f0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
5a00: 09 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 70  ..if {$whiteoutp
5a10: 61 74 68 20 3d 3d 20 22 22 20 7c 7c 20 21 5b 66  ath == "" || ![f
5a20: 69 6c 65 20 65 78 69 73 74 73 20 24 77 68 69 74  ile exists $whit
5a30: 65 6f 75 74 70 61 74 68 5d 7d 20 7b 0a 09 09 09  eoutpath]} {....
5a40: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 69 73  ...set retval(is
5a50: 5f 72 65 6d 6f 74 65 66 69 6c 65 29 20 31 0a 0a  _remotefile) 1..
5a60: 09 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  ......set work [
5a70: 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f 28  split $pathinfo(
5a80: 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 09 09 09  file) "/"]......
5a90: 09 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b  .set directory [
5aa0: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f  join [lrange $wo
5ab0: 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d  rk 0 end-1] "/"]
5ac0: 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 20  .......set file 
5ad0: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 65 6e  [lindex $work en
5ae0: 64 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64  d]........if {$d
5af0: 69 72 65 63 74 6f 72 79 20 3d 3d 20 22 22 20 26  irectory == "" &
5b00: 26 20 24 66 69 6c 65 20 3d 3d 20 22 22 7d 20 7b  & $file == ""} {
5b10: 0a 09 09 09 09 09 09 09 61 72 72 61 79 20 73 65  ........array se
5b20: 74 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 20 74  t retval [list t
5b30: 79 70 65 20 64 69 72 65 63 74 6f 72 79 5d 0a 09  ype directory]..
5b40: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 3a 3a  .....}........::
5b50: 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b  appfs::db eval {
5b60: 53 45 4c 45 43 54 20 74 79 70 65 2c 20 74 69 6d  SELECT type, tim
5b70: 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c  e, source, size,
5b80: 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61   perms, file_sha
5b90: 31 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45  1 FROM files WHE
5ba0: 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20  RE package_sha1 
5bb0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
5bc0: 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69  age_sha1) AND fi
5bd0: 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24  le_directory = $
5be0: 64 69 72 65 63 74 6f 72 79 20 41 4e 44 20 66 69  directory AND fi
5bf0: 6c 65 5f 6e 61 6d 65 20 3d 20 24 66 69 6c 65 3b  le_name = $file;
5c00: 7d 20 72 65 74 76 61 6c 20 7b 7d 0a 0a 09 09 09  } retval {}.....
5c10: 09 09 09 23 20 41 6c 6c 6f 77 20 61 6e 20 61 64  ...# Allow an ad
5c20: 6d 69 6e 69 73 74 72 61 74 6f 72 20 74 6f 20 73  ministrator to s
5c30: 75 70 70 6c 79 20 61 64 64 69 74 69 6f 6e 61 6c  upply additional
5c40: 20 70 65 72 6d 69 73 73 69 6f 6e 73 20 74 6f 20   permissions to 
5c50: 72 65 6d 6f 74 65 20 66 69 6c 65 73 0a 09 09 09  remote files....
5c60: 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  ...if {[info exi
5c70: 73 74 73 20 72 65 74 76 61 6c 28 70 65 72 6d 73  sts retval(perms
5c80: 29 5d 7d 20 7b 0a 09 09 09 09 09 09 09 23 20 4c  )]} {........# L
5c90: 6f 77 65 72 20 63 61 73 65 20 74 68 69 73 20 69  ower case this i
5ca0: 6e 20 63 61 73 65 20 61 6e 20 75 70 70 65 72 2d  n case an upper-
5cb0: 63 61 73 65 64 20 76 61 6c 75 65 20 77 61 73 20  cased value was 
5cc0: 70 75 74 20 69 6e 0a 09 09 09 09 09 09 09 23 20  put in........# 
5cd0: 74 68 65 20 64 61 74 61 62 61 73 65 20 62 65 66  the database bef
5ce0: 6f 72 65 20 77 65 20 73 74 61 72 74 65 64 20 6c  ore we started l
5cf0: 6f 77 65 72 63 61 73 69 6e 67 20 74 68 65 6d 0a  owercasing them.
5d00: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
5d10: 6c 28 70 65 72 6d 73 29 20 5b 73 74 72 69 6e 67  l(perms) [string
5d20: 20 74 6f 6c 6f 77 65 72 20 24 72 65 74 76 61 6c   tolower $retval
5d30: 28 70 65 72 6d 73 29 5d 0a 0a 09 09 09 09 09 09  (perms)]........
5d40: 09 73 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d  .set retval(perm
5d50: 73 29 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65  s) [::appfs::use
5d60: 72 3a 3a 63 68 61 6e 67 65 5f 70 65 72 6d 73 20  r::change_perms 
5d70: 24 70 61 74 68 20 24 72 65 74 76 61 6c 28 66 69  $path $retval(fi
5d80: 6c 65 5f 73 68 61 31 29 20 24 72 65 74 76 61 6c  le_sha1) $retval
5d90: 28 70 65 72 6d 73 29 5d 0a 09 09 09 09 09 09 7d  (perms)].......}
5da0: 0a 0a 09 09 09 09 09 09 69 66 20 7b 5b 69 6e 66  ........if {[inf
5db0: 6f 20 65 78 69 73 74 73 20 72 65 74 76 61 6c 28  o exists retval(
5dc0: 74 79 70 65 29 5d 20 26 26 20 24 72 65 74 76 61  type)] && $retva
5dd0: 6c 28 74 79 70 65 29 20 3d 3d 20 22 64 69 72 65  l(type) == "dire
5de0: 63 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 09 09  ctory"} {.......
5df0: 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c  .set retval(chil
5e00: 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68  dcount) [llength
5e10: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
5e20: 61 74 68 5d 5d 0a 09 09 09 09 09 09 7d 0a 0a 09  ath]].......}...
5e30: 09 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f  .....unset -noco
5e40: 6d 70 6c 61 69 6e 20 72 65 74 76 61 6c 28 2a 29  mplain retval(*)
5e50: 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09  ......}.....}...
5e60: 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  ..}...}....if {!
5e70: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74  [info exists ret
5e80: 76 61 6c 28 74 79 70 65 29 5d 7d 20 7b 0a 09 09  val(type)]} {...
5e90: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
5ea0: 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69 6c  ror "No such fil
5eb0: 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 0a  e or directory".
5ec0: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61  ..}....return [a
5ed0: 72 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d  rray get retval]
5ee0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 6f 70 65 6e 70  ..}...proc openp
5ef0: 61 74 68 20 7b 70 61 74 68 20 6d 6f 64 65 7d 20  ath {path mode} 
5f00: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
5f10: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61  thinfo [_parsepa
5f20: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20  th $path]....if 
5f30: 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65  {$pathinfo(_type
5f40: 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a  ) != "files"} {.
5f50: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
5f60: 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 70  error "invalid p
5f70: 61 74 68 20 74 79 70 65 3a 20 47 6f 74 20 5c 22  ath type: Got \"
5f80: 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29  $pathinfo(_type)
5f90: 5c 22 2c 20 6e 65 65 64 20 5c 22 66 69 6c 65 73  \", need \"files
5fa0: 5c 22 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c  \""...}....set l
5fb0: 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c  ocalpath [_local
5fc0: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
5fd0: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
5fe0: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
5ff0: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09  hinfo(file)]....
6000: 69 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 63 72  if {$mode == "cr
6010: 65 61 74 65 22 7d 20 7b 0a 09 09 09 69 66 20 7b  eate"} {....if {
6020: 24 6c 6f 63 61 6c 70 61 74 68 20 3d 3d 20 22 22  $localpath == ""
6030: 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d  } {.....return -
6040: 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65  code error "Aske
6050: 64 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75 74  d to create, but
6060: 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74 6f   no home directo
6070: 72 79 2e 22 0a 09 09 09 7d 0a 0a 09 09 09 72 65  ry."....}.....re
6080: 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a  turn $localpath.
6090: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6c 6f 63 61  ..}....if {$loca
60a0: 6c 70 61 74 68 20 21 3d 20 22 22 20 26 26 20 5b  lpath != "" && [
60b0: 66 69 6c 65 20 65 78 69 73 74 73 20 24 6c 6f 63  file exists $loc
60c0: 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 72 65  alpath]} {....re
60d0: 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a  turn $localpath.
60e0: 09 09 7d 0a 0a 09 09 73 65 74 20 77 6f 72 6b 20  ..}....set work 
60f0: 5b 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f  [split $pathinfo
6100: 28 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 73 65  (file) "/"]...se
6110: 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6a 6f 69  t directory [joi
6120: 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20  n [lrange $work 
6130: 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09  0 end-1] "/"]...
6140: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78  set file [lindex
6150: 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 09 09 3a 3a   $work end]...::
6160: 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b  appfs::db eval {
6170: 53 45 4c 45 43 54 20 66 69 6c 65 5f 73 68 61 31  SELECT file_sha1
6180: 2c 20 70 65 72 6d 73 20 46 52 4f 4d 20 66 69 6c  , perms FROM fil
6190: 65 73 20 57 48 45 52 45 20 70 61 63 6b 61 67 65  es WHERE package
61a0: 5f 73 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66  _sha1 = $pathinf
61b0: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20  o(package_sha1) 
61c0: 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65 20 3d 20  AND file_name = 
61d0: 24 66 69 6c 65 20 41 4e 44 20 66 69 6c 65 5f 64  $file AND file_d
61e0: 69 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65  irectory = $dire
61f0: 63 74 6f 72 79 3b 7d 20 70 6b 67 70 61 74 68 69  ctory;} pkgpathi
6200: 6e 66 6f 20 7b 7d 0a 0a 09 09 69 66 20 7b 24 70  nfo {}....if {$p
6210: 6b 67 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 5f  kgpathinfo(file_
6220: 73 68 61 31 29 20 3d 3d 20 22 22 7d 20 7b 0a 09  sha1) == ""} {..
6230: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
6240: 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69  rror "No such fi
6250: 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22  le or directory"
6260: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61  ...}....set loca
6270: 6c 63 61 63 68 65 66 69 6c 65 20 5b 64 6f 77 6e  lcachefile [down
6280: 6c 6f 61 64 20 24 70 61 74 68 69 6e 66 6f 28 68  load $pathinfo(h
6290: 6f 73 74 6e 61 6d 65 29 20 24 70 6b 67 70 61 74  ostname) $pkgpat
62a0: 68 69 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31 29  hinfo(file_sha1)
62b0: 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64 65 20 3d  ]....if {$mode =
62c0: 3d 20 22 77 72 69 74 65 22 7d 20 7b 0a 09 09 09  = "write"} {....
62d0: 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 73  _as_user {.....s
62e0: 65 74 20 74 6d 70 6c 6f 63 61 6c 70 61 74 68 20  et tmplocalpath 
62f0: 22 24 7b 6c 6f 63 61 6c 70 61 74 68 7d 2e 5b 65  "${localpath}.[e
6300: 78 70 72 20 72 61 6e 64 28 29 5d 5b 63 6c 6f 63  xpr rand()][cloc
6310: 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 09 09  k clicks]"......
6320: 73 65 74 20 66 61 69 6c 65 64 20 30 0a 09 09 09  set failed 0....
6330: 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09  .if {[catch {...
6340: 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66  ...file mkdir [f
6350: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 6c 6f 63  ile dirname $loc
6360: 61 6c 70 61 74 68 5d 0a 09 09 09 09 09 66 69 6c  alpath]......fil
6370: 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d  e copy -force --
6380: 20 24 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65   $localcachefile
6390: 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 0a   $tmplocalpath..
63a0: 09 09 09 09 09 69 66 20 7b 24 70 6b 67 70 61 74  .....if {$pkgpat
63b0: 68 69 6e 66 6f 28 70 65 72 6d 73 29 20 3d 3d 20  hinfo(perms) == 
63c0: 22 78 22 7d 20 7b 0a 09 09 09 09 09 09 66 69 6c  "x"} {.......fil
63d0: 65 20 61 74 74 72 69 62 75 74 65 73 20 24 74 6d  e attributes $tm
63e0: 70 6c 6f 63 61 6c 70 61 74 68 20 2d 70 65 72 6d  plocalpath -perm
63f0: 69 73 73 69 6f 6e 73 20 2b 78 0a 09 09 09 09 09  issions +x......
6400: 7d 0a 0a 09 09 09 09 09 66 69 6c 65 20 72 65 6e  }.......file ren
6410: 61 6d 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74  ame -force -- $t
6420: 6d 70 6c 6f 63 61 6c 70 61 74 68 20 24 6c 6f 63  mplocalpath $loc
6430: 61 6c 70 61 74 68 0a 09 09 09 09 7d 20 65 72 72  alpath.....} err
6440: 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 66 61  ]} {......set fa
6450: 69 6c 65 64 20 31 0a 09 09 09 09 7d 0a 09 09 09  iled 1.....}....
6460: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 66 69  .catch {......fi
6470: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
6480: 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74   -- $tmplocalpat
6490: 68 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09  h.....}....}....
64a0: 09 69 66 20 7b 24 66 61 69 6c 65 64 7d 20 7b 0a  .if {$failed} {.
64b0: 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
64c0: 20 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09 7d   error $err....}
64d0: 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63  .....return $loc
64e0: 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72 65  alpath...}....re
64f0: 74 75 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68 65  turn $localcache
6500: 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 6c  file..}...proc l
6510: 6f 63 61 6c 70 61 74 68 20 7b 70 61 74 68 7d 20  ocalpath {path} 
6520: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
6530: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61  thinfo [_parsepa
6540: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20  th $path]....if 
6550: 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65  {$pathinfo(_type
6560: 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a  ) != "files"} {.
6570: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
6580: 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 70  error "invalid p
6590: 61 74 68 20 74 79 70 65 3a 20 47 6f 74 20 5c 22  ath type: Got \"
65a0: 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29  $pathinfo(_type)
65b0: 5c 22 2c 20 6e 65 65 64 20 5c 22 66 69 6c 65 73  \", need \"files
65c0: 5c 22 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c  \""...}....set l
65d0: 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c  ocalpath [_local
65e0: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
65f0: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
6600: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
6610: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09  hinfo(file)]....
6620: 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74  return $localpat
6630: 68 0a 09 7d 0a 0a 09 70 72 6f 63 20 65 78 69 73  h..}...proc exis
6640: 74 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09 63 61  ts {path} {...ca
6650: 74 63 68 20 7b 0a 09 09 09 73 65 74 20 69 6e 66  tch {....set inf
6660: 6f 20 5b 67 65 74 61 74 74 72 20 24 70 61 74 68  o [getattr $path
6670: 5d 0a 09 09 7d 20 65 72 72 0a 0a 09 09 69 66 20  ]...} err....if 
6680: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69  {![info exists i
6690: 6e 66 6f 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24  nfo]} {....if {$
66a0: 65 72 72 20 3d 3d 20 22 4e 6f 20 73 75 63 68 20  err == "No such 
66b0: 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72  file or director
66c0: 79 22 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  y"} {.....return
66d0: 20 5b 6c 69 73 74 5d 0a 09 09 09 7d 20 65 6c 73   [list]....} els
66e0: 65 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d  e {.....return -
66f0: 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72 72 0a  code error $err.
6700: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75  ...}...}....retu
6710: 72 6e 20 24 69 6e 66 6f 0a 09 7d 0a 0a 09 70 72  rn $info..}...pr
6720: 6f 63 20 70 72 65 70 61 72 65 5f 74 6f 5f 63 72  oc prepare_to_cr
6730: 65 61 74 65 20 7b 70 61 74 68 20 7b 6d 75 73 74  eate {path {must
6740: 5f 6e 6f 74 5f 65 78 69 73 74 20 31 7d 7d 20 7b  _not_exist 1}} {
6750: 0a 09 09 69 66 20 7b 24 6d 75 73 74 5f 6e 6f 74  ...if {$must_not
6760: 5f 65 78 69 73 74 7d 20 7b 0a 09 09 09 69 66 20  _exist} {....if 
6770: 7b 5b 65 78 69 73 74 73 20 24 70 61 74 68 5d 20  {[exists $path] 
6780: 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72 65 74  != ""} {.....ret
6790: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
67a0: 22 46 69 6c 65 20 61 6c 72 65 61 64 79 20 65 78  "File already ex
67b0: 69 73 74 73 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a  ists"....}...}..
67c0: 09 09 73 65 74 20 66 69 6c 65 6e 61 6d 65 20 5b  ..set filename [
67d0: 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 5d  localpath $path]
67e0: 0a 0a 09 09 69 66 20 7b 24 66 69 6c 65 6e 61 6d  ....if {$filenam
67f0: 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65  e == ""} {....re
6800: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
6810: 20 22 41 73 6b 65 64 20 74 6f 20 63 72 65 61 74   "Asked to creat
6820: 65 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64  e, but no home d
6830: 69 72 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a  irectory."...}..
6840: 09 09 73 65 74 20 64 69 72 6e 61 6d 65 20 5b 66  ..set dirname [f
6850: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69 6c  ile dirname $fil
6860: 65 6e 61 6d 65 5d 0a 0a 09 09 5f 61 73 5f 75 73  ename]...._as_us
6870: 65 72 20 7b 0a 09 09 09 66 69 6c 65 20 6d 6b 64  er {....file mkd
6880: 69 72 20 24 64 69 72 6e 61 6d 65 0a 09 09 7d 0a  ir $dirname...}.
6890: 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65 6e  ...return $filen
68a0: 61 6d 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 75 6e  ame..}...proc un
68b0: 6c 69 6e 6b 70 61 74 68 20 7b 70 61 74 68 7d 20  linkpath {path} 
68c0: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
68d0: 74 68 61 74 74 72 73 20 5b 65 78 69 73 74 73 20  thattrs [exists 
68e0: 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b 24 70  $path]....if {$p
68f0: 61 74 68 61 74 74 72 73 28 70 61 74 68 5f 74 79  athattrs(path_ty
6900: 70 65 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20  pe) != "files"} 
6910: 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  {....return -cod
6920: 65 20 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64  e error "invalid
6930: 20 70 61 74 68 20 74 79 70 65 3a 20 63 61 6e 20   path type: can 
6940: 6f 6e 6c 79 20 64 65 6c 65 74 65 20 74 79 70 65  only delete type
6950: 20 5c 22 66 69 6c 65 73 5c 22 20 74 68 69 73 20   \"files\" this 
6960: 69 73 20 74 79 70 65 20 5c 22 24 70 61 74 68 61  is type \"$patha
6970: 74 74 72 73 28 70 61 74 68 5f 74 79 70 65 29 5c  ttrs(path_type)\
6980: 22 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f  ""...}....set lo
6990: 63 61 6c 70 61 74 68 20 24 70 61 74 68 61 74 74  calpath $pathatt
69a0: 72 73 28 6c 6f 63 61 6c 70 61 74 68 29 0a 0a 09  rs(localpath)...
69b0: 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20  .if {$localpath 
69c0: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75  == ""} {....retu
69d0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
69e0: 41 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 2c  Asked to delete,
69f0: 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72   but no home dir
6a00: 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 09  ectory."...}....
6a10: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
6a20: 20 70 61 74 68 61 74 74 72 73 28 69 73 5f 6c 6f   pathattrs(is_lo
6a30: 63 61 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09  calfile)]} {....
6a40: 69 66 20 7b 5b 66 69 6c 65 20 69 73 64 69 72 65  if {[file isdire
6a50: 63 74 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74 68  ctory $localpath
6a60: 5d 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68 69  ]} {.....set chi
6a70: 6c 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64 72  ldren [getchildr
6a80: 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09 69  en $path]......i
6a90: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68 69  f {[llength $chi
6aa0: 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09  ldren] != 0} {..
6ab0: 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
6ac0: 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f   error "Asked to
6ad0: 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74   delete non-empt
6ae0: 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09  y directory"....
6af0: 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 5f 61 73 5f  .}....}....._as_
6b00: 75 73 65 72 20 7b 0a 09 09 09 09 66 69 6c 65 20  user {.....file 
6b10: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d  delete -force --
6b20: 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 7d   $localpath....}
6b30: 0a 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e  ...} elseif {[in
6b40: 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 74  fo exists pathat
6b50: 74 72 73 28 69 73 5f 72 65 6d 6f 74 65 66 69 6c  trs(is_remotefil
6b60: 65 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 70  e)]} {....if {$p
6b70: 61 74 68 61 74 74 72 73 28 74 79 70 65 29 20 3d  athattrs(type) =
6b80: 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20 7b  = "directory"} {
6b90: 0a 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 65  .....set childre
6ba0: 6e 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24  n [getchildren $
6bb0: 70 61 74 68 5d 0a 0a 09 09 09 09 69 66 20 7b 5b  path]......if {[
6bc0: 6c 6c 65 6e 67 74 68 20 24 63 68 69 6c 64 72 65  llength $childre
6bd0: 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 09 09  n] != 0} {......
6be0: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
6bf0: 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65 6c  or "Asked to del
6c00: 65 74 65 20 6e 6f 6e 2d 65 6d 70 74 79 20 64 69  ete non-empty di
6c10: 72 65 63 74 6f 72 79 22 0a 09 09 09 09 7d 0a 09  rectory".....}..
6c20: 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ..}...} else {..
6c30: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
6c40: 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 69 66  rror "Unknown if
6c50: 20 66 69 6c 65 20 69 73 20 72 65 6d 6f 74 65 20   file is remote 
6c60: 6f 72 20 6c 6f 63 61 6c 20 21 3f 22 0a 09 09 7d  or local !?"...}
6c70: 0a 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75 74  ....set whiteout
6c80: 66 69 6c 65 20 24 70 61 74 68 61 74 74 72 73 28  file $pathattrs(
6c90: 77 68 69 74 65 6f 75 74 70 61 74 68 29 0a 09 09  whiteoutpath)...
6ca0: 73 65 74 20 77 68 69 74 65 6f 75 74 64 69 72 20  set whiteoutdir 
6cb0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 77  [file dirname $w
6cc0: 68 69 74 65 6f 75 74 66 69 6c 65 5d 0a 0a 09 09  hiteoutfile]....
6cd0: 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66 69  _as_user {....fi
6ce0: 6c 65 20 6d 6b 64 69 72 20 24 77 68 69 74 65 6f  le mkdir $whiteo
6cf0: 75 74 64 69 72 0a 09 09 09 63 6c 6f 73 65 20 5b  utdir....close [
6d00: 6f 70 65 6e 20 24 77 68 69 74 65 6f 75 74 66 69  open $whiteoutfi
6d10: 6c 65 20 77 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a     le w]...}..}.}.