Hex Artifact Content

Artifact bd58d61afc0cb56a355a8dac4fcef1a5937b2b50:


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 68  ge_perms {file h
06f0: 61 73 68 20 70 65 72 6d 73 20 7b 68 61 73 68 4d  ash perms {hashM
0700: 65 74 68 6f 64 20 22 73 68 61 31 22 7d 7d 20 7b  ethod "sha1"}} {
0710: 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  ...if {[info exi
0720: 73 74 73 20 3a 3a 61 70 70 66 73 3a 3a 75 73 65  sts ::appfs::use
0730: 72 3a 3a 61 64 64 5f 70 65 72 6d 73 28 24 66 69  r::add_perms($fi
0740: 6c 65 29 5d 7d 20 7b 0a 09 09 09 61 70 70 65 6e  le)]} {....appen
0750: 64 20 70 65 72 6d 73 20 24 3a 3a 61 70 70 66 73  d perms $::appfs
0760: 3a 3a 75 73 65 72 3a 3a 61 64 64 5f 70 65 72 6d  ::user::add_perm
0770: 73 28 24 66 69 6c 65 29 0a 09 09 7d 0a 0a 09 09  s($file)...}....
0780: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
0790: 20 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a   ::appfs::user::
07a0: 61 64 64 5f 70 65 72 6d 73 28 5b 6c 69 73 74 20  add_perms([list 
07b0: 24 68 61 73 68 4d 65 74 68 6f 64 20 24 68 61 73  $hashMethod $has
07c0: 68 5d 29 5d 7d 20 7b 0a 09 09 09 61 70 70 65 6e  h])]} {....appen
07d0: 64 20 70 65 72 6d 73 20 24 3a 3a 61 70 70 66 73  d perms $::appfs
07e0: 3a 3a 75 73 65 72 3a 3a 61 64 64 5f 70 65 72 6d  ::user::add_perm
07f0: 73 28 5b 6c 69 73 74 20 24 68 61 73 68 4d 65 74  s([list $hashMet
0800: 68 6f 64 20 24 68 61 73 68 5d 29 0a 09 09 7d 20  hod $hash])...} 
0810: 65 6c 73 65 69 66 20 7b 24 68 61 73 68 4d 65 74  elseif {$hashMet
0820: 68 6f 64 20 65 71 20 22 73 68 61 31 22 20 26 26  hod eq "sha1" &&
0830: 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a   [info exists ::
0840: 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64 64  appfs::user::add
0850: 5f 70 65 72 6d 73 28 24 68 61 73 68 29 5d 7d 20  _perms($hash)]} 
0860: 7b 0a 09 09 09 61 70 70 65 6e 64 20 70 65 72 6d  {....append perm
0870: 73 20 24 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72  s $::appfs::user
0880: 3a 3a 61 64 64 5f 70 65 72 6d 73 28 24 68 61 73  ::add_perms($has
0890: 68 29 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e  h)...}....return
08a0: 20 24 70 65 72 6d 73 0a 09 7d 0a 0a 09 23 20 55   $perms..}...# U
08b0: 73 65 72 2d 72 65 70 6c 61 63 61 62 6c 65 20 66  ser-replacable f
08c0: 75 6e 63 74 69 6f 6e 20 74 6f 20 66 65 74 63 68  unction to fetch
08d0: 20 61 20 72 65 6d 6f 74 65 20 66 69 6c 65 0a 09   a remote file..
08e0: 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 5f 66 69  proc download_fi
08f0: 6c 65 20 7b 75 72 6c 20 7b 6f 75 74 70 75 74 43  le {url {outputC
0900: 68 61 6e 6e 65 6c 20 22 22 7d 7d 20 7b 0a 09 09  hannel ""}} {...
0910: 73 77 69 74 63 68 20 2d 2d 20 24 3a 3a 61 70 70  switch -- $::app
0920: 66 73 3a 3a 75 73 65 72 3a 3a 64 6f 77 6e 6c 6f  fs::user::downlo
0930: 61 64 5f 6d 65 74 68 6f 64 20 7b 0a 09 09 09 22  ad_method {...."
0940: 63 75 72 6c 22 20 7b 0a 09 09 09 09 69 66 20 7b  curl" {.....if {
0950: 24 6f 75 74 70 75 74 43 68 61 6e 6e 65 6c 20 65  $outputChannel e
0960: 71 20 22 22 7d 20 7b 0a 09 09 09 09 09 72 65 74  q ""} {......ret
0970: 75 72 6e 20 5b 65 78 65 63 20 63 75 72 6c 20 2d  urn [exec curl -
0980: 73 53 20 2d 4c 20 2d 2d 20 24 75 72 6c 5d 0a 09  sS -L -- $url]..
0990: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
09a0: 09 65 78 65 63 20 63 75 72 6c 20 2d 73 53 20 2d  .exec curl -sS -
09b0: 4c 20 2d 2d 20 24 75 72 6c 20 3e 40 20 24 6f 75  L -- $url >@ $ou
09c0: 74 70 75 74 43 68 61 6e 6e 65 6c 0a 0a 09 09 09  tputChannel.....
09d0: 09 09 72 65 74 75 72 6e 20 22 22 0a 09 09 09 09  ..return "".....
09e0: 7d 0a 09 09 09 7d 0a 09 09 09 22 74 63 6c 22 20  }....}...."tcl" 
09f0: 7b 0a 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09  {.....catch {...
0a00: 09 09 09 69 66 20 7b 24 6f 75 74 70 75 74 43 68  ...if {$outputCh
0a10: 61 6e 6e 65 6c 20 65 71 20 22 22 7d 20 7b 0a 09  annel eq ""} {..
0a20: 09 09 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b  .....set token [
0a30: 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 24 75 72  http::geturl $ur
0a40: 6c 5d 0a 09 09 09 09 09 09 73 65 74 20 72 65 74  l].......set ret
0a50: 76 61 6c 20 5b 68 74 74 70 3a 3a 64 61 74 61 20  val [http::data 
0a60: 24 74 6f 6b 65 6e 5d 0a 09 09 09 09 09 7d 20 65  $token]......} e
0a70: 6c 73 65 20 7b 0a 09 09 09 09 09 09 73 65 74 20  lse {.......set 
0a80: 74 6f 6b 65 6e 20 5b 68 74 74 70 3a 3a 67 65 74  token [http::get
0a90: 75 72 6c 20 24 75 72 6c 20 2d 62 69 6e 61 72 79  url $url -binary
0aa0: 20 74 72 75 65 20 2d 63 68 61 6e 6e 65 6c 20 24   true -channel $
0ab0: 6f 75 74 70 75 74 43 68 61 6e 6e 65 6c 5d 0a 09  outputChannel]..
0ac0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 20  .....set retval 
0ad0: 22 22 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20  ""......}.....} 
0ae0: 65 72 72 0a 0a 09 09 09 09 69 66 20 7b 21 5b 69  err......if {![i
0af0: 6e 66 6f 20 65 78 69 73 74 73 20 74 6f 6b 65 6e  nfo exists token
0b00: 5d 7d 20 7b 0a 09 09 09 09 09 72 65 74 75 72 6e  ]} {......return
0b10: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e   -code error "Un
0b20: 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f 61 64  able to download
0b30: 20 5c 22 24 75 72 6c 5c 22 3a 20 24 65 72 72 22   \"$url\": $err"
0b40: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20  .....}......set 
0b50: 74 6f 6b 65 6e 43 6f 64 65 20 5b 68 74 74 70 3a  tokenCode [http:
0b60: 3a 6e 63 6f 64 65 20 24 74 6f 6b 65 6e 5d 0a 0a  :ncode $token]..
0b70: 09 09 09 09 68 74 74 70 3a 3a 63 6c 65 61 6e 75  ....http::cleanu
0b80: 70 20 24 74 6f 6b 65 6e 0a 0a 09 09 09 09 69 66  p $token......if
0b90: 20 7b 24 74 6f 6b 65 6e 43 6f 64 65 20 21 3d 20   {$tokenCode != 
0ba0: 22 32 30 30 22 7d 20 7b 0a 09 09 09 09 09 72 65  "200"} {......re
0bb0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
0bc0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e   "Unable to down
0bd0: 6c 6f 61 64 20 5c 22 24 75 72 6c 5c 22 3a 20 53  load \"$url\": S
0be0: 69 74 65 20 64 69 64 20 6e 6f 74 20 72 65 74 75  ite did not retu
0bf0: 72 6e 20 61 20 32 30 30 20 28 72 65 74 75 72 6e  rn a 200 (return
0c00: 65 64 20 24 74 6f 6b 65 6e 43 6f 64 65 29 22 0a  ed $tokenCode)".
0c10: 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 20 7b 21  ....}......if {!
0c20: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74  [info exists ret
0c30: 76 61 6c 5d 7d 20 7b 0a 09 09 09 09 09 72 65 74  val]} {......ret
0c40: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
0c50: 22 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c  "Unable to downl
0c60: 6f 61 64 20 5c 22 24 75 72 6c 5c 22 3a 20 53 69  oad \"$url\": Si
0c70: 74 65 20 64 69 64 20 6e 6f 74 20 72 65 74 75 72  te did not retur
0c80: 6e 20 70 72 6f 70 65 72 20 64 61 74 61 3a 20 24  n proper data: $
0c90: 65 72 72 22 0a 09 09 09 09 7d 0a 0a 09 09 09 09  err".....}......
0ca0: 72 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09  return $retval..
0cb0: 09 09 7d 0a 0a 09 09 7d 0a 0a 09 09 72 65 74 75  ..}....}....retu
0cc0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
0cd0: 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f  Unable to downlo
0ce0: 61 64 22 0a 09 7d 0a 7d 0a 0a 6e 61 6d 65 73 70  ad"..}.}..namesp
0cf0: 61 63 65 20 65 76 61 6c 20 3a 3a 61 70 70 66 73  ace eval ::appfs
0d00: 20 7b 0a 09 76 61 72 69 61 62 6c 65 20 63 61 63   {..variable cac
0d10: 68 65 64 69 72 20 22 2f 74 6d 70 2f 61 70 70 66  hedir "/tmp/appf
0d20: 73 2d 63 61 63 68 65 22 0a 09 76 61 72 69 61 62  s-cache"..variab
0d30: 6c 65 20 74 74 6c 20 33 36 30 30 0a 09 76 61 72  le ttl 3600..var
0d40: 69 61 62 6c 65 20 6e 74 74 6c 20 36 30 0a 09 76  iable nttl 60..v
0d50: 61 72 69 61 62 6c 65 20 74 72 75 73 74 65 64 5f  ariable trusted_
0d60: 63 61 73 20 5b 6c 69 73 74 5d 0a 09 76 61 72 69  cas [list]..vari
0d70: 61 62 6c 65 20 70 6c 61 74 66 6f 72 6d 20 5b 3a  able platform [:
0d80: 3a 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e 65 72  :platform::gener
0d90: 69 63 5d 0a 0a 09 70 72 6f 63 20 5f 68 61 73 68  ic]...proc _hash
0da0: 5f 73 65 70 20 7b 68 61 73 68 20 7b 73 65 70 73  _sep {hash {seps
0db0: 20 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b 73 65   4}} {...for {se
0dc0: 74 20 69 64 78 20 30 7d 20 7b 24 69 64 78 20 3c  t idx 0} {$idx <
0dd0: 20 24 73 65 70 73 7d 20 7b 69 6e 63 72 20 69 64   $seps} {incr id
0de0: 78 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 72  x} {....append r
0df0: 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72  etval "[string r
0e00: 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70 72  ange $hash [expr
0e10: 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b 65 78   {$idx * 2}] [ex
0e20: 70 72 20 7b 28 24 69 64 78 20 2a 20 32 29 20 2b  pr {($idx * 2) +
0e30: 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 61 70   1}]]/"...}...ap
0e40: 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b 73 74  pend retval "[st
0e50: 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61 73 68  ring range $hash
0e60: 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a 20 32   [expr {$idx * 2
0e70: 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65 74 75  }] end]"....retu
0e80: 72 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a 0a 09  rn $retval..}...
0e90: 70 72 6f 63 20 5f 63 61 63 68 65 66 69 6c 65 20  proc _cachefile 
0ea0: 7b 75 72 6c 20 6b 65 79 20 6d 65 74 68 6f 64 20  {url key method 
0eb0: 7b 6b 65 79 49 73 48 61 73 68 20 31 7d 7d 20 7b  {keyIsHash 1}} {
0ec0: 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73  ...if {$keyIsHas
0ed0: 68 20 26 26 20 24 6d 65 74 68 6f 64 20 21 3d 20  h && $method != 
0ee0: 22 73 68 61 31 22 7d 20 7b 0a 09 09 09 72 65 74  "sha1"} {....ret
0ef0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
0f00: 22 4f 6e 6c 79 20 53 48 41 31 20 68 61 73 68 69  "Only SHA1 hashi
0f10: 6e 67 20 6d 65 74 68 6f 64 20 69 73 20 73 75 70  ng method is sup
0f20: 70 6f 72 74 65 64 22 0a 09 09 7d 0a 0a 09 09 73  ported"...}....s
0f30: 65 74 20 66 69 6c 65 6b 65 79 20 24 6b 65 79 0a  et filekey $key.
0f40: 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73 68  ..if {$keyIsHash
0f50: 7d 20 7b 0a 09 09 09 73 65 74 20 66 69 6c 65 6b  } {....set filek
0f60: 65 79 20 5b 5f 68 61 73 68 5f 73 65 70 20 24 66  ey [_hash_sep $f
0f70: 69 6c 65 6b 65 79 5d 0a 09 09 7d 0a 0a 09 09 73  ilekey]...}....s
0f80: 65 74 20 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f  et file [file jo
0f90: 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63  in $::appfs::cac
0fa0: 68 65 64 69 72 20 24 66 69 6c 65 6b 65 79 5d 0a  hedir $filekey].
0fb0: 0a 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66  ...file mkdir [f
0fc0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69 6c  ile dirname $fil
0fd0: 65 5d 0a 0a 09 09 69 66 20 7b 5b 66 69 6c 65 20  e]....if {[file 
0fe0: 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b  exists $file]} {
0ff0: 0a 09 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65  ....return $file
1000: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 74 6d 70 66  ...}....set tmpf
1010: 69 6c 65 20 22 24 7b 66 69 6c 65 7d 2e 5b 65 78  ile "${file}.[ex
1020: 70 72 20 7b 72 61 6e 64 28 29 7d 5d 5b 63 6c 6f  pr {rand()}][clo
1030: 63 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 73  ck clicks]"....s
1040: 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 74 6d 70  et fd [open $tmp
1050: 66 69 6c 65 20 22 77 22 5d 0a 09 09 66 63 6f 6e  file "w"]...fcon
1060: 66 69 67 75 72 65 20 24 66 64 20 2d 74 72 61 6e  figure $fd -tran
1070: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 0a  slation binary..
1080: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 3a 3a 61  ..catch {....::a
1090: 70 70 66 73 3a 3a 75 73 65 72 3a 3a 64 6f 77 6e  ppfs::user::down
10a0: 6c 6f 61 64 5f 66 69 6c 65 20 24 75 72 6c 20 24  load_file $url $
10b0: 66 64 0a 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20  fd...}....close 
10c0: 24 66 64 0a 0a 09 09 69 66 20 7b 24 6b 65 79 49  $fd....if {$keyI
10d0: 73 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74 20  sHash} {....set 
10e0: 68 61 73 68 20 5b 73 74 72 69 6e 67 20 74 6f 6c  hash [string tol
10f0: 6f 77 65 72 20 5b 73 68 61 31 3a 3a 73 68 61 31  ower [sha1::sha1
1100: 20 2d 68 65 78 20 2d 66 69 6c 65 20 24 74 6d 70   -hex -file $tmp
1110: 66 69 6c 65 5d 5d 0a 09 09 7d 20 65 6c 73 65 20  file]]...} else 
1120: 7b 0a 09 09 09 73 65 74 20 68 61 73 68 20 24 6b  {....set hash $k
1130: 65 79 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 68  ey...}....if {$h
1140: 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b 0a 09  ash == $key} {..
1150: 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66  ..file rename -f
1160: 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65  orce -- $tmpfile
1170: 20 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73 65 20   $file...} else 
1180: 7b 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65  {....file delete
1190: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66   -force -- $tmpf
11a0: 69 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  ile...}....retur
11b0: 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09 70 72  n $file..}....pr
11c0: 6f 63 20 5f 69 73 48 61 73 68 20 7b 76 61 6c 75  oc _isHash {valu
11d0: 65 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c 75 65  e} {...set value
11e0: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
11f0: 20 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66 20 7b   $value]....if {
1200: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
1210: 76 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20 7b 0a  value] != 40} {.
1220: 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a  ...return false.
1230: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72 65 67  ..}....if {![reg
1240: 65 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d 2a 24  exp {^[0-9a-f]*$
1250: 7d 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09 09 09  } $value]} {....
1260: 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d  return false...}
1270: 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 0a  ....return true.
1280: 09 7d 0a 0a 09 70 72 6f 63 20 5f 76 65 72 69 66  .}...proc _verif
1290: 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65 72  ySignatureAndCer
12a0: 74 69 66 69 63 61 74 65 20 7b 68 6f 73 74 6e 61  tificate {hostna
12b0: 6d 65 20 63 65 72 74 69 66 69 63 61 74 65 20 73  me certificate s
12c0: 69 67 6e 61 74 75 72 65 20 68 61 73 68 7d 20 7b  ignature hash} {
12d0: 0a 09 09 73 65 74 20 63 65 72 74 69 66 69 63 61  ...set certifica
12e0: 74 65 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d 61  te [binary forma
12f0: 74 20 22 48 2a 22 20 24 63 65 72 74 69 66 69 63  t "H*" $certific
1300: 61 74 65 5d 0a 09 09 73 65 74 20 73 69 67 6e 61  ate]...set signa
1310: 74 75 72 65 20 20 20 5b 62 69 6e 61 72 79 20 66  ture   [binary f
1320: 6f 72 6d 61 74 20 22 48 2a 22 20 24 73 69 67 6e  ormat "H*" $sign
1330: 61 74 75 72 65 5d 0a 0a 09 09 73 65 74 20 63 65  ature]....set ce
1340: 72 74 69 66 69 63 61 74 65 20 5b 3a 3a 70 6b 69  rtificate [::pki
1350: 3a 3a 78 35 30 39 3a 3a 70 61 72 73 65 5f 63 65  ::x509::parse_ce
1360: 72 74 20 24 63 65 72 74 69 66 69 63 61 74 65 5d  rt $certificate]
1370: 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20 63 65  ....array set ce
1380: 72 74 69 66 69 63 61 74 65 5f 61 72 72 20 24 63  rtificate_arr $c
1390: 65 72 74 69 66 69 63 61 74 65 0a 09 09 73 65 74  ertificate...set
13a0: 20 63 65 72 74 69 66 69 63 61 74 65 5f 63 6e 20   certificate_cn 
13b0: 5b 3a 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a 5f 64  [::pki::x509::_d
13c0: 6e 5f 74 6f 5f 63 6e 20 24 63 65 72 74 69 66 69  n_to_cn $certifi
13d0: 63 61 74 65 5f 61 72 72 28 73 75 62 6a 65 63 74  cate_arr(subject
13e0: 29 5d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a 70 6b  )]....if {![::pk
13f0: 69 3a 3a 76 65 72 69 66 79 20 24 73 69 67 6e 61  i::verify $signa
1400: 74 75 72 65 20 22 24 68 61 73 68 2c 73 68 61 31  ture "$hash,sha1
1410: 22 20 24 63 65 72 74 69 66 69 63 61 74 65 5d 7d  " $certificate]}
1420: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c   {....return fal
1430: 73 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 73  se...}....if {[s
1440: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 63  tring tolower $c
1450: 65 72 74 69 66 69 63 61 74 65 5f 63 6e 5d 20 21  ertificate_cn] !
1460: 3d 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65  = [string tolowe
1470: 72 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b 0a  r $hostname]} {.
1480: 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a  ...return false.
1490: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a 70  ..}....if {![::p
14a0: 6b 69 3a 3a 78 35 30 39 3a 3a 76 65 72 69 66 79  ki::x509::verify
14b0: 5f 63 65 72 74 20 24 63 65 72 74 69 66 69 63 61  _cert $certifica
14c0: 74 65 20 24 3a 3a 61 70 70 66 73 3a 3a 74 72 75  te $::appfs::tru
14d0: 73 74 65 64 5f 63 61 73 5d 7d 20 7b 0a 09 09 09  sted_cas]} {....
14e0: 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d  return false...}
14f0: 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 0a  ....return true.
1500: 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61  .}...proc _norma
1510: 6c 69 7a 65 4f 53 20 7b 6f 73 20 7b 74 6f 6c 65  lizeOS {os {tole
1520: 72 61 6e 74 20 30 7d 7d 20 7b 0a 09 09 73 65 74  rant 0}} {...set
1530: 20 6f 73 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f   os [string tolo
1540: 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  wer [string trim
1550: 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69 74 63 68   $os]]....switch
1560: 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09 22 6c 69   -- $os {...."li
1570: 6e 75 78 22 20 2d 20 22 66 72 65 65 62 73 64 22  nux" - "freebsd"
1580: 20 2d 20 22 6f 70 65 6e 62 73 64 22 20 2d 20 22   - "openbsd" - "
1590: 6e 65 74 62 73 64 22 20 7b 0a 09 09 09 09 72 65  netbsd" {.....re
15a0: 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d 0a 09 09  turn $os....}...
15b0: 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09 09 09 72  ."sunos" {.....r
15c0: 65 74 75 72 6e 20 22 73 6f 6c 61 72 69 73 22 0a  eturn "solaris".
15d0: 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63 68 22  ...}...."noarch"
15e0: 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61 6e 79   - "none" - "any
15f0: 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09 09 09  " - "all" {.....
1600: 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68 22 0a  return "noarch".
1610: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  ...}...}....if {
1620: 24 74 6f 6c 65 72 61 6e 74 7d 20 7b 0a 09 09 09  $tolerant} {....
1630: 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 7d 0a 0a  return $os...}..
1640: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
1650: 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20  rror "Unable to 
1660: 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20 24 6f  normalize OS: $o
1670: 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f  s"..}...proc _no
1680: 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70 75 20  rmalizeCPU {cpu 
1690: 7b 74 6f 6c 65 72 61 6e 74 20 30 7d 7d 20 7b 0a  {tolerant 0}} {.
16a0: 09 09 73 65 74 20 63 70 75 20 5b 73 74 72 69 6e  ..set cpu [strin
16b0: 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e  g tolower [strin
16c0: 67 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a 0a 09  g trim $cpu]]...
16d0: 09 73 77 69 74 63 68 20 2d 67 6c 6f 62 20 2d 2d  .switch -glob --
16e0: 20 24 63 70 75 20 7b 0a 09 09 09 22 69 3f 38 36   $cpu {...."i?86
16f0: 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 22  " {.....return "
1700: 69 78 38 36 22 0a 09 09 09 7d 0a 09 09 09 22 78  ix86"....}...."x
1710: 38 36 5f 36 34 22 20 7b 0a 09 09 09 09 72 65 74  86_64" {.....ret
1720: 75 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a 09 09  urn $cpu....}...
1730: 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e 6f 6e  ."noarch" - "non
1740: 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22 61 6c  e" - "any" - "al
1750: 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  l" {.....return 
1760: 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a 09 09  "noarch"....}...
1770: 7d 0a 0a 09 09 69 66 20 7b 24 74 6f 6c 65 72 61  }....if {$tolera
1780: 6e 74 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  nt} {....return 
1790: 24 63 70 75 0a 09 09 7d 0a 0a 09 09 72 65 74 75  $cpu...}....retu
17a0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
17b0: 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d 61 6c  Unable to normal
17c0: 69 7a 65 20 43 50 55 3a 20 24 63 70 75 22 0a 09  ize CPU: $cpu"..
17d0: 7d 0a 0a 09 70 72 6f 63 20 5f 61 73 5f 75 73 65  }...proc _as_use
17e0: 72 20 7b 63 6f 64 65 7d 20 7b 0a 09 09 3a 3a 61  r {code} {...::a
17f0: 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74 65 5f  ppfsd::simulate_
1800: 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 0a 0a 09  user_fs_enter...
1810: 09 73 65 74 20 72 65 74 63 6f 64 65 20 5b 63 61  .set retcode [ca
1820: 74 63 68 20 5b 6c 69 73 74 20 75 70 6c 65 76 65  tch [list upleve
1830: 6c 20 24 63 6f 64 65 5d 20 72 65 74 73 74 72 5d  l $code] retstr]
1840: 0a 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a 73 69  ....::appfsd::si
1850: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c  mulate_user_fs_l
1860: 65 61 76 65 0a 0a 09 09 72 65 74 75 72 6e 20 2d  eave....return -
1870: 63 6f 64 65 20 24 72 65 74 63 6f 64 65 20 24 72  code $retcode $r
1880: 65 74 73 74 72 0a 09 7d 0a 0a 09 70 72 6f 63 20  etstr..}...proc 
1890: 69 6e 69 74 20 7b 7d 20 7b 0a 09 09 69 66 20 7b  init {} {...if {
18a0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61  [info exists ::a
18b0: 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c 65  ppfs::init_calle
18c0: 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 0a  d]} {....return.
18d0: 09 09 7d 0a 0a 09 09 23 20 46 6f 72 63 65 20 5b  ..}....# Force [
18e0: 70 61 72 72 61 79 5d 20 61 6e 64 20 5b 63 6c 6f  parray] and [clo
18f0: 63 6b 5d 20 74 6f 20 62 65 20 6c 6f 61 64 65 64  ck] to be loaded
1900: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 70 61  ...catch {....pa
1910: 72 72 61 79 20 64 6f 65 73 5f 6e 6f 74 5f 65 78  rray does_not_ex
1920: 69 73 74 0a 09 09 7d 0a 09 09 63 61 74 63 68 20  ist...}...catch 
1930: 7b 0a 09 09 09 63 6c 6f 63 6b 20 73 65 63 6f 6e  {....clock secon
1940: 64 73 0a 09 09 7d 0a 09 09 63 61 74 63 68 20 7b  ds...}...catch {
1950: 0a 09 09 09 63 6c 6f 63 6b 20 61 64 64 20 5b 63  ....clock add [c
1960: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 20 33 20  lock seconds] 3 
1970: 73 65 63 6f 6e 64 73 0a 09 09 7d 0a 0a 09 09 73  seconds...}....s
1980: 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74  et ::appfs::init
1990: 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 23 20 41  _called 1....# A
19a0: 64 64 20 61 20 64 65 66 61 75 6c 74 20 43 41 20  dd a default CA 
19b0: 74 6f 20 6c 69 73 74 20 6f 66 20 74 72 75 73 74  to list of trust
19c0: 65 64 20 43 41 73 0a 09 09 6c 61 70 70 65 6e 64  ed CAs...lappend
19d0: 20 3a 3a 61 70 70 66 73 3a 3a 74 72 75 73 74 65   ::appfs::truste
19e0: 64 5f 63 61 73 20 5b 3a 3a 70 6b 69 3a 3a 78 35  d_cas [::pki::x5
19f0: 30 39 3a 3a 70 61 72 73 65 5f 63 65 72 74 20 7b  09::parse_cert {
1a00: 0a 2d 2d 2d 2d 2d 42 45 47 49 4e 20 43 45 52 54  .-----BEGIN CERT
1a10: 49 46 49 43 41 54 45 2d 2d 2d 2d 2d 0a 4d 49 49  IFICATE-----.MII
1a20: 43 37 44 43 43 41 64 53 67 41 77 49 42 41 67 49  C7DCCAdSgAwIBAgI
1a30: 42 41 54 41 4e 42 67 6b 71 68 6b 69 47 39 77 30  BATANBgkqhkiG9w0
1a40: 42 41 51 55 46 41 44 41 76 4d 52 49 77 45 41 59  BAQUFADAvMRIwEAY
1a50: 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 0a 53 32  DVQQKEwlSb3kg.S2
1a60: 56 6c 62 6d 55 78 47 54 41 58 42 67 4e 56 42 41  VlbmUxGTAXBgNVBA
1a70: 4d 54 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53  MTEEFwcEZTIEtleS
1a80: 42 4e 59 58 4e 30 5a 58 49 77 48 68 63 4e 4d 54  BNYXN0ZXIwHhcNMT
1a90: 51 78 4d 54 45 33 4d 6a 41 78 4e 7a 49 34 0a 57  QxMTE3MjAxNzI4.W
1aa0: 68 63 4e 4d 54 6b 78 4d 54 45 33 4d 6a 41 78 4e  hcNMTkxMTE3MjAxN
1ab0: 7a 49 34 57 6a 41 76 4d 52 49 77 45 41 59 44 56  zI4WjAvMRIwEAYDV
1ac0: 51 51 4b 45 77 6c 53 62 33 6b 67 53 32 56 6c 62  QQKEwlSb3kgS2Vlb
1ad0: 6d 55 78 47 54 41 58 42 67 4e 56 42 41 4d 54 0a  mUxGTAXBgNVBAMT.
1ae0: 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53 42 4e  EEFwcEZTIEtleSBN
1af0: 59 58 4e 30 5a 58 49 77 67 67 45 69 4d 41 30 47  YXN0ZXIwggEiMA0G
1b00: 43 53 71 47 53 49 62 33 44 51 45 42 41 51 55 41  CSqGSIb3DQEBAQUA
1b10: 41 34 49 42 44 77 41 77 67 67 45 4b 41 6f 49 42  A4IBDwAwggEKAoIB
1b20: 0a 41 51 43 71 36 75 53 4b 34 36 79 47 35 62 36  .AQCq6uSK46yG5b6
1b30: 52 4a 57 77 52 6c 76 77 35 67 6c 41 6e 6a 73 63  RJWwRlvw5glAnjsc
1b40: 31 47 69 58 33 64 75 58 41 30 76 47 34 71 6e 4b  1GiX3duXA0vG4qnK
1b50: 55 6e 44 74 6c 2f 6a 63 4d 6d 71 32 47 4d 4f 42  UnDtl/jcMmq2GMOB
1b60: 39 0a 49 79 31 74 6a 61 62 45 48 41 30 4d 68 57  9.Iy1tjabEHA0MhW
1b70: 32 6a 37 56 77 65 2f 4f 39 4d 4c 46 4a 6b 4a 33  2j7Vwe/O9MLFJkJ3
1b80: 30 4d 31 50 56 44 37 59 5a 52 52 4e 61 41 73 7a  0M1PVD7YZRRNaAsz
1b90: 33 55 57 49 4b 45 6a 50 49 37 42 42 63 33 32 4b  3UWIKEjPI7BBc32K
1ba0: 4f 6d 0a 42 4c 33 43 54 58 43 43 64 7a 6c 6c 4c  Om.BL3CTXCCdzllL
1bb0: 31 48 68 56 62 6e 4d 35 69 43 41 6d 67 48 63 67  1HhVbnM5iCAmgHcg
1bc0: 31 44 55 6b 2f 45 76 57 58 76 6e 45 44 78 58 52  1DUk/EvWXvnEDxXR
1bd0: 79 32 6c 56 39 6d 51 73 6d 44 65 64 72 66 66 59  y2lV9mQsmDedrffY
1be0: 37 57 6c 0a 4f 72 35 37 6e 6c 63 7a 61 4d 75 50  7Wl.Or57nlczaMuP
1bf0: 4c 70 79 52 53 6b 76 37 35 50 41 6e 6a 51 4a 78  LpyRSkv75PAnjQJx
1c00: 54 33 73 57 6c 42 70 79 2b 2f 48 39 49 6d 75 64  T3sWlBpy+/H9Imud
1c10: 51 64 70 4a 4e 66 2f 46 74 78 63 71 4e 37 69 44  QdpJNf/FtxcqN7iD
1c20: 77 48 35 42 0a 76 49 63 65 59 45 74 44 56 78 46  wH5B.vIceYEtDVxF
1c30: 73 76 6f 35 48 4f 56 6b 53 6c 39 6a 65 6f 35 45  svo5HOVkSl9jeo5E
1c40: 34 47 70 65 33 77 79 66 52 68 6f 71 42 32 55 6b  4Gpe3wyfRhoqB2Uk
1c50: 61 57 31 4b 71 30 69 48 35 52 2b 30 30 53 37 36  aW1Kq0iH5R+00S76
1c60: 30 78 51 4d 78 0a 4c 4c 39 4c 31 64 75 68 75 31  0xQMx.LL9L1duhu1
1c70: 64 4c 37 48 73 6d 45 77 37 49 65 59 55 52 41 67  dL7HsmEw7IeYURAg
1c80: 4d 42 41 41 47 6a 45 7a 41 52 4d 41 38 47 41 31  MBAAGjEzARMA8GA1
1c90: 55 64 45 77 45 42 2f 77 51 46 4d 41 4d 42 41 66  UdEwEB/wQFMAMBAf
1ca0: 38 77 44 51 59 4a 0a 4b 6f 5a 49 68 76 63 4e 41  8wDQYJ.KoZIhvcNA
1cb0: 51 45 46 42 51 41 44 67 67 45 42 41 4b 68 4f 34  QEFBQADggEBAKhO4
1cc0: 5a 53 7a 59 50 33 37 42 71 69 78 4e 48 4b 4b 39  ZSzYP37BqixNHKK9
1cd0: 2b 67 53 65 43 36 46 67 61 38 35 69 4c 57 68 77  +gSeC6Fga85iLWhw
1ce0: 70 50 57 30 6b 53 6c 0a 7a 30 33 68 61 6c 38 30  pPW0kSl.z03hal80
1cf0: 4b 5a 2b 6b 50 4d 7a 62 38 43 35 32 4e 32 38 33  KZ+kPMzb8C52N283
1d00: 74 51 4e 41 71 4a 39 51 38 61 6b 44 50 5a 78 53  tQNAqJ9Q8akDPZxS
1d10: 7a 7a 4d 55 56 4f 47 70 47 77 32 70 4a 37 5a 73  zzMUVOGpGw2pJ7Zs
1d20: 77 4b 44 7a 30 5a 54 61 0a 30 65 64 71 2f 67 64  wKDz0ZTa.0edq/gd
1d30: 54 2f 48 72 64 65 67 76 4e 74 44 50 63 32 6a 6f  T/HrdegvNtDPc2jo
1d40: 6e 61 35 46 56 4f 59 71 77 64 63 7a 35 6b 62 6c  na5FVOYqwdcz5kbl
1d50: 31 55 57 42 61 42 70 33 56 58 55 67 63 59 6a 58  1UWBaBp3VXUgcYjX
1d60: 53 52 61 42 4b 34 33 57 64 0a 63 76 65 69 44 55  SRaBK43Wd.cveiDU
1d70: 65 5a 77 37 67 48 71 52 53 4e 2f 41 79 59 55 43  eZw7gHqRSN/AyYUC
1d80: 74 4a 7a 57 6d 76 47 73 4a 75 49 46 68 4d 42 6f  tJzWmvGsJuIFhMBo
1d90: 6e 75 7a 38 6a 79 6c 68 79 4d 4a 43 59 4a 46 54  nuz8jylhyMJCYJFT
1da0: 34 69 4d 55 43 38 4d 4e 49 77 0a 6e 69 58 31 78  4iMUC8MNIw.niX1x
1db0: 78 2b 4e 75 36 66 50 56 35 5a 5a 48 6a 39 72 62  x+Nu6fPV5ZZHj9rb
1dc0: 68 69 42 61 4c 6a 6d 2b 74 6b 44 77 74 50 67 41  hiBaLjm+tkDwtPgA
1dd0: 33 6a 32 70 78 76 48 4b 59 70 74 75 57 78 65 59  3j2pxvHKYptuWxeY
1de0: 4f 2b 39 44 44 4e 61 39 73 43 62 0a 45 35 41 6e  O+9DDNa9sCb.E5An
1df0: 4a 49 6c 4f 6e 64 2f 74 47 65 30 43 68 66 30 73  JIlOnd/tGe0Chf0s
1e00: 46 51 67 2b 6c 39 6e 4e 69 4e 72 57 47 67 7a 64  FQg+l9nNiNrWGgzd
1e10: 64 39 5a 50 4a 4b 34 3d 0a 2d 2d 2d 2d 2d 45 4e  d9ZPJK4=.-----EN
1e20: 44 20 43 45 52 54 49 46 49 43 41 54 45 2d 2d 2d  D CERTIFICATE---
1e30: 2d 2d 0a 7d 5d 0a 0a 09 09 23 20 4c 6f 61 64 20  --.}]....# Load 
1e40: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 69  configuration fi
1e50: 6c 65 0a 09 09 73 65 74 20 63 6f 6e 66 69 67 5f  le...set config_
1e60: 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  file [file join 
1e70: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
1e80: 69 72 20 63 6f 6e 66 69 67 5d 0a 09 09 69 66 20  ir config]...if 
1e90: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 63  {[file exists $c
1ea0: 6f 6e 66 69 67 5f 66 69 6c 65 5d 7d 20 7b 0a 09  onfig_file]} {..
1eb0: 09 09 73 6f 75 72 63 65 20 24 63 6f 6e 66 69 67  ..source $config
1ec0: 5f 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 69 66 20  _file...}....if 
1ed0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
1ee0: 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09  :appfs::db]} {..
1ef0: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a  ..file mkdir $::
1f00: 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72 0a  appfs::cachedir.
1f10: 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a 61 70  ....sqlite3 ::ap
1f20: 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f  pfs::db [file jo
1f30: 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63  in $::appfs::cac
1f40: 68 65 64 69 72 20 63 61 63 68 65 2e 64 62 5d 0a  hedir cache.db].
1f50: 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20  ....::appfs::db 
1f60: 74 69 6d 65 6f 75 74 20 33 30 30 30 30 0a 09 09  timeout 30000...
1f70: 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 61  }....# Create ta
1f80: 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c 20 7b  bles...db eval {
1f90: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
1fa0: 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73  NOT EXISTS sites
1fb0: 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41 52  (hostname PRIMAR
1fc0: 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61 74  Y KEY, lastUpdat
1fd0: 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62 20 65  e, ttl);}...db e
1fe0: 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c  val {CREATE TABL
1ff0: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  E IF NOT EXISTS 
2000: 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61 6d  packages(hostnam
2010: 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67 65  e, sha1, package
2020: 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63  , version, os, c
2030: 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73 74  puArch, isLatest
2040: 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29 3b  , haveManifest);
2050: 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45  }...db eval {CRE
2060: 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54  ATE TABLE IF NOT
2070: 20 45 58 49 53 54 53 20 66 69 6c 65 73 28 70 61   EXISTS files(pa
2080: 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 70 65  ckage_sha1, type
2090: 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20  , time, source, 
20a0: 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c  size, perms, fil
20b0: 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d  e_sha1, file_nam
20c0: 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 6f 72  e, file_director
20d0: 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61 74 65  y);}....# Create
20e0: 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20 65 76   indexes...db ev
20f0: 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 45 58  al {CREATE INDEX
2100: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73   IF NOT EXISTS s
2110: 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20 73 69  ites_index ON si
2120: 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29 3b 7d  tes (hostname);}
2130: 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41  ...db eval {CREA
2140: 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20  TE INDEX IF NOT 
2150: 45 58 49 53 54 53 20 70 61 63 6b 61 67 65 73 5f  EXISTS packages_
2160: 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61 67 65  index ON package
2170: 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68 61  s (hostname, sha
2180: 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73  1, package, vers
2190: 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68  ion, os, cpuArch
21a0: 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43  );}...db eval {C
21b0: 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e  REATE INDEX IF N
21c0: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 5f  OT EXISTS files_
21d0: 69 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20 28  index ON files (
21e0: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66 69  package_sha1, fi
21f0: 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69  le_name, file_di
2200: 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a 09  rectory);}..}...
2210: 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b 68  proc download {h
2220: 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d 65  ostname hash {me
2230: 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09 09  thod sha1}} {...
2240: 73 65 74 20 75 72 6c 20 5b 3a 3a 61 70 70 66 73  set url [::appfs
2250: 3a 3a 75 73 65 72 3a 3a 63 6f 6e 73 74 72 75 63  ::user::construc
2260: 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d 65 20  t_url $hostname 
2270: 24 68 61 73 68 20 24 6d 65 74 68 6f 64 5d 0a 09  $hash $method]..
2280: 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68  .set file [_cach
2290: 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68  efile $url $hash
22a0: 20 24 6d 65 74 68 6f 64 5d 0a 0a 09 09 69 66 20   $method]....if 
22b0: 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24  {![file exists $
22c0: 66 69 6c 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75  file]} {....retu
22d0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
22e0: 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68 20  Unable to fetch 
22f0: 28 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65  (file does not e
2300: 78 69 73 74 3a 20 24 66 69 6c 65 29 22 0a 09 09  xist: $file)"...
2310: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c  }....return $fil
2320: 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 69  e..}...proc geti
2330: 6e 64 65 78 20 7b 68 6f 73 74 6e 61 6d 65 7d 20  ndex {hostname} 
2340: 7b 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20  {...if {[string 
2350: 6d 61 74 63 68 20 22 2a 5c 5b 2f 7e 5c 5d 2a 22  match "*\[/~\]*"
2360: 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 7b 0a 09   $hostname]} {..
2370: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
2380: 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 68 6f  rror "Invalid ho
2390: 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73  stname"...}....s
23a0: 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65  et now [clock se
23b0: 63 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c 61  conds]....set la
23c0: 73 74 55 70 64 61 74 65 73 20 5b 64 62 20 65 76  stUpdates [db ev
23d0: 61 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74 55  al {SELECT lastU
23e0: 70 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d 20  pdate, ttl FROM 
23f0: 73 69 74 65 73 20 57 48 45 52 45 20 68 6f 73 74  sites WHERE host
2400: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
2410: 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69 66   LIMIT 1;}]...if
2420: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73 74   {[llength $last
2430: 55 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20 7b  Updates] == 0} {
2440: 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70 64 61  ....set lastUpda
2450: 74 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c 20  te 0....set ttl 
2460: 30 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  0...} else {....
2470: 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 5b  set lastUpdate [
2480: 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61  lindex $lastUpda
2490: 74 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74 74  tes 0]....set tt
24a0: 6c 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55  l [lindex $lastU
24b0: 70 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a 09  pdates 1]...}...
24c0: 09 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c 61  .if {$now < ($la
24d0: 73 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c 29  stUpdate + $ttl)
24e0: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f  } {....return CO
24f0: 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 73 65  MPLETE...}....se
2500: 74 20 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24 68  t url "http://$h
2510: 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73 2f 69 6e  ostname/appfs/in
2520: 64 65 78 22 0a 0a 09 09 63 61 74 63 68 20 7b 0a  dex"....catch {.
2530: 09 09 09 73 65 74 20 69 6e 64 65 78 68 61 73 68  ...set indexhash
2540: 5f 64 61 74 61 20 5b 3a 3a 61 70 70 66 73 3a 3a  _data [::appfs::
2550: 75 73 65 72 3a 3a 64 6f 77 6e 6c 6f 61 64 5f 66  user::download_f
2560: 69 6c 65 20 24 75 72 6c 5d 0a 09 09 7d 0a 0a 09  ile $url]...}...
2570: 09 23 20 4e 6f 74 65 20 74 68 61 74 20 77 65 20  .# Note that we 
2580: 61 74 74 65 6d 70 74 65 64 20 74 6f 20 66 65 74  attempted to fet
2590: 63 68 20 74 68 69 73 20 69 6e 64 65 78 20 61 6e  ch this index an
25a0: 64 20 64 6f 20 6e 6f 74 20 74 72 79 0a 09 09 23  d do not try...#
25b0: 20 61 67 61 69 6e 20 66 6f 72 20 61 20 77 68 69   again for a whi
25c0: 6c 65 0a 09 09 64 62 20 65 76 61 6c 20 7b 49 4e  le...db eval {IN
25d0: 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45 20  SERT OR REPLACE 
25e0: 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73 74  INTO sites (host
25f0: 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74 65  name, lastUpdate
2600: 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28 24  , ttl) VALUES ($
2610: 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20  hostname, $now, 
2620: 24 3a 3a 61 70 70 66 73 3a 3a 6e 74 74 6c 29 3b  $::appfs::nttl);
2630: 7d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20  }....if {![info 
2640: 65 78 69 73 74 73 20 69 6e 64 65 78 68 61 73 68  exists indexhash
2650: 5f 64 61 74 61 5d 7d 20 7b 0a 09 09 09 72 65 74  _data]} {....ret
2660: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
2670: 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68  "Unable to fetch
2680: 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73 65   $url"...}....se
2690: 74 20 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61  t indexhash_data
26a0: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 69   [string trim $i
26b0: 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 22 5c  ndexhash_data "\
26c0: 72 5c 6e 22 5d 0a 09 09 73 65 74 20 69 6e 64 65  r\n"]...set inde
26d0: 78 68 61 73 68 5f 64 61 74 61 20 5b 73 70 6c 69  xhash_data [spli
26e0: 74 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61 74  t $indexhash_dat
26f0: 61 20 22 2c 22 5d 0a 09 09 73 65 74 20 69 6e 64  a ","]...set ind
2700: 65 78 68 61 73 68 20 20 20 20 20 20 20 5b 6c 69  exhash       [li
2710: 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73 68 5f  ndex $indexhash_
2720: 64 61 74 61 20 30 5d 0a 09 09 73 65 74 20 69 6e  data 0]...set in
2730: 64 65 78 68 61 73 68 6d 65 74 68 6f 64 20 5b 6c  dexhashmethod [l
2740: 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73 68  index $indexhash
2750: 5f 64 61 74 61 20 31 5d 0a 09 09 73 65 74 20 69  _data 1]...set i
2760: 6e 64 65 78 68 61 73 68 63 65 72 74 20 20 20 5b  ndexhashcert   [
2770: 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61 73  lindex $indexhas
2780: 68 5f 64 61 74 61 20 32 5d 0a 09 09 73 65 74 20  h_data 2]...set 
2790: 69 6e 64 65 78 68 61 73 68 73 69 67 20 20 20 20  indexhashsig    
27a0: 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 61  [lindex $indexha
27b0: 73 68 5f 64 61 74 61 20 33 5d 0a 0a 09 09 69 66  sh_data 3]....if
27c0: 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 69 6e 64   {![_isHash $ind
27d0: 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09 09 72 65  exhash]} {....re
27e0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
27f0: 20 22 49 6e 76 61 6c 69 64 20 68 61 73 68 3a 20   "Invalid hash: 
2800: 24 69 6e 64 65 78 68 61 73 68 22 0a 09 09 7d 0a  $indexhash"...}.
2810: 0a 09 09 69 66 20 7b 21 5b 5f 76 65 72 69 66 79  ...if {![_verify
2820: 53 69 67 6e 61 74 75 72 65 41 6e 64 43 65 72 74  SignatureAndCert
2830: 69 66 69 63 61 74 65 20 24 68 6f 73 74 6e 61 6d  ificate $hostnam
2840: 65 20 24 69 6e 64 65 78 68 61 73 68 63 65 72 74  e $indexhashcert
2850: 20 24 69 6e 64 65 78 68 61 73 68 73 69 67 20 24   $indexhashsig $
2860: 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09 09  indexhash]} {...
2870: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
2880: 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 73 69 67  ror "Invalid sig
2890: 6e 61 74 75 72 65 20 6f 72 20 63 65 72 74 69 66  nature or certif
28a0: 69 63 61 74 65 20 66 72 6f 6d 20 24 68 6f 73 74  icate from $host
28b0: 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74  name"...}....set
28c0: 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20   file [download 
28d0: 24 68 6f 73 74 6e 61 6d 65 20 24 69 6e 64 65 78  $hostname $index
28e0: 68 61 73 68 5d 0a 09 09 63 61 74 63 68 20 7b 0a  hash]...catch {.
28f0: 09 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e 20  ...set fd [open 
2900: 24 66 69 6c 65 5d 0a 09 09 7d 0a 0a 09 09 69 66  $file]...}....if
2910: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
2920: 66 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  fd]} {....return
2930: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e   -code error "Un
2940: 61 62 6c 65 20 74 6f 20 64 6f 77 6e 6c 6f 61 64  able to download
2950: 20 6f 72 20 6f 70 65 6e 20 24 66 69 6c 65 22 0a   or open $file".
2960: 09 09 7d 0a 0a 09 09 75 6e 73 65 74 20 2d 6e 6f  ..}....unset -no
2970: 63 6f 6d 70 6c 61 69 6e 20 64 61 74 61 0a 09 09  complain data...
2980: 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 64  catch {....set d
2990: 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09  ata [read $fd]..
29a0: 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a  .}....close $fd.
29b0: 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61 63 6b  ...set curr_pack
29c0: 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 66 6f  ages [list]...fo
29d0: 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69  reach line [spli
29e0: 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a  t $data "\n"] {.
29f0: 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 72  ...set line [str
2a00: 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a  ing trim $line].
2a10: 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20  ....if {[string 
2a20: 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69 6e  match "*/*" $lin
2a30: 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  e]} {.....contin
2a40: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b  ue....}.....if {
2a50: 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09  $line == ""} {..
2a60: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d  ...continue....}
2a70: 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73  .....set work [s
2a80: 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a  plit $line ","].
2a90: 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
2aa0: 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a 09 09  plain pkgInfo...
2ab0: 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09  .if {[catch {...
2ac0: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 70 61  ..set pkgInfo(pa
2ad0: 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65 78 20  ckage)  [lindex 
2ae0: 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65 74  $work 0].....set
2af0: 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f 6e   pkgInfo(version
2b00: 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  )  [lindex $work
2b10: 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b 67 49   1].....set pkgI
2b20: 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20 5b 5f  nfo(os)       [_
2b30: 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c 69 6e  normalizeOS [lin
2b40: 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a 09 09  dex $work 2]]...
2b50: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 63 70  ..set pkgInfo(cp
2b60: 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d 61 6c  uArch)  [_normal
2b70: 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78 20 24  izeCPU [lindex $
2b80: 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73 65 74  work 3]].....set
2b90: 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 20 20   pkgInfo(hash)  
2ba0: 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77     [string tolow
2bb0: 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  er [lindex $work
2bc0: 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67   4]].....set pkg
2bd0: 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65 29 20  Info(hash_type) 
2be0: 22 73 68 61 31 22 0a 09 09 09 09 73 65 74 20 70  "sha1".....set p
2bf0: 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29  kgInfo(isLatest)
2c00: 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e 64 65   [expr {!![linde
2c10: 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09 09 09  x $work 5]}]....
2c20: 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  }]} {.....contin
2c30: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b  ue....}.....if {
2c40: 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67 49 6e  ![_isHash $pkgIn
2c50: 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09 09 09  fo(hash)]} {....
2c60: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a  .continue....}..
2c70: 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72 72 5f  ...lappend curr_
2c80: 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e 66  packages $pkgInf
2c90: 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20 44 6f  o(hash).....# Do
2ca0: 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64 64 69   not do any addi
2cb0: 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66 20 77  tional work if w
2cc0: 65 20 61 6c 72 65 61 64 79 20 68 61 76 65 20 74  e already have t
2cd0: 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09 09 73  his package....s
2ce0: 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61 63 6b  et existing_pack
2cf0: 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53  ages [db eval {S
2d00: 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20 46 52  ELECT package FR
2d10: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
2d20: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f  E hostname = $ho
2d30: 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31 20  stname AND sha1 
2d40: 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29  = $pkgInfo(hash)
2d50: 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73 65 61  ;}]....if {[lsea
2d60: 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 69 73  rch -exact $exis
2d70: 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 24 70  ting_packages $p
2d80: 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 5d  kgInfo(package)]
2d90: 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 63 6f   != -1} {.....co
2da0: 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09  ntinue....}.....
2db0: 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69 73 4c  if {$pkgInfo(isL
2dc0: 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09 64 62  atest)} {.....db
2dd0: 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61   eval {UPDATE pa
2de0: 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c 61 74  ckages SET isLat
2df0: 65 73 74 20 3d 20 30 20 57 48 45 52 45 20 68 6f  est = 0 WHERE ho
2e00: 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61  stname = $hostna
2e10: 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  me AND package =
2e20: 20 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67   $pkgInfo(packag
2e30: 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 6b 67  e) AND os = $pkg
2e40: 49 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75  Info(os) AND cpu
2e50: 41 72 63 68 20 3d 20 24 70 6b 67 49 6e 66 6f 28  Arch = $pkgInfo(
2e60: 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 09 7d 0a  cpuArch);}....}.
2e70: 0a 09 09 09 64 62 20 65 76 61 6c 20 7b 49 4e 53  ....db eval {INS
2e80: 45 52 54 20 49 4e 54 4f 20 70 61 63 6b 61 67 65  ERT INTO package
2e90: 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 68 61  s (hostname, sha
2ea0: 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73  1, package, vers
2eb0: 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68  ion, os, cpuArch
2ec0: 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61 76 65  , isLatest, have
2ed0: 4d 61 6e 69 66 65 73 74 29 20 56 41 4c 55 45 53  Manifest) VALUES
2ee0: 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 70 6b   ($hostname, $pk
2ef0: 67 49 6e 66 6f 28 68 61 73 68 29 2c 20 24 70 6b  gInfo(hash), $pk
2f00: 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 2c 20  gInfo(package), 
2f10: 24 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f 6e  $pkgInfo(version
2f20: 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f 73 29 2c  ), $pkgInfo(os),
2f30: 20 24 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63   $pkgInfo(cpuArc
2f40: 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 69 73 4c  h), $pkgInfo(isL
2f50: 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a 09 09 7d  atest), 0);}...}
2f60: 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f 72 20 70  ....# Look for p
2f70: 61 63 6b 61 67 65 73 20 74 68 61 74 20 68 61 76  ackages that hav
2f80: 65 20 62 65 65 6e 20 64 65 6c 65 74 65 64 0a 09  e been deleted..
2f90: 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61  .set found_packa
2fa0: 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53 45  ges [db eval {SE
2fb0: 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20 70  LECT sha1 FROM p
2fc0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
2fd0: 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61  stname = $hostna
2fe0: 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61 63 68 20  me;}]...foreach 
2ff0: 70 61 63 6b 61 67 65 20 24 66 6f 75 6e 64 5f 70  package $found_p
3000: 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 73 65 74  ackages {....set
3010: 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f   found_packages_
3020: 61 72 72 28 24 70 61 63 6b 61 67 65 29 20 31 0a  arr($package) 1.
3030: 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20 70  ..}....foreach p
3040: 61 63 6b 61 67 65 20 24 63 75 72 72 5f 70 61 63  ackage $curr_pac
3050: 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e 73 65 74  kages {....unset
3060: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 6f 75   -nocomplain fou
3070: 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72 28  nd_packages_arr(
3080: 24 70 61 63 6b 61 67 65 29 0a 09 09 7d 0a 0a 09  $package)...}...
3090: 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65  .foreach package
30a0: 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66 6f   [array names fo
30b0: 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61 72 72  und_packages_arr
30c0: 5d 20 7b 0a 09 09 09 64 62 20 65 76 61 6c 20 7b  ] {....db eval {
30d0: 44 45 4c 45 54 45 20 46 52 4f 4d 20 70 61 63 6b  DELETE FROM pack
30e0: 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e  ages WHERE hostn
30f0: 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20  ame = $hostname 
3100: 41 4e 44 20 73 68 61 31 20 3d 20 24 70 61 63 6b  AND sha1 = $pack
3110: 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09 64 62 20  age;}...}....db 
3120: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20  eval {INSERT OR 
3130: 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69 74  REPLACE INTO sit
3140: 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61  es (hostname, la
3150: 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20 56  stUpdate, ttl) V
3160: 41 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65  ALUES ($hostname
3170: 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73  , $now, $::appfs
3180: 3a 3a 74 74 6c 29 3b 7d 0a 0a 09 09 61 70 70 66  ::ttl);}....appf
3190: 73 64 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e 66  sd::get_path_inf
31a0: 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 0a 0a 09  o_cache_flush...
31b0: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
31c0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 70 6b  ..}...proc getpk
31d0: 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f 73 74 6e  gmanifest {hostn
31e0: 61 6d 65 20 70 61 63 6b 61 67 65 5f 73 68 61 31  ame package_sha1
31f0: 7d 20 7b 0a 09 09 73 65 74 20 68 61 76 65 4d 61  } {...set haveMa
3200: 6e 69 66 65 73 74 20 5b 64 62 20 6f 6e 65 63 6f  nifest [db oneco
3210: 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 68 61 76  lumn {SELECT hav
3220: 65 4d 61 6e 69 66 65 73 74 20 46 52 4f 4d 20 70  eManifest FROM p
3230: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 73 68  ackages WHERE sh
3240: 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73 68  a1 = $package_sh
3250: 61 31 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 0a 09  a1 LIMIT 1;}]...
3260: 09 69 66 20 7b 24 68 61 76 65 4d 61 6e 69 66 65  .if {$haveManife
3270: 73 74 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09  st == "1"} {....
3280: 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a  return COMPLETE.
3290: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73  ..}....if {![_is
32a0: 48 61 73 68 20 24 70 61 63 6b 61 67 65 5f 73 68  Hash $package_sh
32b0: 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  a1]} {....return
32c0: 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65 74   FAIL...}....set
32d0: 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20   file [download 
32e0: 24 68 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b 61  $hostname $packa
32f0: 67 65 5f 73 68 61 31 5d 0a 0a 09 09 63 61 74 63  ge_sha1]....catc
3300: 68 20 7b 0a 09 09 09 73 65 74 20 66 64 20 5b 6f  h {....set fd [o
3310: 70 65 6e 20 24 66 69 6c 65 5d 0a 09 09 7d 0a 0a  pen $file]...}..
3320: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69  ..if {![info exi
3330: 73 74 73 20 66 64 5d 7d 20 7b 0a 09 09 09 72 65  sts fd]} {....re
3340: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
3350: 20 22 55 6e 61 62 6c 65 20 74 6f 20 64 6f 77 6e   "Unable to down
3360: 6c 6f 61 64 20 6f 72 20 6f 70 65 6e 20 24 66 69  load or open $fi
3370: 6c 65 22 0a 09 09 7d 0a 0a 09 09 63 61 74 63 68  le"...}....catch
3380: 20 7b 0a 09 09 09 73 65 74 20 70 6b 67 64 61 74   {....set pkgdat
3390: 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 7d  a [read $fd]...}
33a0: 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09  ....close $fd...
33b0: 09 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  .db transaction 
33c0: 7b 0a 09 09 09 66 6f 72 65 61 63 68 20 6c 69 6e  {....foreach lin
33d0: 65 20 5b 73 70 6c 69 74 20 24 70 6b 67 64 61 74  e [split $pkgdat
33e0: 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 09 73 65  a "\n"] {.....se
33f0: 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74  t line [string t
3400: 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 09  rim $line]......
3410: 69 66 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d  if {$line == ""}
3420: 20 7b 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75 65   {......continue
3430: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20  .....}......set 
3440: 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 6c 69 6e  work [split $lin
3450: 65 20 22 2c 22 5d 0a 0a 09 09 09 09 75 6e 73 65  e ","]......unse
3460: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69  t -nocomplain fi
3470: 6c 65 49 6e 66 6f 0a 09 09 09 09 73 65 74 20 66  leInfo.....set f
3480: 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 5b 6c  ileInfo(type) [l
3490: 69 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09  index $work 0]..
34a0: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28  ...set fileInfo(
34b0: 74 69 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 77  time) [lindex $w
34c0: 6f 72 6b 20 31 5d 0a 0a 09 09 09 09 73 65 74 20  ork 1]......set 
34d0: 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f  work [lrange $wo
34e0: 72 6b 20 32 20 65 6e 64 5d 0a 09 09 09 09 73 77  rk 2 end].....sw
34f0: 69 74 63 68 20 2d 2d 20 24 66 69 6c 65 49 6e 66  itch -- $fileInf
3500: 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09 22  o(type) {......"
3510: 23 6d 61 6e 69 66 65 73 74 6d 65 74 61 64 61 74  #manifestmetadat
3520: 61 22 20 7b 0a 09 09 09 09 09 09 75 6e 73 65 74  a" {.......unset
3530: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 6c   -nocomplain fil
3540: 65 49 6e 66 6f 0a 09 09 09 09 09 09 63 6f 6e 74  eInfo.......cont
3550: 69 6e 75 65 0a 09 09 09 09 09 7d 0a 09 09 09 09  inue......}.....
3560: 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09 09  ."file" {.......
3570: 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 69 7a  set fileInfo(siz
3580: 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  e) [lindex $work
3590: 20 30 5d 0a 0a 09 09 09 09 09 09 23 20 57 65 20   0]........# We 
35a0: 6c 6f 77 65 72 2d 63 61 73 65 20 74 68 65 20 70  lower-case the p
35b0: 65 72 6d 69 73 73 69 6f 6e 73 20 62 65 63 61 75  ermissions becau
35c0: 73 65 20 75 70 70 65 72 2d 63 61 73 65 20 70 65  se upper-case pe
35d0: 72 6d 69 73 73 69 6f 6e 73 0a 09 09 09 09 09 09  rmissions.......
35e0: 23 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20  # should not be 
35f0: 73 65 74 20 72 65 6d 6f 74 65 6c 79 20 61 73 20  set remotely as 
3600: 74 68 65 79 20 6d 61 79 20 69 6e 66 6c 75 65 6e  they may influen
3610: 63 65 20 74 68 65 20 73 65 63 75 72 69 74 79 0a  ce the security.
3620: 09 09 09 09 09 09 23 20 6f 66 20 74 68 65 20 73  ......# of the s
3630: 79 73 74 65 6d 2e 0a 09 09 09 09 09 09 73 65 74  ystem........set
3640: 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29   fileInfo(perms)
3650: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
3660: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31   [lindex $work 1
3670: 5d 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 66 69  ]]........set fi
3680: 6c 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69  leInfo(sha1) [li
3690: 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09  ndex $work 2]...
36a0: 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c  .....set work [l
36b0: 72 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65 6e  range $work 3 en
36c0: 64 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22  d]......}......"
36d0: 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09  symlink" {......
36e0: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f  .set fileInfo(so
36f0: 75 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77  urce) [lindex $w
3700: 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74  ork 0].......set
3710: 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77   work [lrange $w
3720: 6f 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09 09  ork 1 end]......
3730: 7d 0a 09 09 09 09 09 22 64 69 72 65 63 74 6f 72  }......"director
3740: 79 22 20 7b 0a 09 09 09 09 09 09 23 20 4e 6f 20  y" {.......# No 
3750: 65 78 74 72 61 20 64 61 74 61 20 72 65 71 75 69  extra data requi
3760: 72 65 64 0a 09 09 09 09 09 7d 0a 09 09 09 09 09  red......}......
3770: 64 65 66 61 75 6c 74 20 7b 0a 09 09 09 09 09 09  default {.......
3780: 23 20 48 61 6e 64 6c 65 20 75 6e 6b 6e 6f 77 6e  # Handle unknown
3790: 20 74 79 70 65 73 0a 09 09 09 09 09 09 69 66 20   types.......if 
37a0: 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24  {[string index $
37b0: 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 30  fileInfo(type) 0
37c0: 5d 20 3d 3d 20 22 23 22 7d 20 7b 0a 09 09 09 09  ] == "#"} {.....
37d0: 09 09 09 23 20 4d 65 74 61 64 61 74 61 20 74 79  ...# Metadata ty
37e0: 70 65 2c 20 69 67 6e 6f 72 65 0a 09 09 09 09 09  pe, ignore......
37f0: 09 09 23 20 69 74 20 69 66 20 77 65 20 64 6f 6e  ..# it if we don
3800: 27 74 0a 09 09 09 09 09 09 09 23 20 75 6e 64 65  't........# unde
3810: 72 73 74 61 6e 64 20 74 68 69 73 20 74 79 70 65  rstand this type
3820: 0a 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65  ........continue
3830: 0a 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a  .......} else {.
3840: 09 09 09 09 09 09 09 23 20 55 6e 6b 6e 6f 77 6e  .......# Unknown
3850: 20 74 79 70 65 2c 0a 09 09 09 09 09 09 09 23 20   type,........# 
3860: 67 65 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f  generate an erro
3870: 72 0a 09 09 09 09 09 09 09 65 72 72 6f 72 20 22  r........error "
3880: 4d 61 6e 69 66 65 73 74 20 63 61 6e 6e 6f 74 20  Manifest cannot 
3890: 62 65 20 70 61 72 73 65 64 22 0a 09 09 09 09 09  be parsed"......
38a0: 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a  .}......}.....}.
38b0: 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
38c0: 6f 28 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 24 77  o(name) [join $w
38d0: 6f 72 6b 20 22 2c 22 5d 0a 09 09 09 09 73 65 74  ork ","].....set
38e0: 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20   fileInfo(name) 
38f0: 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74  [split [string t
3900: 72 69 6d 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61  rim $fileInfo(na
3910: 6d 65 29 20 22 2f 22 5d 20 22 2f 22 5d 0a 09 09  me) "/"] "/"]...
3920: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 64  ..set fileInfo(d
3930: 69 72 65 63 74 6f 72 79 29 20 5b 6a 6f 69 6e 20  irectory) [join 
3940: 5b 6c 72 61 6e 67 65 20 24 66 69 6c 65 49 6e 66  [lrange $fileInf
3950: 6f 28 6e 61 6d 65 29 20 30 20 65 6e 64 2d 31 5d  o(name) 0 end-1]
3960: 20 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69   "/"].....set fi
3970: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c 69  leInfo(name) [li
3980: 6e 64 65 78 20 24 66 69 6c 65 49 6e 66 6f 28 6e  ndex $fileInfo(n
3990: 61 6d 65 29 20 65 6e 64 5d 0a 0a 09 09 09 09 64  ame) end]......d
39a0: 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49  b eval {INSERT I
39b0: 4e 54 4f 20 66 69 6c 65 73 20 28 70 61 63 6b 61  NTO files (packa
39c0: 67 65 5f 73 68 61 31 2c 20 74 79 70 65 2c 20 74  ge_sha1, type, t
39d0: 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a  ime, source, siz
39e0: 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73  e, perms, file_s
39f0: 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20  ha1, file_name, 
3a00: 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 29 20  file_directory) 
3a10: 56 41 4c 55 45 53 20 28 24 70 61 63 6b 61 67 65  VALUES ($package
3a20: 5f 73 68 61 31 2c 20 24 66 69 6c 65 49 6e 66 6f  _sha1, $fileInfo
3a30: 28 74 79 70 65 29 2c 20 24 66 69 6c 65 49 6e 66  (type), $fileInf
3a40: 6f 28 74 69 6d 65 29 2c 20 24 66 69 6c 65 49 6e  o(time), $fileIn
3a50: 66 6f 28 73 6f 75 72 63 65 29 2c 20 24 66 69 6c  fo(source), $fil
3a60: 65 49 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66 69  eInfo(size), $fi
3a70: 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20 24  leInfo(perms), $
3a80: 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c 20  fileInfo(sha1), 
3a90: 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c  $fileInfo(name),
3aa0: 20 24 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63   $fileInfo(direc
3ab0: 74 6f 72 79 29 20 29 3b 7d 0a 09 09 09 09 64 62  tory) );}.....db
3ac0: 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61   eval {UPDATE pa
3ad0: 63 6b 61 67 65 73 20 53 45 54 20 68 61 76 65 4d  ckages SET haveM
3ae0: 61 6e 69 66 65 73 74 20 3d 20 31 20 57 48 45 52  anifest = 1 WHER
3af0: 45 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61 67  E sha1 = $packag
3b00: 65 5f 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09  e_sha1;}....}...
3b10: 7d 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65 74  }....appfsd::get
3b20: 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65  _path_info_cache
3b30: 5f 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72 6e  _flush....return
3b40: 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 70   COMPLETE..}...p
3b50: 72 6f 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20 7b  roc _localpath {
3b60: 70 61 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d 65  package hostname
3b70: 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20 64   file} {...set d
3b80: 69 72 20 22 22 0a 09 09 63 61 74 63 68 20 7b 0a  ir ""...catch {.
3b90: 09 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20 5b  ...set homedir [
3ba0: 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 67  ::appfs::user::g
3bb0: 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 09 73  et_homedir]....s
3bc0: 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69  et dir [file joi
3bd0: 6e 20 24 68 6f 6d 65 64 69 72 20 2e 61 70 70 66  n $homedir .appf
3be0: 73 20 22 2e 2f 24 7b 70 61 63 6b 61 67 65 7d 40  s "./${package}@
3bf0: 24 7b 68 6f 73 74 6e 61 6d 65 7d 22 20 22 2e 2f  ${hostname}" "./
3c00: 24 7b 66 69 6c 65 7d 22 5d 0a 09 09 7d 0a 09 09  ${file}"]...}...
3c10: 72 65 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a  return $dir..}..
3c20: 09 70 72 6f 63 20 5f 77 68 69 74 65 6f 75 74 70  .proc _whiteoutp
3c30: 61 74 68 20 7b 70 61 63 6b 61 67 65 20 68 6f 73  ath {package hos
3c40: 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09 09  tname file} {...
3c50: 73 65 74 20 64 69 72 20 22 22 0a 09 09 63 61 74  set dir ""...cat
3c60: 63 68 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d 65  ch {....set home
3c70: 64 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73  dir [::appfs::us
3c80: 65 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d  er::get_homedir]
3c90: 0a 09 09 09 73 65 74 20 64 69 72 20 5b 66 69 6c  ....set dir [fil
3ca0: 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20  e join $homedir 
3cb0: 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b  .appfs "./${pack
3cc0: 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d  age}@${hostname}
3cd0: 22 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f  " ".APPFS.WHITEO
3ce0: 55 54 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e 41  UT" "./${file}.A
3cf0: 50 50 46 53 2e 57 48 49 54 45 4f 55 54 22 5d 0a  PPFS.WHITEOUT"].
3d00: 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 24 64 69  ..}...return $di
3d10: 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61 72  r..}...proc _par
3d20: 73 65 70 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a  sepath {path} {.
3d30: 09 09 73 65 74 20 70 61 74 68 20 5b 73 74 72 69  ..set path [stri
3d40: 6e 67 20 74 72 69 6d 20 24 70 61 74 68 20 22 2f  ng trim $path "/
3d50: 22 5d 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73  "]...set path [s
3d60: 70 6c 69 74 20 24 70 61 74 68 20 22 2f 22 5d 0a  plit $path "/"].
3d70: 09 09 73 65 74 20 70 61 74 68 6c 65 6e 20 5b 6c  ..set pathlen [l
3d80: 6c 65 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a 09  length $path]...
3d90: 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61  .array set retva
3da0: 6c 20 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72 65  l [list _childre
3db0: 6e 20 73 69 74 65 73 20 5f 74 79 70 65 20 74 6f  n sites _type to
3dc0: 70 6c 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b 24  plevel]....if {$
3dd0: 70 61 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a 09  pathlen > 0} {..
3de0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 68 6f 73  ..set retval(hos
3df0: 74 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24  tname) [lindex $
3e00: 70 61 74 68 20 30 5d 0a 09 09 09 73 65 74 20 72  path 0]....set r
3e10: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
3e20: 20 70 61 63 6b 61 67 65 73 0a 09 09 09 73 65 74   packages....set
3e30: 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 73   retval(_type) s
3e40: 69 74 65 73 0a 0a 09 09 09 69 66 20 7b 24 70 61  ites.....if {$pa
3e50: 74 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09 09  thlen > 1} {....
3e60: 09 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c 69  .set package [li
3e70: 6e 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09 09  ndex $path 1]...
3e80: 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65  ..if {[string le
3e90: 6e 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20 3d  ngth $package] =
3ea0: 3d 20 22 34 30 22 20 26 26 20 5b 72 65 67 65 78  = "40" && [regex
3eb0: 70 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a  p {^[a-fA-F0-9]*
3ec0: 24 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b 0a  $} $package]} {.
3ed0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3ee0: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24 70  package_sha1) $p
3ef0: 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20  ackage......set 
3f00: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
3f10: 29 20 66 69 6c 65 73 0a 09 09 09 09 09 73 65 74  ) files......set
3f20: 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66   retval(_type) f
3f30: 69 6c 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70 70  iles.......::app
3f40: 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c  fs::db eval {SEL
3f50: 45 43 54 20 70 61 63 6b 61 67 65 2c 20 6f 73 2c  ECT package, os,
3f60: 20 63 70 75 41 72 63 68 2c 20 76 65 72 73 69 6f   cpuArch, versio
3f70: 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  n FROM packages 
3f80: 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 72 65  WHERE sha1 = $re
3f90: 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61  tval(package_sha
3fa0: 31 29 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d 0a  1);} pkginfo {}.
3fb0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3fc0: 70 61 63 6b 61 67 65 29 20 24 70 6b 67 69 6e 66  package) $pkginf
3fd0: 6f 28 70 61 63 6b 61 67 65 29 0a 09 09 09 09 09  o(package)......
3fe0: 73 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20 24  set retval(os) $
3ff0: 70 6b 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09 09  pkginfo(os).....
4000: 09 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29  .set retval(cpu)
4010: 20 24 70 6b 67 69 6e 66 6f 28 63 70 75 41 72 63   $pkginfo(cpuArc
4020: 68 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76  h)......set retv
4030: 61 6c 28 76 65 72 73 69 6f 6e 29 20 24 70 6b 67  al(version) $pkg
4040: 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a 09  info(version)...
4050: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e  ....if {$pathlen
4060: 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65   > 2} {.......se
4070: 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b  t retval(file) [
4080: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61  join [lrange $pa
4090: 74 68 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a 09  th 2 end] "/"]..
40a0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
40b0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69  ...set retval(fi
40c0: 6c 65 29 20 22 22 0a 09 09 09 09 09 7d 0a 09 09  le) ""......}...
40d0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
40e0: 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61  set retval(packa
40f0: 67 65 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09  ge) $package....
4100: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68  ..set retval(_ch
4110: 69 6c 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a 09  ildren) os-cpu..
4120: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f  ....set retval(_
4130: 74 79 70 65 29 20 70 61 63 6b 61 67 65 73 0a 0a  type) packages..
4140: 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65  .....if {$pathle
4150: 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73  n > 2} {.......s
4160: 65 74 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64 65  et os_cpu [linde
4170: 78 20 24 70 61 74 68 20 32 5d 0a 09 09 09 09 09  x $path 2]......
4180: 09 73 65 74 20 6f 73 5f 63 70 75 20 5b 73 70 6c  .set os_cpu [spl
4190: 69 74 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d 0a  it $os_cpu "-"].
41a0: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
41b0: 6c 28 6f 73 29 20 5b 5f 6e 6f 72 6d 61 6c 69 7a  l(os) [_normaliz
41c0: 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f  eOS [lindex $os_
41d0: 63 70 75 20 30 5d 20 31 5d 0a 09 09 09 09 09 09  cpu 0] 1].......
41e0: 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29 20  set retval(cpu) 
41f0: 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 5b  [_normalizeCPU [
4200: 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 31  lindex $os_cpu 1
4210: 5d 20 31 5d 0a 09 09 09 09 09 09 73 65 74 20 72  ] 1].......set r
4220: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
4230: 20 76 65 72 73 69 6f 6e 73 0a 09 09 09 09 09 09   versions.......
4240: 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65  set retval(_type
4250: 29 20 6f 73 2d 63 70 75 0a 0a 09 09 09 09 09 09  ) os-cpu........
4260: 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 33  if {$pathlen > 3
4270: 7d 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20 72  } {........set r
4280: 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20 5b  etval(version) [
4290: 6c 69 6e 64 65 78 20 24 70 61 74 68 20 33 5d 0a  lindex $path 3].
42a0: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
42b0: 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 66 69 6c  l(_children) fil
42c0: 65 73 0a 09 09 09 09 09 09 09 73 65 74 20 72 65  es........set re
42d0: 74 76 61 6c 28 5f 74 79 70 65 29 20 76 65 72 73  tval(_type) vers
42e0: 69 6f 6e 73 0a 0a 09 09 09 09 09 09 09 73 65 74  ions.........set
42f0: 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f   retval(package_
4300: 73 68 61 31 29 20 5b 3a 3a 61 70 70 66 73 3a 3a  sha1) [::appfs::
4310: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45  db onecolumn {SE
4320: 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20 70  LECT sha1 FROM p
4330: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
4340: 73 74 6e 61 6d 65 20 3d 20 24 72 65 74 76 61 6c  stname = $retval
4350: 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70  (hostname) AND p
4360: 61 63 6b 61 67 65 20 3d 20 24 72 65 74 76 61 6c  ackage = $retval
4370: 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73  (package) AND os
4380: 20 3d 20 24 72 65 74 76 61 6c 28 6f 73 29 20 41   = $retval(os) A
4390: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 72 65  ND cpuArch = $re
43a0: 74 76 61 6c 28 63 70 75 29 20 41 4e 44 20 76 65  tval(cpu) AND ve
43b0: 72 73 69 6f 6e 20 3d 20 24 72 65 74 76 61 6c 28  rsion = $retval(
43c0: 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09 09  version);}].....
43d0: 09 09 09 69 66 20 7b 24 72 65 74 76 61 6c 28 70  ...if {$retval(p
43e0: 61 63 6b 61 67 65 5f 73 68 61 31 29 20 3d 3d 20  ackage_sha1) == 
43f0: 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 73 65  ""} {.........se
4400: 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72  t retval(_childr
4410: 65 6e 29 20 64 65 61 64 0a 09 09 09 09 09 09 09  en) dead........
4420: 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67  .return [array g
4430: 65 74 20 72 65 74 76 61 6c 5d 0a 09 09 09 09 09  et retval]......
4440: 09 09 7d 0a 0a 09 09 09 09 09 09 09 69 66 20 7b  ..}.........if {
4450: 24 70 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b 0a  $pathlen > 4} {.
4460: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
4470: 61 6c 28 5f 74 79 70 65 29 20 66 69 6c 65 73 0a  al(_type) files.
4480: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
4490: 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b  al(file) [join [
44a0: 6c 72 61 6e 67 65 20 24 70 61 74 68 20 34 20 65  lrange $path 4 e
44b0: 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 09  nd] "/"]........
44c0: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09  } else {........
44d0: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70  .set retval(_typ
44e0: 65 29 20 66 69 6c 65 73 0a 09 09 09 09 09 09 09  e) files........
44f0: 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65  .set retval(file
4500: 29 20 22 22 0a 09 09 09 09 09 09 09 7d 0a 09 09  ) ""........}...
4510: 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09  ....}......}....
4520: 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72  .}....}...}....r
4530: 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74  eturn [array get
4540: 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72   retval]..}...pr
4550: 6f 63 20 67 65 74 63 68 69 6c 64 72 65 6e 20 7b  oc getchildren {
4560: 64 69 72 7d 20 7b 0a 09 09 61 72 72 61 79 20 73  dir} {...array s
4570: 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61  et pathinfo [_pa
4580: 72 73 65 70 61 74 68 20 24 64 69 72 5d 0a 0a 09  rsepath $dir]...
4590: 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68  .switch -- $path
45a0: 69 6e 66 6f 28 5f 63 68 69 6c 64 72 65 6e 29 20  info(_children) 
45b0: 7b 0a 09 09 09 22 73 69 74 65 73 22 20 7b 0a 09  {...."sites" {..
45c0: 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70  ...return [::app
45d0: 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c  fs::db eval {SEL
45e0: 45 43 54 20 44 49 53 54 49 4e 43 54 20 68 6f 73  ECT DISTINCT hos
45f0: 74 6e 61 6d 65 20 46 52 4f 4d 20 70 61 63 6b 61  tname FROM packa
4600: 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22  ges;}]....}...."
4610: 70 61 63 6b 61 67 65 73 22 20 7b 0a 09 09 09 09  packages" {.....
4620: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61  catch {......::a
4630: 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24  ppfs::getindex $
4640: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
4650: 65 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65  e).....}......re
4660: 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a 64  turn [::appfs::d
4670: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44  b eval {SELECT D
4680: 49 53 54 49 4e 43 54 20 70 61 63 6b 61 67 65 20  ISTINCT package 
4690: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
46a0: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
46b0: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
46c0: 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 6f  e);}]....}...."o
46d0: 73 2d 63 70 75 22 20 7b 0a 09 09 09 09 73 65 74  s-cpu" {.....set
46e0: 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73   retval [::appfs
46f0: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
4700: 54 20 44 49 53 54 49 4e 43 54 20 6f 73 20 7c 7c  T DISTINCT os ||
4710: 20 22 2d 22 20 7c 7c 20 63 70 75 41 72 63 68 20   "-" || cpuArch 
4720: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
4730: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
4740: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
4750: 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  e) AND package =
4760: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
4770: 67 65 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70 70  ge);}]......lapp
4780: 65 6e 64 20 72 65 74 76 61 6c 20 22 70 6c 61 74  end retval "plat
4790: 66 6f 72 6d 22 0a 0a 09 09 09 09 72 65 74 75 72  form"......retur
47a0: 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09  n $retval....}..
47b0: 09 09 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09  .."versions" {..
47c0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a  ...set retval [:
47d0: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
47e0: 7b 0a 09 09 09 09 09 53 45 4c 45 43 54 20 44 49  {......SELECT DI
47f0: 53 54 49 4e 43 54 20 76 65 72 73 69 6f 6e 20 46  STINCT version F
4800: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
4810: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70  RE hostname = $p
4820: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65  athinfo(hostname
4830: 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20  ) AND package = 
4840: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67  $pathinfo(packag
4850: 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74  e) AND os = $pat
4860: 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70  hinfo(os) AND cp
4870: 75 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66  uArch = $pathinf
4880: 6f 28 63 70 75 29 3b 0a 09 09 09 09 7d 5d 0a 0a  o(cpu);.....}]..
4890: 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20  ....::appfs::db 
48a0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 76 65 72  eval {SELECT ver
48b0: 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67  sion FROM packag
48c0: 65 73 20 57 48 45 52 45 20 69 73 4c 61 74 65 73  es WHERE isLates
48d0: 74 20 3d 20 31 20 41 4e 44 20 68 6f 73 74 6e 61  t = 1 AND hostna
48e0: 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68  me = $pathinfo(h
48f0: 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63  ostname) AND pac
4900: 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f  kage = $pathinfo
4910: 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73  (package) AND os
4920: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29   = $pathinfo(os)
4930: 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24   AND cpuArch = $
4940: 70 61 74 68 69 6e 66 6f 28 63 70 75 29 20 4c 49  pathinfo(cpu) LI
4950: 4d 49 54 20 31 3b 7d 20 6c 61 74 65 73 74 5f 69  MIT 1;} latest_i
4960: 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09 69 66 20 7b  nfo {}......if {
4970: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6c 61 74  [info exists lat
4980: 65 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e  est_info(version
4990: 29 5d 7d 20 7b 0a 09 09 09 09 09 6c 61 70 70 65  )]} {......lappe
49a0: 6e 64 20 72 65 74 76 61 6c 20 22 6c 61 74 65 73  nd retval "lates
49b0: 74 22 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65  t".....}......re
49c0: 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09  turn $retval....
49d0: 7d 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a 09  }...."files" {..
49e0: 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09  ...catch {......
49f0: 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65  ::appfs::getinde
4a00: 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  x $pathinfo(host
4a10: 6e 61 6d 65 29 0a 09 09 09 09 09 3a 3a 61 70 70  name)......::app
4a20: 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65  fs::getpkgmanife
4a30: 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  st $pathinfo(hos
4a40: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f  tname) $pathinfo
4a50: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09  (package_sha1)..
4a60: 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 72 65  ...}......set re
4a70: 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64  tval [::appfs::d
4a80: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44  b eval {SELECT D
4a90: 49 53 54 49 4e 43 54 20 66 69 6c 65 5f 6e 61 6d  ISTINCT file_nam
4aa0: 65 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45  e FROM files WHE
4ab0: 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20  RE package_sha1 
4ac0: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  = $pathinfo(pack
4ad0: 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69  age_sha1) AND fi
4ae0: 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24  le_directory = $
4af0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 3b 7d  pathinfo(file);}
4b00: 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f  ]......if {[info
4b10: 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66 6f   exists pathinfo
4b20: 28 70 61 63 6b 61 67 65 29 5d 20 26 26 20 5b 69  (package)] && [i
4b30: 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 69  nfo exists pathi
4b40: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 5d 20 26  nfo(hostname)] &
4b50: 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70  & [info exists p
4b60: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 7d 20  athinfo(file)]} 
4b70: 7b 0a 09 09 09 09 09 5f 61 73 5f 75 73 65 72 20  {......_as_user 
4b80: 7b 0a 09 09 09 09 09 09 73 65 74 20 64 69 72 20  {.......set dir 
4b90: 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74  [_localpath $pat
4ba0: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24  hinfo(package) $
4bb0: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
4bc0: 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c  e) $pathinfo(fil
4bd0: 65 29 5d 0a 09 09 09 09 09 09 73 65 74 20 77 68  e)].......set wh
4be0: 69 74 65 6f 75 74 64 69 72 20 5b 73 74 72 69 6e  iteoutdir [strin
4bf0: 67 20 72 61 6e 67 65 20 5b 5f 77 68 69 74 65 6f  g range [_whiteo
4c00: 75 74 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f  utpath $pathinfo
4c10: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69  (package) $pathi
4c20: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70  nfo(hostname) $p
4c30: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 20 30  athinfo(file)] 0
4c40: 20 65 6e 64 2d 31 35 5d 0a 0a 09 09 09 09 09 09   end-15]........
4c50: 69 66 20 7b 24 77 68 69 74 65 6f 75 74 64 69 72  if {$whiteoutdir
4c60: 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09   != ""} {.......
4c70: 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67  .foreach file [g
4c80: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  lob -nocomplain 
4c90: 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72  -tails -director
4ca0: 79 20 24 77 68 69 74 65 6f 75 74 64 69 72 20 7b  y $whiteoutdir {
4cb0: 7b 2e 2c 7d 2a 2e 41 50 50 46 53 2e 57 48 49 54  {.,}*.APPFS.WHIT
4cc0: 45 4f 55 54 7d 5d 20 7b 0a 09 09 09 09 09 09 09  EOUT}] {........
4cd0: 09 73 65 74 20 72 65 6d 6f 76 65 20 5b 73 74 72  .set remove [str
4ce0: 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c 65 20  ing range $file 
4cf0: 30 20 65 6e 64 2d 31 35 5d 0a 09 09 09 09 09 09  0 end-15].......
4d00: 09 09 73 65 74 20 69 64 78 20 5b 6c 73 65 61 72  ..set idx [lsear
4d10: 63 68 20 2d 65 78 61 63 74 20 24 72 65 74 76 61  ch -exact $retva
4d20: 6c 20 24 72 65 6d 6f 76 65 5d 0a 09 09 09 09 09  l $remove]......
4d30: 09 09 09 69 66 20 7b 24 69 64 78 20 21 3d 20 2d  ...if {$idx != -
4d40: 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 73 65  1} {..........se
4d50: 74 20 72 65 74 76 61 6c 20 5b 6c 72 65 70 6c 61  t retval [lrepla
4d60: 63 65 20 24 72 65 74 76 61 6c 20 24 69 64 78 20  ce $retval $idx 
4d70: 24 69 64 78 5d 0a 09 09 09 09 09 09 09 09 7d 0a  $idx].........}.
4d80: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 7d  .......}.......}
4d90: 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64 69 72  ........if {$dir
4da0: 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09   != ""} {.......
4db0: 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67  .foreach file [g
4dc0: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  lob -nocomplain 
4dd0: 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72  -tails -director
4de0: 79 20 24 64 69 72 20 7b 7b 2e 2c 7d 2a 7d 5d 20  y $dir {{.,}*}] 
4df0: 7b 0a 09 09 09 09 09 09 09 09 69 66 20 7b 24 66  {.........if {$f
4e00: 69 6c 65 20 3d 3d 20 22 2e 22 20 7c 7c 20 24 66  ile == "." || $f
4e10: 69 6c 65 20 3d 3d 20 22 2e 2e 22 7d 20 7b 0a 09  ile == ".."} {..
4e20: 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65  ........continue
4e30: 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09 09 09  .........}......
4e40: 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d 3d  ....if {$file ==
4e50: 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55   ".APPFS.WHITEOU
4e60: 54 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 63  T"} {..........c
4e70: 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09 09  ontinue.........
4e80: 7d 0a 0a 09 09 09 09 09 09 09 09 69 66 20 7b 5b  }..........if {[
4e90: 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 24  lsearch -exact $
4ea0: 72 65 74 76 61 6c 20 24 66 69 6c 65 5d 20 21 3d  retval $file] !=
4eb0: 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09   -1} {..........
4ec0: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09  continue........
4ed0: 09 7d 0a 0a 09 09 09 09 09 09 09 09 6c 61 70 70  .}..........lapp
4ee0: 65 6e 64 20 72 65 74 76 61 6c 20 24 66 69 6c 65  end retval $file
4ef0: 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09  ........}.......
4f00: 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a  }......}.....}..
4f10: 09 09 09 09 72 65 74 75 72 6e 20 24 72 65 74 76  ....return $retv
4f20: 61 6c 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72  al....}...}....r
4f30: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
4f40: 72 20 22 49 6e 76 61 6c 69 64 20 6f 72 20 75 6e  r "Invalid or un
4f50: 61 63 63 65 70 74 61 62 6c 65 20 70 61 74 68 3a  acceptable path:
4f60: 20 24 64 69 72 22 0a 09 7d 0a 0a 09 70 72 6f 63   $dir"..}...proc
4f70: 20 67 65 74 61 74 74 72 20 7b 70 61 74 68 7d 20   getattr {path} 
4f80: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
4f90: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61  thinfo [_parsepa
4fa0: 74 68 20 24 70 61 74 68 5d 0a 09 09 61 72 72 61  th $path]...arra
4fb0: 79 20 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 69  y set retval [li
4fc0: 73 74 5d 0a 0a 09 09 63 61 74 63 68 20 7b 0a 09  st]....catch {..
4fd0: 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e  ..::appfs::getin
4fe0: 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  dex $pathinfo(ho
4ff0: 73 74 6e 61 6d 65 29 0a 09 09 09 3a 3a 61 70 70  stname)....::app
5000: 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65  fs::getpkgmanife
5010: 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  st $pathinfo(hos
5020: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f  tname) $pathinfo
5030: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09  (package_sha1)..
5040: 09 7d 0a 0a 09 09 73 65 74 20 72 65 74 76 61 6c  .}....set retval
5050: 28 70 61 74 68 5f 74 79 70 65 29 20 24 70 61 74  (path_type) $pat
5060: 68 69 6e 66 6f 28 5f 74 79 70 65 29 0a 0a 09 09  hinfo(_type)....
5070: 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68 69  switch -- $pathi
5080: 6e 66 6f 28 5f 74 79 70 65 29 20 7b 0a 09 09 09  nfo(_type) {....
5090: 22 74 6f 70 6c 65 76 65 6c 22 20 7b 0a 09 09 09  "toplevel" {....
50a0: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65  .set retval(type
50b0: 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09  ) directory.....
50c0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
50d0: 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20  count) [llength 
50e0: 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61  [getchildren $pa
50f0: 74 68 5d 5d 0a 09 09 09 7d 0a 09 09 09 22 73 69  th]]....}...."si
5100: 74 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20 63  tes" {.....set c
5110: 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64  heck [::appfs::d
5120: 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c  b onecolumn {SEL
5130: 45 43 54 20 31 20 46 52 4f 4d 20 70 61 63 6b 61  ECT 1 FROM packa
5140: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
5150: 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68  me = $pathinfo(h
5160: 6f 73 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09 09  ostname);}].....
5170: 69 66 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31  if {$check == "1
5180: 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65  "} {......set re
5190: 74 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63  tval(type) direc
51a0: 74 6f 72 79 0a 09 09 09 09 09 73 65 74 20 72 65  tory......set re
51b0: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29  tval(childcount)
51c0: 20 30 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09   0.....}....}...
51d0: 09 22 70 61 63 6b 61 67 65 73 22 20 7b 0a 09 09  ."packages" {...
51e0: 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61  ..set check [::a
51f0: 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75  ppfs::db onecolu
5200: 6d 6e 20 7b 53 45 4c 45 43 54 20 31 20 46 52 4f  mn {SELECT 1 FRO
5210: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
5220: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74   hostname = $pat
5230: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20  hinfo(hostname) 
5240: 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70  AND package = $p
5250: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
5260: 3b 7d 5d 0a 09 09 09 09 69 66 20 7b 24 63 68 65  ;}].....if {$che
5270: 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09  ck == "1"} {....
5280: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70  ..set retval(typ
5290: 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09  e) directory....
52a0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68 69  ..set retval(chi
52b0: 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74  ldcount) [llengt
52c0: 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24  h [getchildren $
52d0: 70 61 74 68 5d 5d 0a 09 09 09 09 7d 0a 09 09 09  path]].....}....
52e0: 7d 0a 09 09 09 22 6f 73 2d 63 70 75 22 20 7b 0a  }...."os-cpu" {.
52f0: 09 09 09 09 69 66 20 7b 24 70 61 74 68 69 6e 66  ....if {$pathinf
5300: 6f 28 6f 73 29 20 3d 3d 20 22 70 6c 61 74 66 6f  o(os) == "platfo
5310: 72 6d 22 20 26 26 20 24 70 61 74 68 69 6e 66 6f  rm" && $pathinfo
5320: 28 63 70 75 29 20 3d 3d 20 22 22 7d 20 7b 0a 09  (cpu) == ""} {..
5330: 09 09 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a  ....set check [:
5340: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
5350: 7b 0a 09 09 09 09 09 09 53 45 4c 45 43 54 20 44  {.......SELECT D
5360: 49 53 54 49 4e 43 54 20 6f 73 2c 20 63 70 75 41  ISTINCT os, cpuA
5370: 72 63 68 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  rch FROM package
5380: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
5390: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
53a0: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61  tname) AND packa
53b0: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70  ge = $pathinfo(p
53c0: 61 63 6b 61 67 65 29 3b 0a 09 09 09 09 09 7d 5d  ackage);......}]
53d0: 0a 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
53e0: 6c 28 74 79 70 65 29 20 73 79 6d 6c 69 6e 6b 0a  l(type) symlink.
53f0: 0a 09 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b  ......if {$check
5400: 20 3d 3d 20 5b 6c 69 73 74 20 22 6e 6f 61 72 63   == [list "noarc
5410: 68 22 20 22 6e 6f 61 72 63 68 22 5d 7d 20 7b 0a  h" "noarch"]} {.
5420: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
5430: 28 73 6f 75 72 63 65 29 20 22 6e 6f 61 72 63 68  (source) "noarch
5440: 2d 6e 6f 61 72 63 68 22 0a 09 09 09 09 09 7d 20  -noarch"......} 
5450: 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 73 65 74  else {.......set
5460: 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29 20   retval(source) 
5470: 24 3a 3a 61 70 70 66 73 3a 3a 70 6c 61 74 66 6f  $::appfs::platfo
5480: 72 6d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20  rm......}.....} 
5490: 65 6c 73 65 20 7b 0a 09 09 09 09 09 73 65 74 20  else {......set 
54a0: 63 68 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a  check [::appfs::
54b0: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 0a 09  db onecolumn {..
54c0: 09 09 09 09 09 53 45 4c 45 43 54 20 31 20 46 52  .....SELECT 1 FR
54d0: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
54e0: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
54f0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
5500: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24   AND package = $
5510: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
5520: 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68  ) AND os = $path
5530: 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75  info(os) AND cpu
5540: 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f  Arch = $pathinfo
5550: 28 63 70 75 29 3b 0a 09 09 09 09 09 7d 5d 0a 09  (cpu);......}]..
5560: 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b 20 3d  ....if {$check =
5570: 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 09 73  = "1"} {.......s
5580: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
5590: 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 09  directory.......
55a0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
55b0: 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20  count) [llength 
55c0: 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61  [getchildren $pa
55d0: 74 68 5d 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09  th]]......}.....
55e0: 7d 0a 09 09 09 7d 0a 09 09 09 22 76 65 72 73 69  }....}...."versi
55f0: 6f 6e 73 22 20 7b 0a 09 09 09 09 69 66 20 7b 24  ons" {.....if {$
5600: 70 61 74 68 69 6e 66 6f 28 76 65 72 73 69 6f 6e  pathinfo(version
5610: 29 20 3d 3d 20 22 6c 61 74 65 73 74 22 7d 20 7b  ) == "latest"} {
5620: 0a 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64  ......::appfs::d
5630: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 76  b eval {SELECT v
5640: 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b  ersion FROM pack
5650: 61 67 65 73 20 57 48 45 52 45 20 69 73 4c 61 74  ages WHERE isLat
5660: 65 73 74 20 3d 20 31 20 41 4e 44 20 68 6f 73 74  est = 1 AND host
5670: 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f  name = $pathinfo
5680: 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70  (hostname) AND p
5690: 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e  ackage = $pathin
56a0: 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20  fo(package) AND 
56b0: 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f  os = $pathinfo(o
56c0: 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d  s) AND cpuArch =
56d0: 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29 20   $pathinfo(cpu) 
56e0: 4c 49 4d 49 54 20 31 3b 7d 20 6c 61 74 65 73 74  LIMIT 1;} latest
56f0: 5f 69 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09 09 69  _info {}.......i
5700: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
5710: 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76 65 72 73  latest_info(vers
5720: 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09 09 09 73  ion)]} {.......s
5730: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
5740: 73 79 6d 6c 69 6e 6b 0a 09 09 09 09 09 09 73 65  symlink.......se
5750: 74 20 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29  t retval(source)
5760: 20 24 6c 61 74 65 73 74 5f 69 6e 66 6f 28 76 65   $latest_info(ve
5770: 72 73 69 6f 6e 29 0a 09 09 09 09 09 7d 0a 09 09  rsion)......}...
5780: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
5790: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
57a0: 20 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67   pathinfo(packag
57b0: 65 5f 73 68 61 31 29 5d 20 26 26 20 24 70 61 74  e_sha1)] && $pat
57c0: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68  hinfo(package_sh
57d0: 61 31 29 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09  a1) != ""} {....
57e0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79  ...set retval(ty
57f0: 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a 09 09  pe) directory...
5800: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63  ....set retval(c
5810: 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e  hildcount) [llen
5820: 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e  gth [getchildren
5830: 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 7d 0a   $path]]......}.
5840: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 22 66  ....}....}...."f
5850: 69 6c 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20  iles" {.....set 
5860: 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 64 29  retval(packaged)
5870: 20 31 0a 0a 09 09 09 09 73 65 74 20 6c 6f 63 61   1......set loca
5880: 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74  lpath [_localpat
5890: 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b  h $pathinfo(pack
58a0: 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68  age) $pathinfo(h
58b0: 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e  ostname) $pathin
58c0: 66 6f 28 66 69 6c 65 29 5d 0a 09 09 09 09 73 65  fo(file)].....se
58d0: 74 20 77 68 69 74 65 6f 75 74 70 61 74 68 20 20  t whiteoutpath  
58e0: 5b 5f 77 68 69 74 65 6f 75 74 70 61 74 68 20 24  [_whiteoutpath $
58f0: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
5900: 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74  ) $pathinfo(host
5910: 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28  name) $pathinfo(
5920: 66 69 6c 65 29 5d 0a 0a 09 09 09 09 73 65 74 20  file)]......set 
5930: 72 65 74 76 61 6c 28 6c 6f 63 61 6c 70 61 74 68  retval(localpath
5940: 29 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09  ) $localpath....
5950: 09 73 65 74 20 72 65 74 76 61 6c 28 77 68 69 74  .set retval(whit
5960: 65 6f 75 74 70 61 74 68 29 20 24 77 68 69 74 65  eoutpath) $white
5970: 6f 75 74 70 61 74 68 0a 0a 09 09 09 09 75 6e 73  outpath......uns
5980: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 6c  et -nocomplain l
5990: 6f 63 61 6c 70 61 74 68 69 6e 66 6f 0a 09 09 09  ocalpathinfo....
59a0: 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20  .if {$localpath 
59b0: 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 5f 61  != ""} {......_a
59c0: 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09 09 63  s_user {.......c
59d0: 61 74 63 68 20 7b 0a 09 09 09 09 09 09 09 66 69  atch {........fi
59e0: 6c 65 20 6c 73 74 61 74 20 24 6c 6f 63 61 6c 70  le lstat $localp
59f0: 61 74 68 20 6c 6f 63 61 6c 70 61 74 68 69 6e 66  ath localpathinf
5a00: 6f 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d  o.......}......}
5a10: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 20 7b  .....}......if {
5a20: 24 6c 6f 63 61 6c 70 61 74 68 20 21 3d 20 22 22  $localpath != ""
5a30: 20 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73   && [info exists
5a40: 20 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f 5d 7d   localpathinfo]}
5a50: 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76   {......set retv
5a60: 61 6c 28 69 73 5f 6c 6f 63 61 6c 66 69 6c 65 29  al(is_localfile)
5a70: 20 31 0a 09 09 09 09 09 75 6e 73 65 74 20 72 65   1......unset re
5a80: 74 76 61 6c 28 70 61 63 6b 61 67 65 64 29 0a 09  tval(packaged)..
5a90: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09  ....catch {.....
5aa0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 69 6d  ..set retval(tim
5ab0: 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66  e) $localpathinf
5ac0: 6f 28 6d 74 69 6d 65 29 0a 0a 09 09 09 09 09 09  o(mtime)........
5ad0: 73 77 69 74 63 68 20 2d 2d 20 24 6c 6f 63 61 6c  switch -- $local
5ae0: 70 61 74 68 69 6e 66 6f 28 74 79 70 65 29 20 7b  pathinfo(type) {
5af0: 0a 09 09 09 09 09 09 09 22 64 69 72 65 63 74 6f  ........"directo
5b00: 72 79 22 20 7b 0a 09 09 09 09 09 09 09 09 73 65  ry" {.........se
5b10: 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 22  t retval(type) "
5b20: 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09 09  directory"......
5b30: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 63 68  ...set retval(ch
5b40: 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67  ildcount) [lleng
5b50: 74 68 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20  th [getchildren 
5b60: 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 09 09 7d  $path]]........}
5b70: 0a 09 09 09 09 09 09 09 22 66 69 6c 65 22 20 7b  ........"file" {
5b80: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
5b90: 76 61 6c 28 74 79 70 65 29 20 22 66 69 6c 65 22  val(type) "file"
5ba0: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
5bb0: 76 61 6c 28 73 69 7a 65 29 20 24 6c 6f 63 61 6c  val(size) $local
5bc0: 70 61 74 68 69 6e 66 6f 28 73 69 7a 65 29 0a 0a  pathinfo(size)..
5bd0: 09 09 09 09 09 09 09 09 23 20 4f 6e 63 65 20 74  ........# Once t
5be0: 68 65 20 75 73 65 72 20 77 72 69 74 65 73 20 74  he user writes t
5bf0: 6f 20 61 20 66 69 6c 65 2c 20 61 6c 6c 20 69 74  o a file, all it
5c00: 73 20 6f 74 68 65 72 0a 09 09 09 09 09 09 09 09  s other.........
5c10: 23 20 61 74 74 72 69 62 75 74 65 73 20 28 73 75  # attributes (su
5c20: 63 68 20 61 73 20 73 75 69 64 29 20 61 72 65 20  ch as suid) are 
5c30: 6c 6f 73 74 0a 0a 09 09 09 09 09 09 09 09 5f 61  lost.........._a
5c40: 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 09 09 09  s_user {........
5c50: 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 65 63  ..if {[file exec
5c60: 75 74 61 62 6c 65 20 24 6c 6f 63 61 6c 70 61 74  utable $localpat
5c70: 68 5d 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 09  h]} {...........
5c80: 73 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d 73  set retval(perms
5c90: 29 20 22 78 2d 22 0a 09 09 09 09 09 09 09 09 09  ) "x-"..........
5ca0: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09  } else {........
5cb0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 65  ...set retval(pe
5cc0: 72 6d 73 29 20 22 2d 22 0a 09 09 09 09 09 09 09  rms) "-"........
5cd0: 09 09 7d 0a 09 09 09 09 09 09 09 09 7d 0a 09 09  ..}.........}...
5ce0: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22 6c  .....}........"l
5cf0: 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09 09 09 73  ink" {.........s
5d00: 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 20  et retval(type) 
5d10: 22 73 79 6d 6c 69 6e 6b 22 0a 0a 09 09 09 09 09  "symlink".......
5d20: 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09  ..._as_user {...
5d30: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
5d40: 6c 28 73 6f 75 72 63 65 29 20 5b 66 69 6c 65 20  l(source) [file 
5d50: 72 65 61 64 6c 69 6e 6b 20 24 6c 6f 63 61 6c 70  readlink $localp
5d60: 61 74 68 5d 0a 09 09 09 09 09 09 09 09 7d 0a 09  ath].........}..
5d70: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22  ......}........"
5d80: 66 69 66 6f 22 20 7b 0a 09 09 09 09 09 09 09 09  fifo" {.........
5d90: 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20 73 6f  # Capitalized so
5da0: 20 74 68 61 74 20 74 68 65 20 66 69 72 73 74 20   that the first 
5db0: 63 68 61 72 20 69 73 20 75 6e 69 71 75 65 0a 09  char is unique..
5dc0: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
5dd0: 6c 28 74 79 70 65 29 20 22 46 69 66 6f 22 0a 09  l(type) "Fifo"..
5de0: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 22  ......}........"
5df0: 73 6f 63 6b 65 74 22 20 7b 0a 09 09 09 09 09 09  socket" {.......
5e00: 09 09 23 20 43 61 70 69 74 61 6c 69 7a 65 64 20  ..# Capitalized 
5e10: 73 6f 20 74 68 61 74 20 74 68 65 20 66 69 72 73  so that the firs
5e20: 74 20 63 68 61 72 20 69 73 20 75 6e 69 71 75 65  t char is unique
5e30: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
5e40: 76 61 6c 28 74 79 70 65 29 20 22 53 6f 63 6b 65  val(type) "Socke
5e50: 74 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09  t"........}.....
5e60: 09 09 7d 0a 09 09 09 09 09 7d 20 65 72 72 0a 09  ..}......} err..
5e70: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
5e80: 09 69 66 20 7b 24 77 68 69 74 65 6f 75 74 70 61  .if {$whiteoutpa
5e90: 74 68 20 3d 3d 20 22 22 20 7c 7c 20 21 5b 66 69  th == "" || ![fi
5ea0: 6c 65 20 65 78 69 73 74 73 20 24 77 68 69 74 65  le exists $white
5eb0: 6f 75 74 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09  outpath]} {.....
5ec0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 69 73 5f  ..set retval(is_
5ed0: 72 65 6d 6f 74 65 66 69 6c 65 29 20 31 0a 0a 09  remotefile) 1...
5ee0: 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73  .....set work [s
5ef0: 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f 28 66  plit $pathinfo(f
5f00: 69 6c 65 29 20 22 2f 22 5d 0a 09 09 09 09 09 09  ile) "/"].......
5f10: 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6a  set directory [j
5f20: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72  oin [lrange $wor
5f30: 6b 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a  k 0 end-1] "/"].
5f40: 09 09 09 09 09 09 73 65 74 20 66 69 6c 65 20 5b  ......set file [
5f50: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 65 6e 64  lindex $work end
5f60: 5d 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64 69  ]........if {$di
5f70: 72 65 63 74 6f 72 79 20 3d 3d 20 22 22 20 26 26  rectory == "" &&
5f80: 20 24 66 69 6c 65 20 3d 3d 20 22 22 7d 20 7b 0a   $file == ""} {.
5f90: 09 09 09 09 09 09 09 61 72 72 61 79 20 73 65 74  .......array set
5fa0: 20 72 65 74 76 61 6c 20 5b 6c 69 73 74 20 74 79   retval [list ty
5fb0: 70 65 20 64 69 72 65 63 74 6f 72 79 5d 0a 09 09  pe directory]...
5fc0: 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 3a 3a 61  ....}........::a
5fd0: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53  ppfs::db eval {S
5fe0: 45 4c 45 43 54 20 74 79 70 65 2c 20 74 69 6d 65  ELECT type, time
5ff0: 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c 20  , source, size, 
6000: 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61 31  perms, file_sha1
6010: 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 52   FROM files WHER
6020: 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20 3d  E package_sha1 =
6030: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
6040: 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69 6c  ge_sha1) AND fil
6050: 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24 64  e_directory = $d
6060: 69 72 65 63 74 6f 72 79 20 41 4e 44 20 66 69 6c  irectory AND fil
6070: 65 5f 6e 61 6d 65 20 3d 20 24 66 69 6c 65 3b 7d  e_name = $file;}
6080: 20 72 65 74 76 61 6c 20 7b 7d 0a 0a 09 09 09 09   retval {}......
6090: 09 09 23 20 41 6c 6c 6f 77 20 61 6e 20 61 64 6d  ..# Allow an adm
60a0: 69 6e 69 73 74 72 61 74 6f 72 20 74 6f 20 73 75  inistrator to su
60b0: 70 70 6c 79 20 61 64 64 69 74 69 6f 6e 61 6c 20  pply additional 
60c0: 70 65 72 6d 69 73 73 69 6f 6e 73 20 74 6f 20 72  permissions to r
60d0: 65 6d 6f 74 65 20 66 69 6c 65 73 0a 09 09 09 09  emote files.....
60e0: 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  ..if {[info exis
60f0: 74 73 20 72 65 74 76 61 6c 28 70 65 72 6d 73 29  ts retval(perms)
6100: 5d 7d 20 7b 0a 09 09 09 09 09 09 09 23 20 4c 6f  ]} {........# Lo
6110: 77 65 72 20 63 61 73 65 20 74 68 69 73 20 69 6e  wer case this in
6120: 20 63 61 73 65 20 61 6e 20 75 70 70 65 72 2d 63   case an upper-c
6130: 61 73 65 64 20 76 61 6c 75 65 20 77 61 73 20 70  ased value was p
6140: 75 74 20 69 6e 0a 09 09 09 09 09 09 09 23 20 74  ut in........# t
6150: 68 65 20 64 61 74 61 62 61 73 65 20 62 65 66 6f  he database befo
6160: 72 65 20 77 65 20 73 74 61 72 74 65 64 20 6c 6f  re we started lo
6170: 77 65 72 63 61 73 69 6e 67 20 74 68 65 6d 0a 09  wercasing them..
6180: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
6190: 28 70 65 72 6d 73 29 20 5b 73 74 72 69 6e 67 20  (perms) [string 
61a0: 74 6f 6c 6f 77 65 72 20 24 72 65 74 76 61 6c 28  tolower $retval(
61b0: 70 65 72 6d 73 29 5d 0a 0a 09 09 09 09 09 09 09  perms)].........
61c0: 73 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d 73  set retval(perms
61d0: 29 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72  ) [::appfs::user
61e0: 3a 3a 63 68 61 6e 67 65 5f 70 65 72 6d 73 20 24  ::change_perms $
61f0: 70 61 74 68 20 24 72 65 74 76 61 6c 28 66 69 6c  path $retval(fil
6200: 65 5f 73 68 61 31 29 20 24 72 65 74 76 61 6c 28  e_sha1) $retval(
6210: 70 65 72 6d 73 29 5d 0a 09 09 09 09 09 09 7d 0a  perms)].......}.
6220: 0a 09 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f  .......if {[info
6230: 20 65 78 69 73 74 73 20 72 65 74 76 61 6c 28 74   exists retval(t
6240: 79 70 65 29 5d 20 26 26 20 24 72 65 74 76 61 6c  ype)] && $retval
6250: 28 74 79 70 65 29 20 3d 3d 20 22 64 69 72 65 63  (type) == "direc
6260: 74 6f 72 79 22 7d 20 7b 0a 09 09 09 09 09 09 09  tory"} {........
6270: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
6280: 63 6f 75 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20  count) [llength 
6290: 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70 61  [getchildren $pa
62a0: 74 68 5d 5d 0a 09 09 09 09 09 09 7d 0a 0a 09 09  th]].......}....
62b0: 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
62c0: 70 6c 61 69 6e 20 72 65 74 76 61 6c 28 2a 29 0a  plain retval(*).
62d0: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09  .....}.....}....
62e0: 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b  .}...}....if {![
62f0: 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74 76  info exists retv
6300: 61 6c 28 74 79 70 65 29 5d 7d 20 7b 0a 09 09 09  al(type)]} {....
6310: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72  return -code err
6320: 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65  or "No such file
6330: 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 0a 09   or directory"..
6340: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61 72  .}....return [ar
6350: 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d 0a  ray get retval].
6360: 09 7d 0a 0a 09 70 72 6f 63 20 6f 70 65 6e 70 61  .}...proc openpa
6370: 74 68 20 7b 70 61 74 68 20 6d 6f 64 65 7d 20 7b  th {path mode} {
6380: 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61 74  ...array set pat
6390: 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61 74  hinfo [_parsepat
63a0: 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b  h $path]....if {
63b0: 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29  $pathinfo(_type)
63c0: 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a 09   != "files"} {..
63d0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
63e0: 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 70 61  rror "invalid pa
63f0: 74 68 20 74 79 70 65 3a 20 47 6f 74 20 5c 22 24  th type: Got \"$
6400: 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 5c  pathinfo(_type)\
6410: 22 2c 20 6e 65 65 64 20 5c 22 66 69 6c 65 73 5c  ", need \"files\
6420: 22 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f  ""...}....set lo
6430: 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c 70  calpath [_localp
6440: 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61  ath $pathinfo(pa
6450: 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f  ckage) $pathinfo
6460: 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68  (hostname) $path
6470: 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 69  info(file)]....i
6480: 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 63 72 65  f {$mode == "cre
6490: 61 74 65 22 7d 20 7b 0a 09 09 09 69 66 20 7b 24  ate"} {....if {$
64a0: 6c 6f 63 61 6c 70 61 74 68 20 3d 3d 20 22 22 7d  localpath == ""}
64b0: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63   {.....return -c
64c0: 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64  ode error "Asked
64d0: 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75 74 20   to create, but 
64e0: 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72  no home director
64f0: 79 2e 22 0a 09 09 09 7d 0a 0a 09 09 09 72 65 74  y."....}.....ret
6500: 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09  urn $localpath..
6510: 09 7d 0a 0a 09 09 69 66 20 7b 24 6c 6f 63 61 6c  .}....if {$local
6520: 70 61 74 68 20 21 3d 20 22 22 20 26 26 20 5b 66  path != "" && [f
6530: 69 6c 65 20 65 78 69 73 74 73 20 24 6c 6f 63 61  ile exists $loca
6540: 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 72 65 74  lpath]} {....ret
6550: 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09  urn $localpath..
6560: 09 7d 0a 0a 09 09 73 65 74 20 77 6f 72 6b 20 5b  .}....set work [
6570: 73 70 6c 69 74 20 24 70 61 74 68 69 6e 66 6f 28  split $pathinfo(
6580: 66 69 6c 65 29 20 22 2f 22 5d 0a 09 09 73 65 74  file) "/"]...set
6590: 20 64 69 72 65 63 74 6f 72 79 20 5b 6a 6f 69 6e   directory [join
65a0: 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 30   [lrange $work 0
65b0: 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 73   end-1] "/"]...s
65c0: 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20  et file [lindex 
65d0: 24 77 6f 72 6b 20 65 6e 64 5d 0a 09 09 3a 3a 61  $work end]...::a
65e0: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53  ppfs::db eval {S
65f0: 45 4c 45 43 54 20 66 69 6c 65 5f 73 68 61 31 2c  ELECT file_sha1,
6600: 20 70 65 72 6d 73 20 46 52 4f 4d 20 66 69 6c 65   perms FROM file
6610: 73 20 57 48 45 52 45 20 70 61 63 6b 61 67 65 5f  s WHERE package_
6620: 73 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66 6f  sha1 = $pathinfo
6630: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 41  (package_sha1) A
6640: 4e 44 20 66 69 6c 65 5f 6e 61 6d 65 20 3d 20 24  ND file_name = $
6650: 66 69 6c 65 20 41 4e 44 20 66 69 6c 65 5f 64 69  file AND file_di
6660: 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65 63  rectory = $direc
6670: 74 6f 72 79 3b 7d 20 70 6b 67 70 61 74 68 69 6e  tory;} pkgpathin
6680: 66 6f 20 7b 7d 0a 0a 09 09 69 66 20 7b 24 70 6b  fo {}....if {$pk
6690: 67 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 5f 73  gpathinfo(file_s
66a0: 68 61 31 29 20 3d 3d 20 22 22 7d 20 7b 0a 09 09  ha1) == ""} {...
66b0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
66c0: 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69 6c  ror "No such fil
66d0: 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 0a  e or directory".
66e0: 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c  ..}....set local
66f0: 63 61 63 68 65 66 69 6c 65 20 5b 64 6f 77 6e 6c  cachefile [downl
6700: 6f 61 64 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  oad $pathinfo(ho
6710: 73 74 6e 61 6d 65 29 20 24 70 6b 67 70 61 74 68  stname) $pkgpath
6720: 69 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31 29 5d  info(file_sha1)]
6730: 0a 0a 09 09 69 66 20 7b 24 6d 6f 64 65 20 3d 3d  ....if {$mode ==
6740: 20 22 77 72 69 74 65 22 7d 20 7b 0a 09 09 09 5f   "write"} {...._
6750: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 09 73 65  as_user {.....se
6760: 74 20 74 6d 70 6c 6f 63 61 6c 70 61 74 68 20 22  t tmplocalpath "
6770: 24 7b 6c 6f 63 61 6c 70 61 74 68 7d 2e 5b 65 78  ${localpath}.[ex
6780: 70 72 20 72 61 6e 64 28 29 5d 5b 63 6c 6f 63 6b  pr rand()][clock
6790: 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 09 09 73   clicks]"......s
67a0: 65 74 20 66 61 69 6c 65 64 20 30 0a 09 09 09 09  et failed 0.....
67b0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09 09 09  if {[catch {....
67c0: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69  ..file mkdir [fi
67d0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 6c 6f 63 61  le dirname $loca
67e0: 6c 70 61 74 68 5d 0a 09 09 09 09 09 66 69 6c 65  lpath]......file
67f0: 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d 20   copy -force -- 
6800: 24 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 20  $localcachefile 
6810: 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 0a 09  $tmplocalpath...
6820: 09 09 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68  ....if {$pkgpath
6830: 69 6e 66 6f 28 70 65 72 6d 73 29 20 3d 3d 20 22  info(perms) == "
6840: 78 22 7d 20 7b 0a 09 09 09 09 09 09 66 69 6c 65  x"} {.......file
6850: 20 61 74 74 72 69 62 75 74 65 73 20 24 74 6d 70   attributes $tmp
6860: 6c 6f 63 61 6c 70 61 74 68 20 2d 70 65 72 6d 69  localpath -permi
6870: 73 73 69 6f 6e 73 20 2b 78 0a 09 09 09 09 09 7d  ssions +x......}
6880: 0a 0a 09 09 09 09 09 66 69 6c 65 20 72 65 6e 61  .......file rena
6890: 6d 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d  me -force -- $tm
68a0: 70 6c 6f 63 61 6c 70 61 74 68 20 24 6c 6f 63 61  plocalpath $loca
68b0: 6c 70 61 74 68 0a 09 09 09 09 7d 20 65 72 72 5d  lpath.....} err]
68c0: 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 66 61 69  } {......set fai
68d0: 6c 65 64 20 31 0a 09 09 09 09 7d 0a 09 09 09 09  led 1.....}.....
68e0: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 66 69 6c  catch {......fil
68f0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
6900: 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70 61 74 68  -- $tmplocalpath
6910: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09  .....}....}.....
6920: 69 66 20 7b 24 66 61 69 6c 65 64 7d 20 7b 0a 09  if {$failed} {..
6930: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
6940: 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09 7d 0a  error $err....}.
6950: 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61  ....return $loca
6960: 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72 65 74  lpath...}....ret
6970: 75 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68 65 66  urn $localcachef
6980: 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 6c 6f  ile..}...proc lo
6990: 63 61 6c 70 61 74 68 20 7b 70 61 74 68 7d 20 7b  calpath {path} {
69a0: 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61 74  ...array set pat
69b0: 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61 74  hinfo [_parsepat
69c0: 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b  h $path]....if {
69d0: 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29  $pathinfo(_type)
69e0: 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a 09   != "files"} {..
69f0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
6a00: 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 70 61  rror "invalid pa
6a10: 74 68 20 74 79 70 65 3a 20 47 6f 74 20 5c 22 24  th type: Got \"$
6a20: 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 5c  pathinfo(_type)\
6a30: 22 2c 20 6e 65 65 64 20 5c 22 66 69 6c 65 73 5c  ", need \"files\
6a40: 22 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f  ""...}....set lo
6a50: 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61 6c 70  calpath [_localp
6a60: 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70 61  ath $pathinfo(pa
6a70: 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66 6f  ckage) $pathinfo
6a80: 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 68  (hostname) $path
6a90: 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 72  info(file)]....r
6aa0: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68  eturn $localpath
6ab0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 65 78 69 73 74  ..}...proc exist
6ac0: 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09 63 61 74  s {path} {...cat
6ad0: 63 68 20 7b 0a 09 09 09 73 65 74 20 69 6e 66 6f  ch {....set info
6ae0: 20 5b 67 65 74 61 74 74 72 20 24 70 61 74 68 5d   [getattr $path]
6af0: 0a 09 09 7d 20 65 72 72 0a 0a 09 09 69 66 20 7b  ...} err....if {
6b00: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69 6e  ![info exists in
6b10: 66 6f 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 65  fo]} {....if {$e
6b20: 72 72 20 3d 3d 20 22 4e 6f 20 73 75 63 68 20 66  rr == "No such f
6b30: 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79  ile or directory
6b40: 22 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20  "} {.....return 
6b50: 5b 6c 69 73 74 5d 0a 09 09 09 7d 20 65 6c 73 65  [list]....} else
6b60: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d 63   {.....return -c
6b70: 6f 64 65 20 65 72 72 6f 72 20 24 65 72 72 0a 09  ode error $err..
6b80: 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  ..}...}....retur
6b90: 6e 20 24 69 6e 66 6f 0a 09 7d 0a 0a 09 70 72 6f  n $info..}...pro
6ba0: 63 20 70 72 65 70 61 72 65 5f 74 6f 5f 63 72 65  c prepare_to_cre
6bb0: 61 74 65 20 7b 70 61 74 68 20 7b 6d 75 73 74 5f  ate {path {must_
6bc0: 6e 6f 74 5f 65 78 69 73 74 20 31 7d 7d 20 7b 0a  not_exist 1}} {.
6bd0: 09 09 69 66 20 7b 24 6d 75 73 74 5f 6e 6f 74 5f  ..if {$must_not_
6be0: 65 78 69 73 74 7d 20 7b 0a 09 09 09 69 66 20 7b  exist} {....if {
6bf0: 5b 65 78 69 73 74 73 20 24 70 61 74 68 5d 20 21  [exists $path] !
6c00: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 72 65 74 75  = ""} {.....retu
6c10: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
6c20: 46 69 6c 65 20 61 6c 72 65 61 64 79 20 65 78 69  File already exi
6c30: 73 74 73 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  sts"....}...}...
6c40: 09 73 65 74 20 66 69 6c 65 6e 61 6d 65 20 5b 6c  .set filename [l
6c50: 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 5d 0a  ocalpath $path].
6c60: 0a 09 09 69 66 20 7b 24 66 69 6c 65 6e 61 6d 65  ...if {$filename
6c70: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74   == ""} {....ret
6c80: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
6c90: 22 41 73 6b 65 64 20 74 6f 20 63 72 65 61 74 65  "Asked to create
6ca0: 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69  , but no home di
6cb0: 72 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09  rectory."...}...
6cc0: 09 73 65 74 20 64 69 72 6e 61 6d 65 20 5b 66 69  .set dirname [fi
6cd0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69 6c 65  le dirname $file
6ce0: 6e 61 6d 65 5d 0a 0a 09 09 5f 61 73 5f 75 73 65  name]...._as_use
6cf0: 72 20 7b 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69  r {....file mkdi
6d00: 72 20 24 64 69 72 6e 61 6d 65 0a 09 09 7d 0a 0a  r $dirname...}..
6d10: 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65 6e 61  ..return $filena
6d20: 6d 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 75 6e 6c  me..}...proc unl
6d30: 69 6e 6b 70 61 74 68 20 7b 70 61 74 68 7d 20 7b  inkpath {path} {
6d40: 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61 74  ...array set pat
6d50: 68 61 74 74 72 73 20 5b 65 78 69 73 74 73 20 24  hattrs [exists $
6d60: 70 61 74 68 5d 0a 0a 09 09 69 66 20 7b 24 70 61  path]....if {$pa
6d70: 74 68 61 74 74 72 73 28 70 61 74 68 5f 74 79 70  thattrs(path_typ
6d80: 65 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b  e) != "files"} {
6d90: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
6da0: 20 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20   error "invalid 
6db0: 70 61 74 68 20 74 79 70 65 3a 20 63 61 6e 20 6f  path type: can o
6dc0: 6e 6c 79 20 64 65 6c 65 74 65 20 74 79 70 65 20  nly delete type 
6dd0: 5c 22 66 69 6c 65 73 5c 22 20 74 68 69 73 20 69  \"files\" this i
6de0: 73 20 74 79 70 65 20 5c 22 24 70 61 74 68 61 74  s type \"$pathat
6df0: 74 72 73 28 70 61 74 68 5f 74 79 70 65 29 5c 22  trs(path_type)\"
6e00: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63  "...}....set loc
6e10: 61 6c 70 61 74 68 20 24 70 61 74 68 61 74 74 72  alpath $pathattr
6e20: 73 28 6c 6f 63 61 6c 70 61 74 68 29 0a 0a 09 09  s(localpath)....
6e30: 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 3d  if {$localpath =
6e40: 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72  = ""} {....retur
6e50: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41  n -code error "A
6e60: 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 2c 20  sked to delete, 
6e70: 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65  but no home dire
6e80: 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 09 69  ctory."...}....i
6e90: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
6ea0: 70 61 74 68 61 74 74 72 73 28 69 73 5f 6c 6f 63  pathattrs(is_loc
6eb0: 61 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 09 69  alfile)]} {....i
6ec0: 66 20 7b 5b 66 69 6c 65 20 69 73 64 69 72 65 63  f {[file isdirec
6ed0: 74 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74 68 5d  tory $localpath]
6ee0: 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68 69 6c  } {.....set chil
6ef0: 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64 72 65  dren [getchildre
6f00: 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09 69 66  n $path]......if
6f10: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68 69 6c   {[llength $chil
6f20: 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09 09  dren] != 0} {...
6f30: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
6f40: 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20  error "Asked to 
6f50: 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74 79  delete non-empty
6f60: 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09   directory".....
6f70: 7d 0a 09 09 09 7d 0a 0a 09 09 09 5f 61 73 5f 75  }....}....._as_u
6f80: 73 65 72 20 7b 0a 09 09 09 09 66 69 6c 65 20 64  ser {.....file d
6f90: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20  elete -force -- 
6fa0: 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 7d 0a  $localpath....}.
6fb0: 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66  ..} elseif {[inf
6fc0: 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 74 74  o exists pathatt
6fd0: 72 73 28 69 73 5f 72 65 6d 6f 74 65 66 69 6c 65  rs(is_remotefile
6fe0: 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 70 61  )]} {....if {$pa
6ff0: 74 68 61 74 74 72 73 28 74 79 70 65 29 20 3d 3d  thattrs(type) ==
7000: 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20 7b 0a   "directory"} {.
7010: 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 65 6e  ....set children
7020: 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 24 70   [getchildren $p
7030: 61 74 68 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 6c  ath]......if {[l
7040: 6c 65 6e 67 74 68 20 24 63 68 69 6c 64 72 65 6e  length $children
7050: 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 09 09 72  ] != 0} {......r
7060: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
7070: 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65 6c 65  r "Asked to dele
7080: 74 65 20 6e 6f 6e 2d 65 6d 70 74 79 20 64 69 72  te non-empty dir
7090: 65 63 74 6f 72 79 22 0a 09 09 09 09 7d 0a 09 09  ectory".....}...
70a0: 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  .}...} else {...
70b0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
70c0: 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 69 66 20  ror "Unknown if 
70d0: 66 69 6c 65 20 69 73 20 72 65 6d 6f 74 65 20 6f  file is remote o
70e0: 72 20 6c 6f 63 61 6c 20 21 3f 22 0a 09 09 7d 0a  r local !?"...}.
70f0: 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75 74 66  ...set whiteoutf
7100: 69 6c 65 20 24 70 61 74 68 61 74 74 72 73 28 77  ile $pathattrs(w
7110: 68 69 74 65 6f 75 74 70 61 74 68 29 0a 09 09 73  hiteoutpath)...s
7120: 65 74 20 77 68 69 74 65 6f 75 74 64 69 72 20 5b  et whiteoutdir [
7130: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 77 68  file dirname $wh
7140: 69 74 65 6f 75 74 66 69 6c 65 5d 0a 0a 09 09 5f  iteoutfile]...._
7150: 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66 69 6c  as_user {....fil
7160: 65 20 6d 6b 64 69 72 20 24 77 68 69 74 65 6f 75  e mkdir $whiteou
7170: 74 64 69 72 0a 09 09 09 63 6c 6f 73 65 20 5b 6f  tdir....close [o
7180: 70 65 6e 20 24 77 68 69 74 65 6f 75 74 66 69 6c  pen $whiteoutfil
7190: 65 20 77 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a        e w]...}..}.}.