Hex Artifact Content

Artifact 15b349e52e55702a3ee99bb557b59b759ca57146:


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 76 61 72 69 61 62 6c 65 20  ser {..variable 
0560: 64 6f 77 6e 6c 6f 61 64 5f 6d 65 74 68 6f 64 20  download_method 
0570: 22 74 63 6c 22 0a 0a 09 23 20 55 73 65 72 2d 72  "tcl"...# User-r
0580: 65 70 6c 61 63 61 62 6c 65 20 66 75 6e 63 74 69  eplacable functi
0590: 6f 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20 61 20  on to convert a 
05a0: 68 6f 73 74 6e 61 6d 65 2f 68 61 73 68 2f 6d 65  hostname/hash/me
05b0: 74 68 6f 64 20 74 6f 20 61 6e 20 55 52 4c 0a 09  thod to an URL..
05c0: 70 72 6f 63 20 63 6f 6e 73 74 72 75 63 74 5f 75  proc construct_u
05d0: 72 6c 20 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73  rl {hostname has
05e0: 68 20 6d 65 74 68 6f 64 7d 20 7b 0a 09 09 72 65  h method} {...re
05f0: 74 75 72 6e 20 22 68 74 74 70 3a 2f 2f 24 68 6f  turn "http://$ho
0600: 73 74 6e 61 6d 65 2f 61 70 70 66 73 2f 24 6d 65  stname/appfs/$me
0610: 74 68 6f 64 2f 24 68 61 73 68 22 0a 09 7d 0a 0a  thod/$hash"..}..
0620: 09 23 20 55 73 65 72 2d 72 65 70 6c 61 63 65 61  .# User-replacea
0630: 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 67 65 74  ble function get
0640: 20 74 68 65 20 68 6f 6d 65 20 64 69 72 65 63 74   the home direct
0650: 6f 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65  ory of the curre
0660: 6e 74 20 75 73 65 72 0a 09 70 72 6f 63 20 67 65  nt user..proc ge
0670: 74 5f 68 6f 6d 65 64 69 72 20 7b 7d 20 7b 0a 09  t_homedir {} {..
0680: 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73  .return [::appfs
0690: 64 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a  d::get_homedir].
06a0: 09 7d 0a 0a 09 23 20 55 73 65 72 2d 72 65 70 6c  .}...# User-repl
06b0: 61 63 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20  acable function 
06c0: 74 6f 20 75 70 64 61 74 65 20 70 65 72 6d 69 73  to update permis
06d0: 73 69 6f 6e 73 0a 09 70 72 6f 63 20 63 68 61 6e  sions..proc chan
06e0: 67 65 5f 70 65 72 6d 73 20 7b 66 69 6c 65 20 73  ge_perms {file s
06f0: 68 61 31 20 70 65 72 6d 73 7d 20 7b 0a 09 09 69  ha1 perms} {...i
0700: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
0710: 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 61  ::appfs::user::a
0720: 64 64 5f 70 65 72 6d 73 28 24 66 69 6c 65 29 5d  dd_perms($file)]
0730: 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 70 65  } {....append pe
0740: 72 6d 73 20 24 3a 3a 61 70 70 66 73 3a 3a 75 73  rms $::appfs::us
0750: 65 72 3a 3a 61 64 64 5f 70 65 72 6d 73 28 24 66  er::add_perms($f
0760: 69 6c 65 29 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  ile)...}....if {
0770: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61  [info exists ::a
0780: 70 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64 64 5f  ppfs::user::add_
0790: 70 65 72 6d 73 28 24 73 68 61 31 29 5d 7d 20 7b  perms($sha1)]} {
07a0: 0a 09 09 09 61 70 70 65 6e 64 20 70 65 72 6d 73  ....append perms
07b0: 20 24 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a   $::appfs::user:
07c0: 3a 61 64 64 5f 70 65 72 6d 73 28 24 73 68 61 31  :add_perms($sha1
07d0: 29 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  )...}....return 
07e0: 24 70 65 72 6d 73 0a 09 7d 0a 0a 09 23 20 55 73  $perms..}...# Us
07f0: 65 72 2d 72 65 70 6c 61 63 61 62 6c 65 20 66 75  er-replacable fu
0800: 6e 63 74 69 6f 6e 20 74 6f 20 66 65 74 63 68 20  nction to fetch 
0810: 61 20 72 65 6d 6f 74 65 20 66 69 6c 65 0a 09 70  a remote file..p
0820: 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 5f 66 69 6c  roc download_fil
0830: 65 20 7b 75 72 6c 20 7b 6f 75 74 70 75 74 43 68  e {url {outputCh
0840: 61 6e 6e 65 6c 20 22 22 7d 7d 20 7b 0a 09 09 73  annel ""}} {...s
0850: 77 69 74 63 68 20 2d 2d 20 24 3a 3a 61 70 70 66  witch -- $::appf
0860: 73 3a 3a 75 73 65 72 3a 3a 64 6f 77 6e 6c 6f 61  s::user::downloa
0870: 64 5f 6d 65 74 68 6f 64 20 7b 0a 09 09 09 22 63  d_method {...."c
0880: 75 72 6c 22 20 7b 0a 09 09 09 09 69 66 20 7b 24  url" {.....if {$
0890: 6f 75 74 70 75 74 43 68 61 6e 6e 65 6c 20 65 71  outputChannel eq
08a0: 20 22 22 7d 20 7b 0a 09 09 09 09 09 72 65 74 75   ""} {......retu
08b0: 72 6e 20 5b 65 78 65 63 20 63 75 72 6c 20 2d 73  rn [exec curl -s
08c0: 53 20 2d 4c 20 2d 2d 20 24 75 72 6c 5d 0a 09 09  S -L -- $url]...
08d0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
08e0: 65 78 65 63 20 63 75 72 6c 20 2d 73 53 20 2d 4c  exec curl -sS -L
08f0: 20 2d 2d 20 24 75 72 6c 20 3e 40 20 24 6f 75 74   -- $url >@ $out
0900: 70 75 74 43 68 61 6e 6e 65 6c 0a 0a 09 09 09 09  putChannel......
0910: 09 72 65 74 75 72 6e 20 22 22 0a 09 09 09 09 7d  .return "".....}
0920: 0a 09 09 09 7d 0a 09 09 09 22 74 63 6c 22 20 7b  ....}...."tcl" {
0930: 0a 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09  .....catch {....
0940: 09 09 69 66 20 7b 24 6f 75 74 70 75 74 43 68 61  ..if {$outputCha
0950: 6e 6e 65 6c 20 65 71 20 22 22 7d 20 7b 0a 09 09  nnel eq ""} {...
0960: 09 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b 68  ....set token [h
0970: 74 74 70 3a 3a 67 65 74 75 72 6c 20 24 75 72 6c  ttp::geturl $url
0980: 5d 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ].......set retv
0990: 61 6c 20 5b 68 74 74 70 3a 3a 64 61 74 61 20 24  al [http::data $
09a0: 74 6f 6b 65 6e 5d 0a 09 09 09 09 09 7d 20 65 6c  token]......} el
09b0: 73 65 20 7b 0a 09 09 09 09 09 09 73 65 74 20 74  se {.......set t
09c0: 6f 6b 65 6e 20 5b 68 74 74 70 3a 3a 67 65 74 75  oken [http::getu
09d0: 72 6c 20 24 75 72 6c 20 2d 62 69 6e 61 72 79 20  rl $url -binary 
09e0: 74 72 75 65 20 2d 63 68 61 6e 6e 65 6c 20 24 6f  true -channel $o
09f0: 75 74 70 75 74 43 68 61 6e 6e 65 6c 5d 0a 09 09  utputChannel]...
0a00: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 22  ....set retval "
0a10: 22 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20 65  "......}.....} e
0a20: 72 72 0a 0a 09 09 09 09 69 66 20 7b 21 5b 69 6e  rr......if {![in
0a30: 66 6f 20 65 78 69 73 74 73 20 74 6f 6b 65 6e 5d  fo exists token]
0a40: 7d 20 7b 0a 09 09 09 09 09 72 65 74 75 72 6e 20  } {......return 
0a50: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61  -code error "Una
0a60: 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f 61 64 20  ble to download 
0a70: 5c 22 24 75 72 6c 5c 22 3a 20 24 65 72 72 22 0a  \"$url\": $err".
0a80: 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 74  ....}......set t
0a90: 6f 6b 65 6e 43 6f 64 65 20 5b 68 74 74 70 3a 3a  okenCode [http::
0aa0: 6e 63 6f 64 65 20 24 74 6f 6b 65 6e 5d 0a 0a 09  ncode $token]...
0ab0: 09 09 09 68 74 74 70 3a 3a 63 6c 65 61 6e 75 70  ...http::cleanup
0ac0: 20 24 74 6f 6b 65 6e 0a 0a 09 09 09 09 69 66 20   $token......if 
0ad0: 7b 24 74 6f 6b 65 6e 43 6f 64 65 20 21 3d 20 22  {$tokenCode != "
0ae0: 32 30 30 22 7d 20 7b 0a 09 09 09 09 09 72 65 74  200"} {......ret
0af0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
0b00: 22 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c  "Unable to downl
0b10: 6f 61 64 20 5c 22 24 75 72 6c 5c 22 3a 20 53 69  oad \"$url\": Si
0b20: 74 65 20 64 69 64 20 6e 6f 74 20 72 65 74 75 72  te did not retur
0b30: 6e 20 61 20 32 30 30 20 28 72 65 74 75 72 6e 65  n a 200 (returne
0b40: 64 20 24 74 6f 6b 65 6e 43 6f 64 65 29 22 0a 09  d $tokenCode)"..
0b50: 09 09 09 7d 0a 0a 09 09 09 09 69 66 20 7b 21 5b  ...}......if {![
0b60: 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74 76  info exists retv
0b70: 61 6c 5d 7d 20 7b 0a 09 09 09 09 09 72 65 74 75  al]} {......retu
0b80: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
0b90: 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f  Unable to downlo
0ba0: 61 64 20 5c 22 24 75 72 6c 5c 22 3a 20 53 69 74  ad \"$url\": Sit
0bb0: 65 20 64 69 64 20 6e 6f 74 20 72 65 74 75 72 6e  e did not return
0bc0: 20 70 72 6f 70 65 72 20 64 61 74 61 3a 20 24 65   proper data: $e
0bd0: 72 72 22 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72  rr".....}......r
0be0: 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09  eturn $retval...
0bf0: 09 7d 0a 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  .}....}....retur
0c00: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55  n -code error "U
0c10: 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f 61  nable to downloa
0c20: 64 22 0a 09 7d 0a 7d 0a 0a 6e 61 6d 65 73 70 61  d"..}.}..namespa
0c30: 63 65 20 65 76 61 6c 20 3a 3a 61 70 70 66 73 20  ce eval ::appfs 
0c40: 7b 0a 09 76 61 72 69 61 62 6c 65 20 63 61 63 68  {..variable cach
0c50: 65 64 69 72 20 22 2f 74 6d 70 2f 61 70 70 66 73  edir "/tmp/appfs
0c60: 2d 63 61 63 68 65 22 0a 09 76 61 72 69 61 62 6c  -cache"..variabl
0c70: 65 20 74 74 6c 20 33 36 30 30 0a 09 76 61 72 69  e ttl 3600..vari
0c80: 61 62 6c 65 20 6e 74 74 6c 20 33 36 30 30 0a 09  able nttl 3600..
0c90: 76 61 72 69 61 62 6c 65 20 74 72 75 73 74 65 64  variable trusted
0ca0: 5f 63 61 73 20 5b 6c 69 73 74 5d 0a 09 76 61 72  _cas [list]..var
0cb0: 69 61 62 6c 65 20 70 6c 61 74 66 6f 72 6d 20 5b  iable platform [
0cc0: 3a 3a 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e 65  ::platform::gene
0cd0: 72 69 63 5d 0a 0a 09 70 72 6f 63 20 5f 68 61 73  ric]...proc _has
0ce0: 68 5f 73 65 70 20 7b 68 61 73 68 20 7b 73 65 70  h_sep {hash {sep
0cf0: 73 20 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b 73  s 4}} {...for {s
0d00: 65 74 20 69 64 78 20 30 7d 20 7b 24 69 64 78 20  et idx 0} {$idx 
0d10: 3c 20 24 73 65 70 73 7d 20 7b 69 6e 63 72 20 69  < $seps} {incr i
0d20: 64 78 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20  dx} {....append 
0d30: 72 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20  retval "[string 
0d40: 72 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70  range $hash [exp
0d50: 72 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b 65  r {$idx * 2}] [e
0d60: 78 70 72 20 7b 28 24 69 64 78 20 2a 20 32 29 20  xpr {($idx * 2) 
0d70: 2b 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 61  + 1}]]/"...}...a
0d80: 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b 73  ppend retval "[s
0d90: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61 73  tring range $has
0da0: 68 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a 20  h [expr {$idx * 
0db0: 32 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65 74  2}] end]"....ret
0dc0: 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a 0a  urn $retval..}..
0dd0: 09 70 72 6f 63 20 5f 63 61 63 68 65 66 69 6c 65  .proc _cachefile
0de0: 20 7b 75 72 6c 20 6b 65 79 20 6d 65 74 68 6f 64   {url key method
0df0: 20 7b 6b 65 79 49 73 48 61 73 68 20 31 7d 7d 20   {keyIsHash 1}} 
0e00: 7b 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61  {...if {$keyIsHa
0e10: 73 68 20 26 26 20 24 6d 65 74 68 6f 64 20 21 3d  sh && $method !=
0e20: 20 22 73 68 61 31 22 7d 20 7b 0a 09 09 09 72 65   "sha1"} {....re
0e30: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
0e40: 20 22 4f 6e 6c 79 20 53 48 41 31 20 68 61 73 68   "Only SHA1 hash
0e50: 69 6e 67 20 6d 65 74 68 6f 64 20 69 73 20 73 75  ing method is su
0e60: 70 70 6f 72 74 65 64 22 0a 09 09 7d 0a 0a 09 09  pported"...}....
0e70: 73 65 74 20 66 69 6c 65 6b 65 79 20 24 6b 65 79  set filekey $key
0e80: 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73  ...if {$keyIsHas
0e90: 68 7d 20 7b 0a 09 09 09 73 65 74 20 66 69 6c 65  h} {....set file
0ea0: 6b 65 79 20 5b 5f 68 61 73 68 5f 73 65 70 20 24  key [_hash_sep $
0eb0: 66 69 6c 65 6b 65 79 5d 0a 09 09 7d 0a 0a 09 09  filekey]...}....
0ec0: 73 65 74 20 66 69 6c 65 20 5b 66 69 6c 65 20 6a  set file [file j
0ed0: 6f 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61  oin $::appfs::ca
0ee0: 63 68 65 64 69 72 20 24 66 69 6c 65 6b 65 79 5d  chedir $filekey]
0ef0: 0a 0a 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b  ....file mkdir [
0f00: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69  file dirname $fi
0f10: 6c 65 5d 0a 0a 09 09 69 66 20 7b 5b 66 69 6c 65  le]....if {[file
0f20: 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20   exists $file]} 
0f30: 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 66 69 6c  {....return $fil
0f40: 65 0a 09 09 7d 0a 0a 09 09 73 65 74 20 74 6d 70  e...}....set tmp
0f50: 66 69 6c 65 20 22 24 7b 66 69 6c 65 7d 2e 5b 65  file "${file}.[e
0f60: 78 70 72 20 7b 72 61 6e 64 28 29 7d 5d 5b 63 6c  xpr {rand()}][cl
0f70: 6f 63 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09  ock clicks]"....
0f80: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 74 6d  set fd [open $tm
0f90: 70 66 69 6c 65 20 22 77 22 5d 0a 09 09 66 63 6f  pfile "w"]...fco
0fa0: 6e 66 69 67 75 72 65 20 24 66 64 20 2d 74 72 61  nfigure $fd -tra
0fb0: 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a  nslation binary.
0fc0: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 3a 3a  ...catch {....::
0fd0: 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 64 6f 77  appfs::user::dow
0fe0: 6e 6c 6f 61 64 5f 66 69 6c 65 20 24 75 72 6c 20  nload_file $url 
0ff0: 24 66 64 0a 09 09 7d 0a 0a 09 09 63 6c 6f 73 65  $fd...}....close
1000: 20 24 66 64 0a 0a 09 09 69 66 20 7b 24 6b 65 79   $fd....if {$key
1010: 49 73 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74  IsHash} {....set
1020: 20 68 61 73 68 20 5b 73 74 72 69 6e 67 20 74 6f   hash [string to
1030: 6c 6f 77 65 72 20 5b 73 68 61 31 3a 3a 73 68 61  lower [sha1::sha
1040: 31 20 2d 68 65 78 20 2d 66 69 6c 65 20 24 74 6d  1 -hex -file $tm
1050: 70 66 69 6c 65 5d 5d 0a 09 09 7d 20 65 6c 73 65  pfile]]...} else
1060: 20 7b 0a 09 09 09 73 65 74 20 68 61 73 68 20 24   {....set hash $
1070: 6b 65 79 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24  key...}....if {$
1080: 68 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b 0a  hash == $key} {.
1090: 09 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d  ...file rename -
10a0: 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c  force -- $tmpfil
10b0: 65 20 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73 65  e $file...} else
10c0: 20 7b 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 74   {....file delet
10d0: 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70  e -force -- $tmp
10e0: 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75  file...}....retu
10f0: 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09 70  rn $file..}....p
1100: 72 6f 63 20 5f 69 73 48 61 73 68 20 7b 76 61 6c  roc _isHash {val
1110: 75 65 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c 75  ue} {...set valu
1120: 65 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  e [string tolowe
1130: 72 20 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66 20  r $value]....if 
1140: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
1150: 24 76 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20 7b  $value] != 40} {
1160: 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65  ....return false
1170: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72 65  ...}....if {![re
1180: 67 65 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d 2a  gexp {^[0-9a-f]*
1190: 24 7d 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09 09  $} $value]} {...
11a0: 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09  .return false...
11b0: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65  }....return true
11c0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 76 65 72 69  ..}...proc _veri
11d0: 66 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65  fySignatureAndCe
11e0: 72 74 69 66 69 63 61 74 65 20 7b 68 6f 73 74 6e  rtificate {hostn
11f0: 61 6d 65 20 63 65 72 74 69 66 69 63 61 74 65 20  ame certificate 
1200: 73 69 67 6e 61 74 75 72 65 20 68 61 73 68 7d 20  signature hash} 
1210: 7b 0a 09 09 73 65 74 20 63 65 72 74 69 66 69 63  {...set certific
1220: 61 74 65 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d  ate [binary form
1230: 61 74 20 22 48 2a 22 20 24 63 65 72 74 69 66 69  at "H*" $certifi
1240: 63 61 74 65 5d 0a 09 09 73 65 74 20 73 69 67 6e  cate]...set sign
1250: 61 74 75 72 65 20 20 20 5b 62 69 6e 61 72 79 20  ature   [binary 
1260: 66 6f 72 6d 61 74 20 22 48 2a 22 20 24 73 69 67  format "H*" $sig
1270: 6e 61 74 75 72 65 5d 0a 0a 09 09 73 65 74 20 63  nature]....set c
1280: 65 72 74 69 66 69 63 61 74 65 20 5b 3a 3a 70 6b  ertificate [::pk
1290: 69 3a 3a 78 35 30 39 3a 3a 70 61 72 73 65 5f 63  i::x509::parse_c
12a0: 65 72 74 20 24 63 65 72 74 69 66 69 63 61 74 65  ert $certificate
12b0: 5d 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20 63  ]....array set c
12c0: 65 72 74 69 66 69 63 61 74 65 5f 61 72 72 20 24  ertificate_arr $
12d0: 63 65 72 74 69 66 69 63 61 74 65 0a 09 09 73 65  certificate...se
12e0: 74 20 63 65 72 74 69 66 69 63 61 74 65 5f 63 6e  t certificate_cn
12f0: 20 5b 3a 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a 5f   [::pki::x509::_
1300: 64 6e 5f 74 6f 5f 63 6e 20 24 63 65 72 74 69 66  dn_to_cn $certif
1310: 69 63 61 74 65 5f 61 72 72 28 73 75 62 6a 65 63  icate_arr(subjec
1320: 74 29 5d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a 70  t)]....if {![::p
1330: 6b 69 3a 3a 76 65 72 69 66 79 20 24 73 69 67 6e  ki::verify $sign
1340: 61 74 75 72 65 20 22 24 68 61 73 68 2c 73 68 61  ature "$hash,sha
1350: 31 22 20 24 63 65 72 74 69 66 69 63 61 74 65 5d  1" $certificate]
1360: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61  } {....return fa
1370: 6c 73 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b  lse...}....if {[
1380: 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24  string tolower $
1390: 63 65 72 74 69 66 69 63 61 74 65 5f 63 6e 5d 20  certificate_cn] 
13a0: 21 3d 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77  != [string tolow
13b0: 65 72 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b  er $hostname]} {
13c0: 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65  ....return false
13d0: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a  ...}....if {![::
13e0: 70 6b 69 3a 3a 78 35 30 39 3a 3a 76 65 72 69 66  pki::x509::verif
13f0: 79 5f 63 65 72 74 20 24 63 65 72 74 69 66 69 63  y_cert $certific
1400: 61 74 65 20 24 3a 3a 61 70 70 66 73 3a 3a 74 72  ate $::appfs::tr
1410: 75 73 74 65 64 5f 63 61 73 5d 7d 20 7b 0a 09 09  usted_cas]} {...
1420: 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09  .return false...
1430: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65  }....return true
1440: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d  ..}...proc _norm
1450: 61 6c 69 7a 65 4f 53 20 7b 6f 73 20 7b 74 6f 6c  alizeOS {os {tol
1460: 65 72 61 6e 74 20 30 7d 7d 20 7b 0a 09 09 73 65  erant 0}} {...se
1470: 74 20 6f 73 20 5b 73 74 72 69 6e 67 20 74 6f 6c  t os [string tol
1480: 6f 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72 69  ower [string tri
1490: 6d 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69 74 63  m $os]]....switc
14a0: 68 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09 22 6c  h -- $os {...."l
14b0: 69 6e 75 78 22 20 2d 20 22 66 72 65 65 62 73 64  inux" - "freebsd
14c0: 22 20 2d 20 22 6f 70 65 6e 62 73 64 22 20 2d 20  " - "openbsd" - 
14d0: 22 6e 65 74 62 73 64 22 20 7b 0a 09 09 09 09 72  "netbsd" {.....r
14e0: 65 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d 0a 09  eturn $os....}..
14f0: 09 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09 09 09  .."sunos" {.....
1500: 72 65 74 75 72 6e 20 22 73 6f 6c 61 72 69 73 22  return "solaris"
1510: 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63 68  ....}...."noarch
1520: 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61 6e  " - "none" - "an
1530: 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09 09  y" - "all" {....
1540: 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68 22  .return "noarch"
1550: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20  ....}...}....if 
1560: 7b 24 74 6f 6c 65 72 61 6e 74 7d 20 7b 0a 09 09  {$tolerant} {...
1570: 09 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 7d 0a  .return $os...}.
1580: 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
1590: 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f  error "Unable to
15a0: 20 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20 24   normalize OS: $
15b0: 6f 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e  os"..}...proc _n
15c0: 6f 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70 75  ormalizeCPU {cpu
15d0: 20 7b 74 6f 6c 65 72 61 6e 74 20 30 7d 7d 20 7b   {tolerant 0}} {
15e0: 0a 09 09 73 65 74 20 63 70 75 20 5b 73 74 72 69  ...set cpu [stri
15f0: 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69  ng tolower [stri
1600: 6e 67 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a 0a  ng trim $cpu]]..
1610: 09 09 73 77 69 74 63 68 20 2d 67 6c 6f 62 20 2d  ..switch -glob -
1620: 2d 20 24 63 70 75 20 7b 0a 09 09 09 22 69 3f 38  - $cpu {...."i?8
1630: 36 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  6" {.....return 
1640: 22 69 78 38 36 22 0a 09 09 09 7d 0a 09 09 09 22  "ix86"....}...."
1650: 78 38 36 5f 36 34 22 20 7b 0a 09 09 09 09 72 65  x86_64" {.....re
1660: 74 75 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a 09  turn $cpu....}..
1670: 09 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e 6f  .."noarch" - "no
1680: 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22 61  ne" - "any" - "a
1690: 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e  ll" {.....return
16a0: 20 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a 09   "noarch"....}..
16b0: 09 7d 0a 0a 09 09 69 66 20 7b 24 74 6f 6c 65 72  .}....if {$toler
16c0: 61 6e 74 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  ant} {....return
16d0: 20 24 63 70 75 0a 09 09 7d 0a 0a 09 09 72 65 74   $cpu...}....ret
16e0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
16f0: 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d 61  "Unable to norma
1700: 6c 69 7a 65 20 43 50 55 3a 20 24 63 70 75 22 0a  lize CPU: $cpu".
1710: 09 7d 0a 0a 09 70 72 6f 63 20 5f 61 73 5f 75 73  .}...proc _as_us
1720: 65 72 20 7b 63 6f 64 65 7d 20 7b 0a 09 09 3a 3a  er {code} {...::
1730: 61 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74 65  appfsd::simulate
1740: 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 0a 0a  _user_fs_enter..
1750: 09 09 73 65 74 20 72 65 74 63 6f 64 65 20 5b 63  ..set retcode [c
1760: 61 74 63 68 20 5b 6c 69 73 74 20 75 70 6c 65 76  atch [list uplev
1770: 65 6c 20 24 63 6f 64 65 5d 20 72 65 74 73 74 72  el $code] retstr
1780: 5d 0a 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a 73  ]....::appfsd::s
1790: 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f  imulate_user_fs_
17a0: 6c 65 61 76 65 0a 0a 09 09 72 65 74 75 72 6e 20  leave....return 
17b0: 2d 63 6f 64 65 20 24 72 65 74 63 6f 64 65 20 24  -code $retcode $
17c0: 72 65 74 73 74 72 0a 09 7d 0a 0a 09 70 72 6f 63  retstr..}...proc
17d0: 20 69 6e 69 74 20 7b 7d 20 7b 0a 09 09 69 66 20   init {} {...if 
17e0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
17f0: 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c  appfs::init_call
1800: 65 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  ed]} {....return
1810: 0a 09 09 7d 0a 0a 09 09 23 20 46 6f 72 63 65 20  ...}....# Force 
1820: 5b 70 61 72 72 61 79 5d 20 61 6e 64 20 5b 63 6c  [parray] and [cl
1830: 6f 63 6b 5d 20 74 6f 20 62 65 20 6c 6f 61 64 65  ock] to be loade
1840: 64 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 70  d...catch {....p
1850: 61 72 72 61 79 20 64 6f 65 73 5f 6e 6f 74 5f 65  array does_not_e
1860: 78 69 73 74 0a 09 09 7d 0a 09 09 63 61 74 63 68  xist...}...catch
1870: 20 7b 0a 09 09 09 63 6c 6f 63 6b 20 73 65 63 6f   {....clock seco
1880: 6e 64 73 0a 09 09 7d 0a 09 09 63 61 74 63 68 20  nds...}...catch 
1890: 7b 0a 09 09 09 63 6c 6f 63 6b 20 61 64 64 20 5b  {....clock add [
18a0: 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 20 33  clock seconds] 3
18b0: 20 73 65 63 6f 6e 64 73 0a 09 09 7d 0a 0a 09 09   seconds...}....
18c0: 73 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69  set ::appfs::ini
18d0: 74 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 23 20  t_called 1....# 
18e0: 41 64 64 20 61 20 64 65 66 61 75 6c 74 20 43 41  Add a default CA
18f0: 20 74 6f 20 6c 69 73 74 20 6f 66 20 74 72 75 73   to list of trus
1900: 74 65 64 20 43 41 73 0a 09 09 6c 61 70 70 65 6e  ted CAs...lappen
1910: 64 20 3a 3a 61 70 70 66 73 3a 3a 74 72 75 73 74  d ::appfs::trust
1920: 65 64 5f 63 61 73 20 5b 3a 3a 70 6b 69 3a 3a 78  ed_cas [::pki::x
1930: 35 30 39 3a 3a 70 61 72 73 65 5f 63 65 72 74 20  509::parse_cert 
1940: 7b 0a 2d 2d 2d 2d 2d 42 45 47 49 4e 20 43 45 52  {.-----BEGIN CER
1950: 54 49 46 49 43 41 54 45 2d 2d 2d 2d 2d 0a 4d 49  TIFICATE-----.MI
1960: 49 43 37 44 43 43 41 64 53 67 41 77 49 42 41 67  IC7DCCAdSgAwIBAg
1970: 49 42 41 54 41 4e 42 67 6b 71 68 6b 69 47 39 77  IBATANBgkqhkiG9w
1980: 30 42 41 51 55 46 41 44 41 76 4d 52 49 77 45 41  0BAQUFADAvMRIwEA
1990: 59 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 0a 53  YDVQQKEwlSb3kg.S
19a0: 32 56 6c 62 6d 55 78 47 54 41 58 42 67 4e 56 42  2VlbmUxGTAXBgNVB
19b0: 41 4d 54 45 45 46 77 63 45 5a 54 49 45 74 6c 65  AMTEEFwcEZTIEtle
19c0: 53 42 4e 59 58 4e 30 5a 58 49 77 48 68 63 4e 4d  SBNYXN0ZXIwHhcNM
19d0: 54 6b 78 4d 6a 45 79 4d 6a 4d 31 4f 54 49 7a 0a  TkxMjEyMjM1OTIz.
19e0: 57 68 63 4e 4d 7a 51 78 4d 6a 45 79 4d 6a 4d 31  WhcNMzQxMjEyMjM1
19f0: 4f 54 49 7a 57 6a 41 76 4d 52 49 77 45 41 59 44  OTIzWjAvMRIwEAYD
1a00: 56 51 51 4b 45 77 6c 53 62 33 6b 67 53 32 56 6c  VQQKEwlSb3kgS2Vl
1a10: 62 6d 55 78 47 54 41 58 42 67 4e 56 42 41 4d 54  bmUxGTAXBgNVBAMT
1a20: 0a 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53 42  .EEFwcEZTIEtleSB
1a30: 4e 59 58 4e 30 5a 58 49 77 67 67 45 69 4d 41 30  NYXN0ZXIwggEiMA0
1a40: 47 43 53 71 47 53 49 62 33 44 51 45 42 41 51 55  GCSqGSIb3DQEBAQU
1a50: 41 41 34 49 42 44 77 41 77 67 67 45 4b 41 6f 49  AA4IBDwAwggEKAoI
1a60: 42 0a 41 51 43 71 36 75 53 4b 34 36 79 47 35 62  B.AQCq6uSK46yG5b
1a70: 36 52 4a 57 77 52 6c 76 77 35 67 6c 41 6e 6a 73  6RJWwRlvw5glAnjs
1a80: 63 31 47 69 58 33 64 75 58 41 30 76 47 34 71 6e  c1GiX3duXA0vG4qn
1a90: 4b 55 6e 44 74 6c 2f 6a 63 4d 6d 71 32 47 4d 4f  KUnDtl/jcMmq2GMO
1aa0: 42 39 0a 49 79 31 74 6a 61 62 45 48 41 30 4d 68  B9.Iy1tjabEHA0Mh
1ab0: 57 32 6a 37 56 77 65 2f 4f 39 4d 4c 46 4a 6b 4a  W2j7Vwe/O9MLFJkJ
1ac0: 33 30 4d 31 50 56 44 37 59 5a 52 52 4e 61 41 73  30M1PVD7YZRRNaAs
1ad0: 7a 33 55 57 49 4b 45 6a 50 49 37 42 42 63 33 32  z3UWIKEjPI7BBc32
1ae0: 4b 4f 6d 0a 42 4c 33 43 54 58 43 43 64 7a 6c 6c  KOm.BL3CTXCCdzll
1af0: 4c 31 48 68 56 62 6e 4d 35 69 43 41 6d 67 48 63  L1HhVbnM5iCAmgHc
1b00: 67 31 44 55 6b 2f 45 76 57 58 76 6e 45 44 78 58  g1DUk/EvWXvnEDxX
1b10: 52 79 32 6c 56 39 6d 51 73 6d 44 65 64 72 66 66  Ry2lV9mQsmDedrff
1b20: 59 37 57 6c 0a 4f 72 35 37 6e 6c 63 7a 61 4d 75  Y7Wl.Or57nlczaMu
1b30: 50 4c 70 79 52 53 6b 76 37 35 50 41 6e 6a 51 4a  PLpyRSkv75PAnjQJ
1b40: 78 54 33 73 57 6c 42 70 79 2b 2f 48 39 49 6d 75  xT3sWlBpy+/H9Imu
1b50: 64 51 64 70 4a 4e 66 2f 46 74 78 63 71 4e 37 69  dQdpJNf/FtxcqN7i
1b60: 44 77 48 35 42 0a 76 49 63 65 59 45 74 44 56 78  DwH5B.vIceYEtDVx
1b70: 46 73 76 6f 35 48 4f 56 6b 53 6c 39 6a 65 6f 35  Fsvo5HOVkSl9jeo5
1b80: 45 34 47 70 65 33 77 79 66 52 68 6f 71 42 32 55  E4Gpe3wyfRhoqB2U
1b90: 6b 61 57 31 4b 71 30 69 48 35 52 2b 30 30 53 37  kaW1Kq0iH5R+00S7
1ba0: 36 30 78 51 4d 78 0a 4c 4c 39 4c 31 64 75 68 75  60xQMx.LL9L1duhu
1bb0: 31 64 4c 37 48 73 6d 45 77 37 49 65 59 55 52 41  1dL7HsmEw7IeYURA
1bc0: 67 4d 42 41 41 47 6a 45 7a 41 52 4d 41 38 47 41  gMBAAGjEzARMA8GA
1bd0: 31 55 64 45 77 45 42 2f 77 51 46 4d 41 4d 42 41  1UdEwEB/wQFMAMBA
1be0: 66 38 77 44 51 59 4a 0a 4b 6f 5a 49 68 76 63 4e  f8wDQYJ.KoZIhvcN
1bf0: 41 51 45 46 42 51 41 44 67 67 45 42 41 49 51 57  AQEFBQADggEBAIQW
1c00: 32 4f 48 44 53 39 72 49 5a 55 71 61 46 64 52 71  2OHDS9rIZUqaFdRq
1c10: 74 68 71 68 59 78 45 53 69 39 59 7a 39 53 4f 31  thqhYxESi9Yz9SO1
1c20: 4c 48 57 4a 36 57 79 53 0a 65 64 71 6b 4d 49 57  LHWJ6WyS.edqkMIW
1c30: 6e 58 61 43 32 47 71 38 4a 54 43 4c 63 49 77 4b  nXaC2Gq8JTCLcIwK
1c40: 34 56 52 76 44 71 77 75 48 7a 32 54 51 6a 39 63  4VRvDqwuHz2TQj9c
1c50: 71 62 51 2b 46 72 6e 78 74 53 4d 33 6b 56 58 72  qbQ+FrnxtSM3kVXr
1c60: 73 66 65 68 44 34 63 71 7a 0a 70 4d 4e 4b 66 6f  sfehD4cqz.pMNKfo
1c70: 69 2b 58 61 50 65 66 42 39 59 62 53 42 62 63 49  i+XaPefB9YbSBbcI
1c80: 34 49 76 4f 50 62 50 48 74 5a 7a 39 2b 2b 70 57  4IvOPbPHtZz9++pW
1c90: 35 76 55 77 4b 6a 70 33 42 69 41 31 78 4e 4c 39  5vUwKjp3BiA1xNL9
1ca0: 78 39 53 6e 6f 65 68 4d 45 64 0a 42 51 4d 37 35  x9SnoehMEd.BQM75
1cb0: 43 4d 51 63 6b 77 6d 6e 6c 49 49 31 79 68 53 74  CMQckwmnlII1yhSt
1cc0: 52 44 43 63 67 49 61 4d 70 76 37 4c 36 76 75 74  RDCcgIaMpv7L6vut
1cd0: 6d 76 64 76 4e 30 51 4d 4a 4b 6e 58 2f 35 70 61  mvdvN0QMJKnX/5pa
1ce0: 70 4c 72 64 69 48 75 31 4e 74 37 0a 62 53 66 38  pLrdiHu1Nt7.bSf8
1cf0: 61 67 70 52 67 49 51 4b 4b 53 79 75 77 46 6a 70  agpRgIQKKSyuwFjp
1d00: 33 7a 54 38 6f 65 41 7a 45 7a 4c 34 48 64 4f 42  3zT8oeAzEzL4HdOB
1d10: 43 76 65 51 35 45 61 6d 43 71 76 56 36 45 44 49  CveQ5EamCqvV6EDI
1d20: 75 49 52 37 62 2b 34 5a 6e 59 6f 4c 0a 33 71 68  uIR7b+4ZnYoL.3qh
1d30: 30 59 52 4f 2f 39 6a 72 74 62 37 38 36 69 71 57  0YRO/9jrtb786iqW
1d40: 47 65 78 5a 31 4a 42 6a 69 53 4d 68 59 41 31 43  GexZ1JBjiSMhYA1C
1d50: 63 76 4a 74 52 2f 76 51 3d 0a 2d 2d 2d 2d 2d 45  cvJtR/vQ=.-----E
1d60: 4e 44 20 43 45 52 54 49 46 49 43 41 54 45 2d 2d  ND CERTIFICATE--
1d70: 2d 2d 2d 0a 7d 5d 0a 0a 09 09 23 20 4c 6f 61 64  ---.}]....# Load
1d80: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66   configuration f
1d90: 69 6c 65 0a 09 09 73 65 74 20 63 6f 6e 66 69 67  ile...set config
1da0: 5f 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  _file [file join
1db0: 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65   $::appfs::cache
1dc0: 64 69 72 20 63 6f 6e 66 69 67 5d 0a 09 09 69 66  dir config]...if
1dd0: 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24   {[file exists $
1de0: 63 6f 6e 66 69 67 5f 66 69 6c 65 5d 7d 20 7b 0a  config_file]} {.
1df0: 09 09 09 73 6f 75 72 63 65 20 24 63 6f 6e 66 69  ...source $confi
1e00: 67 5f 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 69 66  g_file...}....if
1e10: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
1e20: 3a 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a  ::appfs::db]} {.
1e30: 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a  ...file mkdir $:
1e40: 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72  :appfs::cachedir
1e50: 0a 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a 61  .....sqlite3 ::a
1e60: 70 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20 6a  ppfs::db [file j
1e70: 6f 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61  oin $::appfs::ca
1e80: 63 68 65 64 69 72 20 63 61 63 68 65 2e 64 62 5d  chedir cache.db]
1e90: 0a 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62  .....::appfs::db
1ea0: 20 74 69 6d 65 6f 75 74 20 33 30 30 30 30 0a 09   timeout 30000..
1eb0: 09 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74  .}....# Create t
1ec0: 61 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c 20  ables...db eval 
1ed0: 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46  {CREATE TABLE IF
1ee0: 20 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 65   NOT EXISTS site
1ef0: 73 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41  s(hostname PRIMA
1f00: 52 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61  RY KEY, lastUpda
1f10: 74 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62 20  te, ttl);}...db 
1f20: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42  eval {CREATE TAB
1f30: 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53  LE IF NOT EXISTS
1f40: 20 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61   packages(hostna
1f50: 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67  me, sha1, packag
1f60: 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20  e, version, os, 
1f70: 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73  cpuArch, isLates
1f80: 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29  t, haveManifest)
1f90: 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52  ;}...db eval {CR
1fa0: 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f  EATE TABLE IF NO
1fb0: 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 28 70  T EXISTS files(p
1fc0: 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70  ackage_sha1, typ
1fd0: 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c  e, time, source,
1fe0: 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69   size, perms, fi
1ff0: 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61  le_sha1, file_na
2000: 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f  me, file_directo
2010: 72 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61 74  ry);}....# Creat
2020: 65 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20 65  e indexes...db e
2030: 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 45  val {CREATE INDE
2040: 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  X IF NOT EXISTS 
2050: 73 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20 73  sites_index ON s
2060: 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29 3b  ites (hostname);
2070: 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45  }...db eval {CRE
2080: 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54  ATE INDEX IF NOT
2090: 20 45 58 49 53 54 53 20 70 61 63 6b 61 67 65 73   EXISTS packages
20a0: 5f 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61 67  _index ON packag
20b0: 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68  es (hostname, sh
20c0: 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72  a1, package, ver
20d0: 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63  sion, os, cpuArc
20e0: 68 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b  h);}...db eval {
20f0: 43 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20  CREATE INDEX IF 
2100: 4e 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73  NOT EXISTS files
2110: 5f 69 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20  _index ON files 
2120: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66  (package_sha1, f
2130: 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64  ile_name, file_d
2140: 69 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a  irectory);}..}..
2150: 09 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b  .proc download {
2160: 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d  hostname hash {m
2170: 65 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09  ethod sha1}} {..
2180: 09 73 65 74 20 75 72 6c 20 5b 3a 3a 61 70 70 66  .set url [::appf
2190: 73 3a 3a 75 73 65 72 3a 3a 63 6f 6e 73 74 72 75  s::user::constru
21a0: 63 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d 65  ct_url $hostname
21b0: 20 24 68 61 73 68 20 24 6d 65 74 68 6f 64 5d 0a   $hash $method].
21c0: 09 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63  ..set file [_cac
21d0: 68 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73  hefile $url $has
21e0: 68 20 24 6d 65 74 68 6f 64 5d 0a 0a 09 09 69 66  h $method]....if
21f0: 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20   {![file exists 
2200: 24 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 72 65 74  $file]} {....ret
2210: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
2220: 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68  "Unable to fetch
2230: 20 28 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20   (file does not 
2240: 65 78 69 73 74 3a 20 24 66 69 6c 65 29 22 0a 09  exist: $file)"..
2250: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69  .}....return $fi
2260: 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74  le..}...proc get
2270: 69 6e 64 65 78 20 7b 68 6f 73 74 6e 61 6d 65 7d  index {hostname}
2280: 20 7b 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e 67   {...if {[string
2290: 20 6d 61 74 63 68 20 22 2a 5c 5b 2f 7e 5c 5d 2a   match "*\[/~\]*
22a0: 22 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b 0a  " $hostname]} {.
22b0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
22c0: 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 68  error "Invalid h
22d0: 6f 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09  ostname"...}....
22e0: 73 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73  set now [clock s
22f0: 65 63 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c  econds]....set l
2300: 61 73 74 55 70 64 61 74 65 73 20 5b 64 62 20 65  astUpdates [db e
2310: 76 61 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74  val {SELECT last
2320: 55 70 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d  Update, ttl FROM
2330: 20 73 69 74 65 73 20 57 48 45 52 45 20 68 6f 73   sites WHERE hos
2340: 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d  tname = $hostnam
2350: 65 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69  e LIMIT 1;}]...i
2360: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73  f {[llength $las
2370: 74 55 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20  tUpdates] == 0} 
2380: 7b 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70 64  {....set lastUpd
2390: 61 74 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c  ate 0....set ttl
23a0: 20 30 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09   0...} else {...
23b0: 09 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20  .set lastUpdate 
23c0: 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64  [lindex $lastUpd
23d0: 61 74 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74  ates 0]....set t
23e0: 74 6c 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74  tl [lindex $last
23f0: 55 70 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a  Updates 1]...}..
2400: 09 09 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c  ..if {$now < ($l
2410: 61 73 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c  astUpdate + $ttl
2420: 29 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43  )} {....return C
2430: 4f 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 73  OMPLETE...}....s
2440: 65 74 20 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24  et url "http://$
2450: 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73 2f 69  hostname/appfs/i
2460: 6e 64 65 78 22 0a 0a 09 09 63 61 74 63 68 20 7b  ndex"....catch {
2470: 0a 09 09 09 73 65 74 20 69 6e 64 65 78 68 61 73  ....set indexhas
2480: 68 5f 64 61 74 61 20 5b 3a 3a 61 70 70 66 73 3a  h_data [::appfs:
2490: 3a 75 73 65 72 3a 3a 64 6f 77 6e 6c 6f 61 64 5f  :user::download_
24a0: 66 69 6c 65 20 24 75 72 6c 5d 0a 09 09 7d 0a 0a  file $url]...}..
24b0: 09 09 23 20 4e 6f 74 65 20 74 68 61 74 20 77 65  ..# Note that we
24c0: 20 61 74 74 65 6d 70 74 65 64 20 74 6f 20 66 65   attempted to fe
24d0: 74 63 68 20 74 68 69 73 20 69 6e 64 65 78 20 61  tch this index a
24e0: 6e 64 20 64 6f 20 6e 6f 74 20 74 72 79 0a 09 09  nd do not try...
24f0: 23 20 61 67 61 69 6e 20 66 6f 72 20 61 20 77 68  # again for a wh
2500: 69 6c 65 0a 09 09 64 62 20 65 76 61 6c 20 7b 49  ile...db eval {I
2510: 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45  NSERT OR REPLACE
2520: 20 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73   INTO sites (hos
2530: 74 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74  tname, lastUpdat
2540: 65 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28  e, ttl) VALUES (
2550: 24 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c  $hostname, $now,
2560: 20 24 3a 3a 61 70 70 66 73 3a 3a 6e 74 74 6c 29   $::appfs::nttl)
2570: 3b 7d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f  ;}....if {![info
2580: 20 65 78 69 73 74 73 20 69 6e 64 65 78 68 61 73   exists indexhas
2590: 68 5f 64 61 74 61 5d 7d 20 7b 0a 09 09 09 72 65  h_data]} {....re
25a0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
25b0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63   "Unable to fetc
25c0: 68 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73  h $url"...}....s
25d0: 65 74 20 69 6e 64 65 78 68 61 73 68 5f 64 61 74  et indexhash_dat
25e0: 61 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  a [string trim $
25f0: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 22  indexhash_data "
2600: 5c 72 5c 6e 22 5d 0a 09 09 73 65 74 20 69 6e 64  \r\n"]...set ind
2610: 65 78 68 61 73 68 5f 64 61 74 61 20 5b 73 70 6c  exhash_data [spl
2620: 69 74 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61  it $indexhash_da
2630: 74 61 20 22 2c 22 5d 0a 09 09 73 65 74 20 69 6e  ta ","]...set in
2640: 64 65 78 68 61 73 68 20 20 20 20 20 20 20 5b 6c  dexhash       [l
2650: 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73 68  index $indexhash
2660: 5f 64 61 74 61 20 30 5d 0a 09 09 73 65 74 20 69  _data 0]...set i
2670: 6e 64 65 78 68 61 73 68 6d 65 74 68 6f 64 20 5b  ndexhashmethod [
2680: 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73  lindex $indexhas
2690: 68 5f 64 61 74 61 20 31 5d 0a 09 09 73 65 74 20  h_data 1]...set 
26a0: 69 6e 64 65 78 68 61 73 68 63 65 72 74 20 20 20  indexhashcert   
26b0: 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61  [lindex $indexha
26c0: 73 68 5f 64 61 74 61 20 32 5d 0a 09 09 73 65 74  sh_data 2]...set
26d0: 20 69 6e 64 65 78 68 61 73 68 73 69 67 20 20 20   indexhashsig   
26e0: 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68   [lindex $indexh
26f0: 61 73 68 5f 64 61 74 61 20 33 5d 0a 0a 09 09 69  ash_data 3]....i
2700: 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 69 6e  f {![_isHash $in
2710: 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09 09 72  dexhash]} {....r
2720: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
2730: 72 20 22 49 6e 76 61 6c 69 64 20 68 61 73 68 3a  r "Invalid hash:
2740: 20 24 69 6e 64 65 78 68 61 73 68 22 0a 09 09 7d   $indexhash"...}
2750: 0a 0a 09 09 69 66 20 7b 21 5b 5f 76 65 72 69 66  ....if {![_verif
2760: 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65 72  ySignatureAndCer
2770: 74 69 66 69 63 61 74 65 20 24 68 6f 73 74 6e 61  tificate $hostna
2780: 6d 65 20 24 69 6e 64 65 78 68 61 73 68 63 65 72  me $indexhashcer
2790: 74 20 24 69 6e 64 65 78 68 61 73 68 73 69 67 20  t $indexhashsig 
27a0: 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09  $indexhash]} {..
27b0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
27c0: 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 73 69  rror "Invalid si
27d0: 67 6e 61 74 75 72 65 20 6f 72 20 63 65 72 74 69  gnature or certi
27e0: 66 69 63 61 74 65 20 66 72 6f 6d 20 24 68 6f 73  ficate from $hos
27f0: 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73 65  tname"...}....se
2800: 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64  t file [download
2810: 20 24 68 6f 73 74 6e 61 6d 65 20 24 69 6e 64 65   $hostname $inde
2820: 78 68 61 73 68 5d 0a 09 09 63 61 74 63 68 20 7b  xhash]...catch {
2830: 0a 09 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e  ....set fd [open
2840: 20 24 66 69 6c 65 5d 0a 09 09 7d 0a 0a 09 09 69   $file]...}....i
2850: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
2860: 20 66 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72   fd]} {....retur
2870: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55  n -code error "U
2880: 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f 61  nable to downloa
2890: 64 20 6f 72 20 6f 70 65 6e 20 24 66 69 6c 65 22  d or open $file"
28a0: 0a 09 09 7d 0a 0a 09 09 75 6e 73 65 74 20 2d 6e  ...}....unset -n
28b0: 6f 63 6f 6d 70 6c 61 69 6e 20 64 61 74 61 0a 09  ocomplain data..
28c0: 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20  .catch {....set 
28d0: 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a  data [read $fd].
28e0: 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64  ..}....close $fd
28f0: 0a 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61 63  ....set curr_pac
2900: 6b 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 66  kages [list]...f
2910: 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c  oreach line [spl
2920: 69 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b  it $data "\n"] {
2930: 0a 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74  ....set line [st
2940: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d  ring trim $line]
2950: 0a 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67  .....if {[string
2960: 20 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69   match "*/*" $li
2970: 6e 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  ne]} {.....conti
2980: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
2990: 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a  {$line == ""} {.
29a0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
29b0: 7d 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  }.....set work [
29c0: 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d  split $line ","]
29d0: 0a 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f  .....unset -noco
29e0: 6d 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a 09  mplain pkgInfo..
29f0: 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09  ..if {[catch {..
2a00: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 70  ...set pkgInfo(p
2a10: 61 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65 78  ackage)  [lindex
2a20: 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65   $work 0].....se
2a30: 74 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f  t pkgInfo(versio
2a40: 6e 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  n)  [lindex $wor
2a50: 6b 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b 67  k 1].....set pkg
2a60: 49 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20 5b  Info(os)       [
2a70: 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c 69  _normalizeOS [li
2a80: 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a 09  ndex $work 2]]..
2a90: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 63  ...set pkgInfo(c
2aa0: 70 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d 61  puArch)  [_norma
2ab0: 6c 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78 20  lizeCPU [lindex 
2ac0: 24 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73 65  $work 3]].....se
2ad0: 74 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 20  t pkgInfo(hash) 
2ae0: 20 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f      [string tolo
2af0: 77 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  wer [lindex $wor
2b00: 6b 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b  k 4]].....set pk
2b10: 67 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65 29  gInfo(hash_type)
2b20: 20 22 73 68 61 31 22 0a 09 09 09 09 73 65 74 20   "sha1".....set 
2b30: 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74  pkgInfo(isLatest
2b40: 29 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e 64  ) [expr {!![lind
2b50: 65 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09 09  ex $work 5]}]...
2b60: 09 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  .}]} {.....conti
2b70: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
2b80: 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67 49  {![_isHash $pkgI
2b90: 6e 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09 09  nfo(hash)]} {...
2ba0: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a  ..continue....}.
2bb0: 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72 72  ....lappend curr
2bc0: 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e  _packages $pkgIn
2bd0: 66 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20 44  fo(hash).....# D
2be0: 6f 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64 64  o not do any add
2bf0: 69 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66 20  itional work if 
2c00: 77 65 20 61 6c 72 65 61 64 79 20 68 61 76 65 20  we already have 
2c10: 74 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09 09  this package....
2c20: 73 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61 63  set existing_pac
2c30: 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b  kages [db eval {
2c40: 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20 46  SELECT package F
2c50: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
2c60: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
2c70: 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31  ostname AND sha1
2c80: 20 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68   = $pkgInfo(hash
2c90: 29 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73 65  );}]....if {[lse
2ca0: 61 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 69  arch -exact $exi
2cb0: 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 24  sting_packages $
2cc0: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
2cd0: 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 63  ] != -1} {.....c
2ce0: 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09  ontinue....}....
2cf0: 09 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69 73  .if {$pkgInfo(is
2d00: 4c 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09 64  Latest)} {.....d
2d10: 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70  b eval {UPDATE p
2d20: 61 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c 61  ackages SET isLa
2d30: 74 65 73 74 20 3d 20 30 20 57 48 45 52 45 20 68  test = 0 WHERE h
2d40: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
2d50: 61 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65 20  ame AND package 
2d60: 3d 20 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61  = $pkgInfo(packa
2d70: 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 6b  ge) AND os = $pk
2d80: 67 49 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70  gInfo(os) AND cp
2d90: 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e 66 6f  uArch = $pkgInfo
2da0: 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 09 7d  (cpuArch);}....}
2db0: 0a 0a 09 09 09 64 62 20 65 76 61 6c 20 7b 49 4e  .....db eval {IN
2dc0: 53 45 52 54 20 49 4e 54 4f 20 70 61 63 6b 61 67  SERT INTO packag
2dd0: 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68  es (hostname, sh
2de0: 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72  a1, package, ver
2df0: 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63  sion, os, cpuArc
2e00: 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61 76  h, isLatest, hav
2e10: 65 4d 61 6e 69 66 65 73 74 29 20 56 41 4c 55 45  eManifest) VALUE
2e20: 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 70  S ($hostname, $p
2e30: 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c 20 24 70  kgInfo(hash), $p
2e40: 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 2c  kgInfo(package),
2e50: 20 24 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f   $pkgInfo(versio
2e60: 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f 73 29  n), $pkgInfo(os)
2e70: 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70 75 41 72  , $pkgInfo(cpuAr
2e80: 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 69 73  ch), $pkgInfo(is
2e90: 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a 09 09  Latest), 0);}...
2ea0: 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f 72 20  }....# Look for 
2eb0: 70 61 63 6b 61 67 65 73 20 74 68 61 74 20 68 61  packages that ha
2ec0: 76 65 20 62 65 65 6e 20 64 65 6c 65 74 65 64 0a  ve been deleted.
2ed0: 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b  ..set found_pack
2ee0: 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53  ages [db eval {S
2ef0: 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20  ELECT sha1 FROM 
2f00: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
2f10: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
2f20: 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61 63 68  ame;}]...foreach
2f30: 20 70 61 63 6b 61 67 65 20 24 66 6f 75 6e 64 5f   package $found_
2f40: 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 73 65  packages {....se
2f50: 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73  t found_packages
2f60: 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29 20 31  _arr($package) 1
2f70: 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20  ...}....foreach 
2f80: 70 61 63 6b 61 67 65 20 24 63 75 72 72 5f 70 61  package $curr_pa
2f90: 63 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e 73 65  ckages {....unse
2fa0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 6f  t -nocomplain fo
2fb0: 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72  und_packages_arr
2fc0: 28 24 70 61 63 6b 61 67 65 29 0a 09 09 7d 0a 0a  ($package)...}..
2fd0: 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67  ..foreach packag
2fe0: 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66  e [array names f
2ff0: 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72  ound_packages_ar
3000: 72 5d 20 7b 0a 09 09 09 64 62 20 65 76 61 6c 20  r] {....db eval 
3010: 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 70 61 63  {DELETE FROM pac
3020: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
3030: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
3040: 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70 61 63   AND sha1 = $pac
3050: 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09 64 62  kage;}...}....db
3060: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52   eval {INSERT OR
3070: 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69   REPLACE INTO si
3080: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c  tes (hostname, l
3090: 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20  astUpdate, ttl) 
30a0: 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d  VALUES ($hostnam
30b0: 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66  e, $now, $::appf
30c0: 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09 09 61 70 70  s::ttl);}....app
30d0: 66 73 64 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e  fsd::get_path_in
30e0: 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 0a 0a  fo_cache_flush..
30f0: 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54  ..return COMPLET
3100: 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 70  E..}...proc getp
3110: 6b 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f 73 74  kgmanifest {host
3120: 6e 61 6d 65 20 70 61 63 6b 61 67 65 5f 73 68 61  name package_sha
3130: 31 7d 20 7b 0a 09 09 73 65 74 20 68 61 76 65 4d  1} {...set haveM
3140: 61 6e 69 66 65 73 74 20 5b 64 62 20 6f 6e 65 63  anifest [db onec
3150: 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 68 61  olumn {SELECT ha
3160: 76 65 4d 61 6e 69 66 65 73 74 20 46 52 4f 4d 20  veManifest FROM 
3170: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 73  packages WHERE s
3180: 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73  ha1 = $package_s
3190: 68 61 31 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 0a  ha1 LIMIT 1;}]..
31a0: 09 09 69 66 20 7b 24 68 61 76 65 4d 61 6e 69 66  ..if {$haveManif
31b0: 65 73 74 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09  est == "1"} {...
31c0: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
31d0: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69  ...}....if {![_i
31e0: 73 48 61 73 68 20 24 70 61 63 6b 61 67 65 5f 73  sHash $package_s
31f0: 68 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  ha1]} {....retur
3200: 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65  n FAIL...}....se
3210: 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64  t file [download
3220: 20 24 68 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b   $hostname $pack
3230: 61 67 65 5f 73 68 61 31 5d 0a 0a 09 09 63 61 74  age_sha1]....cat
3240: 63 68 20 7b 0a 09 09 09 73 65 74 20 66 64 20 5b  ch {....set fd [
3250: 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 7d 0a  open $file]...}.
3260: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
3270: 69 73 74 73 20 66 64 5d 7d 20 7b 0a 09 09 09 72  ists fd]} {....r
3280: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
3290: 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77  r "Unable to dow
32a0: 6e 6c 6f 61 64 20 6f 72 20 6f 70 65 6e 20 24 66  nload or open $f
32b0: 69 6c 65 22 0a 09 09 7d 0a 0a 09 09 63 61 74 63  ile"...}....catc
32c0: 68 20 7b 0a 09 09 09 73 65 74 20 70 6b 67 64 61  h {....set pkgda
32d0: 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09  ta [read $fd]...
32e0: 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a  }....close $fd..
32f0: 09 09 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e  ..db transaction
3300: 20 7b 0a 09 09 09 66 6f 72 65 61 63 68 20 6c 69   {....foreach li
3310: 6e 65 20 5b 73 70 6c 69 74 20 24 70 6b 67 64 61  ne [split $pkgda
3320: 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 09 73  ta "\n"] {.....s
3330: 65 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20  et line [string 
3340: 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09  trim $line].....
3350: 09 69 66 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22  .if {$line == ""
3360: 7d 20 7b 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75  } {......continu
3370: 65 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74  e.....}......set
3380: 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 6c 69   work [split $li
3390: 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 09 75 6e 73  ne ","]......uns
33a0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66  et -nocomplain f
33b0: 69 6c 65 49 6e 66 6f 0a 09 09 09 09 73 65 74 20  ileInfo.....set 
33c0: 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 5b  fileInfo(type) [
33d0: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a  lindex $work 0].
33e0: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
33f0: 28 74 69 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24  (time) [lindex $
3400: 77 6f 72 6b 20 31 5d 0a 0a 09 09 09 09 73 65 74  work 1]......set
3410: 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77   work [lrange $w
3420: 6f 72 6b 20 32 20 65 6e 64 5d 0a 09 09 09 09 73  ork 2 end].....s
3430: 77 69 74 63 68 20 2d 2d 20 24 66 69 6c 65 49 6e  witch -- $fileIn
3440: 66 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09  fo(type) {......
3450: 22 23 6d 61 6e 69 66 65 73 74 6d 65 74 61 64 61  "#manifestmetada
3460: 74 61 22 20 7b 0a 09 09 09 09 09 09 75 6e 73 65  ta" {.......unse
3470: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69  t -nocomplain fi
3480: 6c 65 49 6e 66 6f 0a 09 09 09 09 09 09 63 6f 6e  leInfo.......con
3490: 74 69 6e 75 65 0a 09 09 09 09 09 7d 0a 09 09 09  tinue......}....
34a0: 09 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09  .."file" {......
34b0: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 69  .set fileInfo(si
34c0: 7a 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  ze) [lindex $wor
34d0: 6b 20 30 5d 0a 0a 09 09 09 09 09 09 23 20 57 65  k 0]........# We
34e0: 20 6c 6f 77 65 72 2d 63 61 73 65 20 74 68 65 20   lower-case the 
34f0: 70 65 72 6d 69 73 73 69 6f 6e 73 20 62 65 63 61  permissions beca
3500: 75 73 65 20 75 70 70 65 72 2d 63 61 73 65 20 70  use upper-case p
3510: 65 72 6d 69 73 73 69 6f 6e 73 0a 09 09 09 09 09  ermissions......
3520: 09 23 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65  .# should not be
3530: 20 73 65 74 20 72 65 6d 6f 74 65 6c 79 20 61 73   set remotely as
3540: 20 74 68 65 79 20 6d 61 79 20 69 6e 66 6c 75 65   they may influe
3550: 6e 63 65 20 74 68 65 20 73 65 63 75 72 69 74 79  nce the security
3560: 0a 09 09 09 09 09 09 23 20 6f 66 20 74 68 65 20  .......# of the 
3570: 73 79 73 74 65 6d 2e 0a 09 09 09 09 09 09 73 65  system........se
3580: 74 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73  t fileInfo(perms
3590: 29 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  ) [string tolowe
35a0: 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  r [lindex $work 
35b0: 31 5d 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 66  1]]........set f
35c0: 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c  ileInfo(sha1) [l
35d0: 69 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a  index $work 2]..
35e0: 09 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  ......set work [
35f0: 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65  lrange $work 3 e
3600: 6e 64 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09  nd]......}......
3610: 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09  "symlink" {.....
3620: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73  ..set fileInfo(s
3630: 6f 75 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24  ource) [lindex $
3640: 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65  work 0].......se
3650: 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24  t work [lrange $
3660: 77 6f 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09  work 1 end].....
3670: 09 7d 0a 09 09 09 09 09 22 64 69 72 65 63 74 6f  .}......"directo
3680: 72 79 22 20 7b 0a 09 09 09 09 09 09 23 20 4e 6f  ry" {.......# No
3690: 20 65 78 74 72 61 20 64 61 74 61 20 72 65 71 75   extra data requ
36a0: 69 72 65 64 0a 09 09 09 09 09 7d 0a 09 09 09 09  ired......}.....
36b0: 09 64 65 66 61 75 6c 74 20 7b 0a 09 09 09 09 09  .default {......
36c0: 09 23 20 48 61 6e 64 6c 65 20 75 6e 6b 6e 6f 77  .# Handle unknow
36d0: 6e 20 74 79 70 65 73 0a 09 09 09 09 09 09 69 66  n types.......if
36e0: 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20   {[string index 
36f0: 24 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20  $fileInfo(type) 
3700: 30 5d 20 3d 3d 20 22 23 22 7d 20 7b 0a 09 09 09  0] == "#"} {....
3710: 09 09 09 09 23 20 4d 65 74 61 64 61 74 61 20 74  ....# Metadata t
3720: 79 70 65 2c 20 69 67 6e 6f 72 65 0a 09 09 09 09  ype, ignore.....
3730: 09 09 09 23 20 69 74 20 69 66 20 77 65 20 64 6f  ...# it if we do
3740: 6e 27 74 0a 09 09 09 09 09 09 09 23 20 75 6e 64  n't........# und
3750: 65 72 73 74 61 6e 64 20 74 68 69 73 20 74 79 70  erstand this typ
3760: 65 0a 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75  e........continu
3770: 65 0a 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b  e.......} else {
3780: 0a 09 09 09 09 09 09 09 23 20 55 6e 6b 6e 6f 77  ........# Unknow
3790: 6e 20 74 79 70 65 2c 0a 09 09 09 09 09 09 09 23  n type,........#
37a0: 20 67 65 6e 65 72 61 74 65 20 61 6e 20 65 72 72   generate an err
37b0: 6f 72 0a 09 09 09 09 09 09 09 65 72 72 6f 72 20  or........error 
37c0: 22 4d 61 6e 69 66 65 73 74 20 63 61 6e 6e 6f 74  "Manifest cannot
37d0: 20 62 65 20 70 61 72 73 65 64 22 0a 09 09 09 09   be parsed".....
37e0: 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  ..}......}.....}
37f0: 0a 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  ......set fileIn
3800: 66 6f 28 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 24  fo(name) [join $
3810: 77 6f 72 6b 20 22 2c 22 5d 0a 09 09 09 09 73 65  work ","].....se
3820: 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29  t fileInfo(name)
3830: 20 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20   [split [string 
3840: 74 72 69 6d 20 24 66 69 6c 65 49 6e 66 6f 28 6e  trim $fileInfo(n
3850: 61 6d 65 29 20 22 2f 22 5d 20 22 2f 22 5d 0a 09  ame) "/"] "/"]..
3860: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28  ...set fileInfo(
3870: 64 69 72 65 63 74 6f 72 79 29 20 5b 6a 6f 69 6e  directory) [join
3880: 20 5b 6c 72 61 6e 67 65 20 24 66 69 6c 65 49 6e   [lrange $fileIn
3890: 66 6f 28 6e 61 6d 65 29 20 30 20 65 6e 64 2d 31  fo(name) 0 end-1
38a0: 5d 20 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66  ] "/"].....set f
38b0: 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c  ileInfo(name) [l
38c0: 69 6e 64 65 78 20 24 66 69 6c 65 49 6e 66 6f 28  index $fileInfo(
38d0: 6e 61 6d 65 29 20 65 6e 64 5d 0a 0a 09 09 09 09  name) end]......
38e0: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20  db eval {INSERT 
38f0: 49 4e 54 4f 20 66 69 6c 65 73 20 28 70 61 63 6b  INTO files (pack
3900: 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65 2c 20  age_sha1, type, 
3910: 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73 69  time, source, si
3920: 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f  ze, perms, file_
3930: 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c  sha1, file_name,
3940: 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 29   file_directory)
3950: 20 56 41 4c 55 45 53 20 28 24 70 61 63 6b 61 67   VALUES ($packag
3960: 65 5f 73 68 61 31 2c 20 24 66 69 6c 65 49 6e 66  e_sha1, $fileInf
3970: 6f 28 74 79 70 65 29 2c 20 24 66 69 6c 65 49 6e  o(type), $fileIn
3980: 66 6f 28 74 69 6d 65 29 2c 20 24 66 69 6c 65 49  fo(time), $fileI
3990: 6e 66 6f 28 73 6f 75 72 63 65 29 2c 20 24 66 69  nfo(source), $fi
39a0: 6c 65 49 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66  leInfo(size), $f
39b0: 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20  ileInfo(perms), 
39c0: 24 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c  $fileInfo(sha1),
39d0: 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29   $fileInfo(name)
39e0: 2c 20 24 66 69 6c 65 49 6e 66 6f 28 64 69 72 65  , $fileInfo(dire
39f0: 63 74 6f 72 79 29 20 29 3b 7d 0a 09 09 09 09 64  ctory) );}.....d
3a00: 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70  b eval {UPDATE p
3a10: 61 63 6b 61 67 65 73 20 53 45 54 20 68 61 76 65  ackages SET have
3a20: 4d 61 6e 69 66 65 73 74 20 3d 20 31 20 57 48 45  Manifest = 1 WHE
3a30: 52 45 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61  RE sha1 = $packa
3a40: 67 65 5f 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09  ge_sha1;}....}..
3a50: 09 7d 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65  .}....appfsd::ge
3a60: 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  t_path_info_cach
3a70: 65 5f 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72  e_flush....retur
3a80: 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09  n COMPLETE..}...
3a90: 70 72 6f 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20  proc _localpath 
3aa0: 7b 70 61 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d  {package hostnam
3ab0: 65 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20  e file} {...set 
3ac0: 64 69 72 20 22 22 0a 09 09 63 61 74 63 68 20 7b  dir ""...catch {
3ad0: 0a 09 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20  ....set homedir 
3ae0: 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a  [::appfs::user::
3af0: 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 09  get_homedir]....
3b00: 73 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6a 6f  set dir [file jo
3b10: 69 6e 20 24 68 6f 6d 65 64 69 72 20 2e 61 70 70  in $homedir .app
3b20: 66 73 20 22 2e 2f 24 7b 70 61 63 6b 61 67 65 7d  fs "./${package}
3b30: 40 24 7b 68 6f 73 74 6e 61 6d 65 7d 22 20 22 2e  @${hostname}" ".
3b40: 2f 24 7b 66 69 6c 65 7d 22 5d 0a 09 09 7d 0a 09  /${file}"]...}..
3b50: 09 72 65 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a  .return $dir..}.
3b60: 0a 09 70 72 6f 63 20 5f 77 68 69 74 65 6f 75 74  ..proc _whiteout
3b70: 70 61 74 68 20 7b 70 61 63 6b 61 67 65 20 68 6f  path {package ho
3b80: 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09  stname file} {..
3b90: 09 73 65 74 20 64 69 72 20 22 22 0a 09 09 63 61  .set dir ""...ca
3ba0: 74 63 68 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d  tch {....set hom
3bb0: 65 64 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75  edir [::appfs::u
3bc0: 73 65 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72  ser::get_homedir
3bd0: 5d 0a 09 09 09 73 65 74 20 64 69 72 20 5b 66 69  ]....set dir [fi
3be0: 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72  le join $homedir
3bf0: 20 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63   .appfs "./${pac
3c00: 6b 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65  kage}@${hostname
3c10: 7d 22 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45  }" ".APPFS.WHITE
3c20: 4f 55 54 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e  OUT" "./${file}.
3c30: 41 50 50 46 53 2e 57 48 49 54 45 4f 55 54 22 5d  APPFS.WHITEOUT"]
3c40: 0a 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 24 64  ...}...return $d
3c50: 69 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61  ir..}...proc _pa
3c60: 72 73 65 70 61 74 68 20 7b 70 61 74 68 7d 20 7b  rsepath {path} {
3c70: 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73 74 72  ...set path [str
3c80: 69 6e 67 20 74 72 69 6d 20 24 70 61 74 68 20 22  ing trim $path "
3c90: 2f 22 5d 0a 09 09 73 65 74 20 70 61 74 68 20 5b  /"]...set path [
3ca0: 73 70 6c 69 74 20 24 70 61 74 68 20 22 2f 22 5d  split $path "/"]
3cb0: 0a 09 09 73 65 74 20 70 61 74 68 6c 65 6e 20 5b  ...set pathlen [
3cc0: 6c 6c 65 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a  llength $path]..
3cd0: 09 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76  ..array set retv
3ce0: 61 6c 20 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72  al [list _childr
3cf0: 65 6e 20 73 69 74 65 73 20 5f 74 79 70 65 20 74  en sites _type t
3d00: 6f 70 6c 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b  oplevel]....if {
3d10: 24 70 61 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a  $pathlen > 0} {.
3d20: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 68 6f  ...set retval(ho
3d30: 73 74 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20  stname) [lindex 
3d40: 24 70 61 74 68 20 30 5d 0a 09 09 09 73 65 74 20  $path 0]....set 
3d50: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
3d60: 29 20 70 61 63 6b 61 67 65 73 0a 09 09 09 73 65  ) packages....se
3d70: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
3d80: 73 69 74 65 73 0a 0a 09 09 09 69 66 20 7b 24 70  sites.....if {$p
3d90: 61 74 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09  athlen > 1} {...
3da0: 09 09 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c  ..set package [l
3db0: 69 6e 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09  index $path 1]..
3dc0: 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c  ...if {[string l
3dd0: 65 6e 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20  ength $package] 
3de0: 3d 3d 20 22 34 30 22 20 26 26 20 5b 72 65 67 65  == "40" && [rege
3df0: 78 70 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d  xp {^[a-fA-F0-9]
3e00: 2a 24 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b  *$} $package]} {
3e10: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3e20: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24  (package_sha1) $
3e30: 70 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74  package......set
3e40: 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65   retval(_childre
3e50: 6e 29 20 66 69 6c 65 73 0a 09 09 09 09 09 73 65  n) files......se
3e60: 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20  t retval(_type) 
3e70: 66 69 6c 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70  files.......::ap
3e80: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
3e90: 4c 45 43 54 20 70 61 63 6b 61 67 65 2c 20 6f 73  LECT package, os
3ea0: 2c 20 63 70 75 41 72 63 68 2c 20 76 65 72 73 69  , cpuArch, versi
3eb0: 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73  on FROM packages
3ec0: 20 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 72   WHERE sha1 = $r
3ed0: 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68  etval(package_sh
3ee0: 61 31 29 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d  a1);} pkginfo {}
3ef0: 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
3f00: 28 70 61 63 6b 61 67 65 29 20 24 70 6b 67 69 6e  (package) $pkgin
3f10: 66 6f 28 70 61 63 6b 61 67 65 29 0a 09 09 09 09  fo(package).....
3f20: 09 73 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20  .set retval(os) 
3f30: 24 70 6b 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09  $pkginfo(os)....
3f40: 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 70 75  ..set retval(cpu
3f50: 29 20 24 70 6b 67 69 6e 66 6f 28 63 70 75 41 72  ) $pkginfo(cpuAr
3f60: 63 68 29 0a 09 09 09 09 09 73 65 74 20 72 65 74  ch)......set ret
3f70: 76 61 6c 28 76 65 72 73 69 6f 6e 29 20 24 70 6b  val(version) $pk
3f80: 67 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a  ginfo(version)..
3f90: 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65  .....if {$pathle
3fa0: 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73  n > 2} {.......s
3fb0: 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20  et retval(file) 
3fc0: 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70  [join [lrange $p
3fd0: 61 74 68 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a  ath 2 end] "/"].
3fe0: 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .....} else {...
3ff0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 66  ....set retval(f
4000: 69 6c 65 29 20 22 22 0a 09 09 09 09 09 7d 0a 09  ile) ""......}..
4010: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
4020: 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b  .set retval(pack
4030: 61 67 65 29 20 24 70 61 63 6b 61 67 65 0a 09 09  age) $package...
4040: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
4050: 68 69 6c 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a  hildren) os-cpu.
4060: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
4070: 5f 74 79 70 65 29 20 70 61 63 6b 61 67 65 73 0a  _type) packages.
4080: 0a 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c  ......if {$pathl
4090: 65 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09  en > 2} {.......
40a0: 73 65 74 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64  set os_cpu [lind
40b0: 65 78 20 24 70 61 74 68 20 32 5d 0a 09 09 09 09  ex $path 2].....
40c0: 09 09 73 65 74 20 6f 73 5f 63 70 75 20 5b 73 70  ..set os_cpu [sp
40d0: 6c 69 74 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d  lit $os_cpu "-"]
40e0: 0a 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
40f0: 61 6c 28 6f 73 29 20 5b 5f 6e 6f 72 6d 61 6c 69  al(os) [_normali
4100: 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24 6f 73  zeOS [lindex $os
4110: 5f 63 70 75 20 30 5d 20 31 5d 0a 09 09 09 09 09  _cpu 0] 1]......
4120: 09 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29  .set retval(cpu)
4130: 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20   [_normalizeCPU 
4140: 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20  [lindex $os_cpu 
4150: 31 5d 20 31 5d 0a 09 09 09 09 09 09 73 65 74 20  1] 1].......set 
4160: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
4170: 29 20 76 65 72 73 69 6f 6e 73 0a 09 09 09 09 09  ) versions......
4180: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
4190: 65 29 20 6f 73 2d 63 70 75 0a 0a 09 09 09 09 09  e) os-cpu.......
41a0: 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20  .if {$pathlen > 
41b0: 33 7d 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20  3} {........set 
41c0: 72 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20  retval(version) 
41d0: 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20 33 5d  [lindex $path 3]
41e0: 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
41f0: 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 66 69  al(_children) fi
4200: 6c 65 73 0a 09 09 09 09 09 09 09 73 65 74 20 72  les........set r
4210: 65 74 76 61 6c 28 5f 74 79 70 65 29 20 76 65 72  etval(_type) ver
4220: 73 69 6f 6e 73 0a 0a 09 09 09 09 09 09 09 73 65  sions.........se
4230: 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65  t retval(package
4240: 5f 73 68 61 31 29 20 5b 3a 3a 61 70 70 66 73 3a  _sha1) [::appfs:
4250: 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53  :db onecolumn {S
4260: 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20  ELECT sha1 FROM 
4270: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
4280: 6f 73 74 6e 61 6d 65 20 3d 20 24 72 65 74 76 61  ostname = $retva
4290: 6c 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20  l(hostname) AND 
42a0: 70 61 63 6b 61 67 65 20 3d 20 24 72 65 74 76 61  package = $retva
42b0: 6c 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f  l(package) AND o
42c0: 73 20 3d 20 24 72 65 74 76 61 6c 28 6f 73 29 20  s = $retval(os) 
42d0: 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 72  AND cpuArch = $r
42e0: 65 74 76 61 6c 28 63 70 75 29 20 41 4e 44 20 76  etval(cpu) AND v
42f0: 65 72 73 69 6f 6e 20 3d 20 24 72 65 74 76 61 6c  ersion = $retval
4300: 28 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09  (version);}]....
4310: 09 09 09 09 69 66 20 7b 24 72 65 74 76 61 6c 28  ....if {$retval(
4320: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 3d 3d  package_sha1) ==
4330: 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 73   ""} {.........s
4340: 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64  et retval(_child
4350: 72 65 6e 29 20 64 65 61 64 0a 09 09 09 09 09 09  ren) dead.......
4360: 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20  ..return [array 
4370: 67 65 74 20 72 65 74 76 61 6c 5d 0a 09 09 09 09  get retval].....
4380: 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 69 66 20  ...}.........if 
4390: 7b 24 70 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b  {$pathlen > 4} {
43a0: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
43b0: 76 61 6c 28 5f 74 79 70 65 29 20 66 69 6c 65 73  val(_type) files
43c0: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
43d0: 76 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20  val(file) [join 
43e0: 5b 6c 72 61 6e 67 65 20 24 70 61 74 68 20 34 20  [lrange $path 4 
43f0: 65 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09  end] "/"].......
4400: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09  .} else {.......
4410: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79  ..set retval(_ty
4420: 70 65 29 20 66 69 6c 65 73 0a 09 09 09 09 09 09  pe) files.......
4430: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
4440: 65 29 20 22 22 0a 09 09 09 09 09 09 09 7d 0a 09  e) ""........}..
4450: 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09  .....}......}...
4460: 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09  ..}....}...}....
4470: 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65  return [array ge
4480: 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70  t retval]..}...p
4490: 72 6f 63 20 67 65 74 63 68 69 6c 64 72 65 6e 20  roc getchildren 
44a0: 7b 64 69 72 7d 20 7b 0a 09 09 61 72 72 61 79 20  {dir} {...array 
44b0: 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70  set pathinfo [_p
44c0: 61 72 73 65 70 61 74 68 20 24 64 69 72 5d 0a 0a  arsepath $dir]..
44d0: 09 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74  ..switch -- $pat
44e0: 68 69 6e 66 6f 28 5f 63 68 69 6c 64 72 65 6e 29  hinfo(_children)
44f0: 20 7b 0a 09 09 09 22 73 69 74 65 73 22 20 7b 0a   {...."sites" {.
4500: 09 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70  ....return [::ap
4510: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
4520: 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 68 6f  LECT DISTINCT ho
4530: 73 74 6e 61 6d 65 20 46 52 4f 4d 20 70 61 63 6b  stname FROM pack
4540: 61 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09  ages;}]....}....
4550: 22 70 61 63 6b 61 67 65 73 22 20 7b 0a 09 09 09  "packages" {....
4560: 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a  .catch {......::
4570: 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20  appfs::getindex 
4580: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4590: 6d 65 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72  me).....}......r
45a0: 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a  eturn [::appfs::
45b0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
45c0: 44 49 53 54 49 4e 43 54 20 70 61 63 6b 61 67 65  DISTINCT package
45d0: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
45e0: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
45f0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4600: 6d 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22  me);}]....}...."
4610: 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09 09 73 65  os-cpu" {.....se
4620: 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66  t retval [::appf
4630: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
4640: 43 54 20 44 49 53 54 49 4e 43 54 20 6f 73 20 7c  CT DISTINCT os |
4650: 7c 20 22 2d 22 20 7c 7c 20 63 70 75 41 72 63 68  | "-" || cpuArch
4660: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
4670: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
4680: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4690: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
46a0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
46b0: 61 67 65 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70  age);}]......lap
46c0: 70 65 6e 64 20 72 65 74 76 61 6c 20 22 70 6c 61  pend retval "pla
46d0: 74 66 6f 72 6d 22 0a 0a 09 09 09 09 72 65 74 75  tform"......retu
46e0: 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a  rn $retval....}.
46f0: 09 09 09 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a  ..."versions" {.
4700: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b  ....set retval [
4710: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
4720: 20 7b 0a 09 09 09 09 09 53 45 4c 45 43 54 20 44   {......SELECT D
4730: 49 53 54 49 4e 43 54 20 76 65 72 73 69 6f 6e 20  ISTINCT version 
4740: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
4750: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
4760: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
4770: 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  e) AND package =
4780: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
4790: 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61  ge) AND os = $pa
47a0: 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63  thinfo(os) AND c
47b0: 70 75 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e  puArch = $pathin
47c0: 66 6f 28 63 70 75 29 3b 0a 09 09 09 09 7d 5d 0a  fo(cpu);.....}].
47d0: 0a 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62  .....::appfs::db
47e0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 76 65   eval {SELECT ve
47f0: 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61  rsion FROM packa
4800: 67 65 73 20 57 48 45 52 45 20 69 73 4c 61 74 65  ges WHERE isLate
4810: 73 74 20 3d 20 31 20 41 4e 44 20 68 6f 73 74 6e  st = 1 AND hostn
4820: 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ame = $pathinfo(
4830: 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61  hostname) AND pa
4840: 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66  ckage = $pathinf
4850: 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f  o(package) AND o
4860: 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f 73  s = $pathinfo(os
4870: 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20  ) AND cpuArch = 
4880: 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29 20 4c  $pathinfo(cpu) L
4890: 49 4d 49 54 20 31 3b 7d 20 6c 61 74 65 73 74 5f  IMIT 1;} latest_
48a0: 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09 69 66 20  info {}......if 
48b0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6c 61  {[info exists la
48c0: 74 65 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f  test_info(versio
48d0: 6e 29 5d 7d 20 7b 0a 09 09 09 09 09 6c 61 70 70  n)]} {......lapp
48e0: 65 6e 64 20 72 65 74 76 61 6c 20 22 6c 61 74 65  end retval "late
48f0: 73 74 22 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72  st".....}......r
4900: 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09  eturn $retval...
4910: 09 7d 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a  .}...."files" {.
4920: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09  ....catch {.....
4930: 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64  .::appfs::getind
4940: 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  ex $pathinfo(hos
4950: 74 6e 61 6d 65 29 0a 09 09 09 09 09 3a 3a 61 70  tname)......::ap
4960: 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66  pfs::getpkgmanif
4970: 65 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  est $pathinfo(ho
4980: 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66  stname) $pathinf
4990: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a  o(package_sha1).
49a0: 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 72  ....}......set r
49b0: 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a  etval [::appfs::
49c0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
49d0: 44 49 53 54 49 4e 43 54 20 66 69 6c 65 5f 6e 61  DISTINCT file_na
49e0: 6d 65 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48  me FROM files WH
49f0: 45 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31  ERE package_sha1
4a00: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63   = $pathinfo(pac
4a10: 6b 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66  kage_sha1) AND f
4a20: 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20  ile_directory = 
4a30: 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 3b  $pathinfo(file);
4a40: 7d 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e 66  }]......if {[inf
4a50: 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66  o exists pathinf
4a60: 6f 28 70 61 63 6b 61 67 65 29 5d 20 26 26 20 5b  o(package)] && [
4a70: 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68  info exists path
4a80: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 5d 20  info(hostname)] 
4a90: 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  && [info exists 
4aa0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 7d  pathinfo(file)]}
4ab0: 20 7b 0a 09 09 09 09 09 5f 61 73 5f 75 73 65 72   {......_as_user
4ac0: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 64 69 72   {.......set dir
4ad0: 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61   [_localpath $pa
4ae0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  thinfo(package) 
4af0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4b00: 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69  me) $pathinfo(fi
4b10: 6c 65 29 5d 0a 09 09 09 09 09 09 73 65 74 20 77  le)].......set w
4b20: 68 69 74 65 6f 75 74 64 69 72 20 5b 73 74 72 69  hiteoutdir [stri
4b30: 6e 67 20 72 61 6e 67 65 20 5b 5f 77 68 69 74 65  ng range [_white
4b40: 6f 75 74 70 61 74 68 20 24 70 61 74 68 69 6e 66  outpath $pathinf
4b50: 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68  o(package) $path
4b60: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24  info(hostname) $
4b70: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 20  pathinfo(file)] 
4b80: 30 20 65 6e 64 2d 31 35 5d 0a 0a 09 09 09 09 09  0 end-15].......
4b90: 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 64 69  .if {$whiteoutdi
4ba0: 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  r != ""} {......
4bb0: 09 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b  ..foreach file [
4bc0: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
4bd0: 20 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f   -tails -directo
4be0: 72 79 20 24 77 68 69 74 65 6f 75 74 64 69 72 20  ry $whiteoutdir 
4bf0: 7b 7b 2e 2c 7d 2a 2e 41 50 50 46 53 2e 57 48 49  {{.,}*.APPFS.WHI
4c00: 54 45 4f 55 54 7d 5d 20 7b 0a 09 09 09 09 09 09  TEOUT}] {.......
4c10: 09 09 73 65 74 20 72 65 6d 6f 76 65 20 5b 73 74  ..set remove [st
4c20: 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c 65  ring range $file
4c30: 20 30 20 65 6e 64 2d 31 35 5d 0a 09 09 09 09 09   0 end-15]......
4c40: 09 09 09 73 65 74 20 69 64 78 20 5b 6c 73 65 61  ...set idx [lsea
4c50: 72 63 68 20 2d 65 78 61 63 74 20 24 72 65 74 76  rch -exact $retv
4c60: 61 6c 20 24 72 65 6d 6f 76 65 5d 0a 09 09 09 09  al $remove].....
4c70: 09 09 09 09 69 66 20 7b 24 69 64 78 20 21 3d 20  ....if {$idx != 
4c80: 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 73  -1} {..........s
4c90: 65 74 20 72 65 74 76 61 6c 20 5b 6c 72 65 70 6c  et retval [lrepl
4ca0: 61 63 65 20 24 72 65 74 76 61 6c 20 24 69 64 78  ace $retval $idx
4cb0: 20 24 69 64 78 5d 0a 09 09 09 09 09 09 09 09 7d   $idx].........}
4cc0: 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09  ........}.......
4cd0: 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64 69  }........if {$di
4ce0: 72 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09  r != ""} {......
4cf0: 09 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b  ..foreach file [
4d00: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
4d10: 20 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f   -tails -directo
4d20: 72 79 20 24 64 69 72 20 7b 7b 2e 2c 7d 2a 7d 5d  ry $dir {{.,}*}]
4d30: 20 7b 0a 09 09 09 09 09 09 09 09 69 66 20 7b 24   {.........if {$
4d40: 66 69 6c 65 20 3d 3d 20 22 2e 22 20 7c 7c 20 24  file == "." || $
4d50: 66 69 6c 65 20 3d 3d 20 22 2e 2e 22 7d 20 7b 0a  file == ".."} {.
4d60: 09 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75  .........continu
4d70: 65 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09 09  e.........}.....
4d80: 09 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d  .....if {$file =
4d90: 3d 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f  = ".APPFS.WHITEO
4da0: 55 54 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 09  UT"} {..........
4db0: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09  continue........
4dc0: 09 7d 0a 0a 09 09 09 09 09 09 09 09 69 66 20 7b  .}..........if {
4dd0: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20  [lsearch -exact 
4de0: 24 72 65 74 76 61 6c 20 24 66 69 6c 65 5d 20 21  $retval $file] !
4df0: 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09  = -1} {.........
4e00: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09  .continue.......
4e10: 09 09 7d 0a 0a 09 09 09 09 09 09 09 09 6c 61 70  ..}..........lap
4e20: 70 65 6e 64 20 72 65 74 76 61 6c 20 24 66 69 6c  pend retval $fil
4e30: 65 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  e........}......
4e40: 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a  .}......}.....}.
4e50: 0a 09 09 09 09 72 65 74 75 72 6e 20 24 72 65 74  .....return $ret
4e60: 76 61 6c 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09  val....}...}....
4e70: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
4e80: 6f 72 20 22 49 6e 76 61 6c 69 64 20 6f 72 20 75  or "Invalid or u
4e90: 6e 61 63 63 65 70 74 61 62 6c 65 20 70 61 74 68  nacceptable path
4ea0: 3a 20 24 64 69 72 22 0a 09 7d 0a 0a 09 70 72 6f  : $dir"..}...pro
4eb0: 63 20 67 65 74 61 74 74 72 20 7b 70 61 74 68 7d  c getattr {path}
4ec0: 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70   {...array set p
4ed0: 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70  athinfo [_parsep
4ee0: 61 74 68 20 24 70 61 74 68 5d 0a 09 09 61 72 72  ath $path]...arr
4ef0: 61 79 20 73 65 74 20 72 65 74 76 61 6c 20 5b 6c  ay set retval [l
4f00: 69 73 74 5d 0a 0a 09 09 73 65 74 20 66 65 74 63  ist]....set fetc
4f10: 68 49 6e 64 65 78 45 72 72 6f 72 20 22 6e 6f 20  hIndexError "no 
4f20: 66 65 74 63 68 20 65 72 72 6f 72 22 0a 09 09 69  fetch error"...i
4f30: 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09 09 3a  f {[catch {....:
4f40: 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78  :appfs::getindex
4f50: 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e   $pathinfo(hostn
4f60: 61 6d 65 29 0a 09 09 09 3a 3a 61 70 70 66 73 3a  ame)....::appfs:
4f70: 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65 73 74 20  :getpkgmanifest 
4f80: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
4f90: 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 70 61  me) $pathinfo(pa
4fa0: 63 6b 61 67 65 5f 73 68 61 31 29 0a 09 09 7d 20  ckage_sha1)...} 
4fb0: 66 65 74 63 68 49 6e 64 65 78 45 72 72 6f 72 52  fetchIndexErrorR
4fc0: 61 77 5d 7d 20 7b 0a 09 09 09 73 65 74 20 66 65  aw]} {....set fe
4fd0: 74 63 68 49 6e 64 65 78 45 72 72 6f 72 20 24 66  tchIndexError $f
4fe0: 65 74 63 68 49 6e 64 65 78 45 72 72 6f 72 52 61  etchIndexErrorRa
4ff0: 77 0a 09 09 7d 0a 0a 09 09 73 65 74 20 72 65 74  w...}....set ret
5000: 76 61 6c 28 70 61 74 68 5f 74 79 70 65 29 20 24  val(path_type) $
5010: 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 0a  pathinfo(_type).
5020: 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61  ...switch -- $pa
5030: 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 20 7b 0a  thinfo(_type) {.
5040: 09 09 09 22 74 6f 70 6c 65 76 65 6c 22 20 7b 0a  ..."toplevel" {.
5050: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74  ....set retval(t
5060: 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09  ype) directory..
5070: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68  ...set retval(ch
5080: 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67  ildcount) [lleng
5090: 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  th [getchildren 
50a0: 24 70 61 74 68 5d 5d 0a 09 09 09 7d 0a 09 09 09  $path]]....}....
50b0: 22 73 69 74 65 73 22 20 7b 0a 09 09 09 09 73 65  "sites" {.....se
50c0: 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73  t check [::appfs
50d0: 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b  ::db onecolumn {
50e0: 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 70 61  SELECT 1 FROM pa
50f0: 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73  ckages WHERE hos
5100: 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66  tname = $pathinf
5110: 6f 28 68 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09  o(hostname);}]..
5120: 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d  ...if {$check ==
5130: 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 73 65 74   "1"} {......set
5140: 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64 69   retval(type) di
5150: 72 65 63 74 6f 72 79 0a 09 09 09 09 09 73 65 74  rectory......set
5160: 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75   retval(childcou
5170: 6e 74 29 20 30 0a 09 09 09 09 7d 0a 09 09 09 7d  nt) 0.....}....}
5180: 0a 09 09 09 22 70 61 63 6b 61 67 65 73 22 20 7b  ...."packages" {
5190: 0a 09 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b  .....set check [
51a0: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63  ::appfs::db onec
51b0: 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 31 20  olumn {SELECT 1 
51c0: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
51d0: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
51e0: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
51f0: 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  e) AND package =
5200: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
5210: 67 65 29 3b 7d 5d 0a 09 09 09 09 69 66 20 7b 24  ge);}].....if {$
5220: 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a  check == "1"} {.
5230: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5240: 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a  type) directory.
5250: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5260: 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65  childcount) [lle
5270: 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65  ngth [getchildre
5280: 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 7d 0a  n $path]].....}.
5290: 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63 70 75 22  ...}...."os-cpu"
52a0: 20 7b 0a 09 09 09 09 69 66 20 7b 24 70 61 74 68   {.....if {$path
52b0: 69 6e 66 6f 28 6f 73 29 20 3d 3d 20 22 70 6c 61  info(os) == "pla
52c0: 74 66 6f 72 6d 22 20 26 26 20 24 70 61 74 68 69  tform" && $pathi
52d0: 6e 66 6f 28 63 70 75 29 20 3d 3d 20 22 22 7d 20  nfo(cpu) == ""} 
52e0: 7b 0a 09 09 09 09 09 73 65 74 20 63 68 65 63 6b  {......set check
52f0: 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76   [::appfs::db ev
5300: 61 6c 20 7b 0a 09 09 09 09 09 09 53 45 4c 45 43  al {.......SELEC
5310: 54 20 44 49 53 54 49 4e 43 54 20 6f 73 2c 20 63  T DISTINCT os, c
5320: 70 75 41 72 63 68 20 46 52 4f 4d 20 70 61 63 6b  puArch FROM pack
5330: 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e  ages WHERE hostn
5340: 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  ame = $pathinfo(
5350: 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61  hostname) AND pa
5360: 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66  ckage = $pathinf
5370: 6f 28 70 61 63 6b 61 67 65 29 3b 0a 09 09 09 09  o(package);.....
5380: 09 7d 5d 0a 0a 09 09 09 09 09 73 65 74 20 72 65  .}].......set re
5390: 74 76 61 6c 28 74 79 70 65 29 20 73 79 6d 6c 69  tval(type) symli
53a0: 6e 6b 0a 0a 09 09 09 09 09 69 66 20 7b 24 63 68  nk.......if {$ch
53b0: 65 63 6b 20 3d 3d 20 5b 6c 69 73 74 20 22 6e 6f  eck == [list "no
53c0: 61 72 63 68 22 20 22 6e 6f 61 72 63 68 22 5d 7d  arch" "noarch"]}
53d0: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65 74   {.......set ret
53e0: 76 61 6c 28 73 6f 75 72 63 65 29 20 22 6e 6f 61  val(source) "noa
53f0: 72 63 68 2d 6e 6f 61 72 63 68 22 0a 09 09 09 09  rch-noarch".....
5400: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09  .} else {.......
5410: 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63  set retval(sourc
5420: 65 29 20 24 3a 3a 61 70 70 66 73 3a 3a 70 6c 61  e) $::appfs::pla
5430: 74 66 6f 72 6d 0a 09 09 09 09 09 7d 0a 09 09 09  tform......}....
5440: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 73  .} else {......s
5450: 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66  et check [::appf
5460: 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20  s::db onecolumn 
5470: 7b 0a 09 09 09 09 09 09 53 45 4c 45 43 54 20 31  {.......SELECT 1
5480: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
5490: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20  HERE hostname = 
54a0: 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61  $pathinfo(hostna
54b0: 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20  me) AND package 
54c0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
54d0: 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70  age) AND os = $p
54e0: 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20  athinfo(os) AND 
54f0: 63 70 75 41 72 63 68 20 3d 20 24 70 61 74 68 69  cpuArch = $pathi
5500: 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09 09 09 7d  nfo(cpu);......}
5510: 5d 0a 09 09 09 09 09 69 66 20 7b 24 63 68 65 63  ]......if {$chec
5520: 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09  k == "1"} {.....
5530: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
5540: 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09  e) directory....
5550: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68  ...set retval(ch
5560: 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67  ildcount) [lleng
5570: 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  th [getchildren 
5580: 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 7d 0a 09  $path]]......}..
5590: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 76 65  ...}....}...."ve
55a0: 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09 69 66  rsions" {.....if
55b0: 20 7b 24 70 61 74 68 69 6e 66 6f 28 76 65 72 73   {$pathinfo(vers
55c0: 69 6f 6e 29 20 3d 3d 20 22 6c 61 74 65 73 74 22  ion) == "latest"
55d0: 7d 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70 66 73  } {......::appfs
55e0: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
55f0: 54 20 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70  T version FROM p
5600: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 69 73  ackages WHERE is
5610: 4c 61 74 65 73 74 20 3d 20 31 20 41 4e 44 20 68  Latest = 1 AND h
5620: 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69  ostname = $pathi
5630: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e  nfo(hostname) AN
5640: 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74  D package = $pat
5650: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 41  hinfo(package) A
5660: 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69 6e 66  ND os = $pathinf
5670: 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41 72 63  o(os) AND cpuArc
5680: 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 63 70  h = $pathinfo(cp
5690: 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20 6c 61 74  u) LIMIT 1;} lat
56a0: 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09  est_info {}.....
56b0: 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  ..if {[info exis
56c0: 74 73 20 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76  ts latest_info(v
56d0: 65 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09  ersion)]} {.....
56e0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
56f0: 65 29 20 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09  e) symlink......
5700: 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72  .set retval(sour
5710: 63 65 29 20 24 6c 61 74 65 73 74 5f 69 6e 66 6f  ce) $latest_info
5720: 28 76 65 72 73 69 6f 6e 29 0a 09 09 09 09 09 7d  (version)......}
5730: 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .....} else {...
5740: 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  ...if {[info exi
5750: 73 74 73 20 70 61 74 68 69 6e 66 6f 28 70 61 63  sts pathinfo(pac
5760: 6b 61 67 65 5f 73 68 61 31 29 5d 20 26 26 20 24  kage_sha1)] && $
5770: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
5780: 5f 73 68 61 31 29 20 21 3d 20 22 22 7d 20 7b 0a  _sha1) != ""} {.
5790: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
57a0: 28 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79  (type) directory
57b0: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
57c0: 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c  l(childcount) [l
57d0: 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64  length [getchild
57e0: 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09  ren $path]].....
57f0: 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09  .}.....}....}...
5800: 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09 73  ."files" {.....s
5810: 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67  et retval(packag
5820: 65 64 29 20 31 0a 0a 09 09 09 09 73 65 74 20 6c  ed) 1......set l
5830: 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c  ocalpath [_local
5840: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70  path $pathinfo(p
5850: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66  ackage) $pathinf
5860: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74  o(hostname) $pat
5870: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09 09  hinfo(file)]....
5880: 09 73 65 74 20 77 68 69 74 65 6f 75 74 70 61 74  .set whiteoutpat
5890: 68 20 20 5b 5f 77 68 69 74 65 6f 75 74 70 61 74  h  [_whiteoutpat
58a0: 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  h $pathinfo(pack
58b0: 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68  age) $pathinfo(h
58c0: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
58d0: 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 09 09 73  fo(file)]......s
58e0: 65 74 20 72 65 74 76 61 6c 28 6c 6f 63 61 6c 70  et retval(localp
58f0: 61 74 68 29 20 24 6c 6f 63 61 6c 70 61 74 68 0a  ath) $localpath.
5900: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 77  ....set retval(w
5910: 68 69 74 65 6f 75 74 70 61 74 68 29 20 24 77 68  hiteoutpath) $wh
5920: 69 74 65 6f 75 74 70 61 74 68 0a 0a 09 09 09 09  iteoutpath......
5930: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
5940: 6e 20 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f 0a  n localpathinfo.
5950: 09 09 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61  ....if {$localpa
5960: 74 68 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09  th != ""} {.....
5970: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09  ._as_user {.....
5980: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 09  ..catch {.......
5990: 09 66 69 6c 65 20 6c 73 74 61 74 20 24 6c 6f 63  .file lstat $loc
59a0: 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70 61 74 68  alpath localpath
59b0: 69 6e 66 6f 0a 09 09 09 09 09 09 7d 0a 09 09 09  info.......}....
59c0: 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69  ..}.....}......i
59d0: 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 21 3d  f {$localpath !=
59e0: 20 22 22 20 26 26 20 5b 69 6e 66 6f 20 65 78 69   "" && [info exi
59f0: 73 74 73 20 6c 6f 63 61 6c 70 61 74 68 69 6e 66  sts localpathinf
5a00: 6f 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72  o]} {......set r
5a10: 65 74 76 61 6c 28 69 73 5f 6c 6f 63 61 6c 66 69  etval(is_localfi
5a20: 6c 65 29 20 31 0a 09 09 09 09 09 75 6e 73 65 74  le) 1......unset
5a30: 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 64   retval(packaged
5a40: 29 0a 09 09 09 09 09 63 61 74 63 68 20 7b 0a 09  )......catch {..
5a50: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5a60: 74 69 6d 65 29 20 24 6c 6f 63 61 6c 70 61 74 68  time) $localpath
5a70: 69 6e 66 6f 28 6d 74 69 6d 65 29 0a 0a 09 09 09  info(mtime).....
5a80: 09 09 09 73 77 69 74 63 68 20 2d 2d 20 24 6c 6f  ...switch -- $lo
5a90: 63 61 6c 70 61 74 68 69 6e 66 6f 28 74 79 70 65  calpathinfo(type
5aa0: 29 20 7b 0a 09 09 09 09 09 09 09 22 64 69 72 65  ) {........"dire
5ab0: 63 74 6f 72 79 22 20 7b 0a 09 09 09 09 09 09 09  ctory" {........
5ac0: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
5ad0: 29 20 22 64 69 72 65 63 74 6f 72 79 22 0a 09 09  ) "directory"...
5ae0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
5af0: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c  (childcount) [ll
5b00: 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72  ength [getchildr
5b10: 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09  en $path]]......
5b20: 09 09 7d 0a 09 09 09 09 09 09 09 22 66 69 6c 65  ..}........"file
5b30: 22 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20  " {.........set 
5b40: 72 65 74 76 61 6c 28 74 79 70 65 29 20 22 66 69  retval(type) "fi
5b50: 6c 65 22 0a 09 09 09 09 09 09 09 09 73 65 74 20  le".........set 
5b60: 72 65 74 76 61 6c 28 73 69 7a 65 29 20 24 6c 6f  retval(size) $lo
5b70: 63 61 6c 70 61 74 68 69 6e 66 6f 28 73 69 7a 65  calpathinfo(size
5b80: 29 0a 0a 09 09 09 09 09 09 09 09 23 20 4f 6e 63  )..........# Onc
5b90: 65 20 74 68 65 20 75 73 65 72 20 77 72 69 74 65  e the user write
5ba0: 73 20 74 6f 20 61 20 66 69 6c 65 2c 20 61 6c 6c  s to a file, all
5bb0: 20 69 74 73 20 6f 74 68 65 72 0a 09 09 09 09 09   its other......
5bc0: 09 09 09 23 20 61 74 74 72 69 62 75 74 65 73 20  ...# attributes 
5bd0: 28 73 75 63 68 20 61 73 20 73 75 69 64 29 20 61  (such as suid) a
5be0: 72 65 20 6c 6f 73 74 0a 0a 09 09 09 09 09 09 09  re lost.........
5bf0: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09  ._as_user {.....
5c00: 09 09 09 09 09 69 66 20 7b 5b 66 69 6c 65 20 65  .....if {[file e
5c10: 78 65 63 75 74 61 62 6c 65 20 24 6c 6f 63 61 6c  xecutable $local
5c20: 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09 09 09 09  path]} {........
5c30: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
5c40: 72 6d 73 29 20 22 78 2d 22 0a 09 09 09 09 09 09  rms) "x-".......
5c50: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
5c60: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
5c70: 28 70 65 72 6d 73 29 20 22 2d 22 0a 09 09 09 09  (perms) "-".....
5c80: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 09 7d  .....}.........}
5c90: 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09  ........}.......
5ca0: 09 22 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09  ."link" {.......
5cb0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
5cc0: 65 29 20 22 73 79 6d 6c 69 6e 6b 22 0a 0a 09 09  e) "symlink"....
5cd0: 09 09 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b  ......_as_user {
5ce0: 0a 09 09 09 09 09 09 09 09 09 73 65 74 20 72 65  ..........set re
5cf0: 74 76 61 6c 28 73 6f 75 72 63 65 29 20 5b 66 69  tval(source) [fi
5d00: 6c 65 20 72 65 61 64 6c 69 6e 6b 20 24 6c 6f 63  le readlink $loc
5d10: 61 6c 70 61 74 68 5d 0a 09 09 09 09 09 09 09 09  alpath].........
5d20: 7d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  }........}......
5d30: 09 09 22 66 69 66 6f 22 20 7b 0a 09 09 09 09 09  .."fifo" {......
5d40: 09 09 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64  ...# Capitalized
5d50: 20 73 6f 20 74 68 61 74 20 74 68 65 20 66 69 72   so that the fir
5d60: 73 74 20 63 68 61 72 20 69 73 20 75 6e 69 71 75  st char is uniqu
5d70: 65 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  e.........set re
5d80: 74 76 61 6c 28 74 79 70 65 29 20 22 46 69 66 6f  tval(type) "Fifo
5d90: 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  "........}......
5da0: 09 09 22 73 6f 63 6b 65 74 22 20 7b 0a 09 09 09  .."socket" {....
5db0: 09 09 09 09 09 23 20 43 61 70 69 74 61 6c 69 7a  .....# Capitaliz
5dc0: 65 64 20 73 6f 20 74 68 61 74 20 74 68 65 20 66  ed so that the f
5dd0: 69 72 73 74 20 63 68 61 72 20 69 73 20 75 6e 69  irst char is uni
5de0: 71 75 65 0a 09 09 09 09 09 09 09 09 73 65 74 20  que.........set 
5df0: 72 65 74 76 61 6c 28 74 79 70 65 29 20 22 53 6f  retval(type) "So
5e00: 63 6b 65 74 22 0a 09 09 09 09 09 09 09 7d 0a 09  cket"........}..
5e10: 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 20 65 72  .....}......} er
5e20: 72 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  r.....} else {..
5e30: 09 09 09 09 69 66 20 7b 24 77 68 69 74 65 6f 75  ....if {$whiteou
5e40: 74 70 61 74 68 20 3d 3d 20 22 22 20 7c 7c 20 21  tpath == "" || !
5e50: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 77 68  [file exists $wh
5e60: 69 74 65 6f 75 74 70 61 74 68 5d 7d 20 7b 0a 09  iteoutpath]} {..
5e70: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
5e80: 69 73 5f 72 65 6d 6f 74 65 66 69 6c 65 29 20 31  is_remotefile) 1
5e90: 0a 0a 09 09 09 09 09 09 73 65 74 20 77 6f 72 6b  ........set work
5ea0: 20 5b 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66   [split $pathinf
5eb0: 6f 28 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 09  o(file) "/"]....
5ec0: 09 09 09 73 65 74 20 64 69 72 65 63 74 6f 72 79  ...set directory
5ed0: 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24   [join [lrange $
5ee0: 77 6f 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f  work 0 end-1] "/
5ef0: 22 5d 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c  "].......set fil
5f00: 65 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  e [lindex $work 
5f10: 65 6e 64 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b  end]........if {
5f20: 24 64 69 72 65 63 74 6f 72 79 20 3d 3d 20 22 22  $directory == ""
5f30: 20 26 26 20 24 66 69 6c 65 20 3d 3d 20 22 22 7d   && $file == ""}
5f40: 20 7b 0a 09 09 09 09 09 09 09 61 72 72 61 79 20   {........array 
5f50: 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 69 73 74  set retval [list
5f60: 20 74 79 70 65 20 64 69 72 65 63 74 6f 72 79 5d   type directory]
5f70: 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09  .......}........
5f80: 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c  ::appfs::db eval
5f90: 20 7b 53 45 4c 45 43 54 20 74 79 70 65 2c 20 74   {SELECT type, t
5fa0: 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a  ime, source, siz
5fb0: 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73  e, perms, file_s
5fc0: 68 61 31 20 46 52 4f 4d 20 66 69 6c 65 73 20 57  ha1 FROM files W
5fd0: 48 45 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61  HERE package_sha
5fe0: 31 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61  1 = $pathinfo(pa
5ff0: 63 6b 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20  ckage_sha1) AND 
6000: 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d  file_directory =
6010: 20 24 64 69 72 65 63 74 6f 72 79 20 41 4e 44 20   $directory AND 
6020: 66 69 6c 65 5f 6e 61 6d 65 20 3d 20 24 66 69 6c  file_name = $fil
6030: 65 3b 7d 20 72 65 74 76 61 6c 20 7b 7d 0a 0a 09  e;} retval {}...
6040: 09 09 09 09 09 23 20 41 6c 6c 6f 77 20 61 6e 20  .....# Allow an 
6050: 61 64 6d 69 6e 69 73 74 72 61 74 6f 72 20 74 6f  administrator to
6060: 20 73 75 70 70 6c 79 20 61 64 64 69 74 69 6f 6e   supply addition
6070: 61 6c 20 70 65 72 6d 69 73 73 69 6f 6e 73 20 74  al permissions t
6080: 6f 20 72 65 6d 6f 74 65 20 66 69 6c 65 73 0a 09  o remote files..
6090: 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65  .....if {[info e
60a0: 78 69 73 74 73 20 72 65 74 76 61 6c 28 70 65 72  xists retval(per
60b0: 6d 73 29 5d 7d 20 7b 0a 09 09 09 09 09 09 09 23  ms)]} {........#
60c0: 20 4c 6f 77 65 72 20 63 61 73 65 20 74 68 69 73   Lower case this
60d0: 20 69 6e 20 63 61 73 65 20 61 6e 20 75 70 70 65   in case an uppe
60e0: 72 2d 63 61 73 65 64 20 76 61 6c 75 65 20 77 61  r-cased value wa
60f0: 73 20 70 75 74 20 69 6e 0a 09 09 09 09 09 09 09  s put in........
6100: 23 20 74 68 65 20 64 61 74 61 62 61 73 65 20 62  # the database b
6110: 65 66 6f 72 65 20 77 65 20 73 74 61 72 74 65 64  efore we started
6120: 20 6c 6f 77 65 72 63 61 73 69 6e 67 20 74 68 65   lowercasing the
6130: 6d 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74  m........set ret
6140: 76 61 6c 28 70 65 72 6d 73 29 20 5b 73 74 72 69  val(perms) [stri
6150: 6e 67 20 74 6f 6c 6f 77 65 72 20 24 72 65 74 76  ng tolower $retv
6160: 61 6c 28 70 65 72 6d 73 29 5d 0a 0a 09 09 09 09  al(perms)]......
6170: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
6180: 72 6d 73 29 20 5b 3a 3a 61 70 70 66 73 3a 3a 75  rms) [::appfs::u
6190: 73 65 72 3a 3a 63 68 61 6e 67 65 5f 70 65 72 6d  ser::change_perm
61a0: 73 20 24 70 61 74 68 20 24 72 65 74 76 61 6c 28  s $path $retval(
61b0: 66 69 6c 65 5f 73 68 61 31 29 20 24 72 65 74 76  file_sha1) $retv
61c0: 61 6c 28 70 65 72 6d 73 29 5d 0a 09 09 09 09 09  al(perms)]......
61d0: 09 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b 5b 69  .}........if {[i
61e0: 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74 76 61  nfo exists retva
61f0: 6c 28 74 79 70 65 29 5d 20 26 26 20 24 72 65 74  l(type)] && $ret
6200: 76 61 6c 28 74 79 70 65 29 20 3d 3d 20 22 64 69  val(type) == "di
6210: 72 65 63 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09  rectory"} {.....
6220: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68  ...set retval(ch
6230: 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67  ildcount) [lleng
6240: 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  th [getchildren 
6250: 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 09 7d 0a  $path]].......}.
6260: 0a 09 09 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f  .......unset -no
6270: 63 6f 6d 70 6c 61 69 6e 20 72 65 74 76 61 6c 28  complain retval(
6280: 2a 29 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a  *)......}.....}.
6290: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20  ....}...}....if 
62a0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72  {![info exists r
62b0: 65 74 76 61 6c 28 74 79 70 65 29 5d 7d 20 7b 0a  etval(type)]} {.
62c0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
62d0: 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66  error "No such f
62e0: 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79  ile or directory
62f0: 20 28 24 66 65 74 63 68 49 6e 64 65 78 45 72 72   ($fetchIndexErr
6300: 6f 72 29 22 0a 09 09 7d 0a 0a 09 09 72 65 74 75  or)"...}....retu
6310: 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20 72 65  rn [array get re
6320: 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72 6f 63 20  tval]..}...proc 
6330: 6f 70 65 6e 70 61 74 68 20 7b 70 61 74 68 20 6d  openpath {path m
6340: 6f 64 65 7d 20 7b 0a 09 09 61 72 72 61 79 20 73  ode} {...array s
6350: 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61  et pathinfo [_pa
6360: 72 73 65 70 61 74 68 20 24 70 61 74 68 5d 0a 0a  rsepath $path]..
6370: 09 09 69 66 20 7b 24 70 61 74 68 69 6e 66 6f 28  ..if {$pathinfo(
6380: 5f 74 79 70 65 29 20 21 3d 20 22 66 69 6c 65 73  _type) != "files
6390: 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  "} {....return -
63a0: 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e 76 61  code error "inva
63b0: 6c 69 64 20 70 61 74 68 20 74 79 70 65 3a 20 47  lid path type: G
63c0: 6f 74 20 5c 22 24 70 61 74 68 69 6e 66 6f 28 5f  ot \"$pathinfo(_
63d0: 74 79 70 65 29 5c 22 2c 20 6e 65 65 64 20 5c 22  type)\", need \"
63e0: 66 69 6c 65 73 5c 22 22 0a 09 09 7d 0a 0a 09 09  files\""...}....
63f0: 73 65 74 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f  set localpath [_
6400: 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 69  localpath $pathi
6410: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61  nfo(package) $pa
6420: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
6430: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
6440: 5d 0a 0a 09 09 69 66 20 7b 24 6d 6f 64 65 20 3d  ]....if {$mode =
6450: 3d 20 22 63 72 65 61 74 65 22 7d 20 7b 0a 09 09  = "create"} {...
6460: 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20  .if {$localpath 
6470: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72 65 74  == ""} {.....ret
6480: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
6490: 22 41 73 6b 65 64 20 74 6f 20 63 72 65 61 74 65  "Asked to create
64a0: 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69  , but no home di
64b0: 72 65 63 74 6f 72 79 2e 22 0a 09 09 09 7d 0a 0a  rectory."....}..
64c0: 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c  ...return $local
64d0: 70 61 74 68 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  path...}....if {
64e0: 24 6c 6f 63 61 6c 70 61 74 68 20 21 3d 20 22 22  $localpath != ""
64f0: 20 26 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73   && [file exists
6500: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a   $localpath]} {.
6510: 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c  ...return $local
6520: 70 61 74 68 0a 09 09 7d 0a 0a 09 09 73 65 74 20  path...}....set 
6530: 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 70 61 74  work [split $pat
6540: 68 69 6e 66 6f 28 66 69 6c 65 29 20 22 2f 22 5d  hinfo(file) "/"]
6550: 0a 09 09 73 65 74 20 64 69 72 65 63 74 6f 72 79  ...set directory
6560: 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24   [join [lrange $
6570: 77 6f 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f  work 0 end-1] "/
6580: 22 5d 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 6c  "]...set file [l
6590: 69 6e 64 65 78 20 24 77 6f 72 6b 20 65 6e 64 5d  index $work end]
65a0: 0a 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65  ...::appfs::db e
65b0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 66 69 6c 65  val {SELECT file
65c0: 5f 73 68 61 31 2c 20 70 65 72 6d 73 20 46 52 4f  _sha1, perms FRO
65d0: 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61  M files WHERE pa
65e0: 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61  ckage_sha1 = $pa
65f0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
6600: 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 6e 61  ha1) AND file_na
6610: 6d 65 20 3d 20 24 66 69 6c 65 20 41 4e 44 20 66  me = $file AND f
6620: 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20  ile_directory = 
6630: 24 64 69 72 65 63 74 6f 72 79 3b 7d 20 70 6b 67  $directory;} pkg
6640: 70 61 74 68 69 6e 66 6f 20 7b 7d 0a 0a 09 09 69  pathinfo {}....i
6650: 66 20 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28  f {$pkgpathinfo(
6660: 66 69 6c 65 5f 73 68 61 31 29 20 3d 3d 20 22 22  file_sha1) == ""
6670: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  } {....return -c
6680: 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f 20 73 75  ode error "No su
6690: 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63  ch file or direc
66a0: 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09 73 65 74  tory"...}....set
66b0: 20 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 20   localcachefile 
66c0: 5b 64 6f 77 6e 6c 6f 61 64 20 24 70 61 74 68 69  [download $pathi
66d0: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
66e0: 6b 67 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 5f  kgpathinfo(file_
66f0: 73 68 61 31 29 5d 0a 0a 09 09 69 66 20 7b 24 6d  sha1)]....if {$m
6700: 6f 64 65 20 3d 3d 20 22 77 72 69 74 65 22 7d 20  ode == "write"} 
6710: 7b 0a 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a  {...._as_user {.
6720: 09 09 09 09 73 65 74 20 74 6d 70 6c 6f 63 61 6c  ....set tmplocal
6730: 70 61 74 68 20 22 24 7b 6c 6f 63 61 6c 70 61 74  path "${localpat
6740: 68 7d 2e 5b 65 78 70 72 20 72 61 6e 64 28 29 5d  h}.[expr rand()]
6750: 5b 63 6c 6f 63 6b 20 63 6c 69 63 6b 73 5d 22 0a  [clock clicks]".
6760: 0a 09 09 09 09 73 65 74 20 66 61 69 6c 65 64 20  .....set failed 
6770: 30 0a 09 09 09 09 69 66 20 7b 5b 63 61 74 63 68  0.....if {[catch
6780: 20 7b 0a 09 09 09 09 09 66 69 6c 65 20 6d 6b 64   {......file mkd
6790: 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  ir [file dirname
67a0: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a 09 09 09   $localpath]....
67b0: 09 09 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72  ..file copy -for
67c0: 63 65 20 2d 2d 20 24 6c 6f 63 61 6c 63 61 63 68  ce -- $localcach
67d0: 65 66 69 6c 65 20 24 74 6d 70 6c 6f 63 61 6c 70  efile $tmplocalp
67e0: 61 74 68 0a 0a 09 09 09 09 09 69 66 20 7b 24 70  ath.......if {$p
67f0: 6b 67 70 61 74 68 69 6e 66 6f 28 70 65 72 6d 73  kgpathinfo(perms
6800: 29 20 3d 3d 20 22 78 22 7d 20 7b 0a 09 09 09 09  ) == "x"} {.....
6810: 09 09 66 69 6c 65 20 61 74 74 72 69 62 75 74 65  ..file attribute
6820: 73 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 20  s $tmplocalpath 
6830: 2d 70 65 72 6d 69 73 73 69 6f 6e 73 20 2b 78 0a  -permissions +x.
6840: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 66 69 6c  .....}.......fil
6850: 65 20 72 65 6e 61 6d 65 20 2d 66 6f 72 63 65 20  e rename -force 
6860: 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68  -- $tmplocalpath
6870: 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 09   $localpath.....
6880: 7d 20 65 72 72 5d 7d 20 7b 0a 09 09 09 09 09 73  } err]} {......s
6890: 65 74 20 66 61 69 6c 65 64 20 31 0a 09 09 09 09  et failed 1.....
68a0: 7d 0a 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09  }.....catch {...
68b0: 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  ...file delete -
68c0: 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c 6f 63  force -- $tmploc
68d0: 61 6c 70 61 74 68 0a 09 09 09 09 7d 0a 09 09 09  alpath.....}....
68e0: 7d 0a 0a 09 09 09 69 66 20 7b 24 66 61 69 6c 65  }.....if {$faile
68f0: 64 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  d} {.....return 
6900: 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 65 72 72  -code error $err
6910: 0a 09 09 09 7d 0a 0a 09 09 09 72 65 74 75 72 6e  ....}.....return
6920: 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a   $localpath...}.
6930: 0a 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c  ...return $local
6940: 63 61 63 68 65 66 69 6c 65 0a 09 7d 0a 0a 09 70  cachefile..}...p
6950: 72 6f 63 20 6c 6f 63 61 6c 70 61 74 68 20 7b 70  roc localpath {p
6960: 61 74 68 7d 20 7b 0a 09 09 61 72 72 61 79 20 73  ath} {...array s
6970: 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61  et pathinfo [_pa
6980: 72 73 65 70 61 74 68 20 24 70 61 74 68 5d 0a 0a  rsepath $path]..
6990: 09 09 69 66 20 7b 24 70 61 74 68 69 6e 66 6f 28  ..if {$pathinfo(
69a0: 5f 74 79 70 65 29 20 21 3d 20 22 66 69 6c 65 73  _type) != "files
69b0: 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d  "} {....return -
69c0: 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e 76 61  code error "inva
69d0: 6c 69 64 20 70 61 74 68 20 74 79 70 65 3a 20 47  lid path type: G
69e0: 6f 74 20 5c 22 24 70 61 74 68 69 6e 66 6f 28 5f  ot \"$pathinfo(_
69f0: 74 79 70 65 29 5c 22 2c 20 6e 65 65 64 20 5c 22  type)\", need \"
6a00: 66 69 6c 65 73 5c 22 22 0a 09 09 7d 0a 0a 09 09  files\""...}....
6a10: 73 65 74 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f  set localpath [_
6a20: 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 69  localpath $pathi
6a30: 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61  nfo(package) $pa
6a40: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
6a50: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29   $pathinfo(file)
6a60: 5d 0a 0a 09 09 72 65 74 75 72 6e 20 24 6c 6f 63  ]....return $loc
6a70: 61 6c 70 61 74 68 0a 09 7d 0a 0a 09 70 72 6f 63  alpath..}...proc
6a80: 20 65 78 69 73 74 73 20 7b 70 61 74 68 7d 20 7b   exists {path} {
6a90: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65  ...catch {....se
6aa0: 74 20 69 6e 66 6f 20 5b 67 65 74 61 74 74 72 20  t info [getattr 
6ab0: 24 70 61 74 68 5d 0a 09 09 7d 20 65 72 72 0a 0a  $path]...} err..
6ac0: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69  ..if {![info exi
6ad0: 73 74 73 20 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09  sts info]} {....
6ae0: 69 66 20 7b 24 65 72 72 20 3d 3d 20 22 4e 6f 20  if {$err == "No 
6af0: 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72  such file or dir
6b00: 65 63 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 72  ectory"} {.....r
6b10: 65 74 75 72 6e 20 5b 6c 69 73 74 5d 0a 09 09 09  eturn [list]....
6b20: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 72 65 74  } else {.....ret
6b30: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
6b40: 24 65 72 72 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  $err....}...}...
6b50: 09 72 65 74 75 72 6e 20 24 69 6e 66 6f 0a 09 7d  .return $info..}
6b60: 0a 0a 09 70 72 6f 63 20 70 72 65 70 61 72 65 5f  ...proc prepare_
6b70: 74 6f 5f 63 72 65 61 74 65 20 7b 70 61 74 68 20  to_create {path 
6b80: 7b 6d 75 73 74 5f 6e 6f 74 5f 65 78 69 73 74 20  {must_not_exist 
6b90: 31 7d 7d 20 7b 0a 09 09 69 66 20 7b 24 6d 75 73  1}} {...if {$mus
6ba0: 74 5f 6e 6f 74 5f 65 78 69 73 74 7d 20 7b 0a 09  t_not_exist} {..
6bb0: 09 09 69 66 20 7b 5b 65 78 69 73 74 73 20 24 70  ..if {[exists $p
6bc0: 61 74 68 5d 20 21 3d 20 22 22 7d 20 7b 0a 09 09  ath] != ""} {...
6bd0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
6be0: 72 72 6f 72 20 22 46 69 6c 65 20 61 6c 72 65 61  rror "File alrea
6bf0: 64 79 20 65 78 69 73 74 73 22 0a 09 09 09 7d 0a  dy exists"....}.
6c00: 09 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 6e  ..}....set filen
6c10: 61 6d 65 20 5b 6c 6f 63 61 6c 70 61 74 68 20 24  ame [localpath $
6c20: 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b 24 66 69  path]....if {$fi
6c30: 6c 65 6e 61 6d 65 20 3d 3d 20 22 22 7d 20 7b 0a  lename == ""} {.
6c40: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
6c50: 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20  error "Asked to 
6c60: 63 72 65 61 74 65 2c 20 62 75 74 20 6e 6f 20 68  create, but no h
6c70: 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a  ome directory.".
6c80: 09 09 7d 0a 0a 09 09 73 65 74 20 64 69 72 6e 61  ..}....set dirna
6c90: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  me [file dirname
6ca0: 20 24 66 69 6c 65 6e 61 6d 65 5d 0a 0a 09 09 5f   $filename]...._
6cb0: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66 69 6c  as_user {....fil
6cc0: 65 20 6d 6b 64 69 72 20 24 64 69 72 6e 61 6d 65  e mkdir $dirname
6cd0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24  ...}....return $
6ce0: 66 69 6c 65 6e 61 6d 65 0a 09 7d 0a 0a 09 70 72  filename..}...pr
6cf0: 6f 63 20 75 6e 6c 69 6e 6b 70 61 74 68 20 7b 70  oc unlinkpath {p
6d00: 61 74 68 7d 20 7b 0a 09 09 61 72 72 61 79 20 73  ath} {...array s
6d10: 65 74 20 70 61 74 68 61 74 74 72 73 20 5b 65 78  et pathattrs [ex
6d20: 69 73 74 73 20 24 70 61 74 68 5d 0a 0a 09 09 69  ists $path]....i
6d30: 66 20 7b 24 70 61 74 68 61 74 74 72 73 28 70 61  f {$pathattrs(pa
6d40: 74 68 5f 74 79 70 65 29 20 21 3d 20 22 66 69 6c  th_type) != "fil
6d50: 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  es"} {....return
6d60: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69 6e   -code error "in
6d70: 76 61 6c 69 64 20 70 61 74 68 20 74 79 70 65 3a  valid path type:
6d80: 20 63 61 6e 20 6f 6e 6c 79 20 64 65 6c 65 74 65   can only delete
6d90: 20 74 79 70 65 20 5c 22 66 69 6c 65 73 5c 22 20   type \"files\" 
6da0: 74 68 69 73 20 69 73 20 74 79 70 65 20 5c 22 24  this is type \"$
6db0: 70 61 74 68 61 74 74 72 73 28 70 61 74 68 5f 74  pathattrs(path_t
6dc0: 79 70 65 29 5c 22 22 0a 09 09 7d 0a 0a 09 09 73  ype)\""...}....s
6dd0: 65 74 20 6c 6f 63 61 6c 70 61 74 68 20 24 70 61  et localpath $pa
6de0: 74 68 61 74 74 72 73 28 6c 6f 63 61 6c 70 61 74  thattrs(localpat
6df0: 68 29 0a 0a 09 09 69 66 20 7b 24 6c 6f 63 61 6c  h)....if {$local
6e00: 70 61 74 68 20 3d 3d 20 22 22 7d 20 7b 0a 09 09  path == ""} {...
6e10: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
6e20: 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65  ror "Asked to de
6e30: 6c 65 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f 6d  lete, but no hom
6e40: 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 09 09  e directory."...
6e50: 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65  }....if {[info e
6e60: 78 69 73 74 73 20 70 61 74 68 61 74 74 72 73 28  xists pathattrs(
6e70: 69 73 5f 6c 6f 63 61 6c 66 69 6c 65 29 5d 7d 20  is_localfile)]} 
6e80: 7b 0a 09 09 09 69 66 20 7b 5b 66 69 6c 65 20 69  {....if {[file i
6e90: 73 64 69 72 65 63 74 6f 72 79 20 24 6c 6f 63 61  sdirectory $loca
6ea0: 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09 73 65  lpath]} {.....se
6eb0: 74 20 63 68 69 6c 64 72 65 6e 20 5b 67 65 74 63  t children [getc
6ec0: 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 0a 0a  hildren $path]..
6ed0: 09 09 09 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68  ....if {[llength
6ee0: 20 24 63 68 69 6c 64 72 65 6e 5d 20 21 3d 20 30   $children] != 0
6ef0: 7d 20 7b 0a 09 09 09 09 09 72 65 74 75 72 6e 20  } {......return 
6f00: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b  -code error "Ask
6f10: 65 64 20 74 6f 20 64 65 6c 65 74 65 20 6e 6f 6e  ed to delete non
6f20: 2d 65 6d 70 74 79 20 64 69 72 65 63 74 6f 72 79  -empty directory
6f30: 22 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09  ".....}....}....
6f40: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09  ._as_user {.....
6f50: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
6f60: 63 65 20 2d 2d 20 24 6c 6f 63 61 6c 70 61 74 68  ce -- $localpath
6f70: 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 69 66  ....}...} elseif
6f80: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70   {[info exists p
6f90: 61 74 68 61 74 74 72 73 28 69 73 5f 72 65 6d 6f  athattrs(is_remo
6fa0: 74 65 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 69  tefile)]} {....i
6fb0: 66 20 7b 24 70 61 74 68 61 74 74 72 73 28 74 79  f {$pathattrs(ty
6fc0: 70 65 29 20 3d 3d 20 22 64 69 72 65 63 74 6f 72  pe) == "director
6fd0: 79 22 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68  y"} {.....set ch
6fe0: 69 6c 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64  ildren [getchild
6ff0: 72 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09  ren $path]......
7000: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68  if {[llength $ch
7010: 69 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a  ildren] != 0} {.
7020: 09 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  .....return -cod
7030: 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74  e error "Asked t
7040: 6f 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70  o delete non-emp
7050: 74 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09  ty directory"...
7060: 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73  ..}....}...} els
7070: 65 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  e {....return -c
7080: 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 6b 6e 6f  ode error "Unkno
7090: 77 6e 20 69 66 20 66 69 6c 65 20 69 73 20 72 65  wn if file is re
70a0: 6d 6f 74 65 20 6f 72 20 6c 6f 63 61 6c 20 21 3f  mote or local !?
70b0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 77 68 69  "...}....set whi
70c0: 74 65 6f 75 74 66 69 6c 65 20 24 70 61 74 68 61  teoutfile $patha
70d0: 74 74 72 73 28 77 68 69 74 65 6f 75 74 70 61 74  ttrs(whiteoutpat
70e0: 68 29 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75  h)...set whiteou
70f0: 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61  tdir [file dirna
7100: 6d 65 20 24 77 68 69 74 65 6f 75 74 66 69 6c 65  me $whiteoutfile
7110: 5d 0a 0a 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a  ]...._as_user {.
7120: 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 77  ...file mkdir $w
7130: 68 69 74 65 6f 75 74 64 69 72 0a 09 09 09 63 6c  hiteoutdir....cl
7140: 6f 73 65 20 5b 6f 70 65 6e 20 24 77 68 69 74 65  ose [open $white
7150: 6f 75 74 66 69 6c 65 20 77 5d 0a 09 09 7d 0a 09  outfile w]...}..
7160: 7d 0a 7d 0a                                      }.}.