Hex Artifact Content

Artifact 9ba44d8408a1ad2a93b62bfd75b302130a006bb3:


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 70 65  e_perms {file pe
06d0: 72 6d 73 7d 20 7b 0a 09 09 69 66 20 7b 5b 69 6e  rms} {...if {[in
06e0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70 70 66  fo exists ::appf
06f0: 73 3a 3a 75 73 65 72 3a 3a 61 64 64 5f 70 65 72  s::user::add_per
0700: 6d 73 28 24 66 69 6c 65 29 5d 7d 20 7b 0a 09 09  ms($file)]} {...
0710: 09 61 70 70 65 6e 64 20 70 65 72 6d 73 20 24 3a  .append perms $:
0720: 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64  :appfs::user::ad
0730: 64 5f 70 65 72 6d 73 28 24 66 69 6c 65 29 0a 09  d_perms($file)..
0740: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 70 65  .}....return $pe
0750: 72 6d 73 0a 09 7d 0a 7d 0a 0a 6e 61 6d 65 73 70  rms..}.}..namesp
0760: 61 63 65 20 65 76 61 6c 20 3a 3a 61 70 70 66 73  ace eval ::appfs
0770: 20 7b 0a 09 76 61 72 69 61 62 6c 65 20 63 61 63   {..variable cac
0780: 68 65 64 69 72 20 22 2f 74 6d 70 2f 61 70 70 66  hedir "/tmp/appf
0790: 73 2d 63 61 63 68 65 22 0a 09 76 61 72 69 61 62  s-cache"..variab
07a0: 6c 65 20 74 74 6c 20 33 36 30 30 0a 09 76 61 72  le ttl 3600..var
07b0: 69 61 62 6c 65 20 6e 74 74 6c 20 36 30 0a 09 76  iable nttl 60..v
07c0: 61 72 69 61 62 6c 65 20 74 72 75 73 74 65 64 5f  ariable trusted_
07d0: 63 61 73 20 5b 6c 69 73 74 5d 0a 09 76 61 72 69  cas [list]..vari
07e0: 61 62 6c 65 20 70 6c 61 74 66 6f 72 6d 20 5b 3a  able platform [:
07f0: 3a 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e 65 72  :platform::gener
0800: 69 63 5d 0a 0a 09 70 72 6f 63 20 5f 68 61 73 68  ic]...proc _hash
0810: 5f 73 65 70 20 7b 68 61 73 68 20 7b 73 65 70 73  _sep {hash {seps
0820: 20 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b 73 65   4}} {...for {se
0830: 74 20 69 64 78 20 30 7d 20 7b 24 69 64 78 20 3c  t idx 0} {$idx <
0840: 20 24 73 65 70 73 7d 20 7b 69 6e 63 72 20 69 64   $seps} {incr id
0850: 78 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 72  x} {....append r
0860: 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72  etval "[string r
0870: 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70 72  ange $hash [expr
0880: 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b 65 78   {$idx * 2}] [ex
0890: 70 72 20 7b 28 24 69 64 78 20 2a 20 32 29 20 2b  pr {($idx * 2) +
08a0: 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 61 70   1}]]/"...}...ap
08b0: 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b 73 74  pend retval "[st
08c0: 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61 73 68  ring range $hash
08d0: 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a 20 32   [expr {$idx * 2
08e0: 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65 74 75  }] end]"....retu
08f0: 72 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a 0a 09  rn $retval..}...
0900: 70 72 6f 63 20 5f 63 61 63 68 65 66 69 6c 65 20  proc _cachefile 
0910: 7b 75 72 6c 20 6b 65 79 20 7b 6b 65 79 49 73 48  {url key {keyIsH
0920: 61 73 68 20 31 7d 7d 20 7b 0a 09 09 73 65 74 20  ash 1}} {...set 
0930: 66 69 6c 65 6b 65 79 20 24 6b 65 79 0a 09 09 69  filekey $key...i
0940: 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b  f {$keyIsHash} {
0950: 0a 09 09 09 73 65 74 20 66 69 6c 65 6b 65 79 20  ....set filekey 
0960: 5b 5f 68 61 73 68 5f 73 65 70 20 24 66 69 6c 65  [_hash_sep $file
0970: 6b 65 79 5d 0a 09 09 7d 0a 0a 09 09 73 65 74 20  key]...}....set 
0980: 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  file [file join 
0990: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
09a0: 69 72 20 24 66 69 6c 65 6b 65 79 5d 0a 0a 09 09  ir $filekey]....
09b0: 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65  file mkdir [file
09c0: 20 64 69 72 6e 61 6d 65 20 24 66 69 6c 65 5d 0a   dirname $file].
09d0: 0a 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69  ...if {[file exi
09e0: 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09 09  sts $file]} {...
09f0: 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 09  .return $file...
0a00: 7d 0a 0a 09 09 73 65 74 20 74 6d 70 66 69 6c 65  }....set tmpfile
0a10: 20 22 24 7b 66 69 6c 65 7d 2e 5b 65 78 70 72 20   "${file}.[expr 
0a20: 7b 72 61 6e 64 28 29 7d 5d 5b 63 6c 6f 63 6b 20  {rand()}][clock 
0a30: 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 73 65 74 20  clicks]"....set 
0a40: 66 64 20 5b 6f 70 65 6e 20 24 74 6d 70 66 69 6c  fd [open $tmpfil
0a50: 65 20 22 77 22 5d 0a 09 09 66 63 6f 6e 66 69 67  e "w"]...fconfig
0a60: 75 72 65 20 24 66 64 20 2d 74 72 61 6e 73 6c 61  ure $fd -transla
0a70: 74 69 6f 6e 20 62 69 6e 61 72 79 0a 0a 09 09 63  tion binary....c
0a80: 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 74 6f  atch {....set to
0a90: 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74  ken [::http::get
0aa0: 75 72 6c 20 24 75 72 6c 20 2d 63 68 61 6e 6e 65  url $url -channe
0ab0: 6c 20 24 66 64 20 2d 62 69 6e 61 72 79 20 74 72  l $fd -binary tr
0ac0: 75 65 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b  ue]...}....if {[
0ad0: 69 6e 66 6f 20 65 78 69 73 74 73 20 74 6f 6b 65  info exists toke
0ae0: 6e 5d 7d 20 7b 0a 09 09 09 73 65 74 20 6e 63 6f  n]} {....set nco
0af0: 64 65 20 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64  de [::http::ncod
0b00: 65 20 24 74 6f 6b 65 6e 5d 0a 09 09 09 3a 3a 68  e $token]....::h
0b10: 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65  ttp::reset $toke
0b20: 6e 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  n...} else {....
0b30: 73 65 74 20 6e 63 6f 64 65 20 22 39 30 30 22 0a  set ncode "900".
0b40: 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64  ..}....close $fd
0b50: 0a 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61  ....if {$keyIsHa
0b60: 73 68 7d 20 7b 0a 09 09 09 73 65 74 20 68 61 73  sh} {....set has
0b70: 68 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  h [string tolowe
0b80: 72 20 5b 73 68 61 31 3a 3a 73 68 61 31 20 2d 68  r [sha1::sha1 -h
0b90: 65 78 20 2d 66 69 6c 65 20 24 74 6d 70 66 69 6c  ex -file $tmpfil
0ba0: 65 5d 5d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  e]]...} else {..
0bb0: 09 09 73 65 74 20 68 61 73 68 20 24 6b 65 79 0a  ..set hash $key.
0bc0: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 63 6f 64  ..}....if {$ncod
0bd0: 65 20 3d 3d 20 22 32 30 30 22 20 26 26 20 24 68  e == "200" && $h
0be0: 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b 0a 09  ash == $key} {..
0bf0: 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66  ..file rename -f
0c00: 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65  orce -- $tmpfile
0c10: 20 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73 65 20   $file...} else 
0c20: 7b 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65  {....file delete
0c30: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66   -force -- $tmpf
0c40: 69 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  ile...}....retur
0c50: 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09 70 72  n $file..}....pr
0c60: 6f 63 20 5f 69 73 48 61 73 68 20 7b 76 61 6c 75  oc _isHash {valu
0c70: 65 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c 75 65  e} {...set value
0c80: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
0c90: 20 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66 20 7b   $value]....if {
0ca0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
0cb0: 76 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20 7b 0a  value] != 40} {.
0cc0: 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a  ...return false.
0cd0: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72 65 67  ..}....if {![reg
0ce0: 65 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d 2a 24  exp {^[0-9a-f]*$
0cf0: 7d 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09 09 09  } $value]} {....
0d00: 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d  return false...}
0d10: 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 0a  ....return true.
0d20: 09 7d 0a 0a 09 70 72 6f 63 20 5f 76 65 72 69 66  .}...proc _verif
0d30: 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65 72  ySignatureAndCer
0d40: 74 69 66 69 63 61 74 65 20 7b 68 6f 73 74 6e 61  tificate {hostna
0d50: 6d 65 20 63 65 72 74 69 66 69 63 61 74 65 20 73  me certificate s
0d60: 69 67 6e 61 74 75 72 65 20 68 61 73 68 7d 20 7b  ignature hash} {
0d70: 0a 09 09 73 65 74 20 63 65 72 74 69 66 69 63 61  ...set certifica
0d80: 74 65 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d 61  te [binary forma
0d90: 74 20 22 48 2a 22 20 24 63 65 72 74 69 66 69 63  t "H*" $certific
0da0: 61 74 65 5d 0a 09 09 73 65 74 20 73 69 67 6e 61  ate]...set signa
0db0: 74 75 72 65 20 20 20 5b 62 69 6e 61 72 79 20 66  ture   [binary f
0dc0: 6f 72 6d 61 74 20 22 48 2a 22 20 24 73 69 67 6e  ormat "H*" $sign
0dd0: 61 74 75 72 65 5d 0a 0a 09 09 73 65 74 20 63 65  ature]....set ce
0de0: 72 74 69 66 69 63 61 74 65 20 5b 3a 3a 70 6b 69  rtificate [::pki
0df0: 3a 3a 78 35 30 39 3a 3a 70 61 72 73 65 5f 63 65  ::x509::parse_ce
0e00: 72 74 20 24 63 65 72 74 69 66 69 63 61 74 65 5d  rt $certificate]
0e10: 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20 63 65  ....array set ce
0e20: 72 74 69 66 69 63 61 74 65 5f 61 72 72 20 24 63  rtificate_arr $c
0e30: 65 72 74 69 66 69 63 61 74 65 0a 09 09 73 65 74  ertificate...set
0e40: 20 63 65 72 74 69 66 69 63 61 74 65 5f 63 6e 20   certificate_cn 
0e50: 5b 3a 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a 5f 64  [::pki::x509::_d
0e60: 6e 5f 74 6f 5f 63 6e 20 24 63 65 72 74 69 66 69  n_to_cn $certifi
0e70: 63 61 74 65 5f 61 72 72 28 73 75 62 6a 65 63 74  cate_arr(subject
0e80: 29 5d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a 70 6b  )]....if {![::pk
0e90: 69 3a 3a 76 65 72 69 66 79 20 24 73 69 67 6e 61  i::verify $signa
0ea0: 74 75 72 65 20 22 24 68 61 73 68 2c 73 68 61 31  ture "$hash,sha1
0eb0: 22 20 24 63 65 72 74 69 66 69 63 61 74 65 5d 7d  " $certificate]}
0ec0: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c   {....return fal
0ed0: 73 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 73  se...}....if {[s
0ee0: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 63  tring tolower $c
0ef0: 65 72 74 69 66 69 63 61 74 65 5f 63 6e 5d 20 21  ertificate_cn] !
0f00: 3d 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  = [string tolowe
0f10: 72 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b 0a  r $hostname]} {.
0f20: 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a  ...return false.
0f30: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a 70  ..}....if {![::p
0f40: 6b 69 3a 3a 78 35 30 39 3a 3a 76 65 72 69 66 79  ki::x509::verify
0f50: 5f 63 65 72 74 20 24 63 65 72 74 69 66 69 63 61  _cert $certifica
0f60: 74 65 20 24 3a 3a 61 70 70 66 73 3a 3a 74 72 75  te $::appfs::tru
0f70: 73 74 65 64 5f 63 61 73 5d 7d 20 7b 0a 09 09 09  sted_cas]} {....
0f80: 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d  return false...}
0f90: 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 0a  ....return true.
0fa0: 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61  .}...proc _norma
0fb0: 6c 69 7a 65 4f 53 20 7b 6f 73 20 7b 74 6f 6c 65  lizeOS {os {tole
0fc0: 72 61 6e 74 20 30 7d 7d 20 7b 0a 09 09 73 65 74  rant 0}} {...set
0fd0: 20 6f 73 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f   os [string tolo
0fe0: 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  wer [string trim
0ff0: 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69 74 63 68   $os]]....switch
1000: 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09 22 6c 69   -- $os {...."li
1010: 6e 75 78 22 20 2d 20 22 66 72 65 65 62 73 64 22  nux" - "freebsd"
1020: 20 2d 20 22 6f 70 65 6e 62 73 64 22 20 2d 20 22   - "openbsd" - "
1030: 6e 65 74 62 73 64 22 20 7b 0a 09 09 09 09 72 65  netbsd" {.....re
1040: 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d 0a 09 09  turn $os....}...
1050: 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09 09 09 72  ."sunos" {.....r
1060: 65 74 75 72 6e 20 22 73 6f 6c 61 72 69 73 22 0a  eturn "solaris".
1070: 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63 68 22  ...}...."noarch"
1080: 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61 6e 79   - "none" - "any
1090: 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09 09 09  " - "all" {.....
10a0: 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68 22 0a  return "noarch".
10b0: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  ...}...}....if {
10c0: 24 74 6f 6c 65 72 61 6e 74 7d 20 7b 0a 09 09 09  $tolerant} {....
10d0: 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 7d 0a 0a  return $os...}..
10e0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
10f0: 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20  rror "Unable to 
1100: 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20 24 6f  normalize OS: $o
1110: 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f  s"..}...proc _no
1120: 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70 75 20  rmalizeCPU {cpu 
1130: 7b 74 6f 6c 65 72 61 6e 74 20 30 7d 7d 20 7b 0a  {tolerant 0}} {.
1140: 09 09 73 65 74 20 63 70 75 20 5b 73 74 72 69 6e  ..set cpu [strin
1150: 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e  g tolower [strin
1160: 67 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a 0a 09  g trim $cpu]]...
1170: 09 73 77 69 74 63 68 20 2d 67 6c 6f 62 20 2d 2d  .switch -glob --
1180: 20 24 63 70 75 20 7b 0a 09 09 09 22 69 3f 38 36   $cpu {...."i?86
1190: 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 22  " {.....return "
11a0: 69 78 38 36 22 0a 09 09 09 7d 0a 09 09 09 22 78  ix86"....}...."x
11b0: 38 36 5f 36 34 22 20 7b 0a 09 09 09 09 72 65 74  86_64" {.....ret
11c0: 75 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a 09 09  urn $cpu....}...
11d0: 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e 6f 6e  ."noarch" - "non
11e0: 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22 61 6c  e" - "any" - "al
11f0: 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  l" {.....return 
1200: 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a 09 09  "noarch"....}...
1210: 7d 0a 0a 09 09 69 66 20 7b 24 74 6f 6c 65 72 61  }....if {$tolera
1220: 6e 74 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  nt} {....return 
1230: 24 63 70 75 0a 09 09 7d 0a 0a 09 09 72 65 74 75  $cpu...}....retu
1240: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
1250: 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d 61 6c  Unable to normal
1260: 69 7a 65 20 43 50 55 3a 20 24 63 70 75 22 0a 09  ize CPU: $cpu"..
1270: 7d 0a 0a 09 70 72 6f 63 20 5f 61 73 5f 75 73 65  }...proc _as_use
1280: 72 20 7b 63 6f 64 65 7d 20 7b 0a 09 09 3a 3a 61  r {code} {...::a
1290: 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74 65 5f  ppfsd::simulate_
12a0: 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 0a 0a 09  user_fs_enter...
12b0: 09 73 65 74 20 72 65 74 63 6f 64 65 20 5b 63 61  .set retcode [ca
12c0: 74 63 68 20 5b 6c 69 73 74 20 75 70 6c 65 76 65  tch [list upleve
12d0: 6c 20 24 63 6f 64 65 5d 20 72 65 74 73 74 72 5d  l $code] retstr]
12e0: 0a 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a 73 69  ....::appfsd::si
12f0: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c  mulate_user_fs_l
1300: 65 61 76 65 0a 0a 09 09 72 65 74 75 72 6e 20 2d  eave....return -
1310: 63 6f 64 65 20 24 72 65 74 63 6f 64 65 20 24 72  code $retcode $r
1320: 65 74 73 74 72 0a 09 7d 0a 0a 09 70 72 6f 63 20  etstr..}...proc 
1330: 69 6e 69 74 20 7b 7d 20 7b 0a 09 09 69 66 20 7b  init {} {...if {
1340: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61  [info exists ::a
1350: 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c 65  ppfs::init_calle
1360: 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 0a  d]} {....return.
1370: 09 09 7d 0a 0a 09 09 23 20 46 6f 72 63 65 20 5b  ..}....# Force [
1380: 70 61 72 72 61 79 5d 20 61 6e 64 20 5b 63 6c 6f  parray] and [clo
1390: 63 6b 5d 20 74 6f 20 62 65 20 6c 6f 61 64 65 64  ck] to be loaded
13a0: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 70 61  ...catch {....pa
13b0: 72 72 61 79 20 64 6f 65 73 5f 6e 6f 74 5f 65 78  rray does_not_ex
13c0: 69 73 74 0a 09 09 7d 0a 09 09 63 61 74 63 68 20  ist...}...catch 
13d0: 7b 0a 09 09 09 63 6c 6f 63 6b 20 73 65 63 6f 6e  {....clock secon
13e0: 64 73 0a 09 09 7d 0a 09 09 63 61 74 63 68 20 7b  ds...}...catch {
13f0: 0a 09 09 09 63 6c 6f 63 6b 20 61 64 64 20 5b 63  ....clock add [c
1400: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 20 33 20  lock seconds] 3 
1410: 73 65 63 6f 6e 64 73 0a 09 09 7d 0a 0a 09 09 73  seconds...}....s
1420: 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74  et ::appfs::init
1430: 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 23 20 41  _called 1....# A
1440: 64 64 20 61 20 64 65 66 61 75 6c 74 20 43 41 20  dd a default CA 
1450: 74 6f 20 6c 69 73 74 20 6f 66 20 74 72 75 73 74  to list of trust
1460: 65 64 20 43 41 73 0a 09 09 6c 61 70 70 65 6e 64  ed CAs...lappend
1470: 20 3a 3a 61 70 70 66 73 3a 3a 74 72 75 73 74 65   ::appfs::truste
1480: 64 5f 63 61 73 20 5b 3a 3a 70 6b 69 3a 3a 78 35  d_cas [::pki::x5
1490: 30 39 3a 3a 70 61 72 73 65 5f 63 65 72 74 20 7b  09::parse_cert {
14a0: 0a 2d 2d 2d 2d 2d 42 45 47 49 4e 20 43 45 52 54  .-----BEGIN CERT
14b0: 49 46 49 43 41 54 45 2d 2d 2d 2d 2d 0a 4d 49 49  IFICATE-----.MII
14c0: 43 37 44 43 43 41 64 53 67 41 77 49 42 41 67 49  C7DCCAdSgAwIBAgI
14d0: 42 41 54 41 4e 42 67 6b 71 68 6b 69 47 39 77 30  BATANBgkqhkiG9w0
14e0: 42 41 51 55 46 41 44 41 76 4d 52 49 77 45 41 59  BAQUFADAvMRIwEAY
14f0: 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 0a 53 32  DVQQKEwlSb3kg.S2
1500: 56 6c 62 6d 55 78 47 54 41 58 42 67 4e 56 42 41  VlbmUxGTAXBgNVBA
1510: 4d 54 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53  MTEEFwcEZTIEtleS
1520: 42 4e 59 58 4e 30 5a 58 49 77 48 68 63 4e 4d 54  BNYXN0ZXIwHhcNMT
1530: 51 78 4d 54 45 33 4d 6a 41 78 4e 7a 49 34 0a 57  QxMTE3MjAxNzI4.W
1540: 68 63 4e 4d 54 6b 78 4d 54 45 33 4d 6a 41 78 4e  hcNMTkxMTE3MjAxN
1550: 7a 49 34 57 6a 41 76 4d 52 49 77 45 41 59 44 56  zI4WjAvMRIwEAYDV
1560: 51 51 4b 45 77 6c 53 62 33 6b 67 53 32 56 6c 62  QQKEwlSb3kgS2Vlb
1570: 6d 55 78 47 54 41 58 42 67 4e 56 42 41 4d 54 0a  mUxGTAXBgNVBAMT.
1580: 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53 42 4e  EEFwcEZTIEtleSBN
1590: 59 58 4e 30 5a 58 49 77 67 67 45 69 4d 41 30 47  YXN0ZXIwggEiMA0G
15a0: 43 53 71 47 53 49 62 33 44 51 45 42 41 51 55 41  CSqGSIb3DQEBAQUA
15b0: 41 34 49 42 44 77 41 77 67 67 45 4b 41 6f 49 42  A4IBDwAwggEKAoIB
15c0: 0a 41 51 43 71 36 75 53 4b 34 36 79 47 35 62 36  .AQCq6uSK46yG5b6
15d0: 52 4a 57 77 52 6c 76 77 35 67 6c 41 6e 6a 73 63  RJWwRlvw5glAnjsc
15e0: 31 47 69 58 33 64 75 58 41 30 76 47 34 71 6e 4b  1GiX3duXA0vG4qnK
15f0: 55 6e 44 74 6c 2f 6a 63 4d 6d 71 32 47 4d 4f 42  UnDtl/jcMmq2GMOB
1600: 39 0a 49 79 31 74 6a 61 62 45 48 41 30 4d 68 57  9.Iy1tjabEHA0MhW
1610: 32 6a 37 56 77 65 2f 4f 39 4d 4c 46 4a 6b 4a 33  2j7Vwe/O9MLFJkJ3
1620: 30 4d 31 50 56 44 37 59 5a 52 52 4e 61 41 73 7a  0M1PVD7YZRRNaAsz
1630: 33 55 57 49 4b 45 6a 50 49 37 42 42 63 33 32 4b  3UWIKEjPI7BBc32K
1640: 4f 6d 0a 42 4c 33 43 54 58 43 43 64 7a 6c 6c 4c  Om.BL3CTXCCdzllL
1650: 31 48 68 56 62 6e 4d 35 69 43 41 6d 67 48 63 67  1HhVbnM5iCAmgHcg
1660: 31 44 55 6b 2f 45 76 57 58 76 6e 45 44 78 58 52  1DUk/EvWXvnEDxXR
1670: 79 32 6c 56 39 6d 51 73 6d 44 65 64 72 66 66 59  y2lV9mQsmDedrffY
1680: 37 57 6c 0a 4f 72 35 37 6e 6c 63 7a 61 4d 75 50  7Wl.Or57nlczaMuP
1690: 4c 70 79 52 53 6b 76 37 35 50 41 6e 6a 51 4a 78  LpyRSkv75PAnjQJx
16a0: 54 33 73 57 6c 42 70 79 2b 2f 48 39 49 6d 75 64  T3sWlBpy+/H9Imud
16b0: 51 64 70 4a 4e 66 2f 46 74 78 63 71 4e 37 69 44  QdpJNf/FtxcqN7iD
16c0: 77 48 35 42 0a 76 49 63 65 59 45 74 44 56 78 46  wH5B.vIceYEtDVxF
16d0: 73 76 6f 35 48 4f 56 6b 53 6c 39 6a 65 6f 35 45  svo5HOVkSl9jeo5E
16e0: 34 47 70 65 33 77 79 66 52 68 6f 71 42 32 55 6b  4Gpe3wyfRhoqB2Uk
16f0: 61 57 31 4b 71 30 69 48 35 52 2b 30 30 53 37 36  aW1Kq0iH5R+00S76
1700: 30 78 51 4d 78 0a 4c 4c 39 4c 31 64 75 68 75 31  0xQMx.LL9L1duhu1
1710: 64 4c 37 48 73 6d 45 77 37 49 65 59 55 52 41 67  dL7HsmEw7IeYURAg
1720: 4d 42 41 41 47 6a 45 7a 41 52 4d 41 38 47 41 31  MBAAGjEzARMA8GA1
1730: 55 64 45 77 45 42 2f 77 51 46 4d 41 4d 42 41 66  UdEwEB/wQFMAMBAf
1740: 38 77 44 51 59 4a 0a 4b 6f 5a 49 68 76 63 4e 41  8wDQYJ.KoZIhvcNA
1750: 51 45 46 42 51 41 44 67 67 45 42 41 4b 68 4f 34  QEFBQADggEBAKhO4
1760: 5a 53 7a 59 50 33 37 42 71 69 78 4e 48 4b 4b 39  ZSzYP37BqixNHKK9
1770: 2b 67 53 65 43 36 46 67 61 38 35 69 4c 57 68 77  +gSeC6Fga85iLWhw
1780: 70 50 57 30 6b 53 6c 0a 7a 30 33 68 61 6c 38 30  pPW0kSl.z03hal80
1790: 4b 5a 2b 6b 50 4d 7a 62 38 43 35 32 4e 32 38 33  KZ+kPMzb8C52N283
17a0: 74 51 4e 41 71 4a 39 51 38 61 6b 44 50 5a 78 53  tQNAqJ9Q8akDPZxS
17b0: 7a 7a 4d 55 56 4f 47 70 47 77 32 70 4a 37 5a 73  zzMUVOGpGw2pJ7Zs
17c0: 77 4b 44 7a 30 5a 54 61 0a 30 65 64 71 2f 67 64  wKDz0ZTa.0edq/gd
17d0: 54 2f 48 72 64 65 67 76 4e 74 44 50 63 32 6a 6f  T/HrdegvNtDPc2jo
17e0: 6e 61 35 46 56 4f 59 71 77 64 63 7a 35 6b 62 6c  na5FVOYqwdcz5kbl
17f0: 31 55 57 42 61 42 70 33 56 58 55 67 63 59 6a 58  1UWBaBp3VXUgcYjX
1800: 53 52 61 42 4b 34 33 57 64 0a 63 76 65 69 44 55  SRaBK43Wd.cveiDU
1810: 65 5a 77 37 67 48 71 52 53 4e 2f 41 79 59 55 43  eZw7gHqRSN/AyYUC
1820: 74 4a 7a 57 6d 76 47 73 4a 75 49 46 68 4d 42 6f  tJzWmvGsJuIFhMBo
1830: 6e 75 7a 38 6a 79 6c 68 79 4d 4a 43 59 4a 46 54  nuz8jylhyMJCYJFT
1840: 34 69 4d 55 43 38 4d 4e 49 77 0a 6e 69 58 31 78  4iMUC8MNIw.niX1x
1850: 78 2b 4e 75 36 66 50 56 35 5a 5a 48 6a 39 72 62  x+Nu6fPV5ZZHj9rb
1860: 68 69 42 61 4c 6a 6d 2b 74 6b 44 77 74 50 67 41  hiBaLjm+tkDwtPgA
1870: 33 6a 32 70 78 76 48 4b 59 70 74 75 57 78 65 59  3j2pxvHKYptuWxeY
1880: 4f 2b 39 44 44 4e 61 39 73 43 62 0a 45 35 41 6e  O+9DDNa9sCb.E5An
1890: 4a 49 6c 4f 6e 64 2f 74 47 65 30 43 68 66 30 73  JIlOnd/tGe0Chf0s
18a0: 46 51 67 2b 6c 39 6e 4e 69 4e 72 57 47 67 7a 64  FQg+l9nNiNrWGgzd
18b0: 64 39 5a 50 4a 4b 34 3d 0a 2d 2d 2d 2d 2d 45 4e  d9ZPJK4=.-----EN
18c0: 44 20 43 45 52 54 49 46 49 43 41 54 45 2d 2d 2d  D CERTIFICATE---
18d0: 2d 2d 0a 7d 5d 0a 0a 09 09 23 20 4c 6f 61 64 20  --.}]....# Load 
18e0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 69  configuration fi
18f0: 6c 65 0a 09 09 73 65 74 20 63 6f 6e 66 69 67 5f  le...set config_
1900: 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  file [file join 
1910: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
1920: 69 72 20 63 6f 6e 66 69 67 5d 0a 09 09 69 66 20  ir config]...if 
1930: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 63  {[file exists $c
1940: 6f 6e 66 69 67 5f 66 69 6c 65 5d 7d 20 7b 0a 09  onfig_file]} {..
1950: 09 09 73 6f 75 72 63 65 20 24 63 6f 6e 66 69 67  ..source $config
1960: 5f 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 69 66 20  _file...}....if 
1970: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
1980: 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09  :appfs::db]} {..
1990: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a  ..file mkdir $::
19a0: 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72 0a  appfs::cachedir.
19b0: 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a 61 70  ....sqlite3 ::ap
19c0: 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f  pfs::db [file jo
19d0: 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63  in $::appfs::cac
19e0: 68 65 64 69 72 20 63 61 63 68 65 2e 64 62 5d 0a  hedir cache.db].
19f0: 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20  ....::appfs::db 
1a00: 74 69 6d 65 6f 75 74 20 33 30 30 30 30 0a 09 09  timeout 30000...
1a10: 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 61  }....# Create ta
1a20: 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c 20 7b  bles...db eval {
1a30: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
1a40: 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73  NOT EXISTS sites
1a50: 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41 52  (hostname PRIMAR
1a60: 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61 74  Y KEY, lastUpdat
1a70: 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62 20 65  e, ttl);}...db e
1a80: 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c  val {CREATE TABL
1a90: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  E IF NOT EXISTS 
1aa0: 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61 6d  packages(hostnam
1ab0: 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65  e, sha1, package
1ac0: 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63  , version, os, c
1ad0: 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74  puArch, isLatest
1ae0: 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29 3b  , haveManifest);
1af0: 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45  }...db eval {CRE
1b00: 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54  ATE TABLE IF NOT
1b10: 20 45 58 49 53 54 53 20 66 69 6c 65 73 28 70 61   EXISTS files(pa
1b20: 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65  ckage_sha1, type
1b30: 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20  , time, source, 
1b40: 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c  size, perms, fil
1b50: 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d  e_sha1, file_nam
1b60: 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72  e, file_director
1b70: 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61 74 65  y);}....# Create
1b80: 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20 65 76   indexes...db ev
1b90: 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 45 58  al {CREATE INDEX
1ba0: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73   IF NOT EXISTS s
1bb0: 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20 73 69  ites_index ON si
1bc0: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29 3b 7d  tes (hostname);}
1bd0: 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41  ...db eval {CREA
1be0: 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20  TE INDEX IF NOT 
1bf0: 45 58 49 53 54 53 20 70 61 63 6b 61 67 65 73 5f  EXISTS packages_
1c00: 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61 67 65  index ON package
1c10: 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68 61  s (hostname, sha
1c20: 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73  1, package, vers
1c30: 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68  ion, os, cpuArch
1c40: 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43  );}...db eval {C
1c50: 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e  REATE INDEX IF N
1c60: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 5f  OT EXISTS files_
1c70: 69 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20 28  index ON files (
1c80: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66 69  package_sha1, fi
1c90: 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69  le_name, file_di
1ca0: 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a 09  rectory);}..}...
1cb0: 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b 68  proc download {h
1cc0: 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d 65  ostname hash {me
1cd0: 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09 09  thod sha1}} {...
1ce0: 73 65 74 20 75 72 6c 20 5b 3a 3a 61 70 70 66 73  set url [::appfs
1cf0: 3a 3a 75 73 65 72 3a 3a 63 6f 6e 73 74 72 75 63  ::user::construc
1d00: 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d 65 20  t_url $hostname 
1d10: 24 68 61 73 68 20 24 6d 65 74 68 6f 64 5d 0a 09  $hash $method]..
1d20: 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68  .set file [_cach
1d30: 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68  efile $url $hash
1d40: 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c 65 20  ]....if {![file 
1d50: 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b  exists $file]} {
1d60: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
1d70: 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74   error "Unable t
1d80: 6f 20 66 65 74 63 68 20 28 66 69 6c 65 20 64 6f  o fetch (file do
1d90: 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 20 24 66  es not exist: $f
1da0: 69 6c 65 29 22 0a 09 09 7d 0a 0a 09 09 72 65 74  ile)"...}....ret
1db0: 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 09 70  urn $file..}...p
1dc0: 72 6f 63 20 67 65 74 69 6e 64 65 78 20 7b 68 6f  roc getindex {ho
1dd0: 73 74 6e 61 6d 65 7d 20 7b 0a 09 09 73 65 74 20  stname} {...set 
1de0: 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e  now [clock secon
1df0: 64 73 5d 0a 0a 09 09 73 65 74 20 6c 61 73 74 55  ds]....set lastU
1e00: 70 64 61 74 65 73 20 5b 64 62 20 65 76 61 6c 20  pdates [db eval 
1e10: 7b 53 45 4c 45 43 54 20 6c 61 73 74 55 70 64 61  {SELECT lastUpda
1e20: 74 65 2c 20 74 74 6c 20 46 52 4f 4d 20 73 69 74  te, ttl FROM sit
1e30: 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d  es WHERE hostnam
1e40: 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 4c 49  e = $hostname LI
1e50: 4d 49 54 20 31 3b 7d 5d 0a 09 09 69 66 20 7b 5b  MIT 1;}]...if {[
1e60: 6c 6c 65 6e 67 74 68 20 24 6c 61 73 74 55 70 64  llength $lastUpd
1e70: 61 74 65 73 5d 20 3d 3d 20 30 7d 20 7b 0a 09 09  ates] == 0} {...
1e80: 09 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20  .set lastUpdate 
1e90: 30 0a 09 09 09 73 65 74 20 74 74 6c 20 30 0a 09  0....set ttl 0..
1ea0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74  .} else {....set
1eb0: 20 6c 61 73 74 55 70 64 61 74 65 20 5b 6c 69 6e   lastUpdate [lin
1ec0: 64 65 78 20 24 6c 61 73 74 55 70 64 61 74 65 73  dex $lastUpdates
1ed0: 20 30 5d 0a 09 09 09 73 65 74 20 74 74 6c 20 5b   0]....set ttl [
1ee0: 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61  lindex $lastUpda
1ef0: 74 65 73 20 31 5d 0a 09 09 7d 0a 0a 09 09 69 66  tes 1]...}....if
1f00: 20 7b 24 6e 6f 77 20 3c 20 28 24 6c 61 73 74 55   {$now < ($lastU
1f10: 70 64 61 74 65 20 2b 20 24 74 74 6c 29 7d 20 7b  pdate + $ttl)} {
1f20: 0a 09 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c  ....return COMPL
1f30: 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b  ETE...}....if {[
1f40: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 22 2a 5c  string match "*\
1f50: 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74 6e 61 6d  [/~\]*" $hostnam
1f60: 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  e]} {....return 
1f70: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49 6e 76  -code error "Inv
1f80: 61 6c 69 64 20 68 6f 73 74 6e 61 6d 65 22 0a 09  alid hostname"..
1f90: 09 7d 0a 0a 09 09 73 65 74 20 75 72 6c 20 22 68  .}....set url "h
1fa0: 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61 6d 65 2f  ttp://$hostname/
1fb0: 61 70 70 66 73 2f 69 6e 64 65 78 22 0a 0a 09 09  appfs/index"....
1fc0: 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 74  catch {....set t
1fd0: 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65  oken [::http::ge
1fe0: 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09 09 69 66  turl $url]....if
1ff0: 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64 65   {[::http::ncode
2000: 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22 32 30 30   $token] == "200
2010: 22 7d 20 7b 0a 09 09 09 09 73 65 74 20 69 6e 64  "} {.....set ind
2020: 65 78 68 61 73 68 5f 64 61 74 61 20 5b 3a 3a 68  exhash_data [::h
2030: 74 74 70 3a 3a 64 61 74 61 20 24 74 6f 6b 65 6e  ttp::data $token
2040: 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a 68 74 74 70  ]....}....::http
2050: 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09  ::reset $token..
2060: 09 09 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 6e 75  ..::http::cleanu
2070: 70 20 24 74 6f 6b 65 6e 0a 09 09 7d 0a 0a 09 09  p $token...}....
2080: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
2090: 73 20 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61  s indexhash_data
20a0: 5d 7d 20 7b 0a 09 09 09 23 20 43 61 63 68 65 20  ]} {....# Cache 
20b0: 74 68 69 73 20 72 65 73 75 6c 74 20 66 6f 72 20  this result for 
20c0: 36 30 20 73 65 63 6f 6e 64 73 0a 09 09 09 64 62  60 seconds....db
20d0: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52   eval {INSERT OR
20e0: 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69   REPLACE INTO si
20f0: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c  tes (hostname, l
2100: 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20  astUpdate, ttl) 
2110: 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d  VALUES ($hostnam
2120: 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66  e, $now, $::appf
2130: 73 3a 3a 6e 74 74 6c 29 3b 7d 0a 0a 09 09 09 72  s::nttl);}.....r
2140: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
2150: 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74  r "Unable to fet
2160: 63 68 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09  ch $url"...}....
2170: 73 65 74 20 69 6e 64 65 78 68 61 73 68 5f 64 61  set indexhash_da
2180: 74 61 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ta [string trim 
2190: 24 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20  $indexhash_data 
21a0: 22 5c 72 5c 6e 22 5d 0a 09 09 73 65 74 20 69 6e  "\r\n"]...set in
21b0: 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b 73 70  dexhash_data [sp
21c0: 6c 69 74 20 24 69 6e 64 65 78 68 61 73 68 5f 64  lit $indexhash_d
21d0: 61 74 61 20 22 2c 22 5d 0a 09 09 73 65 74 20 69  ata ","]...set i
21e0: 6e 64 65 78 68 61 73 68 20 20 20 20 20 20 20 5b  ndexhash       [
21f0: 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73  lindex $indexhas
2200: 68 5f 64 61 74 61 20 30 5d 0a 09 09 73 65 74 20  h_data 0]...set 
2210: 69 6e 64 65 78 68 61 73 68 6d 65 74 68 6f 64 20  indexhashmethod 
2220: 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61  [lindex $indexha
2230: 73 68 5f 64 61 74 61 20 31 5d 0a 09 09 73 65 74  sh_data 1]...set
2240: 20 69 6e 64 65 78 68 61 73 68 63 65 72 74 20 20   indexhashcert  
2250: 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68   [lindex $indexh
2260: 61 73 68 5f 64 61 74 61 20 32 5d 0a 09 09 73 65  ash_data 2]...se
2270: 74 20 69 6e 64 65 78 68 61 73 68 73 69 67 20 20  t indexhashsig  
2280: 20 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78    [lindex $index
2290: 68 61 73 68 5f 64 61 74 61 20 33 5d 0a 0a 09 09  hash_data 3]....
22a0: 69 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 69  if {![_isHash $i
22b0: 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09 09  ndexhash]} {....
22c0: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
22d0: 6f 72 20 22 49 6e 76 61 6c 69 64 20 68 61 73 68  or "Invalid hash
22e0: 3a 20 24 69 6e 64 65 78 68 61 73 68 22 0a 09 09  : $indexhash"...
22f0: 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 76 65 72 69  }....if {![_veri
2300: 66 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65  fySignatureAndCe
2310: 72 74 69 66 69 63 61 74 65 20 24 68 6f 73 74 6e  rtificate $hostn
2320: 61 6d 65 20 24 69 6e 64 65 78 68 61 73 68 63 65  ame $indexhashce
2330: 72 74 20 24 69 6e 64 65 78 68 61 73 68 73 69 67  rt $indexhashsig
2340: 20 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a   $indexhash]} {.
2350: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
2360: 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 73  error "Invalid s
2370: 69 67 6e 61 74 75 72 65 20 6f 72 20 63 65 72 74  ignature or cert
2380: 69 66 69 63 61 74 65 20 66 72 6f 6d 20 24 68 6f  ificate from $ho
2390: 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73  stname"...}....s
23a0: 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61  et file [downloa
23b0: 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 69 6e 64  d $hostname $ind
23c0: 65 78 68 61 73 68 5d 0a 09 09 73 65 74 20 66 64  exhash]...set fd
23d0: 20 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09   [open $file]...
23e0: 73 65 74 20 64 61 74 61 20 5b 72 65 61 64 20 24  set data [read $
23f0: 66 64 5d 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a  fd]...close $fd.
2400: 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61 63 6b  ...set curr_pack
2410: 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 66 6f  ages [list]...fo
2420: 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69  reach line [spli
2430: 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a  t $data "\n"] {.
2440: 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 72  ...set line [str
2450: 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a  ing trim $line].
2460: 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20  ....if {[string 
2470: 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69 6e  match "*/*" $lin
2480: 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  e]} {.....contin
2490: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b  ue....}.....if {
24a0: 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09  $line == ""} {..
24b0: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d  ...continue....}
24c0: 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73  .....set work [s
24d0: 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a  plit $line ","].
24e0: 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
24f0: 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a 09 09  plain pkgInfo...
2500: 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09  .if {[catch {...
2510: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 70 61  ..set pkgInfo(pa
2520: 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65 78 20  ckage)  [lindex 
2530: 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65 74  $work 0].....set
2540: 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f 6e   pkgInfo(version
2550: 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  )  [lindex $work
2560: 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49   1].....set pkgI
2570: 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20 5b 5f  nfo(os)       [_
2580: 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c 69 6e  normalizeOS [lin
2590: 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a 09 09  dex $work 2]]...
25a0: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 63 70  ..set pkgInfo(cp
25b0: 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d 61 6c  uArch)  [_normal
25c0: 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78 20 24  izeCPU [lindex $
25d0: 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73 65 74  work 3]].....set
25e0: 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 20 20   pkgInfo(hash)  
25f0: 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77     [string tolow
2600: 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  er [lindex $work
2610: 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67   4]].....set pkg
2620: 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65 29 20  Info(hash_type) 
2630: 22 73 68 61 31 22 0a 09 09 09 09 73 65 74 20 70  "sha1".....set p
2640: 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29  kgInfo(isLatest)
2650: 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e 64 65   [expr {!![linde
2660: 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09 09 09  x $work 5]}]....
2670: 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  }]} {.....contin
2680: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b  ue....}.....if {
2690: 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67 49 6e  ![_isHash $pkgIn
26a0: 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09 09 09  fo(hash)]} {....
26b0: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a  .continue....}..
26c0: 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72 72 5f  ...lappend curr_
26d0: 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e 66  packages $pkgInf
26e0: 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20 44 6f  o(hash).....# Do
26f0: 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64 64 69   not do any addi
2700: 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66 20 77  tional work if w
2710: 65 20 61 6c 72 65 61 64 79 20 68 61 76 65 20 74  e already have t
2720: 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09 09 73  his package....s
2730: 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61 63 6b  et existing_pack
2740: 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53  ages [db eval {S
2750: 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20 46 52  ELECT package FR
2760: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
2770: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f  E hostname = $ho
2780: 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31 20  stname AND sha1 
2790: 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29  = $pkgInfo(hash)
27a0: 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73 65 61  ;}]....if {[lsea
27b0: 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 69 73  rch -exact $exis
27c0: 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 24 70  ting_packages $p
27d0: 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 5d  kgInfo(package)]
27e0: 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 63 6f   != -1} {.....co
27f0: 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09  ntinue....}.....
2800: 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69 73 4c  if {$pkgInfo(isL
2810: 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09 64 62  atest)} {.....db
2820: 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61   eval {UPDATE pa
2830: 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c 61 74  ckages SET isLat
2840: 65 73 74 20 3d 20 30 20 57 48 45 52 45 20 68 6f  est = 0 WHERE ho
2850: 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61  stname = $hostna
2860: 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  me AND package =
2870: 20 24 70 6b 67 49 6e 66 6f 28 24 70 61 63 6b 61   $pkgInfo($packa
2880: 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 6b  ge) AND os = $pk
2890: 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20  gInfo($package) 
28a0: 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70  AND cpuArch = $p
28b0: 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68 29 3b  kgInfo(cpuArch);
28c0: 7d 0a 09 09 09 7d 0a 0a 09 09 09 64 62 20 65 76  }....}.....db ev
28d0: 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20  al {INSERT INTO 
28e0: 70 61 63 6b 61 67 65 73 20 28 68 6f 73 74 6e 61  packages (hostna
28f0: 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67  me, sha1, packag
2900: 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20  e, version, os, 
2910: 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73  cpuArch, isLates
2920: 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29  t, haveManifest)
2930: 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61   VALUES ($hostna
2940: 6d 65 2c 20 24 70 6b 67 49 6e 66 6f 28 68 61 73  me, $pkgInfo(has
2950: 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 70 61 63  h), $pkgInfo(pac
2960: 6b 61 67 65 29 2c 20 24 70 6b 67 49 6e 66 6f 28  kage), $pkgInfo(
2970: 76 65 72 73 69 6f 6e 29 2c 20 24 70 6b 67 49 6e  version), $pkgIn
2980: 66 6f 28 6f 73 29 2c 20 24 70 6b 67 49 6e 66 6f  fo(os), $pkgInfo
2990: 28 63 70 75 41 72 63 68 29 2c 20 24 70 6b 67 49  (cpuArch), $pkgI
29a0: 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 2c 20 30  nfo(isLatest), 0
29b0: 29 3b 7d 0a 0a 09 09 7d 0a 0a 09 09 23 20 4c 6f  );}....}....# Lo
29c0: 6f 6b 20 66 6f 72 20 70 61 63 6b 61 67 65 73 20  ok for packages 
29d0: 74 68 61 74 20 68 61 76 65 20 62 65 65 6e 20 64  that have been d
29e0: 65 6c 65 74 65 64 0a 09 09 73 65 74 20 66 6f 75  eleted...set fou
29f0: 6e 64 5f 70 61 63 6b 61 67 65 73 20 5b 64 62 20  nd_packages [db 
2a00: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 73 68 61  eval {SELECT sha
2a10: 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  1 FROM packages 
2a20: 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d  WHERE hostname =
2a30: 20 24 68 6f 73 74 6e 61 6d 65 3b 7d 5d 0a 09 09   $hostname;}]...
2a40: 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 20  foreach package 
2a50: 24 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 20  $found_packages 
2a60: 7b 0a 09 09 09 73 65 74 20 66 6f 75 6e 64 5f 70  {....set found_p
2a70: 61 63 6b 61 67 65 73 5f 61 72 72 28 24 70 61 63  ackages_arr($pac
2a80: 6b 61 67 65 29 20 31 0a 09 09 7d 0a 0a 09 09 66  kage) 1...}....f
2a90: 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 20 24  oreach package $
2aa0: 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 7b 0a  curr_packages {.
2ab0: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
2ac0: 6c 61 69 6e 20 66 6f 75 6e 64 5f 70 61 63 6b 61  lain found_packa
2ad0: 67 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67 65  ges_arr($package
2ae0: 29 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68  )...}....foreach
2af0: 20 70 61 63 6b 61 67 65 20 5b 61 72 72 61 79 20   package [array 
2b00: 6e 61 6d 65 73 20 66 6f 75 6e 64 5f 70 61 63 6b  names found_pack
2b10: 61 67 65 73 5f 61 72 72 5d 20 7b 0a 09 09 09 64  ages_arr] {....d
2b20: 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46  b eval {DELETE F
2b30: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
2b40: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
2b50: 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31  ostname AND sha1
2b60: 20 3d 20 24 70 61 63 6b 61 67 65 3b 7d 0a 09 09   = $package;}...
2b70: 7d 0a 0a 09 09 64 62 20 65 76 61 6c 20 7b 49 4e  }....db eval {IN
2b80: 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45 20  SERT OR REPLACE 
2b90: 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73 74  INTO sites (host
2ba0: 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74 65  name, lastUpdate
2bb0: 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28 24  , ttl) VALUES ($
2bc0: 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20  hostname, $now, 
2bd0: 24 3a 3a 61 70 70 66 73 3a 3a 74 74 6c 29 3b 7d  $::appfs::ttl);}
2be0: 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65 74 5f  ....appfsd::get_
2bf0: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f  path_info_cache_
2c00: 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72 6e 20  flush....return 
2c10: 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 70 72  COMPLETE..}...pr
2c20: 6f 63 20 67 65 74 70 6b 67 6d 61 6e 69 66 65 73  oc getpkgmanifes
2c30: 74 20 7b 68 6f 73 74 6e 61 6d 65 20 70 61 63 6b  t {hostname pack
2c40: 61 67 65 5f 73 68 61 31 7d 20 7b 0a 09 09 73 65  age_sha1} {...se
2c50: 74 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20 5b  t haveManifest [
2c60: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45  db onecolumn {SE
2c70: 4c 45 43 54 20 68 61 76 65 4d 61 6e 69 66 65 73  LECT haveManifes
2c80: 74 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  t FROM packages 
2c90: 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 70 61  WHERE sha1 = $pa
2ca0: 63 6b 61 67 65 5f 73 68 61 31 20 4c 49 4d 49 54  ckage_sha1 LIMIT
2cb0: 20 31 3b 7d 5d 0a 0a 09 09 69 66 20 7b 24 68 61   1;}]....if {$ha
2cc0: 76 65 4d 61 6e 69 66 65 73 74 20 3d 3d 20 22 31  veManifest == "1
2cd0: 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43  "} {....return C
2ce0: 4f 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69  OMPLETE...}....i
2cf0: 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 61  f {![_isHash $pa
2d00: 63 6b 61 67 65 5f 73 68 61 31 5d 7d 20 7b 0a 09  ckage_sha1]} {..
2d10: 09 09 72 65 74 75 72 6e 20 46 41 49 4c 0a 09 09  ..return FAIL...
2d20: 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 64  }....set file [d
2d30: 6f 77 6e 6c 6f 61 64 20 24 68 6f 73 74 6e 61 6d  ownload $hostnam
2d40: 65 20 24 70 61 63 6b 61 67 65 5f 73 68 61 31 5d  e $package_sha1]
2d50: 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e 20  ...set fd [open 
2d60: 24 66 69 6c 65 5d 0a 09 09 73 65 74 20 70 6b 67  $file]...set pkg
2d70: 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a  data [read $fd].
2d80: 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 64  ..close $fd....d
2d90: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a  b transaction {.
2da0: 09 09 09 66 6f 72 65 61 63 68 20 6c 69 6e 65 20  ...foreach line 
2db0: 5b 73 70 6c 69 74 20 24 70 6b 67 64 61 74 61 20  [split $pkgdata 
2dc0: 22 5c 6e 22 5d 20 7b 0a 09 09 09 09 73 65 74 20  "\n"] {.....set 
2dd0: 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 69  line [string tri
2de0: 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 09 69 66  m $line]......if
2df0: 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b   {$line == ""} {
2e00: 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09  ......continue..
2e10: 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 77 6f  ...}......set wo
2e20: 72 6b 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20  rk [split $line 
2e30: 22 2c 22 5d 0a 0a 09 09 09 09 75 6e 73 65 74 20  ","]......unset 
2e40: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 6c 65  -nocomplain file
2e50: 49 6e 66 6f 0a 09 09 09 09 73 65 74 20 66 69 6c  Info.....set fil
2e60: 65 49 6e 66 6f 28 74 79 70 65 29 20 5b 6c 69 6e  eInfo(type) [lin
2e70: 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09  dex $work 0]....
2e80: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 69  .set fileInfo(ti
2e90: 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  me) [lindex $wor
2ea0: 6b 20 31 5d 0a 0a 09 09 09 09 73 65 74 20 77 6f  k 1]......set wo
2eb0: 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b  rk [lrange $work
2ec0: 20 32 20 65 6e 64 5d 0a 09 09 09 09 73 77 69 74   2 end].....swit
2ed0: 63 68 20 2d 2d 20 24 66 69 6c 65 49 6e 66 6f 28  ch -- $fileInfo(
2ee0: 74 79 70 65 29 20 7b 0a 09 09 09 09 09 22 23 6d  type) {......"#m
2ef0: 61 6e 69 66 65 73 74 6d 65 74 61 64 61 74 61 22  anifestmetadata"
2f00: 20 7b 0a 09 09 09 09 09 09 75 6e 73 65 74 20 2d   {.......unset -
2f10: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 6c 65 49  nocomplain fileI
2f20: 6e 66 6f 0a 09 09 09 09 09 09 63 6f 6e 74 69 6e  nfo.......contin
2f30: 75 65 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22  ue......}......"
2f40: 66 69 6c 65 22 20 7b 0a 09 09 09 09 09 09 73 65  file" {.......se
2f50: 74 20 66 69 6c 65 49 6e 66 6f 28 73 69 7a 65 29  t fileInfo(size)
2f60: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 30   [lindex $work 0
2f70: 5d 0a 0a 09 09 09 09 09 09 23 20 57 65 20 6c 6f  ]........# We lo
2f80: 77 65 72 2d 63 61 73 65 20 74 68 65 20 70 65 72  wer-case the per
2f90: 6d 69 73 73 69 6f 6e 73 20 62 65 63 61 75 73 65  missions because
2fa0: 20 75 70 70 65 72 2d 63 61 73 65 20 70 65 72 6d   upper-case perm
2fb0: 69 73 73 69 6f 6e 73 0a 09 09 09 09 09 09 23 20  issions.......# 
2fc0: 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 73 65  should not be se
2fd0: 74 20 72 65 6d 6f 74 65 6c 79 20 61 73 20 74 68  t remotely as th
2fe0: 65 79 20 6d 61 79 20 69 6e 66 6c 75 65 6e 63 65  ey may influence
2ff0: 20 74 68 65 20 73 65 63 75 72 69 74 79 0a 09 09   the security...
3000: 09 09 09 09 23 20 6f 66 20 74 68 65 20 73 79 73  ....# of the sys
3010: 74 65 6d 2e 0a 09 09 09 09 09 09 73 65 74 20 66  tem........set f
3020: 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 20 5b  ileInfo(perms) [
3030: 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b  string tolower [
3040: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 5d  lindex $work 1]]
3050: 0a 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c 65  ........set file
3060: 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69 6e 64  Info(sha1) [lind
3070: 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09 09 09  ex $work 2].....
3080: 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61  ...set work [lra
3090: 6e 67 65 20 24 77 6f 72 6b 20 33 20 65 6e 64 5d  nge $work 3 end]
30a0: 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22 73 79  ......}......"sy
30b0: 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 73  mlink" {.......s
30c0: 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f 75 72  et fileInfo(sour
30d0: 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  ce) [lindex $wor
30e0: 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74 20 77  k 0].......set w
30f0: 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72  ork [lrange $wor
3100: 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a  k 1 end]......}.
3110: 09 09 09 09 09 22 64 69 72 65 63 74 6f 72 79 22  ....."directory"
3120: 20 7b 0a 09 09 09 09 09 09 23 20 4e 6f 20 65 78   {.......# No ex
3130: 74 72 61 20 64 61 74 61 20 72 65 71 75 69 72 65  tra data require
3140: 64 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 64 65  d......}......de
3150: 66 61 75 6c 74 20 7b 0a 09 09 09 09 09 09 23 20  fault {.......# 
3160: 48 61 6e 64 6c 65 20 75 6e 6b 6e 6f 77 6e 20 74  Handle unknown t
3170: 79 70 65 73 0a 09 09 09 09 09 09 69 66 20 7b 5b  ypes.......if {[
3180: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 66 69  string index $fi
3190: 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 30 5d 20  leInfo(type) 0] 
31a0: 3d 3d 20 22 23 22 7d 20 7b 0a 09 09 09 09 09 09  == "#"} {.......
31b0: 09 23 20 4d 65 74 61 64 61 74 61 20 74 79 70 65  .# Metadata type
31c0: 2c 20 69 67 6e 6f 72 65 0a 09 09 09 09 09 09 09  , ignore........
31d0: 23 20 69 74 20 69 66 20 77 65 20 64 6f 6e 27 74  # it if we don't
31e0: 0a 09 09 09 09 09 09 09 23 20 75 6e 64 65 72 73  ........# unders
31f0: 74 61 6e 64 20 74 68 69 73 20 74 79 70 65 0a 09  tand this type..
3200: 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09  ......continue..
3210: 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .....} else {...
3220: 09 09 09 09 09 23 20 55 6e 6b 6e 6f 77 6e 20 74  .....# Unknown t
3230: 79 70 65 2c 0a 09 09 09 09 09 09 09 23 20 67 65  ype,........# ge
3240: 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f 72 0a  nerate an error.
3250: 09 09 09 09 09 09 09 65 72 72 6f 72 20 22 4d 61  .......error "Ma
3260: 6e 69 66 65 73 74 20 63 61 6e 6e 6f 74 20 62 65  nifest cannot be
3270: 20 70 61 72 73 65 64 22 0a 09 09 09 09 09 09 7d   parsed".......}
3280: 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09  ......}.....}...
3290: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28  ...set fileInfo(
32a0: 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 24 77 6f 72  name) [join $wor
32b0: 6b 20 22 2c 22 5d 0a 09 09 09 09 73 65 74 20 66  k ","].....set f
32c0: 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 73  ileInfo(name) [s
32d0: 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69  plit [string tri
32e0: 6d 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65  m $fileInfo(name
32f0: 29 20 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 09 09  ) "/"] "/"].....
3300: 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 64 69 72  set fileInfo(dir
3310: 65 63 74 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b 6c  ectory) [join [l
3320: 72 61 6e 67 65 20 24 66 69 6c 65 49 6e 66 6f 28  range $fileInfo(
3330: 6e 61 6d 65 29 20 30 20 65 6e 64 2d 31 5d 20 22  name) 0 end-1] "
3340: 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65  /"].....set file
3350: 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c 69 6e 64  Info(name) [lind
3360: 65 78 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d  ex $fileInfo(nam
3370: 65 29 20 65 6e 64 5d 0a 0a 09 09 09 09 64 62 20  e) end]......db 
3380: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54  eval {INSERT INT
3390: 4f 20 66 69 6c 65 73 20 28 70 61 63 6b 61 67 65  O files (package
33a0: 5f 73 68 61 31 2c 20 74 79 70 65 2c 20 74 69 6d  _sha1, type, tim
33b0: 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c  e, source, size,
33c0: 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61   perms, file_sha
33d0: 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69  1, file_name, fi
33e0: 6c 65 5f 64 69 72 65 63 74 6f 72 79 29 20 56 41  le_directory) VA
33f0: 4c 55 45 53 20 28 24 70 61 63 6b 61 67 65 5f 73  LUES ($package_s
3400: 68 61 31 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74  ha1, $fileInfo(t
3410: 79 70 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28  ype), $fileInfo(
3420: 74 69 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f  time), $fileInfo
3430: 28 73 6f 75 72 63 65 29 2c 20 24 66 69 6c 65 49  (source), $fileI
3440: 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66 69 6c 65  nfo(size), $file
3450: 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20 24 66 69  Info(perms), $fi
3460: 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c 20 24 66  leInfo(sha1), $f
3470: 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20 24  ileInfo(name), $
3480: 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74 6f  fileInfo(directo
3490: 72 79 29 20 29 3b 7d 0a 09 09 09 09 64 62 20 65  ry) );}.....db e
34a0: 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b  val {UPDATE pack
34b0: 61 67 65 73 20 53 45 54 20 68 61 76 65 4d 61 6e  ages SET haveMan
34c0: 69 66 65 73 74 20 3d 20 31 20 57 48 45 52 45 20  ifest = 1 WHERE 
34d0: 73 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f  sha1 = $package_
34e0: 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 7d 0a  sha1;}....}...}.
34f0: 0a 09 09 61 70 70 66 73 64 3a 3a 67 65 74 5f 70  ...appfsd::get_p
3500: 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 66  ath_info_cache_f
3510: 6c 75 73 68 0a 0a 09 09 72 65 74 75 72 6e 20 43  lush....return C
3520: 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 70 72 6f  OMPLETE..}...pro
3530: 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20 7b 70 61  c _localpath {pa
3540: 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d 65 20 66  ckage hostname f
3550: 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20 64 69 72  ile} {...set dir
3560: 20 22 22 0a 09 09 63 61 74 63 68 20 7b 0a 09 09   ""...catch {...
3570: 09 73 65 74 20 68 6f 6d 65 64 69 72 20 5b 3a 3a  .set homedir [::
3580: 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 67 65 74  appfs::user::get
3590: 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 09 73 65 74  _homedir]....set
35a0: 20 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 6e 20   dir [file join 
35b0: 24 68 6f 6d 65 64 69 72 20 2e 61 70 70 66 73 20  $homedir .appfs 
35c0: 22 2e 2f 24 7b 70 61 63 6b 61 67 65 7d 40 24 7b  "./${package}@${
35d0: 68 6f 73 74 6e 61 6d 65 7d 22 20 22 2e 2f 24 7b  hostname}" "./${
35e0: 66 69 6c 65 7d 22 5d 0a 09 09 7d 0a 09 09 72 65  file}"]...}...re
35f0: 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a 09 70  turn $dir..}...p
3600: 72 6f 63 20 5f 77 68 69 74 65 6f 75 74 70 61 74  roc _whiteoutpat
3610: 68 20 7b 70 61 63 6b 61 67 65 20 68 6f 73 74 6e  h {package hostn
3620: 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65  ame file} {...se
3630: 74 20 64 69 72 20 22 22 0a 09 09 63 61 74 63 68  t dir ""...catch
3640: 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d 65 64 69   {....set homedi
3650: 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72  r [::appfs::user
3660: 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09  ::get_homedir]..
3670: 09 09 73 65 74 20 64 69 72 20 5b 66 69 6c 65 20  ..set dir [file 
3680: 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20 2e 61  join $homedir .a
3690: 70 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b 61 67  ppfs "./${packag
36a0: 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d 22 20  e}@${hostname}" 
36b0: 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55 54  ".APPFS.WHITEOUT
36c0: 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e 41 50 50  " "./${file}.APP
36d0: 46 53 2e 57 48 49 54 45 4f 55 54 22 5d 0a 09 09  FS.WHITEOUT"]...
36e0: 7d 0a 09 09 72 65 74 75 72 6e 20 24 64 69 72 0a  }...return $dir.
36f0: 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61 72 73 65  .}...proc _parse
3700: 70 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09  path {path} {...
3710: 73 65 74 20 70 61 74 68 20 5b 73 74 72 69 6e 67  set path [string
3720: 20 74 72 69 6d 20 24 70 61 74 68 20 22 2f 22 5d   trim $path "/"]
3730: 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73 70 6c  ...set path [spl
3740: 69 74 20 24 70 61 74 68 20 22 2f 22 5d 0a 09 09  it $path "/"]...
3750: 73 65 74 20 70 61 74 68 6c 65 6e 20 5b 6c 6c 65  set pathlen [lle
3760: 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 61  ngth $path]....a
3770: 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c 20  rray set retval 
3780: 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72 65 6e 20  [list _children 
3790: 73 69 74 65 73 20 5f 74 79 70 65 20 74 6f 70 6c  sites _type topl
37a0: 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b 24 70 61  evel]....if {$pa
37b0: 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a 09 09 09  thlen > 0} {....
37c0: 73 65 74 20 72 65 74 76 61 6c 28 68 6f 73 74 6e  set retval(hostn
37d0: 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 70 61  ame) [lindex $pa
37e0: 74 68 20 30 5d 0a 09 09 09 73 65 74 20 72 65 74  th 0]....set ret
37f0: 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 70  val(_children) p
3800: 61 63 6b 61 67 65 73 0a 09 09 09 73 65 74 20 72  ackages....set r
3810: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 73 69 74  etval(_type) sit
3820: 65 73 0a 0a 09 09 09 69 66 20 7b 24 70 61 74 68  es.....if {$path
3830: 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09 09 09 73  len > 1} {.....s
3840: 65 74 20 70 61 63 6b 61 67 65 20 5b 6c 69 6e 64  et package [lind
3850: 65 78 20 24 70 61 74 68 20 31 5d 0a 09 09 09 09  ex $path 1].....
3860: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
3870: 74 68 20 24 70 61 63 6b 61 67 65 5d 20 3d 3d 20  th $package] == 
3880: 22 34 30 22 20 26 26 20 5b 72 65 67 65 78 70 20  "40" && [regexp 
3890: 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a 24 7d  {^[a-fA-F0-9]*$}
38a0: 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b 0a 09 09   $package]} {...
38b0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 61  ...set retval(pa
38c0: 63 6b 61 67 65 5f 73 68 61 31 29 20 24 70 61 63  ckage_sha1) $pac
38d0: 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20 72 65  kage......set re
38e0: 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20  tval(_children) 
38f0: 66 69 6c 65 73 0a 09 09 09 09 09 73 65 74 20 72  files......set r
3900: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66 69 6c  etval(_type) fil
3910: 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70 70 66 73  es.......::appfs
3920: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
3930: 54 20 70 61 63 6b 61 67 65 2c 20 6f 73 2c 20 63  T package, os, c
3940: 70 75 41 72 63 68 2c 20 76 65 72 73 69 6f 6e 20  puArch, version 
3950: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
3960: 45 52 45 20 73 68 61 31 20 3d 20 24 72 65 74 76  ERE sha1 = $retv
3970: 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29  al(package_sha1)
3980: 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d 0a 09 09  ;} pkginfo {}...
3990: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 61  ...set retval(pa
39a0: 63 6b 61 67 65 29 20 24 70 6b 67 69 6e 66 6f 28  ckage) $pkginfo(
39b0: 70 61 63 6b 61 67 65 29 0a 09 09 09 09 09 73 65  package)......se
39c0: 74 20 72 65 74 76 61 6c 28 6f 73 29 20 24 70 6b  t retval(os) $pk
39d0: 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09 09 09 73  ginfo(os)......s
39e0: 65 74 20 72 65 74 76 61 6c 28 63 70 75 29 20 24  et retval(cpu) $
39f0: 70 6b 67 69 6e 66 6f 28 63 70 75 41 72 63 68 29  pkginfo(cpuArch)
3a00: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3a10: 28 76 65 72 73 69 6f 6e 29 20 24 70 6b 67 69 6e  (version) $pkgin
3a20: 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a 09 09 09  fo(version).....
3a30: 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e  ..if {$pathlen >
3a40: 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20   2} {.......set 
3a50: 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a 6f  retval(file) [jo
3a60: 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61 74 68  in [lrange $path
3a70: 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09 09   2 end] "/"]....
3a80: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
3a90: 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65  .set retval(file
3aa0: 29 20 22 22 0a 09 09 09 09 09 7d 0a 09 09 09 09  ) ""......}.....
3ab0: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 73 65  } else {......se
3ac0: 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65  t retval(package
3ad0: 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09 09 09  ) $package......
3ae0: 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c  set retval(_chil
3af0: 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a 09 09 09  dren) os-cpu....
3b00: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79  ..set retval(_ty
3b10: 70 65 29 20 70 61 63 6b 61 67 65 73 0a 0a 09 09  pe) packages....
3b20: 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20  ...if {$pathlen 
3b30: 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65 74  > 2} {.......set
3b40: 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64 65 78 20   os_cpu [lindex 
3b50: 24 70 61 74 68 20 32 5d 0a 09 09 09 09 09 09 73  $path 2].......s
3b60: 65 74 20 6f 73 5f 63 70 75 20 5b 73 70 6c 69 74  et os_cpu [split
3b70: 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d 0a 0a 09   $os_cpu "-"]...
3b80: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3b90: 6f 73 29 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 4f  os) [_normalizeO
3ba0: 53 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70  S [lindex $os_cp
3bb0: 75 20 30 5d 20 31 5d 0a 09 09 09 09 09 09 73 65  u 0] 1].......se
3bc0: 74 20 72 65 74 76 61 6c 28 63 70 75 29 20 5b 5f  t retval(cpu) [_
3bd0: 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 5b 6c 69  normalizeCPU [li
3be0: 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 31 5d 20  ndex $os_cpu 1] 
3bf0: 31 5d 0a 09 09 09 09 09 09 73 65 74 20 72 65 74  1].......set ret
3c00: 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 76  val(_children) v
3c10: 65 72 73 69 6f 6e 73 0a 09 09 09 09 09 09 73 65  ersions.......se
3c20: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
3c30: 6f 73 2d 63 70 75 0a 0a 09 09 09 09 09 09 69 66  os-cpu........if
3c40: 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 33 7d 20   {$pathlen > 3} 
3c50: 7b 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74  {........set ret
3c60: 76 61 6c 28 76 65 72 73 69 6f 6e 29 20 5b 6c 69  val(version) [li
3c70: 6e 64 65 78 20 24 70 61 74 68 20 33 5d 0a 09 09  ndex $path 3]...
3c80: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3c90: 5f 63 68 69 6c 64 72 65 6e 29 20 66 69 6c 65 73  _children) files
3ca0: 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3cb0: 61 6c 28 5f 74 79 70 65 29 20 76 65 72 73 69 6f  al(_type) versio
3cc0: 6e 73 0a 0a 09 09 09 09 09 09 09 73 65 74 20 72  ns.........set r
3cd0: 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68  etval(package_sh
3ce0: 61 31 29 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62  a1) [::appfs::db
3cf0: 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45   onecolumn {SELE
3d00: 43 54 20 73 68 61 31 20 46 52 4f 4d 20 70 61 63  CT sha1 FROM pac
3d10: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
3d20: 6e 61 6d 65 20 3d 20 24 72 65 74 76 61 6c 28 68  name = $retval(h
3d30: 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63  ostname) AND pac
3d40: 6b 61 67 65 20 3d 20 24 72 65 74 76 61 6c 28 70  kage = $retval(p
3d50: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d  ackage) AND os =
3d60: 20 24 72 65 74 76 61 6c 28 6f 73 29 20 41 4e 44   $retval(os) AND
3d70: 20 63 70 75 41 72 63 68 20 3d 20 24 72 65 74 76   cpuArch = $retv
3d80: 61 6c 28 63 70 75 29 20 41 4e 44 20 76 65 72 73  al(cpu) AND vers
3d90: 69 6f 6e 20 3d 20 24 72 65 74 76 61 6c 28 76 65  ion = $retval(ve
3da0: 72 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09 09 09 09  rsion);}].......
3db0: 09 69 66 20 7b 24 72 65 74 76 61 6c 28 70 61 63  .if {$retval(pac
3dc0: 6b 61 67 65 5f 73 68 61 31 29 20 3d 3d 20 22 22  kage_sha1) == ""
3dd0: 7d 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20  } {.........set 
3de0: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
3df0: 29 20 64 65 61 64 0a 09 09 09 09 09 09 09 09 72  ) dead.........r
3e00: 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74  eturn [array get
3e10: 20 72 65 74 76 61 6c 5d 0a 09 09 09 09 09 09 09   retval]........
3e20: 7d 0a 0a 09 09 09 09 09 09 09 69 66 20 7b 24 70  }.........if {$p
3e30: 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b 0a 09 09  athlen > 4} {...
3e40: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3e50: 28 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 09 09  (_type) files...
3e60: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3e70: 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72  (file) [join [lr
3e80: 61 6e 67 65 20 24 70 61 74 68 20 34 20 65 6e 64  ange $path 4 end
3e90: 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 09 7d 20  ] "/"]........} 
3ea0: 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 73  else {.........s
3eb0: 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29  et retval(_type)
3ec0: 20 66 69 6c 65 73 0a 09 09 09 09 09 09 09 09 73   files.........s
3ed0: 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20  et retval(file) 
3ee0: 22 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09  ""........}.....
3ef0: 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  ..}......}.....}
3f00: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74  ....}...}....ret
3f10: 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20 72  urn [array get r
3f20: 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72 6f 63  etval]..}...proc
3f30: 20 67 65 74 63 68 69 6c 64 72 65 6e 20 7b 64 69   getchildren {di
3f40: 72 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74  r} {...array set
3f50: 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73   pathinfo [_pars
3f60: 65 70 61 74 68 20 24 64 69 72 5d 0a 0a 09 09 73  epath $dir]....s
3f70: 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68 69 6e  witch -- $pathin
3f80: 66 6f 28 5f 63 68 69 6c 64 72 65 6e 29 20 7b 0a  fo(_children) {.
3f90: 09 09 09 22 73 69 74 65 73 22 20 7b 0a 09 09 09  ..."sites" {....
3fa0: 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73  .return [::appfs
3fb0: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
3fc0: 54 20 44 49 53 54 49 4e 43 54 20 68 6f 73 74 6e  T DISTINCT hostn
3fd0: 61 6d 65 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  ame FROM package
3fe0: 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 70 61  s;}]....}...."pa
3ff0: 63 6b 61 67 65 73 22 20 7b 0a 09 09 09 09 63 61  ckages" {.....ca
4000: 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70  tch {......::app
4010: 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24 70 61  fs::getindex $pa
4020: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
4030: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75  .....}......retu
4040: 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20  rn [::appfs::db 
4050: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 49 53  eval {SELECT DIS
4060: 54 49 4e 43 54 20 70 61 63 6b 61 67 65 20 46 52  TINCT package FR
4070: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
4080: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
4090: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
40a0: 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d  ;}]....}...."os-
40b0: 63 70 75 22 20 7b 0a 09 09 09 09 73 65 74 20 72  cpu" {.....set r
40c0: 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a  etval [::appfs::
40d0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
40e0: 44 49 53 54 49 4e 43 54 20 6f 73 20 7c 7c 20 22  DISTINCT os || "
40f0: 2d 22 20 7c 7c 20 63 70 75 41 72 63 68 20 46 52  -" || cpuArch FR
4100: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
4110: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
4120: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
4130: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24   AND package = $
4140: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
4150: 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70 70 65 6e  );}]......lappen
4160: 64 20 72 65 74 76 61 6c 20 22 70 6c 61 74 66 6f  d retval "platfo
4170: 72 6d 22 0a 0a 09 09 09 09 72 65 74 75 72 6e 20  rm"......return 
4180: 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 09 09  $retval....}....
4190: 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09  "versions" {....
41a0: 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61  .set retval [::a
41b0: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 0a  ppfs::db eval {.
41c0: 09 09 09 09 09 53 45 4c 45 43 54 20 44 49 53 54  .....SELECT DIST
41d0: 49 4e 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f  INCT version FRO
41e0: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
41f0: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74   hostname = $pat
4200: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20  hinfo(hostname) 
4210: 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70  AND package = $p
4220: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
4230: 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69   AND os = $pathi
4240: 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41  nfo(os) AND cpuA
4250: 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  rch = $pathinfo(
4260: 63 70 75 29 3b 0a 09 09 09 09 7d 5d 0a 0a 09 09  cpu);.....}]....
4270: 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76  ..::appfs::db ev
4280: 61 6c 20 7b 53 45 4c 45 43 54 20 76 65 72 73 69  al {SELECT versi
4290: 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  on FROM packages
42a0: 20 57 48 45 52 45 20 69 73 4c 61 74 65 73 74 20   WHERE isLatest 
42b0: 3d 20 31 20 41 4e 44 20 68 6f 73 74 6e 61 6d 65  = 1 AND hostname
42c0: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
42d0: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
42e0: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
42f0: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d  ackage) AND os =
4300: 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41   $pathinfo(os) A
4310: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61  ND cpuArch = $pa
4320: 74 68 69 6e 66 6f 28 63 70 75 29 20 4c 49 4d 49  thinfo(cpu) LIMI
4330: 54 20 31 3b 7d 20 6c 61 74 65 73 74 5f 69 6e 66  T 1;} latest_inf
4340: 6f 20 7b 7d 0a 0a 09 09 09 09 69 66 20 7b 5b 69  o {}......if {[i
4350: 6e 66 6f 20 65 78 69 73 74 73 20 6c 61 74 65 73  nfo exists lates
4360: 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 5d  t_info(version)]
4370: 7d 20 7b 0a 09 09 09 09 09 6c 61 70 70 65 6e 64  } {......lappend
4380: 20 72 65 74 76 61 6c 20 22 6c 61 74 65 73 74 22   retval "latest"
4390: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75  .....}......retu
43a0: 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a  rn $retval....}.
43b0: 09 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09  ..."files" {....
43c0: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a  .catch {......::
43d0: 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20  appfs::getindex 
43e0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
43f0: 6d 65 29 0a 09 09 09 09 09 3a 3a 61 70 70 66 73  me)......::appfs
4400: 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65 73 74  ::getpkgmanifest
4410: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4420: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 70  ame) $pathinfo(p
4430: 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09 09 09  ackage_sha1)....
4440: 09 7d 0a 0a 09 09 09 09 73 65 74 20 72 65 74 76  .}......set retv
4450: 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20  al [::appfs::db 
4460: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 49 53  eval {SELECT DIS
4470: 54 49 4e 43 54 20 66 69 6c 65 5f 6e 61 6d 65 20  TINCT file_name 
4480: 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 52 45  FROM files WHERE
4490: 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20 3d 20   package_sha1 = 
44a0: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
44b0: 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69 6c 65  e_sha1) AND file
44c0: 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24 70 61  _directory = $pa
44d0: 74 68 69 6e 66 6f 28 66 69 6c 65 29 3b 7d 5d 0a  thinfo(file);}].
44e0: 0a 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65  .....if {[info e
44f0: 78 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 70  xists pathinfo(p
4500: 61 63 6b 61 67 65 29 5d 20 26 26 20 5b 69 6e 66  ackage)] && [inf
4510: 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66  o exists pathinf
4520: 6f 28 68 6f 73 74 6e 61 6d 65 29 5d 20 26 26 20  o(hostname)] && 
4530: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74  [info exists pat
4540: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 7d 20 7b 0a  hinfo(file)]} {.
4550: 09 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a  ....._as_user {.
4560: 09 09 09 09 09 09 73 65 74 20 64 69 72 20 5b 5f  ......set dir [_
4570: 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 69  localpath $pathi
4580: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61  nfo(package) $pa
4590: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
45a0: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
45b0: 5d 0a 09 09 09 09 09 09 73 65 74 20 77 68 69 74  ].......set whit
45c0: 65 6f 75 74 64 69 72 20 5b 73 74 72 69 6e 67 20  eoutdir [string 
45d0: 72 61 6e 67 65 20 5b 5f 77 68 69 74 65 6f 75 74  range [_whiteout
45e0: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
45f0: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
4600: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
4610: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 20 30 20 65  hinfo(file)] 0 e
4620: 6e 64 2d 31 35 5d 0a 0a 09 09 09 09 09 09 69 66  nd-15]........if
4630: 20 7b 24 77 68 69 74 65 6f 75 74 64 69 72 20 21   {$whiteoutdir !
4640: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 66  = ""} {........f
4650: 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 6c 6f  oreach file [glo
4660: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74  b -nocomplain -t
4670: 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72 79 20  ails -directory 
4680: 24 77 68 69 74 65 6f 75 74 64 69 72 20 7b 7b 2e  $whiteoutdir {{.
4690: 2c 7d 2a 2e 41 50 50 46 53 2e 57 48 49 54 45 4f  ,}*.APPFS.WHITEO
46a0: 55 54 7d 5d 20 7b 0a 09 09 09 09 09 09 09 09 73  UT}] {.........s
46b0: 65 74 20 72 65 6d 6f 76 65 20 5b 73 74 72 69 6e  et remove [strin
46c0: 67 20 72 61 6e 67 65 20 24 66 69 6c 65 20 30 20  g range $file 0 
46d0: 65 6e 64 2d 31 35 5d 0a 09 09 09 09 09 09 09 09  end-15].........
46e0: 73 65 74 20 69 64 78 20 5b 6c 73 65 61 72 63 68  set idx [lsearch
46f0: 20 2d 65 78 61 63 74 20 24 72 65 74 76 61 6c 20   -exact $retval 
4700: 24 72 65 6d 6f 76 65 5d 0a 09 09 09 09 09 09 09  $remove]........
4710: 09 69 66 20 7b 24 69 64 78 20 21 3d 20 2d 31 7d  .if {$idx != -1}
4720: 20 7b 0a 09 09 09 09 09 09 09 09 09 73 65 74 20   {..........set 
4730: 72 65 74 76 61 6c 20 5b 6c 72 65 70 6c 61 63 65  retval [lreplace
4740: 20 24 72 65 74 76 61 6c 20 24 69 64 78 20 24 69   $retval $idx $i
4750: 64 78 5d 0a 09 09 09 09 09 09 09 09 7d 0a 09 09  dx].........}...
4760: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a 0a  .....}.......}..
4770: 09 09 09 09 09 09 69 66 20 7b 24 64 69 72 20 21  ......if {$dir !
4780: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 66  = ""} {........f
4790: 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 6c 6f  oreach file [glo
47a0: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74  b -nocomplain -t
47b0: 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72 79 20  ails -directory 
47c0: 24 64 69 72 20 7b 7b 2e 2c 7d 2a 7d 5d 20 7b 0a  $dir {{.,}*}] {.
47d0: 09 09 09 09 09 09 09 09 69 66 20 7b 24 66 69 6c  ........if {$fil
47e0: 65 20 3d 3d 20 22 2e 22 20 7c 7c 20 24 66 69 6c  e == "." || $fil
47f0: 65 20 3d 3d 20 22 2e 2e 22 7d 20 7b 0a 09 09 09  e == ".."} {....
4800: 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09  ......continue..
4810: 09 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09  .......}........
4820: 09 09 69 66 20 7b 24 66 69 6c 65 20 3d 3d 20 22  ..if {$file == "
4830: 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55 54 22  .APPFS.WHITEOUT"
4840: 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 63 6f 6e  } {..........con
4850: 74 69 6e 75 65 0a 09 09 09 09 09 09 09 09 7d 0a  tinue.........}.
4860: 0a 09 09 09 09 09 09 09 09 69 66 20 7b 5b 6c 73  .........if {[ls
4870: 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 72 65  earch -exact $re
4880: 74 76 61 6c 20 24 66 69 6c 65 5d 20 21 3d 20 2d  tval $file] != -
4890: 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 63 6f  1} {..........co
48a0: 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09 09 7d  ntinue.........}
48b0: 0a 0a 09 09 09 09 09 09 09 09 6c 61 70 70 65 6e  ..........lappen
48c0: 64 20 72 65 74 76 61 6c 20 24 66 69 6c 65 0a 09  d retval $file..
48d0: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a  ......}.......}.
48e0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09  .....}.....}....
48f0: 09 09 72 65 74 75 72 6e 20 24 72 65 74 76 61 6c  ..return $retval
4900: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74  ....}...}....ret
4910: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
4920: 22 49 6e 76 61 6c 69 64 20 6f 72 20 75 6e 61 63  "Invalid or unac
4930: 63 65 70 74 61 62 6c 65 20 70 61 74 68 3a 20 24  ceptable path: $
4940: 64 69 72 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 67  dir"..}...proc g
4950: 65 74 61 74 74 72 20 7b 70 61 74 68 7d 20 7b 0a  etattr {path} {.
4960: 09 09 61 72 72 61 79 20 73 65 74 20 70 61 74 68  ..array set path
4970: 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61 74 68  info [_parsepath
4980: 20 24 70 61 74 68 5d 0a 09 09 61 72 72 61 79 20   $path]...array 
4990: 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 69 73 74  set retval [list
49a0: 5d 0a 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09  ]....catch {....
49b0: 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65  ::appfs::getinde
49c0: 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  x $pathinfo(host
49d0: 6e 61 6d 65 29 0a 09 09 09 3a 3a 61 70 70 66 73  name)....::appfs
49e0: 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65 73 74  ::getpkgmanifest
49f0: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4a00: 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 70  ame) $pathinfo(p
4a10: 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09 09 7d  ackage_sha1)...}
4a20: 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24 70  ....switch -- $p
4a30: 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 20 7b  athinfo(_type) {
4a40: 0a 09 09 09 22 74 6f 70 6c 65 76 65 6c 22 20 7b  ...."toplevel" {
4a50: 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
4a60: 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a  type) directory.
4a70: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
4a80: 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e  hildcount) [llen
4a90: 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e  gth [getchildren
4aa0: 20 24 70 61 74 68 5d 5d 0a 09 09 09 7d 0a 09 09   $path]]....}...
4ab0: 09 22 73 69 74 65 73 22 20 7b 0a 09 09 09 09 73  ."sites" {.....s
4ac0: 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66  et check [::appf
4ad0: 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20  s::db onecolumn 
4ae0: 7b 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70  {SELECT 1 FROM p
4af0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
4b00: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e  stname = $pathin
4b10: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a  fo(hostname);}].
4b20: 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20 3d  ....if {$check =
4b30: 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 73 65  = "1"} {......se
4b40: 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64  t retval(type) d
4b50: 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 73 65  irectory......se
4b60: 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f  t retval(childco
4b70: 75 6e 74 29 20 30 0a 09 09 09 09 7d 0a 09 09 09  unt) 0.....}....
4b80: 7d 0a 09 09 09 22 70 61 63 6b 61 67 65 73 22 20  }...."packages" 
4b90: 7b 0a 09 09 09 09 73 65 74 20 63 68 65 63 6b 20  {.....set check 
4ba0: 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65  [::appfs::db one
4bb0: 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31  column {SELECT 1
4bc0: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
4bd0: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
4be0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4bf0: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
4c00: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
4c10: 61 67 65 29 3b 7d 5d 0a 09 09 09 09 69 66 20 7b  age);}].....if {
4c20: 24 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b  $check == "1"} {
4c30: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
4c40: 28 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79  (type) directory
4c50: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
4c60: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c  (childcount) [ll
4c70: 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72  ength [getchildr
4c80: 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 7d  en $path]].....}
4c90: 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63 70 75  ....}...."os-cpu
4ca0: 22 20 7b 0a 09 09 09 09 69 66 20 7b 24 70 61 74  " {.....if {$pat
4cb0: 68 69 6e 66 6f 28 6f 73 29 20 3d 3d 20 22 70 6c  hinfo(os) == "pl
4cc0: 61 74 66 6f 72 6d 22 20 26 26 20 24 70 61 74 68  atform" && $path
4cd0: 69 6e 66 6f 28 63 70 75 29 20 3d 3d 20 22 22 7d  info(cpu) == ""}
4ce0: 20 7b 0a 09 09 09 09 09 73 65 74 20 63 68 65 63   {......set chec
4cf0: 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65  k [::appfs::db e
4d00: 76 61 6c 20 7b 0a 09 09 09 09 09 09 53 45 4c 45  val {.......SELE
4d10: 43 54 20 44 49 53 54 49 4e 43 54 20 6f 73 2c 20  CT DISTINCT os, 
4d20: 63 70 75 41 72 63 68 20 46 52 4f 4d 20 70 61 63  cpuArch FROM pac
4d30: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
4d40: 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f  name = $pathinfo
4d50: 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70  (hostname) AND p
4d60: 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e  ackage = $pathin
4d70: 66 6f 28 70 61 63 6b 61 67 65 29 3b 0a 09 09 09  fo(package);....
4d80: 09 09 7d 5d 0a 0a 09 09 09 09 09 73 65 74 20 72  ..}].......set r
4d90: 65 74 76 61 6c 28 74 79 70 65 29 20 73 79 6d 6c  etval(type) syml
4da0: 69 6e 6b 0a 0a 09 09 09 09 09 69 66 20 7b 24 63  ink.......if {$c
4db0: 68 65 63 6b 20 3d 3d 20 5b 6c 69 73 74 20 22 6e  heck == [list "n
4dc0: 6f 61 72 63 68 22 20 22 6e 6f 61 72 63 68 22 5d  oarch" "noarch"]
4dd0: 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  } {.......set re
4de0: 74 76 61 6c 28 73 6f 75 72 63 65 29 20 22 6e 6f  tval(source) "no
4df0: 61 72 63 68 2d 6e 6f 61 72 63 68 22 0a 09 09 09  arch-noarch"....
4e00: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
4e10: 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72  .set retval(sour
4e20: 63 65 29 20 24 3a 3a 61 70 70 66 73 3a 3a 70 6c  ce) $::appfs::pl
4e30: 61 74 66 6f 72 6d 0a 09 09 09 09 09 7d 0a 09 09  atform......}...
4e40: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
4e50: 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70  set check [::app
4e60: 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e  fs::db onecolumn
4e70: 20 7b 0a 09 09 09 09 09 09 53 45 4c 45 43 54 20   {.......SELECT 
4e80: 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  1 FROM packages 
4e90: 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d  WHERE hostname =
4ea0: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4eb0: 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65  ame) AND package
4ec0: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63   = $pathinfo(pac
4ed0: 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24  kage) AND os = $
4ee0: 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44  pathinfo(os) AND
4ef0: 20 63 70 75 41 72 63 68 20 3d 20 24 70 61 74 68   cpuArch = $path
4f00: 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09 09 09  info(cpu);......
4f10: 7d 5d 0a 09 09 09 09 09 69 66 20 7b 24 63 68 65  }]......if {$che
4f20: 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09  ck == "1"} {....
4f30: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79  ...set retval(ty
4f40: 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09  pe) directory...
4f50: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
4f60: 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e  hildcount) [llen
4f70: 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e  gth [getchildren
4f80: 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 7d 0a   $path]]......}.
4f90: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 76  ....}....}...."v
4fa0: 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09 69  ersions" {.....i
4fb0: 66 20 7b 24 70 61 74 68 69 6e 66 6f 28 76 65 72  f {$pathinfo(ver
4fc0: 73 69 6f 6e 29 20 3d 3d 20 22 6c 61 74 65 73 74  sion) == "latest
4fd0: 22 7d 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70 66  "} {......::appf
4fe0: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
4ff0: 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20  CT version FROM 
5000: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 69  packages WHERE i
5010: 73 4c 61 74 65 73 74 20 3d 20 31 20 41 4e 44 20  sLatest = 1 AND 
5020: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68  hostname = $path
5030: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41  info(hostname) A
5040: 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61  ND package = $pa
5050: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
5060: 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e  AND os = $pathin
5070: 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72  fo(os) AND cpuAr
5080: 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63  ch = $pathinfo(c
5090: 70 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61  pu) LIMIT 1;} la
50a0: 74 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09  test_info {}....
50b0: 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  ...if {[info exi
50c0: 73 74 73 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28  sts latest_info(
50d0: 76 65 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09  version)]} {....
50e0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79  ...set retval(ty
50f0: 70 65 29 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09  pe) symlink.....
5100: 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75  ..set retval(sou
5110: 72 63 65 29 20 24 6c 61 74 65 73 74 5f 69 6e 66  rce) $latest_inf
5120: 6f 28 76 65 72 73 69 6f 6e 29 0a 09 09 09 09 09  o(version)......
5130: 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  }.....} else {..
5140: 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ....if {[info ex
5150: 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 70 61  ists pathinfo(pa
5160: 63 6b 61 67 65 5f 73 68 61 31 29 5d 20 26 26 20  ckage_sha1)] && 
5170: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
5180: 65 5f 73 68 61 31 29 20 21 3d 20 22 22 7d 20 7b  e_sha1) != ""} {
5190: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
51a0: 6c 28 74 79 70 65 29 20 64 69 72 65 63 74 6f 72  l(type) director
51b0: 79 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76  y.......set retv
51c0: 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b  al(childcount) [
51d0: 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c  llength [getchil
51e0: 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09  dren $path]]....
51f0: 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09  ..}.....}....}..
5200: 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09  .."files" {.....
5210: 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61  set retval(packa
5220: 67 65 64 29 20 31 0a 0a 09 09 09 09 73 65 74 20  ged) 1......set 
5230: 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61  localpath [_loca
5240: 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28  lpath $pathinfo(
5250: 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e  package) $pathin
5260: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
5270: 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09  thinfo(file)]...
5280: 09 09 73 65 74 20 77 68 69 74 65 6f 75 74 70 61  ..set whiteoutpa
5290: 74 68 20 20 5b 5f 77 68 69 74 65 6f 75 74 70 61  th  [_whiteoutpa
52a0: 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63  th $pathinfo(pac
52b0: 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28  kage) $pathinfo(
52c0: 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69  hostname) $pathi
52d0: 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 09 09  nfo(file)]......
52e0: 73 65 74 20 72 65 74 76 61 6c 28 6c 6f 63 61 6c  set retval(local
52f0: 70 61 74 68 29 20 24 6c 6f 63 61 6c 70 61 74 68  path) $localpath
5300: 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5310: 77 68 69 74 65 6f 75 74 70 61 74 68 29 20 24 77  whiteoutpath) $w
5320: 68 69 74 65 6f 75 74 70 61 74 68 0a 0a 09 09 09  hiteoutpath.....
5330: 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61  .unset -nocompla
5340: 69 6e 20 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f  in localpathinfo
5350: 0a 09 09 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70  .....if {$localp
5360: 61 74 68 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09  ath != ""} {....
5370: 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09  .._as_user {....
5380: 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09  ...catch {......
5390: 09 09 66 69 6c 65 20 6c 73 74 61 74 20 24 6c 6f  ..file lstat $lo
53a0: 63 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70 61 74  calpath localpat
53b0: 68 69 6e 66 6f 0a 09 09 09 09 09 09 7d 0a 09 09  hinfo.......}...
53c0: 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09  ...}.....}......
53d0: 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 21  if {$localpath !
53e0: 3d 20 22 22 20 26 26 20 5b 69 6e 66 6f 20 65 78  = "" && [info ex
53f0: 69 73 74 73 20 6c 6f 63 61 6c 70 61 74 68 69 6e  ists localpathin
5400: 66 6f 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74 20  fo]} {......set 
5410: 72 65 74 76 61 6c 28 69 73 5f 6c 6f 63 61 6c 66  retval(is_localf
5420: 69 6c 65 29 20 31 0a 09 09 09 09 09 63 61 74 63  ile) 1......catc
5430: 68 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  h {.......set re
5440: 74 76 61 6c 28 74 69 6d 65 29 20 24 6c 6f 63 61  tval(time) $loca
5450: 6c 70 61 74 68 69 6e 66 6f 28 6d 74 69 6d 65 29  lpathinfo(mtime)
5460: 0a 0a 09 09 09 09 09 09 73 77 69 74 63 68 20 2d  ........switch -
5470: 2d 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f  - $localpathinfo
5480: 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09 09 09  (type) {........
5490: 22 64 69 72 65 63 74 6f 72 79 22 20 7b 0a 09 09  "directory" {...
54a0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
54b0: 28 74 79 70 65 29 20 22 64 69 72 65 63 74 6f 72  (type) "director
54c0: 79 22 0a 09 09 09 09 09 09 09 09 73 65 74 20 72  y".........set r
54d0: 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74  etval(childcount
54e0: 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63  ) [llength [getc
54f0: 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a  hildren $path]].
5500: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09  .......}........
5510: 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09 09 09  "file" {........
5520: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
5530: 29 20 22 66 69 6c 65 22 0a 09 09 09 09 09 09 09  ) "file"........
5540: 09 73 65 74 20 72 65 74 76 61 6c 28 73 69 7a 65  .set retval(size
5550: 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f  ) $localpathinfo
5560: 28 73 69 7a 65 29 0a 0a 09 09 09 09 09 09 09 09  (size)..........
5570: 23 20 4f 6e 63 65 20 74 68 65 20 75 73 65 72 20  # Once the user 
5580: 77 72 69 74 65 73 20 74 6f 20 61 20 66 69 6c 65  writes to a file
5590: 2c 20 61 6c 6c 20 69 74 73 20 6f 74 68 65 72 0a  , all its other.
55a0: 09 09 09 09 09 09 09 09 23 20 61 74 74 72 69 62  ........# attrib
55b0: 75 74 65 73 20 28 73 75 63 68 20 61 73 20 73 75  utes (such as su
55c0: 69 64 29 20 61 72 65 20 6c 6f 73 74 0a 0a 09 09  id) are lost....
55d0: 09 09 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b  ......_as_user {
55e0: 0a 09 09 09 09 09 09 09 09 09 69 66 20 7b 5b 66  ..........if {[f
55f0: 69 6c 65 20 65 78 65 63 75 74 61 62 6c 65 20 24  ile executable $
5600: 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09  localpath]} {...
5610: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
5620: 61 6c 28 70 65 72 6d 73 29 20 22 78 2d 22 0a 09  al(perms) "x-"..
5630: 09 09 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b  ........} else {
5640: 0a 09 09 09 09 09 09 09 09 09 09 73 65 74 20 72  ...........set r
5650: 65 74 76 61 6c 28 70 65 72 6d 73 29 20 22 2d 22  etval(perms) "-"
5660: 0a 09 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09  ..........}.....
5670: 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a 09  ....}........}..
5680: 09 09 09 09 09 09 22 6c 69 6e 6b 22 20 7b 0a 09  ......"link" {..
5690: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
56a0: 6c 28 74 79 70 65 29 20 22 73 79 6d 6c 69 6e 6b  l(type) "symlink
56b0: 22 0a 0a 09 09 09 09 09 09 09 09 5f 61 73 5f 75  ".........._as_u
56c0: 73 65 72 20 7b 0a 09 09 09 09 09 09 09 09 09 73  ser {..........s
56d0: 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65  et retval(source
56e0: 29 20 5b 66 69 6c 65 20 72 65 61 64 6c 69 6e 6b  ) [file readlink
56f0: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a 09 09 09   $localpath]....
5700: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a  .....}........}.
5710: 09 09 09 09 09 09 09 22 66 69 66 6f 22 20 7b 0a  ......."fifo" {.
5720: 09 09 09 09 09 09 09 09 23 20 43 61 70 69 74 61  ........# Capita
5730: 6c 69 7a 65 64 20 73 6f 20 74 68 61 74 20 74 68  lized so that th
5740: 65 20 66 69 72 73 74 20 63 68 61 72 20 69 73 20  e first char is 
5750: 75 6e 69 71 75 65 0a 09 09 09 09 09 09 09 09 73  unique.........s
5760: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
5770: 22 46 69 66 6f 22 0a 09 09 09 09 09 09 09 7d 0a  "Fifo"........}.
5780: 09 09 09 09 09 09 09 22 73 6f 63 6b 65 74 22 20  ......."socket" 
5790: 7b 0a 09 09 09 09 09 09 09 09 23 20 43 61 70 69  {.........# Capi
57a0: 74 61 6c 69 7a 65 64 20 73 6f 20 74 68 61 74 20  talized so that 
57b0: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 20 69  the first char i
57c0: 73 20 75 6e 69 71 75 65 0a 09 09 09 09 09 09 09  s unique........
57d0: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
57e0: 29 20 22 53 6f 63 6b 65 74 22 0a 09 09 09 09 09  ) "Socket"......
57f0: 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 09 09  ..}.......}.....
5800: 09 7d 20 65 72 72 0a 09 09 09 09 7d 20 65 6c 73  .} err.....} els
5810: 65 20 7b 0a 09 09 09 09 09 69 66 20 7b 24 77 68  e {......if {$wh
5820: 69 74 65 6f 75 74 70 61 74 68 20 3d 3d 20 22 22  iteoutpath == ""
5830: 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 73 74   || ![file exist
5840: 73 20 24 77 68 69 74 65 6f 75 74 70 61 74 68 5d  s $whiteoutpath]
5850: 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65  } {.......set re
5860: 74 76 61 6c 28 69 73 5f 72 65 6d 6f 74 65 66 69  tval(is_remotefi
5870: 6c 65 29 20 31 0a 0a 09 09 09 09 09 09 73 65 74  le) 1........set
5880: 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 70 61   work [split $pa
5890: 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22 2f 22  thinfo(file) "/"
58a0: 5d 0a 09 09 09 09 09 09 73 65 74 20 64 69 72 65  ].......set dire
58b0: 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61  ctory [join [lra
58c0: 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e 64 2d  nge $work 0 end-
58d0: 31 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 73 65  1] "/"].......se
58e0: 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20 24  t file [lindex $
58f0: 77 6f 72 6b 20 65 6e 64 5d 0a 0a 09 09 09 09 09  work end].......
5900: 09 69 66 20 7b 24 64 69 72 65 63 74 6f 72 79 20  .if {$directory 
5910: 3d 3d 20 22 22 20 26 26 20 24 66 69 6c 65 20 3d  == "" && $file =
5920: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 61  = ""} {........a
5930: 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c 20  rray set retval 
5940: 5b 6c 69 73 74 20 74 79 70 65 20 64 69 72 65 63  [list type direc
5950: 74 6f 72 79 5d 0a 09 09 09 09 09 09 7d 0a 0a 09  tory].......}...
5960: 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62  .....::appfs::db
5970: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 79   eval {SELECT ty
5980: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
5990: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 20 46 52  , size, perms FR
59a0: 4f 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70  OM files WHERE p
59b0: 61 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70  ackage_sha1 = $p
59c0: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f  athinfo(package_
59d0: 73 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64  sha1) AND file_d
59e0: 69 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65  irectory = $dire
59f0: 63 74 6f 72 79 20 41 4e 44 20 66 69 6c 65 5f 6e  ctory AND file_n
5a00: 61 6d 65 20 3d 20 24 66 69 6c 65 3b 7d 20 72 65  ame = $file;} re
5a10: 74 76 61 6c 20 7b 7d 0a 0a 09 09 09 09 09 09 23  tval {}........#
5a20: 20 41 6c 6c 6f 77 20 61 6e 20 61 64 6d 69 6e 69   Allow an admini
5a30: 73 74 72 61 74 6f 72 20 74 6f 20 73 75 70 70 6c  strator to suppl
5a40: 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 70 65 72  y additional per
5a50: 6d 69 73 73 69 6f 6e 73 20 74 6f 20 72 65 6d 6f  missions to remo
5a60: 74 65 20 66 69 6c 65 73 0a 09 09 09 09 09 09 69  te files.......i
5a70: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
5a80: 72 65 74 76 61 6c 28 70 65 72 6d 73 29 5d 7d 20  retval(perms)]} 
5a90: 7b 0a 09 09 09 09 09 09 09 23 20 4c 6f 77 65 72  {........# Lower
5aa0: 20 63 61 73 65 20 74 68 69 73 20 69 6e 20 63 61   case this in ca
5ab0: 73 65 20 61 6e 20 75 70 70 65 72 2d 63 61 73 65  se an upper-case
5ac0: 64 20 76 61 6c 75 65 20 77 61 73 20 70 75 74 20  d value was put 
5ad0: 69 6e 0a 09 09 09 09 09 09 09 23 20 74 68 65 20  in........# the 
5ae0: 64 61 74 61 62 61 73 65 20 62 65 66 6f 72 65 20  database before 
5af0: 77 65 20 73 74 61 72 74 65 64 20 6c 6f 77 65 72  we started lower
5b00: 63 61 73 69 6e 67 20 74 68 65 6d 0a 09 09 09 09  casing them.....
5b10: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
5b20: 72 6d 73 29 20 5b 73 74 72 69 6e 67 20 74 6f 6c  rms) [string tol
5b30: 6f 77 65 72 20 24 72 65 74 76 61 6c 28 70 65 72  ower $retval(per
5b40: 6d 73 29 5d 0a 0a 09 09 09 09 09 09 09 73 65 74  ms)].........set
5b50: 20 72 65 74 76 61 6c 28 70 65 72 6d 73 29 20 5b   retval(perms) [
5b60: 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 63  ::appfs::user::c
5b70: 68 61 6e 67 65 5f 70 65 72 6d 73 20 24 70 61 74  hange_perms $pat
5b80: 68 20 24 72 65 74 76 61 6c 28 70 65 72 6d 73 29  h $retval(perms)
5b90: 5d 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09  ].......}.......
5ba0: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
5bb0: 73 20 72 65 74 76 61 6c 28 74 79 70 65 29 5d 20  s retval(type)] 
5bc0: 26 26 20 24 72 65 74 76 61 6c 28 74 79 70 65 29  && $retval(type)
5bd0: 20 3d 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d   == "directory"}
5be0: 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20 72 65   {........set re
5bf0: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
5c00: 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68   [llength [getch
5c10: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09  ildren $path]]..
5c20: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 75 6e  .....}........un
5c30: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
5c40: 72 65 74 76 61 6c 28 2a 29 0a 09 09 09 09 09 7d  retval(*)......}
5c50: 0a 09 09 09 09 7d 0a 0a 09 09 09 7d 0a 09 09 7d  .....}.....}...}
5c60: 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ....if {![info e
5c70: 78 69 73 74 73 20 72 65 74 76 61 6c 28 74 79 70  xists retval(typ
5c80: 65 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  e)]} {....return
5c90: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f   -code error "No
5ca0: 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69   such file or di
5cb0: 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09  rectory"...}....
5cc0: 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65  return [array ge
5cd0: 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70  t retval]..}...p
5ce0: 72 6f 63 20 6f 70 65 6e 70 61 74 68 20 7b 70 61  roc openpath {pa
5cf0: 74 68 20 6d 6f 64 65 7d 20 7b 0a 09 09 61 72 72  th mode} {...arr
5d00: 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20  ay set pathinfo 
5d10: 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74  [_parsepath $pat
5d20: 68 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69  h]....if {$pathi
5d30: 6e 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66  nfo(_type) != "f
5d40: 69 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75  iles"} {....retu
5d50: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
5d60: 69 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09  invalid type"...
5d70: 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61  }....set localpa
5d80: 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24  th [_localpath $
5d90: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
5da0: 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  ) $pathinfo(host
5db0: 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28  name) $pathinfo(
5dc0: 66 69 6c 65 29 5d 0a 0a 09 09 69 66 20 7b 24 6d  file)]....if {$m
5dd0: 6f 64 65 20 3d 3d 20 22 63 72 65 61 74 65 22 7d  ode == "create"}
5de0: 20 7b 0a 09 09 09 69 66 20 7b 24 6c 6f 63 61 6c   {....if {$local
5df0: 70 61 74 68 20 3d 3d 20 22 22 7d 20 7b 0a 09 09  path == ""} {...
5e00: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
5e10: 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 63  rror "Asked to c
5e20: 72 65 61 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f  reate, but no ho
5e30: 6d 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 09  me directory."..
5e40: 09 09 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24  ..}.....return $
5e50: 6c 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09  localpath...}...
5e60: 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20  .if {$localpath 
5e70: 21 3d 20 22 22 20 26 26 20 5b 66 69 6c 65 20 65  != "" && [file e
5e80: 78 69 73 74 73 20 24 6c 6f 63 61 6c 70 61 74 68  xists $localpath
5e90: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 24  ]} {....return $
5ea0: 6c 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09  localpath...}...
5eb0: 09 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74  .set work [split
5ec0: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
5ed0: 20 22 2f 22 5d 0a 09 09 73 65 74 20 64 69 72 65   "/"]...set dire
5ee0: 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61  ctory [join [lra
5ef0: 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e 64 2d  nge $work 0 end-
5f00: 31 5d 20 22 2f 22 5d 0a 09 09 73 65 74 20 66 69  1] "/"]...set fi
5f10: 6c 65 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  le [lindex $work
5f20: 20 65 6e 64 5d 0a 09 09 3a 3a 61 70 70 66 73 3a   end]...::appfs:
5f30: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  :db eval {SELECT
5f40: 20 66 69 6c 65 5f 73 68 61 31 2c 20 70 65 72 6d   file_sha1, perm
5f50: 73 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45  s FROM files WHE
5f60: 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20  RE package_sha1 
5f70: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
5f80: 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69  age_sha1) AND fi
5f90: 6c 65 5f 6e 61 6d 65 20 3d 20 24 66 69 6c 65 20  le_name = $file 
5fa0: 41 4e 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f  AND file_directo
5fb0: 72 79 20 3d 20 24 64 69 72 65 63 74 6f 72 79 3b  ry = $directory;
5fc0: 7d 20 70 6b 67 70 61 74 68 69 6e 66 6f 20 7b 7d  } pkgpathinfo {}
5fd0: 0a 0a 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68  ....if {$pkgpath
5fe0: 69 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31 29 20  info(file_sha1) 
5ff0: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75  == ""} {....retu
6000: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
6010: 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20  No such file or 
6020: 64 69 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a  directory"...}..
6030: 09 09 73 65 74 20 6c 6f 63 61 6c 63 61 63 68 65  ..set localcache
6040: 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24  file [download $
6050: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
6060: 65 29 20 24 70 6b 67 70 61 74 68 69 6e 66 6f 28  e) $pkgpathinfo(
6070: 66 69 6c 65 5f 73 68 61 31 29 5d 0a 0a 09 09 69  file_sha1)]....i
6080: 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 77 72 69  f {$mode == "wri
6090: 74 65 22 7d 20 7b 0a 09 09 09 5f 61 73 5f 75 73  te"} {...._as_us
60a0: 65 72 20 7b 0a 09 09 09 09 73 65 74 20 74 6d 70  er {.....set tmp
60b0: 6c 6f 63 61 6c 70 61 74 68 20 22 24 7b 6c 6f 63  localpath "${loc
60c0: 61 6c 70 61 74 68 7d 2e 5b 65 78 70 72 20 72 61  alpath}.[expr ra
60d0: 6e 64 28 29 5d 5b 63 6c 6f 63 6b 20 63 6c 69 63  nd()][clock clic
60e0: 6b 73 5d 22 0a 0a 09 09 09 09 73 65 74 20 66 61  ks]"......set fa
60f0: 69 6c 65 64 20 30 0a 09 09 09 09 69 66 20 7b 5b  iled 0.....if {[
6100: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 66 69 6c  catch {......fil
6110: 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64 69  e mkdir [file di
6120: 72 6e 61 6d 65 20 24 6c 6f 63 61 6c 70 61 74 68  rname $localpath
6130: 5d 0a 09 09 09 09 09 66 69 6c 65 20 63 6f 70 79  ]......file copy
6140: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61   -force -- $loca
6150: 6c 63 61 63 68 65 66 69 6c 65 20 24 74 6d 70 6c  lcachefile $tmpl
6160: 6f 63 61 6c 70 61 74 68 0a 0a 09 09 09 09 09 69  ocalpath.......i
6170: 66 20 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28  f {$pkgpathinfo(
6180: 70 65 72 6d 73 29 20 3d 3d 20 22 78 22 7d 20 7b  perms) == "x"} {
6190: 0a 09 09 09 09 09 09 66 69 6c 65 20 61 74 74 72  .......file attr
61a0: 69 62 75 74 65 73 20 24 74 6d 70 6c 6f 63 61 6c  ibutes $tmplocal
61b0: 70 61 74 68 20 2d 70 65 72 6d 69 73 73 69 6f 6e  path -permission
61c0: 73 20 2b 78 0a 09 09 09 09 09 7d 0a 0a 09 09 09  s +x......}.....
61d0: 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66  ..file rename -f
61e0: 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c 6f 63 61  orce -- $tmploca
61f0: 6c 70 61 74 68 20 24 6c 6f 63 61 6c 70 61 74 68  lpath $localpath
6200: 0a 09 09 09 09 7d 20 65 72 72 5d 7d 20 7b 0a 09  .....} err]} {..
6210: 09 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 31  ....set failed 1
6220: 0a 09 09 09 09 7d 0a 09 09 09 09 63 61 74 63 68  .....}.....catch
6230: 20 7b 0a 09 09 09 09 09 66 69 6c 65 20 64 65 6c   {......file del
6240: 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74  ete -force -- $t
6250: 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 09  mplocalpath.....
6260: 7d 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24  }....}.....if {$
6270: 66 61 69 6c 65 64 7d 20 7b 0a 09 09 09 09 72 65  failed} {.....re
6280: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
6290: 20 24 65 72 72 0a 09 09 09 7d 0a 0a 09 09 09 72   $err....}.....r
62a0: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68  eturn $localpath
62b0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24  ...}....return $
62c0: 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 0a 09  localcachefile..
62d0: 7d 0a 0a 09 70 72 6f 63 20 6c 6f 63 61 6c 70 61  }...proc localpa
62e0: 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72  th {path} {...ar
62f0: 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f  ray set pathinfo
6300: 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61   [_parsepath $pa
6310: 74 68 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68  th]....if {$path
6320: 69 6e 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22  info(_type) != "
6330: 66 69 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74  files"} {....ret
6340: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
6350: 22 69 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09  "invalid type"..
6360: 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70  .}....set localp
6370: 61 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20  ath [_localpath 
6380: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
6390: 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  e) $pathinfo(hos
63a0: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f  tname) $pathinfo
63b0: 28 66 69 6c 65 29 5d 0a 0a 09 09 72 65 74 75 72  (file)]....retur
63c0: 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 7d 0a  n $localpath..}.
63d0: 0a 09 70 72 6f 63 20 65 78 69 73 74 73 20 7b 70  ..proc exists {p
63e0: 61 74 68 7d 20 7b 0a 09 09 63 61 74 63 68 20 7b  ath} {...catch {
63f0: 0a 09 09 09 73 65 74 20 69 6e 66 6f 20 5b 67 65  ....set info [ge
6400: 74 61 74 74 72 20 24 70 61 74 68 5d 0a 09 09 7d  tattr $path]...}
6410: 20 65 72 72 0a 0a 09 09 69 66 20 7b 21 5b 69 6e   err....if {![in
6420: 66 6f 20 65 78 69 73 74 73 20 69 6e 66 6f 5d 7d  fo exists info]}
6430: 20 7b 0a 09 09 09 69 66 20 7b 24 65 72 72 20 3d   {....if {$err =
6440: 3d 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 20  = "No such file 
6450: 6f 72 20 64 69 72 65 63 74 6f 72 79 22 7d 20 7b  or directory"} {
6460: 0a 09 09 09 09 72 65 74 75 72 6e 20 5b 6c 69 73  .....return [lis
6470: 74 5d 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  t]....} else {..
6480: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
6490: 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09 7d 0a  error $err....}.
64a0: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 69  ..}....return $i
64b0: 6e 66 6f 0a 09 7d 0a 0a 09 70 72 6f 63 20 70 72  nfo..}...proc pr
64c0: 65 70 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 20  epare_to_create 
64d0: 7b 70 61 74 68 20 7b 6d 75 73 74 5f 6e 6f 74 5f  {path {must_not_
64e0: 65 78 69 73 74 20 31 7d 7d 20 7b 0a 09 09 69 66  exist 1}} {...if
64f0: 20 7b 24 6d 75 73 74 5f 6e 6f 74 5f 65 78 69 73   {$must_not_exis
6500: 74 7d 20 7b 0a 09 09 09 69 66 20 7b 5b 65 78 69  t} {....if {[exi
6510: 73 74 73 20 24 70 61 74 68 5d 20 21 3d 20 22 22  sts $path] != ""
6520: 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d  } {.....return -
6530: 63 6f 64 65 20 65 72 72 6f 72 20 22 46 69 6c 65  code error "File
6540: 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 22   already exists"
6550: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 73 65 74  ....}...}....set
6560: 20 66 69 6c 65 6e 61 6d 65 20 5b 6c 6f 63 61 6c   filename [local
6570: 70 61 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69  path $path]....i
6580: 66 20 7b 24 66 69 6c 65 6e 61 6d 65 20 3d 3d 20  f {$filename == 
6590: 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  ""} {....return 
65a0: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b  -code error "Ask
65b0: 65 64 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75  ed to create, bu
65c0: 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74  t no home direct
65d0: 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 09 73 65 74  ory."...}....set
65e0: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64   dirname [file d
65f0: 69 72 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65  irname $filename
6600: 5d 0a 0a 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a  ]...._as_user {.
6610: 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 64  ...file mkdir $d
6620: 69 72 6e 61 6d 65 0a 09 09 7d 0a 0a 09 09 72 65  irname...}....re
6630: 74 75 72 6e 20 24 66 69 6c 65 6e 61 6d 65 0a 09  turn $filename..
6640: 7d 0a 0a 09 70 72 6f 63 20 75 6e 6c 69 6e 6b 70  }...proc unlinkp
6650: 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61  ath {path} {...a
6660: 72 72 61 79 20 73 65 74 20 70 61 74 68 61 74 74  rray set pathatt
6670: 72 73 20 5b 65 78 69 73 74 73 20 24 70 61 74 68  rs [exists $path
6680: 5d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20  ]....if {![info 
6690: 65 78 69 73 74 73 20 70 61 74 68 61 74 74 72 73  exists pathattrs
66a0: 28 70 61 63 6b 61 67 65 64 29 5d 7d 20 7b 0a 09  (packaged)]} {..
66b0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
66c0: 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74 79  rror "invalid ty
66d0: 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c  pe"...}....set l
66e0: 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 61 74  ocalpath $pathat
66f0: 74 72 73 28 6c 6f 63 61 6c 70 61 74 68 29 0a 0a  trs(localpath)..
6700: 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68  ..if {$localpath
6710: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74   == ""} {....ret
6720: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
6730: 22 41 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65  "Asked to delete
6740: 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69  , but no home di
6750: 72 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09  rectory."...}...
6760: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
6770: 73 20 70 61 74 68 61 74 74 72 73 28 69 73 5f 6c  s pathattrs(is_l
6780: 6f 63 61 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09  ocalfile)]} {...
6790: 09 69 66 20 7b 5b 66 69 6c 65 20 69 73 64 69 72  .if {[file isdir
67a0: 65 63 74 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74  ectory $localpat
67b0: 68 5d 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68  h]} {.....set ch
67c0: 69 6c 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64  ildren [getchild
67d0: 72 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09  ren $path]......
67e0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68  if {[llength $ch
67f0: 69 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a  ildren] != 0} {.
6800: 09 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  .....return -cod
6810: 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74  e error "Asked t
6820: 6f 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70  o delete non-emp
6830: 74 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09  ty directory"...
6840: 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 5f 61 73  ..}....}....._as
6850: 5f 75 73 65 72 20 7b 0a 09 09 09 09 66 69 6c 65  _user {.....file
6860: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d   delete -force -
6870: 2d 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09  - $localpath....
6880: 7d 0a 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 69  }...} elseif {[i
6890: 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 61  nfo exists patha
68a0: 74 74 72 73 28 69 73 5f 72 65 6d 6f 74 65 66 69  ttrs(is_remotefi
68b0: 6c 65 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24  le)]} {....if {$
68c0: 70 61 74 68 61 74 74 72 73 28 74 79 70 65 29 20  pathattrs(type) 
68d0: 3d 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20  == "directory"} 
68e0: 7b 0a 09 09 09 09 73 65 74 20 63 68 69 6c 64 72  {.....set childr
68f0: 65 6e 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  en [getchildren 
6900: 24 70 61 74 68 5d 0a 0a 09 09 09 09 69 66 20 7b  $path]......if {
6910: 5b 6c 6c 65 6e 67 74 68 20 24 63 68 69 6c 64 72  [llength $childr
6920: 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 09  en] != 0} {.....
6930: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
6940: 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65  ror "Asked to de
6950: 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74 79 20 64  lete non-empty d
6960: 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09 7d 0a  irectory".....}.
6970: 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a  ...}...} else {.
6980: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
6990: 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 69  error "Unknown i
69a0: 66 20 66 69 6c 65 20 69 73 20 72 65 6d 6f 74 65  f file is remote
69b0: 20 6f 72 20 6c 6f 63 61 6c 20 21 3f 22 0a 09 09   or local !?"...
69c0: 7d 0a 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75  }....set whiteou
69d0: 74 66 69 6c 65 20 24 70 61 74 68 61 74 74 72 73  tfile $pathattrs
69e0: 28 77 68 69 74 65 6f 75 74 70 61 74 68 29 0a 09  (whiteoutpath)..
69f0: 09 73 65 74 20 77 68 69 74 65 6f 75 74 64 69 72  .set whiteoutdir
6a00: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24   [file dirname $
6a10: 77 68 69 74 65 6f 75 74 66 69 6c 65 5d 0a 0a 09  whiteoutfile]...
6a20: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66  ._as_user {....f
6a30: 69 6c 65 20 6d 6b 64 69 72 20 24 77 68 69 74 65  ile mkdir $white
6a40: 6f 75 74 64 69 72 0a 09 09 09 63 6c 6f 73 65 20  outdir....close 
6a50: 5b 6f 70 65 6e 20 24 77 68 69 74 65 6f 75 74 66  [open $whiteoutf
6a60: 69 6c 65 20 77 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a  ile w]...}..}.}.