0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 #! /usr/bin/env
0010: 74 63 6c 73 68 0a 0a 23 0a 23 20 43 6f 70 79 72 tclsh..#.# Copyr
0020: 69 67 68 74 20 28 63 29 20 32 30 31 34 20 20 52 ight (c) 2014 R
0030: 6f 79 20 4b 65 65 6e 65 0a 23 0a 23 20 50 65 72 oy Keene.#.# Per
0040: 6d 69 73 73 69 6f 6e 20 69 73 20 68 65 72 65 62 mission is hereb
0050: 79 20 67 72 61 6e 74 65 64 2c 20 66 72 65 65 20 y granted, free
0060: 6f 66 20 63 68 61 72 67 65 2c 20 74 6f 20 61 6e of charge, to an
0070: 79 20 70 65 72 73 6f 6e 20 6f 62 74 61 69 6e 69 y person obtaini
0080: 6e 67 20 61 20 63 6f 70 79 0a 23 20 6f 66 20 74 ng a copy.# of t
0090: 68 69 73 20 73 6f 66 74 77 61 72 65 20 61 6e 64 his software and
00a0: 20 61 73 73 6f 63 69 61 74 65 64 20 64 6f 63 75 associated docu
00b0: 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6c 65 73 20 mentation files
00c0: 28 74 68 65 20 22 53 6f 66 74 77 61 72 65 22 29 (the "Software")
00d0: 2c 20 74 6f 20 64 65 61 6c 0a 23 20 69 6e 20 74 , to deal.# in t
00e0: 68 65 20 53 6f 66 74 77 61 72 65 20 77 69 74 68 he Software with
00f0: 6f 75 74 20 72 65 73 74 72 69 63 74 69 6f 6e 2c out restriction,
0100: 20 69 6e 63 6c 75 64 69 6e 67 20 77 69 74 68 6f including witho
0110: 75 74 20 6c 69 6d 69 74 61 74 69 6f 6e 20 74 68 ut limitation th
0120: 65 20 72 69 67 68 74 73 0a 23 20 74 6f 20 75 73 e rights.# to us
0130: 65 2c 20 63 6f 70 79 2c 20 6d 6f 64 69 66 79 2c e, copy, modify,
0140: 20 6d 65 72 67 65 2c 20 70 75 62 6c 69 73 68 2c merge, publish,
0150: 20 64 69 73 74 72 69 62 75 74 65 2c 20 73 75 62 distribute, sub
0160: 6c 69 63 65 6e 73 65 2c 20 61 6e 64 2f 6f 72 20 license, and/or
0170: 73 65 6c 6c 0a 23 20 63 6f 70 69 65 73 20 6f 66 sell.# copies of
0180: 20 74 68 65 20 53 6f 66 74 77 61 72 65 2c 20 61 the Software, a
0190: 6e 64 20 74 6f 20 70 65 72 6d 69 74 20 70 65 72 nd to permit per
01a0: 73 6f 6e 73 20 74 6f 20 77 68 6f 6d 20 74 68 65 sons to whom the
01b0: 20 53 6f 66 74 77 61 72 65 20 69 73 0a 23 20 66 Software is.# f
01c0: 75 72 6e 69 73 68 65 64 20 74 6f 20 64 6f 20 73 urnished to do s
01d0: 6f 2c 20 73 75 62 6a 65 63 74 20 74 6f 20 74 68 o, subject to th
01e0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 e following cond
01f0: 69 74 69 6f 6e 73 3a 0a 23 0a 23 20 54 68 65 20 itions:.#.# The
0200: 61 62 6f 76 65 20 63 6f 70 79 72 69 67 68 74 20 above copyright
0210: 6e 6f 74 69 63 65 20 61 6e 64 20 74 68 69 73 20 notice and this
0220: 70 65 72 6d 69 73 73 69 6f 6e 20 6e 6f 74 69 63 permission notic
0230: 65 20 73 68 61 6c 6c 20 62 65 20 69 6e 63 6c 75 e shall be inclu
0240: 64 65 64 20 69 6e 0a 23 20 61 6c 6c 20 63 6f 70 ded in.# all cop
0250: 69 65 73 20 6f 72 20 73 75 62 73 74 61 6e 74 69 ies or substanti
0260: 61 6c 20 70 6f 72 74 69 6f 6e 73 20 6f 66 20 74 al portions of t
0270: 68 65 20 53 6f 66 74 77 61 72 65 2e 0a 23 0a 23 he Software..#.#
0280: 20 54 48 45 20 53 4f 46 54 57 41 52 45 20 49 53 THE SOFTWARE IS
0290: 20 50 52 4f 56 49 44 45 44 20 22 41 53 20 49 53 PROVIDED "AS IS
02a0: 22 2c 20 57 49 54 48 4f 55 54 20 57 41 52 52 41 ", WITHOUT WARRA
02b0: 4e 54 59 20 4f 46 20 41 4e 59 20 4b 49 4e 44 2c NTY OF ANY KIND,
02c0: 20 45 58 50 52 45 53 53 20 4f 52 0a 23 20 49 4d EXPRESS OR.# IM
02d0: 50 4c 49 45 44 2c 20 49 4e 43 4c 55 44 49 4e 47 PLIED, INCLUDING
02e0: 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 BUT NOT LIMITED
02f0: 20 54 4f 20 54 48 45 20 57 41 52 52 41 4e 54 49 TO THE WARRANTI
0300: 45 53 20 4f 46 20 4d 45 52 43 48 41 4e 54 41 42 ES OF MERCHANTAB
0310: 49 4c 49 54 59 2c 0a 23 20 46 49 54 4e 45 53 53 ILITY,.# FITNESS
0320: 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 FOR A PARTICULA
0330: 52 20 50 55 52 50 4f 53 45 20 41 4e 44 20 4e 4f R PURPOSE AND NO
0340: 4e 49 4e 46 52 49 4e 47 45 4d 45 4e 54 2e 20 49 NINFRINGEMENT. I
0350: 4e 20 4e 4f 20 45 56 45 4e 54 20 53 48 41 4c 4c N NO EVENT SHALL
0360: 20 54 48 45 0a 23 20 41 55 54 48 4f 52 53 20 4f THE.# AUTHORS O
0370: 52 20 43 4f 50 59 52 49 47 48 54 20 48 4f 4c 44 R COPYRIGHT HOLD
0380: 45 52 53 20 42 45 20 4c 49 41 42 4c 45 20 46 4f ERS BE LIABLE FO
0390: 52 20 41 4e 59 20 43 4c 41 49 4d 2c 20 44 41 4d R ANY CLAIM, DAM
03a0: 41 47 45 53 20 4f 52 20 4f 54 48 45 52 0a 23 20 AGES OR OTHER.#
03b0: 4c 49 41 42 49 4c 49 54 59 2c 20 57 48 45 54 48 LIABILITY, WHETH
03c0: 45 52 20 49 4e 20 41 4e 20 41 43 54 49 4f 4e 20 ER IN AN ACTION
03d0: 4f 46 20 43 4f 4e 54 52 41 43 54 2c 20 54 4f 52 OF CONTRACT, TOR
03e0: 54 20 4f 52 20 4f 54 48 45 52 57 49 53 45 2c 20 T OR OTHERWISE,
03f0: 41 52 49 53 49 4e 47 20 46 52 4f 4d 2c 0a 23 20 ARISING FROM,.#
0400: 4f 55 54 20 4f 46 20 4f 52 20 49 4e 20 43 4f 4e OUT OF OR IN CON
0410: 4e 45 43 54 49 4f 4e 20 57 49 54 48 20 54 48 45 NECTION WITH THE
0420: 20 53 4f 46 54 57 41 52 45 20 4f 52 20 54 48 45 SOFTWARE OR THE
0430: 20 55 53 45 20 4f 52 20 4f 54 48 45 52 20 44 45 USE OR OTHER DE
0440: 41 4c 49 4e 47 53 20 49 4e 0a 23 20 54 48 45 20 ALINGS IN.# THE
0450: 53 4f 46 54 57 41 52 45 2e 0a 23 0a 0a 70 61 63 SOFTWARE..#..pac
0460: 6b 61 67 65 20 72 65 71 75 69 72 65 20 68 74 74 kage require htt
0470: 70 20 32 2e 37 0a 70 61 63 6b 61 67 65 20 72 65 p 2.7.package re
0480: 71 75 69 72 65 20 73 71 6c 69 74 65 33 0a 70 61 quire sqlite3.pa
0490: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 68 ckage require sh
04a0: 61 31 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 a1.package requi
04b0: 72 65 20 61 70 70 66 73 64 0a 70 61 63 6b 61 67 re appfsd.packag
04c0: 65 20 72 65 71 75 69 72 65 20 70 6c 61 74 66 6f e require platfo
04d0: 72 6d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 rm.package requi
04e0: 72 65 20 70 6b 69 0a 0a 23 20 46 75 6e 63 74 69 re pki..# Functi
04f0: 6f 6e 73 20 73 70 65 63 69 66 69 63 61 6c 6c 79 ons specifically
0500: 20 6d 65 61 6e 74 20 66 6f 72 20 75 73 65 72 73 meant for users
0510: 20 74 6f 20 72 65 70 6c 61 63 65 20 61 73 20 61 to replace as a
0520: 20 70 61 72 74 20 6f 66 20 63 6f 6e 66 69 67 75 part of configu
0530: 72 61 74 69 6f 6e 0a 6e 61 6d 65 73 70 61 63 65 ration.namespace
0540: 20 65 76 61 6c 20 3a 3a 61 70 70 66 73 3a 3a 75 eval ::appfs::u
0550: 73 65 72 20 7b 0a 09 23 20 55 73 65 72 2d 72 65 ser {..# User-re
0560: 70 6c 61 63 61 62 6c 65 20 66 75 6e 63 74 69 6f placable functio
0570: 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20 61 20 68 n to convert a h
0580: 6f 73 74 6e 61 6d 65 2f 68 61 73 68 2f 6d 65 74 ostname/hash/met
0590: 68 6f 64 20 74 6f 20 61 6e 20 55 52 4c 0a 09 70 hod to an URL..p
05a0: 72 6f 63 20 63 6f 6e 73 74 72 75 63 74 5f 75 72 roc construct_ur
05b0: 6c 20 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 l {hostname hash
05c0: 20 6d 65 74 68 6f 64 7d 20 7b 0a 09 09 72 65 74 method} {...ret
05d0: 75 72 6e 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 urn "http://$hos
05e0: 74 6e 61 6d 65 2f 61 70 70 66 73 2f 24 6d 65 74 tname/appfs/$met
05f0: 68 6f 64 2f 24 68 61 73 68 22 0a 09 7d 0a 0a 09 hod/$hash"..}...
0600: 23 20 55 73 65 72 2d 72 65 70 6c 61 63 65 61 62 # User-replaceab
0610: 6c 65 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 20 le function get
0620: 74 68 65 20 68 6f 6d 65 20 64 69 72 65 63 74 6f the home directo
0630: 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e ry of the curren
0640: 74 20 75 73 65 72 0a 09 70 72 6f 63 20 67 65 74 t user..proc get
0650: 5f 68 6f 6d 65 64 69 72 20 7b 7d 20 7b 0a 09 09 _homedir {} {...
0660: 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 64 return [::appfsd
0670: 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09 ::get_homedir]..
0680: 7d 0a 0a 09 23 20 55 73 65 72 2d 72 65 70 6c 61 }...# User-repla
0690: 63 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 74 cable function t
06a0: 6f 20 75 70 64 61 74 65 20 70 65 72 6d 69 73 73 o update permiss
06b0: 69 6f 6e 73 0a 09 70 72 6f 63 20 63 68 61 6e 67 ions..proc chang
06c0: 65 5f 70 65 72 6d 73 20 7b 66 69 6c 65 20 73 68 e_perms {file sh
06d0: 61 31 20 70 65 72 6d 73 7d 20 7b 0a 09 09 69 66 a1 perms} {...if
06e0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
06f0: 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64 :appfs::user::ad
0700: 64 5f 70 65 72 6d 73 28 24 66 69 6c 65 29 5d 7d d_perms($file)]}
0710: 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 70 65 72 {....append per
0720: 6d 73 20 24 3a 3a 61 70 70 66 73 3a 3a 75 73 65 ms $::appfs::use
0730: 72 3a 3a 61 64 64 5f 70 65 72 6d 73 28 24 66 69 r::add_perms($fi
0740: 6c 65 29 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b le)...}....if {[
0750: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70 info exists ::ap
0760: 70 66 73 3a 3a 75 73 65 72 3a 3a 61 64 64 5f 70 pfs::user::add_p
0770: 65 72 6d 73 28 24 73 68 61 31 29 5d 7d 20 7b 0a erms($sha1)]} {.
0780: 09 09 09 61 70 70 65 6e 64 20 70 65 72 6d 73 20 ...append perms
0790: 24 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a $::appfs::user::
07a0: 61 64 64 5f 70 65 72 6d 73 28 24 73 68 61 31 29 add_perms($sha1)
07b0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 ...}....return $
07c0: 70 65 72 6d 73 0a 09 7d 0a 7d 0a 0a 6e 61 6d 65 perms..}.}..name
07d0: 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 61 70 70 space eval ::app
07e0: 66 73 20 7b 0a 09 76 61 72 69 61 62 6c 65 20 63 fs {..variable c
07f0: 61 63 68 65 64 69 72 20 22 2f 74 6d 70 2f 61 70 achedir "/tmp/ap
0800: 70 66 73 2d 63 61 63 68 65 22 0a 09 76 61 72 69 pfs-cache"..vari
0810: 61 62 6c 65 20 74 74 6c 20 33 36 30 30 0a 09 76 able ttl 3600..v
0820: 61 72 69 61 62 6c 65 20 6e 74 74 6c 20 36 30 0a ariable nttl 60.
0830: 09 76 61 72 69 61 62 6c 65 20 74 72 75 73 74 65 .variable truste
0840: 64 5f 63 61 73 20 5b 6c 69 73 74 5d 0a 09 76 61 d_cas [list]..va
0850: 72 69 61 62 6c 65 20 70 6c 61 74 66 6f 72 6d 20 riable platform
0860: 5b 3a 3a 70 6c 61 74 66 6f 72 6d 3a 3a 67 65 6e [::platform::gen
0870: 65 72 69 63 5d 0a 0a 09 70 72 6f 63 20 5f 68 61 eric]...proc _ha
0880: 73 68 5f 73 65 70 20 7b 68 61 73 68 20 7b 73 65 sh_sep {hash {se
0890: 70 73 20 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b ps 4}} {...for {
08a0: 73 65 74 20 69 64 78 20 30 7d 20 7b 24 69 64 78 set idx 0} {$idx
08b0: 20 3c 20 24 73 65 70 73 7d 20 7b 69 6e 63 72 20 < $seps} {incr
08c0: 69 64 78 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 idx} {....append
08d0: 20 72 65 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 retval "[string
08e0: 20 72 61 6e 67 65 20 24 68 61 73 68 20 5b 65 78 range $hash [ex
08f0: 70 72 20 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b pr {$idx * 2}] [
0900: 65 78 70 72 20 7b 28 24 69 64 78 20 2a 20 32 29 expr {($idx * 2)
0910: 20 2b 20 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 + 1}]]/"...}...
0920: 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b append retval "[
0930: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61 string range $ha
0940: 73 68 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a sh [expr {$idx *
0950: 20 32 7d 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65 2}] end]"....re
0960: 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a turn $retval..}.
0970: 0a 09 70 72 6f 63 20 5f 63 61 63 68 65 66 69 6c ..proc _cachefil
0980: 65 20 7b 75 72 6c 20 6b 65 79 20 7b 6b 65 79 49 e {url key {keyI
0990: 73 48 61 73 68 20 31 7d 7d 20 7b 0a 09 09 73 65 sHash 1}} {...se
09a0: 74 20 66 69 6c 65 6b 65 79 20 24 6b 65 79 0a 09 t filekey $key..
09b0: 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73 68 7d .if {$keyIsHash}
09c0: 20 7b 0a 09 09 09 73 65 74 20 66 69 6c 65 6b 65 {....set fileke
09d0: 79 20 5b 5f 68 61 73 68 5f 73 65 70 20 24 66 69 y [_hash_sep $fi
09e0: 6c 65 6b 65 79 5d 0a 09 09 7d 0a 0a 09 09 73 65 lekey]...}....se
09f0: 74 20 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 t file [file joi
0a00: 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 n $::appfs::cach
0a10: 65 64 69 72 20 24 66 69 6c 65 6b 65 79 5d 0a 0a edir $filekey]..
0a20: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69 ..file mkdir [fi
0a30: 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 69 6c 65 le dirname $file
0a40: 5d 0a 0a 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 ]....if {[file e
0a50: 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a xists $file]} {.
0a60: 09 09 09 72 65 74 75 72 6e 20 24 66 69 6c 65 0a ...return $file.
0a70: 09 09 7d 0a 0a 09 09 73 65 74 20 74 6d 70 66 69 ..}....set tmpfi
0a80: 6c 65 20 22 24 7b 66 69 6c 65 7d 2e 5b 65 78 70 le "${file}.[exp
0a90: 72 20 7b 72 61 6e 64 28 29 7d 5d 5b 63 6c 6f 63 r {rand()}][cloc
0aa0: 6b 20 63 6c 69 63 6b 73 5d 22 0a 0a 09 09 73 65 k clicks]"....se
0ab0: 74 20 66 64 20 5b 6f 70 65 6e 20 24 74 6d 70 66 t fd [open $tmpf
0ac0: 69 6c 65 20 22 77 22 5d 0a 09 09 66 63 6f 6e 66 ile "w"]...fconf
0ad0: 69 67 75 72 65 20 24 66 64 20 2d 74 72 61 6e 73 igure $fd -trans
0ae0: 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 0a 09 lation binary...
0af0: 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 .catch {....set
0b00: 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 token [::http::g
0b10: 65 74 75 72 6c 20 24 75 72 6c 20 2d 63 68 61 6e eturl $url -chan
0b20: 6e 65 6c 20 24 66 64 20 2d 62 69 6e 61 72 79 20 nel $fd -binary
0b30: 74 72 75 65 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 true]...}....if
0b40: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 6f {[info exists to
0b50: 6b 65 6e 5d 7d 20 7b 0a 09 09 09 73 65 74 20 6e ken]} {....set n
0b60: 63 6f 64 65 20 5b 3a 3a 68 74 74 70 3a 3a 6e 63 code [::http::nc
0b70: 6f 64 65 20 24 74 6f 6b 65 6e 5d 0a 09 09 09 3a ode $token]....:
0b80: 3a 68 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f :http::reset $to
0b90: 6b 65 6e 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 ken...} else {..
0ba0: 09 09 73 65 74 20 6e 63 6f 64 65 20 22 39 30 30 ..set ncode "900
0bb0: 22 0a 09 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 "...}....close $
0bc0: 66 64 0a 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 fd....if {$keyIs
0bd0: 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74 20 68 Hash} {....set h
0be0: 61 73 68 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f ash [string tolo
0bf0: 77 65 72 20 5b 73 68 61 31 3a 3a 73 68 61 31 20 wer [sha1::sha1
0c00: 2d 68 65 78 20 2d 66 69 6c 65 20 24 74 6d 70 66 -hex -file $tmpf
0c10: 69 6c 65 5d 5d 0a 09 09 7d 20 65 6c 73 65 20 7b ile]]...} else {
0c20: 0a 09 09 09 73 65 74 20 68 61 73 68 20 24 6b 65 ....set hash $ke
0c30: 79 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 63 y...}....if {$nc
0c40: 6f 64 65 20 3d 3d 20 22 32 30 30 22 20 26 26 20 ode == "200" &&
0c50: 24 68 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b $hash == $key} {
0c60: 0a 09 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 ....file rename
0c70: 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69 -force -- $tmpfi
0c80: 6c 65 20 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73 le $file...} els
0c90: 65 20 7b 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 e {....file dele
0ca0: 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d te -force -- $tm
0cb0: 70 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74 pfile...}....ret
0cc0: 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09 urn $file..}....
0cd0: 70 72 6f 63 20 5f 69 73 48 61 73 68 20 7b 76 61 proc _isHash {va
0ce0: 6c 75 65 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c lue} {...set val
0cf0: 75 65 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 ue [string tolow
0d00: 65 72 20 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66 er $value]....if
0d10: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
0d20: 20 24 76 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20 $value] != 40}
0d30: 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 {....return fals
0d40: 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72 e...}....if {![r
0d50: 65 67 65 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d egexp {^[0-9a-f]
0d60: 2a 24 7d 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09 *$} $value]} {..
0d70: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 ..return false..
0d80: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 .}....return tru
0d90: 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 76 65 72 e..}...proc _ver
0da0: 69 66 79 53 69 67 6e 61 74 75 72 65 41 6e 64 43 ifySignatureAndC
0db0: 65 72 74 69 66 69 63 61 74 65 20 7b 68 6f 73 74 ertificate {host
0dc0: 6e 61 6d 65 20 63 65 72 74 69 66 69 63 61 74 65 name certificate
0dd0: 20 73 69 67 6e 61 74 75 72 65 20 68 61 73 68 7d signature hash}
0de0: 20 7b 0a 09 09 73 65 74 20 63 65 72 74 69 66 69 {...set certifi
0df0: 63 61 74 65 20 5b 62 69 6e 61 72 79 20 66 6f 72 cate [binary for
0e00: 6d 61 74 20 22 48 2a 22 20 24 63 65 72 74 69 66 mat "H*" $certif
0e10: 69 63 61 74 65 5d 0a 09 09 73 65 74 20 73 69 67 icate]...set sig
0e20: 6e 61 74 75 72 65 20 20 20 5b 62 69 6e 61 72 79 nature [binary
0e30: 20 66 6f 72 6d 61 74 20 22 48 2a 22 20 24 73 69 format "H*" $si
0e40: 67 6e 61 74 75 72 65 5d 0a 0a 09 09 73 65 74 20 gnature]....set
0e50: 63 65 72 74 69 66 69 63 61 74 65 20 5b 3a 3a 70 certificate [::p
0e60: 6b 69 3a 3a 78 35 30 39 3a 3a 70 61 72 73 65 5f ki::x509::parse_
0e70: 63 65 72 74 20 24 63 65 72 74 69 66 69 63 61 74 cert $certificat
0e80: 65 5d 0a 0a 09 09 61 72 72 61 79 20 73 65 74 20 e]....array set
0e90: 63 65 72 74 69 66 69 63 61 74 65 5f 61 72 72 20 certificate_arr
0ea0: 24 63 65 72 74 69 66 69 63 61 74 65 0a 09 09 73 $certificate...s
0eb0: 65 74 20 63 65 72 74 69 66 69 63 61 74 65 5f 63 et certificate_c
0ec0: 6e 20 5b 3a 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a n [::pki::x509::
0ed0: 5f 64 6e 5f 74 6f 5f 63 6e 20 24 63 65 72 74 69 _dn_to_cn $certi
0ee0: 66 69 63 61 74 65 5f 61 72 72 28 73 75 62 6a 65 ficate_arr(subje
0ef0: 63 74 29 5d 0a 0a 09 09 69 66 20 7b 21 5b 3a 3a ct)]....if {![::
0f00: 70 6b 69 3a 3a 76 65 72 69 66 79 20 24 73 69 67 pki::verify $sig
0f10: 6e 61 74 75 72 65 20 22 24 68 61 73 68 2c 73 68 nature "$hash,sh
0f20: 61 31 22 20 24 63 65 72 74 69 66 69 63 61 74 65 a1" $certificate
0f30: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 ]} {....return f
0f40: 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b alse...}....if {
0f50: 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 [string tolower
0f60: 24 63 65 72 74 69 66 69 63 61 74 65 5f 63 6e 5d $certificate_cn]
0f70: 20 21 3d 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f != [string tolo
0f80: 77 65 72 20 24 68 6f 73 74 6e 61 6d 65 5d 7d 20 wer $hostname]}
0f90: 7b 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 {....return fals
0fa0: 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 3a e...}....if {![:
0fb0: 3a 70 6b 69 3a 3a 78 35 30 39 3a 3a 76 65 72 69 :pki::x509::veri
0fc0: 66 79 5f 63 65 72 74 20 24 63 65 72 74 69 66 69 fy_cert $certifi
0fd0: 63 61 74 65 20 24 3a 3a 61 70 70 66 73 3a 3a 74 cate $::appfs::t
0fe0: 72 75 73 74 65 64 5f 63 61 73 5d 7d 20 7b 0a 09 rusted_cas]} {..
0ff0: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 ..return false..
1000: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 74 72 75 .}....return tru
1010: 65 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 e..}...proc _nor
1020: 6d 61 6c 69 7a 65 4f 53 20 7b 6f 73 20 7b 74 6f malizeOS {os {to
1030: 6c 65 72 61 6e 74 20 30 7d 7d 20 7b 0a 09 09 73 lerant 0}} {...s
1040: 65 74 20 6f 73 20 5b 73 74 72 69 6e 67 20 74 6f et os [string to
1050: 6c 6f 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72 lower [string tr
1060: 69 6d 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69 74 im $os]]....swit
1070: 63 68 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09 22 ch -- $os {...."
1080: 6c 69 6e 75 78 22 20 2d 20 22 66 72 65 65 62 73 linux" - "freebs
1090: 64 22 20 2d 20 22 6f 70 65 6e 62 73 64 22 20 2d d" - "openbsd" -
10a0: 20 22 6e 65 74 62 73 64 22 20 7b 0a 09 09 09 09 "netbsd" {.....
10b0: 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d 0a return $os....}.
10c0: 09 09 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09 09 ..."sunos" {....
10d0: 09 72 65 74 75 72 6e 20 22 73 6f 6c 61 72 69 73 .return "solaris
10e0: 22 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63 "....}...."noarc
10f0: 68 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61 h" - "none" - "a
1100: 6e 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09 ny" - "all" {...
1110: 09 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68 ..return "noarch
1120: 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 "....}...}....if
1130: 20 7b 24 74 6f 6c 65 72 61 6e 74 7d 20 7b 0a 09 {$tolerant} {..
1140: 09 09 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 7d ..return $os...}
1150: 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 ....return -code
1160: 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 error "Unable t
1170: 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20 o normalize OS:
1180: 24 6f 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f $os"..}...proc _
1190: 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70 normalizeCPU {cp
11a0: 75 20 7b 74 6f 6c 65 72 61 6e 74 20 30 7d 7d 20 u {tolerant 0}}
11b0: 7b 0a 09 09 73 65 74 20 63 70 75 20 5b 73 74 72 {...set cpu [str
11c0: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 ing tolower [str
11d0: 69 6e 67 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a ing trim $cpu]].
11e0: 0a 09 09 73 77 69 74 63 68 20 2d 67 6c 6f 62 20 ...switch -glob
11f0: 2d 2d 20 24 63 70 75 20 7b 0a 09 09 09 22 69 3f -- $cpu {...."i?
1200: 38 36 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 86" {.....return
1210: 20 22 69 78 38 36 22 0a 09 09 09 7d 0a 09 09 09 "ix86"....}....
1220: 22 78 38 36 5f 36 34 22 20 7b 0a 09 09 09 09 72 "x86_64" {.....r
1230: 65 74 75 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a eturn $cpu....}.
1240: 09 09 09 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e ..."noarch" - "n
1250: 6f 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d 20 22 one" - "any" - "
1260: 61 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74 75 72 all" {.....retur
1270: 6e 20 22 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a n "noarch"....}.
1280: 09 09 7d 0a 0a 09 09 69 66 20 7b 24 74 6f 6c 65 ..}....if {$tole
1290: 72 61 6e 74 7d 20 7b 0a 09 09 09 72 65 74 75 72 rant} {....retur
12a0: 6e 20 24 63 70 75 0a 09 09 7d 0a 0a 09 09 72 65 n $cpu...}....re
12b0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
12c0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d "Unable to norm
12d0: 61 6c 69 7a 65 20 43 50 55 3a 20 24 63 70 75 22 alize CPU: $cpu"
12e0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 61 73 5f 75 ..}...proc _as_u
12f0: 73 65 72 20 7b 63 6f 64 65 7d 20 7b 0a 09 09 3a ser {code} {...:
1300: 3a 61 70 70 66 73 64 3a 3a 73 69 6d 75 6c 61 74 :appfsd::simulat
1310: 65 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 0a e_user_fs_enter.
1320: 0a 09 09 73 65 74 20 72 65 74 63 6f 64 65 20 5b ...set retcode [
1330: 63 61 74 63 68 20 5b 6c 69 73 74 20 75 70 6c 65 catch [list uple
1340: 76 65 6c 20 24 63 6f 64 65 5d 20 72 65 74 73 74 vel $code] retst
1350: 72 5d 0a 0a 09 09 3a 3a 61 70 70 66 73 64 3a 3a r]....::appfsd::
1360: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 simulate_user_fs
1370: 5f 6c 65 61 76 65 0a 0a 09 09 72 65 74 75 72 6e _leave....return
1380: 20 2d 63 6f 64 65 20 24 72 65 74 63 6f 64 65 20 -code $retcode
1390: 24 72 65 74 73 74 72 0a 09 7d 0a 0a 09 70 72 6f $retstr..}...pro
13a0: 63 20 69 6e 69 74 20 7b 7d 20 7b 0a 09 09 69 66 c init {} {...if
13b0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
13c0: 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c :appfs::init_cal
13d0: 6c 65 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 led]} {....retur
13e0: 6e 0a 09 09 7d 0a 0a 09 09 23 20 46 6f 72 63 65 n...}....# Force
13f0: 20 5b 70 61 72 72 61 79 5d 20 61 6e 64 20 5b 63 [parray] and [c
1400: 6c 6f 63 6b 5d 20 74 6f 20 62 65 20 6c 6f 61 64 lock] to be load
1410: 65 64 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 ed...catch {....
1420: 70 61 72 72 61 79 20 64 6f 65 73 5f 6e 6f 74 5f parray does_not_
1430: 65 78 69 73 74 0a 09 09 7d 0a 09 09 63 61 74 63 exist...}...catc
1440: 68 20 7b 0a 09 09 09 63 6c 6f 63 6b 20 73 65 63 h {....clock sec
1450: 6f 6e 64 73 0a 09 09 7d 0a 09 09 63 61 74 63 68 onds...}...catch
1460: 20 7b 0a 09 09 09 63 6c 6f 63 6b 20 61 64 64 20 {....clock add
1470: 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 20 [clock seconds]
1480: 33 20 73 65 63 6f 6e 64 73 0a 09 09 7d 0a 0a 09 3 seconds...}...
1490: 09 73 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e .set ::appfs::in
14a0: 69 74 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 23 it_called 1....#
14b0: 20 41 64 64 20 61 20 64 65 66 61 75 6c 74 20 43 Add a default C
14c0: 41 20 74 6f 20 6c 69 73 74 20 6f 66 20 74 72 75 A to list of tru
14d0: 73 74 65 64 20 43 41 73 0a 09 09 6c 61 70 70 65 sted CAs...lappe
14e0: 6e 64 20 3a 3a 61 70 70 66 73 3a 3a 74 72 75 73 nd ::appfs::trus
14f0: 74 65 64 5f 63 61 73 20 5b 3a 3a 70 6b 69 3a 3a ted_cas [::pki::
1500: 78 35 30 39 3a 3a 70 61 72 73 65 5f 63 65 72 74 x509::parse_cert
1510: 20 7b 0a 2d 2d 2d 2d 2d 42 45 47 49 4e 20 43 45 {.-----BEGIN CE
1520: 52 54 49 46 49 43 41 54 45 2d 2d 2d 2d 2d 0a 4d RTIFICATE-----.M
1530: 49 49 43 37 44 43 43 41 64 53 67 41 77 49 42 41 IIC7DCCAdSgAwIBA
1540: 67 49 42 41 54 41 4e 42 67 6b 71 68 6b 69 47 39 gIBATANBgkqhkiG9
1550: 77 30 42 41 51 55 46 41 44 41 76 4d 52 49 77 45 w0BAQUFADAvMRIwE
1560: 41 59 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 0a AYDVQQKEwlSb3kg.
1570: 53 32 56 6c 62 6d 55 78 47 54 41 58 42 67 4e 56 S2VlbmUxGTAXBgNV
1580: 42 41 4d 54 45 45 46 77 63 45 5a 54 49 45 74 6c BAMTEEFwcEZTIEtl
1590: 65 53 42 4e 59 58 4e 30 5a 58 49 77 48 68 63 4e eSBNYXN0ZXIwHhcN
15a0: 4d 54 51 78 4d 54 45 33 4d 6a 41 78 4e 7a 49 34 MTQxMTE3MjAxNzI4
15b0: 0a 57 68 63 4e 4d 54 6b 78 4d 54 45 33 4d 6a 41 .WhcNMTkxMTE3MjA
15c0: 78 4e 7a 49 34 57 6a 41 76 4d 52 49 77 45 41 59 xNzI4WjAvMRIwEAY
15d0: 44 56 51 51 4b 45 77 6c 53 62 33 6b 67 53 32 56 DVQQKEwlSb3kgS2V
15e0: 6c 62 6d 55 78 47 54 41 58 42 67 4e 56 42 41 4d lbmUxGTAXBgNVBAM
15f0: 54 0a 45 45 46 77 63 45 5a 54 49 45 74 6c 65 53 T.EEFwcEZTIEtleS
1600: 42 4e 59 58 4e 30 5a 58 49 77 67 67 45 69 4d 41 BNYXN0ZXIwggEiMA
1610: 30 47 43 53 71 47 53 49 62 33 44 51 45 42 41 51 0GCSqGSIb3DQEBAQ
1620: 55 41 41 34 49 42 44 77 41 77 67 67 45 4b 41 6f UAA4IBDwAwggEKAo
1630: 49 42 0a 41 51 43 71 36 75 53 4b 34 36 79 47 35 IB.AQCq6uSK46yG5
1640: 62 36 52 4a 57 77 52 6c 76 77 35 67 6c 41 6e 6a b6RJWwRlvw5glAnj
1650: 73 63 31 47 69 58 33 64 75 58 41 30 76 47 34 71 sc1GiX3duXA0vG4q
1660: 6e 4b 55 6e 44 74 6c 2f 6a 63 4d 6d 71 32 47 4d nKUnDtl/jcMmq2GM
1670: 4f 42 39 0a 49 79 31 74 6a 61 62 45 48 41 30 4d OB9.Iy1tjabEHA0M
1680: 68 57 32 6a 37 56 77 65 2f 4f 39 4d 4c 46 4a 6b hW2j7Vwe/O9MLFJk
1690: 4a 33 30 4d 31 50 56 44 37 59 5a 52 52 4e 61 41 J30M1PVD7YZRRNaA
16a0: 73 7a 33 55 57 49 4b 45 6a 50 49 37 42 42 63 33 sz3UWIKEjPI7BBc3
16b0: 32 4b 4f 6d 0a 42 4c 33 43 54 58 43 43 64 7a 6c 2KOm.BL3CTXCCdzl
16c0: 6c 4c 31 48 68 56 62 6e 4d 35 69 43 41 6d 67 48 lL1HhVbnM5iCAmgH
16d0: 63 67 31 44 55 6b 2f 45 76 57 58 76 6e 45 44 78 cg1DUk/EvWXvnEDx
16e0: 58 52 79 32 6c 56 39 6d 51 73 6d 44 65 64 72 66 XRy2lV9mQsmDedrf
16f0: 66 59 37 57 6c 0a 4f 72 35 37 6e 6c 63 7a 61 4d fY7Wl.Or57nlczaM
1700: 75 50 4c 70 79 52 53 6b 76 37 35 50 41 6e 6a 51 uPLpyRSkv75PAnjQ
1710: 4a 78 54 33 73 57 6c 42 70 79 2b 2f 48 39 49 6d JxT3sWlBpy+/H9Im
1720: 75 64 51 64 70 4a 4e 66 2f 46 74 78 63 71 4e 37 udQdpJNf/FtxcqN7
1730: 69 44 77 48 35 42 0a 76 49 63 65 59 45 74 44 56 iDwH5B.vIceYEtDV
1740: 78 46 73 76 6f 35 48 4f 56 6b 53 6c 39 6a 65 6f xFsvo5HOVkSl9jeo
1750: 35 45 34 47 70 65 33 77 79 66 52 68 6f 71 42 32 5E4Gpe3wyfRhoqB2
1760: 55 6b 61 57 31 4b 71 30 69 48 35 52 2b 30 30 53 UkaW1Kq0iH5R+00S
1770: 37 36 30 78 51 4d 78 0a 4c 4c 39 4c 31 64 75 68 760xQMx.LL9L1duh
1780: 75 31 64 4c 37 48 73 6d 45 77 37 49 65 59 55 52 u1dL7HsmEw7IeYUR
1790: 41 67 4d 42 41 41 47 6a 45 7a 41 52 4d 41 38 47 AgMBAAGjEzARMA8G
17a0: 41 31 55 64 45 77 45 42 2f 77 51 46 4d 41 4d 42 A1UdEwEB/wQFMAMB
17b0: 41 66 38 77 44 51 59 4a 0a 4b 6f 5a 49 68 76 63 Af8wDQYJ.KoZIhvc
17c0: 4e 41 51 45 46 42 51 41 44 67 67 45 42 41 4b 68 NAQEFBQADggEBAKh
17d0: 4f 34 5a 53 7a 59 50 33 37 42 71 69 78 4e 48 4b O4ZSzYP37BqixNHK
17e0: 4b 39 2b 67 53 65 43 36 46 67 61 38 35 69 4c 57 K9+gSeC6Fga85iLW
17f0: 68 77 70 50 57 30 6b 53 6c 0a 7a 30 33 68 61 6c hwpPW0kSl.z03hal
1800: 38 30 4b 5a 2b 6b 50 4d 7a 62 38 43 35 32 4e 32 80KZ+kPMzb8C52N2
1810: 38 33 74 51 4e 41 71 4a 39 51 38 61 6b 44 50 5a 83tQNAqJ9Q8akDPZ
1820: 78 53 7a 7a 4d 55 56 4f 47 70 47 77 32 70 4a 37 xSzzMUVOGpGw2pJ7
1830: 5a 73 77 4b 44 7a 30 5a 54 61 0a 30 65 64 71 2f ZswKDz0ZTa.0edq/
1840: 67 64 54 2f 48 72 64 65 67 76 4e 74 44 50 63 32 gdT/HrdegvNtDPc2
1850: 6a 6f 6e 61 35 46 56 4f 59 71 77 64 63 7a 35 6b jona5FVOYqwdcz5k
1860: 62 6c 31 55 57 42 61 42 70 33 56 58 55 67 63 59 bl1UWBaBp3VXUgcY
1870: 6a 58 53 52 61 42 4b 34 33 57 64 0a 63 76 65 69 jXSRaBK43Wd.cvei
1880: 44 55 65 5a 77 37 67 48 71 52 53 4e 2f 41 79 59 DUeZw7gHqRSN/AyY
1890: 55 43 74 4a 7a 57 6d 76 47 73 4a 75 49 46 68 4d UCtJzWmvGsJuIFhM
18a0: 42 6f 6e 75 7a 38 6a 79 6c 68 79 4d 4a 43 59 4a Bonuz8jylhyMJCYJ
18b0: 46 54 34 69 4d 55 43 38 4d 4e 49 77 0a 6e 69 58 FT4iMUC8MNIw.niX
18c0: 31 78 78 2b 4e 75 36 66 50 56 35 5a 5a 48 6a 39 1xx+Nu6fPV5ZZHj9
18d0: 72 62 68 69 42 61 4c 6a 6d 2b 74 6b 44 77 74 50 rbhiBaLjm+tkDwtP
18e0: 67 41 33 6a 32 70 78 76 48 4b 59 70 74 75 57 78 gA3j2pxvHKYptuWx
18f0: 65 59 4f 2b 39 44 44 4e 61 39 73 43 62 0a 45 35 eYO+9DDNa9sCb.E5
1900: 41 6e 4a 49 6c 4f 6e 64 2f 74 47 65 30 43 68 66 AnJIlOnd/tGe0Chf
1910: 30 73 46 51 67 2b 6c 39 6e 4e 69 4e 72 57 47 67 0sFQg+l9nNiNrWGg
1920: 7a 64 64 39 5a 50 4a 4b 34 3d 0a 2d 2d 2d 2d 2d zdd9ZPJK4=.-----
1930: 45 4e 44 20 43 45 52 54 49 46 49 43 41 54 45 2d END CERTIFICATE-
1940: 2d 2d 2d 2d 0a 7d 5d 0a 0a 09 09 23 20 4c 6f 61 ----.}]....# Loa
1950: 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 d configuration
1960: 66 69 6c 65 0a 09 09 73 65 74 20 63 6f 6e 66 69 file...set confi
1970: 67 5f 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 g_file [file joi
1980: 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 n $::appfs::cach
1990: 65 64 69 72 20 63 6f 6e 66 69 67 5d 0a 09 09 69 edir config]...i
19a0: 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 f {[file exists
19b0: 24 63 6f 6e 66 69 67 5f 66 69 6c 65 5d 7d 20 7b $config_file]} {
19c0: 0a 09 09 09 73 6f 75 72 63 65 20 24 63 6f 6e 66 ....source $conf
19d0: 69 67 5f 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 69 ig_file...}....i
19e0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 f {![info exists
19f0: 20 3a 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b ::appfs::db]} {
1a00: 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 ....file mkdir $
1a10: 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 ::appfs::cachedi
1a20: 72 0a 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a r.....sqlite3 ::
1a30: 61 70 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20 appfs::db [file
1a40: 6a 6f 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 join $::appfs::c
1a50: 61 63 68 65 64 69 72 20 63 61 63 68 65 2e 64 62 achedir cache.db
1a60: 5d 0a 0a 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 ].....::appfs::d
1a70: 62 20 74 69 6d 65 6f 75 74 20 33 30 30 30 30 0a b timeout 30000.
1a80: 09 09 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20 ..}....# Create
1a90: 74 61 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c tables...db eval
1aa0: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 {CREATE TABLE I
1ab0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 F NOT EXISTS sit
1ac0: 65 73 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d es(hostname PRIM
1ad0: 41 52 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 ARY KEY, lastUpd
1ae0: 61 74 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62 ate, ttl);}...db
1af0: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 eval {CREATE TA
1b00: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 BLE IF NOT EXIST
1b10: 53 20 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e S packages(hostn
1b20: 61 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 ame, sha1, packa
1b30: 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c ge, version, os,
1b40: 20 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 cpuArch, isLate
1b50: 73 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 st, haveManifest
1b60: 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 );}...db eval {C
1b70: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e REATE TABLE IF N
1b80: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 28 OT EXISTS files(
1b90: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79 package_sha1, ty
1ba0: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 pe, time, source
1bb0: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66 , size, perms, f
1bc0: 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e ile_sha1, file_n
1bd0: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74 ame, file_direct
1be0: 6f 72 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61 ory);}....# Crea
1bf0: 74 65 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20 te indexes...db
1c00: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 eval {CREATE IND
1c10: 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 EX IF NOT EXISTS
1c20: 20 73 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20 sites_index ON
1c30: 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29 sites (hostname)
1c40: 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 ;}...db eval {CR
1c50: 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f EATE INDEX IF NO
1c60: 54 20 45 58 49 53 54 53 20 70 61 63 6b 61 67 65 T EXISTS package
1c70: 73 5f 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61 s_index ON packa
1c80: 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73 ges (hostname, s
1c90: 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 ha1, package, ve
1ca0: 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 rsion, os, cpuAr
1cb0: 63 68 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 ch);}...db eval
1cc0: 7b 43 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 {CREATE INDEX IF
1cd0: 20 4e 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 NOT EXISTS file
1ce0: 73 5f 69 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 s_index ON files
1cf0: 20 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 (package_sha1,
1d00: 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f file_name, file_
1d10: 64 69 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a directory);}..}.
1d20: 0a 09 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 ..proc download
1d30: 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b {hostname hash {
1d40: 6d 65 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a method sha1}} {.
1d50: 09 09 73 65 74 20 75 72 6c 20 5b 3a 3a 61 70 70 ..set url [::app
1d60: 66 73 3a 3a 75 73 65 72 3a 3a 63 6f 6e 73 74 72 fs::user::constr
1d70: 75 63 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61 6d uct_url $hostnam
1d80: 65 20 24 68 61 73 68 20 24 6d 65 74 68 6f 64 5d e $hash $method]
1d90: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 ...set file [_ca
1da0: 63 68 65 66 69 6c 65 20 24 75 72 6c 20 24 68 61 chefile $url $ha
1db0: 73 68 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c sh]....if {![fil
1dc0: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d e exists $file]}
1dd0: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f {....return -co
1de0: 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 de error "Unable
1df0: 20 74 6f 20 66 65 74 63 68 20 28 66 69 6c 65 20 to fetch (file
1e00: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 20 does not exist:
1e10: 24 66 69 6c 65 29 22 0a 09 09 7d 0a 0a 09 09 72 $file)"...}....r
1e20: 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a eturn $file..}..
1e30: 09 70 72 6f 63 20 67 65 74 69 6e 64 65 78 20 7b .proc getindex {
1e40: 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09 09 73 65 hostname} {...se
1e50: 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65 63 t now [clock sec
1e60: 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c 61 73 onds]....set las
1e70: 74 55 70 64 61 74 65 73 20 5b 64 62 20 65 76 61 tUpdates [db eva
1e80: 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74 55 70 l {SELECT lastUp
1e90: 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d 20 73 date, ttl FROM s
1ea0: 69 74 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e ites WHERE hostn
1eb0: 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 ame = $hostname
1ec0: 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69 66 20 LIMIT 1;}]...if
1ed0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73 74 55 {[llength $lastU
1ee0: 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20 7b 0a pdates] == 0} {.
1ef0: 09 09 09 73 65 74 20 6c 61 73 74 55 70 64 61 74 ...set lastUpdat
1f00: 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c 20 30 e 0....set ttl 0
1f10: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73 ...} else {....s
1f20: 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 5b 6c et lastUpdate [l
1f30: 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61 74 index $lastUpdat
1f40: 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74 74 6c es 0]....set ttl
1f50: 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 [lindex $lastUp
1f60: 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a 09 09 dates 1]...}....
1f70: 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c 61 73 if {$now < ($las
1f80: 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c 29 7d tUpdate + $ttl)}
1f90: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f 4d {....return COM
1fa0: 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 PLETE...}....if
1fb0: 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 22 {[string match "
1fc0: 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74 6e *\[/~\]*" $hostn
1fd0: 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 ame]} {....retur
1fe0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49 n -code error "I
1ff0: 6e 76 61 6c 69 64 20 68 6f 73 74 6e 61 6d 65 22 nvalid hostname"
2000: 0a 09 09 7d 0a 0a 09 09 73 65 74 20 75 72 6c 20 ...}....set url
2010: 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61 6d "http://$hostnam
2020: 65 2f 61 70 70 66 73 2f 69 6e 64 65 78 22 0a 0a e/appfs/index"..
2030: 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65 74 ..catch {....set
2040: 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a token [::http::
2050: 67 65 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09 09 geturl $url]....
2060: 69 66 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f if {[::http::nco
2070: 64 65 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22 32 de $token] == "2
2080: 30 30 22 7d 20 7b 0a 09 09 09 09 73 65 74 20 69 00"} {.....set i
2090: 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b 3a ndexhash_data [:
20a0: 3a 68 74 74 70 3a 3a 64 61 74 61 20 24 74 6f 6b :http::data $tok
20b0: 65 6e 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a 68 74 en]....}....::ht
20c0: 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65 6e tp::reset $token
20d0: 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 ....::http::clea
20e0: 6e 75 70 20 24 74 6f 6b 65 6e 0a 09 09 7d 0a 0a nup $token...}..
20f0: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 ..if {![info exi
2100: 73 74 73 20 69 6e 64 65 78 68 61 73 68 5f 64 61 sts indexhash_da
2110: 74 61 5d 7d 20 7b 0a 09 09 09 23 20 43 61 63 68 ta]} {....# Cach
2120: 65 20 74 68 69 73 20 72 65 73 75 6c 74 20 66 6f e this result fo
2130: 72 20 36 30 20 73 65 63 6f 6e 64 73 0a 09 09 09 r 60 seconds....
2140: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 db eval {INSERT
2150: 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 OR REPLACE INTO
2160: 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c sites (hostname,
2170: 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c lastUpdate, ttl
2180: 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e ) VALUES ($hostn
2190: 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 ame, $now, $::ap
21a0: 70 66 73 3a 3a 6e 74 74 6c 29 3b 7d 0a 0a 09 09 pfs::nttl);}....
21b0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 .return -code er
21c0: 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 ror "Unable to f
21d0: 65 74 63 68 20 24 75 72 6c 22 0a 09 09 7d 0a 0a etch $url"...}..
21e0: 09 09 73 65 74 20 69 6e 64 65 78 68 61 73 68 5f ..set indexhash_
21f0: 64 61 74 61 20 5b 73 74 72 69 6e 67 20 74 72 69 data [string tri
2200: 6d 20 24 69 6e 64 65 78 68 61 73 68 5f 64 61 74 m $indexhash_dat
2210: 61 20 22 5c 72 5c 6e 22 5d 0a 09 09 73 65 74 20 a "\r\n"]...set
2220: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b indexhash_data [
2230: 73 70 6c 69 74 20 24 69 6e 64 65 78 68 61 73 68 split $indexhash
2240: 5f 64 61 74 61 20 22 2c 22 5d 0a 09 09 73 65 74 _data ","]...set
2250: 20 69 6e 64 65 78 68 61 73 68 20 20 20 20 20 20 indexhash
2260: 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 68 [lindex $indexh
2270: 61 73 68 5f 64 61 74 61 20 30 5d 0a 09 09 73 65 ash_data 0]...se
2280: 74 20 69 6e 64 65 78 68 61 73 68 6d 65 74 68 6f t indexhashmetho
2290: 64 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78 d [lindex $index
22a0: 68 61 73 68 5f 64 61 74 61 20 31 5d 0a 09 09 73 hash_data 1]...s
22b0: 65 74 20 69 6e 64 65 78 68 61 73 68 63 65 72 74 et indexhashcert
22c0: 20 20 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 [lindex $inde
22d0: 78 68 61 73 68 5f 64 61 74 61 20 32 5d 0a 09 09 xhash_data 2]...
22e0: 73 65 74 20 69 6e 64 65 78 68 61 73 68 73 69 67 set indexhashsig
22f0: 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 [lindex $ind
2300: 65 78 68 61 73 68 5f 64 61 74 61 20 33 5d 0a 0a exhash_data 3]..
2310: 09 09 69 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 ..if {![_isHash
2320: 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b 0a 09 $indexhash]} {..
2330: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
2340: 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 68 61 rror "Invalid ha
2350: 73 68 3a 20 24 69 6e 64 65 78 68 61 73 68 22 0a sh: $indexhash".
2360: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 76 65 ..}....if {![_ve
2370: 72 69 66 79 53 69 67 6e 61 74 75 72 65 41 6e 64 rifySignatureAnd
2380: 43 65 72 74 69 66 69 63 61 74 65 20 24 68 6f 73 Certificate $hos
2390: 74 6e 61 6d 65 20 24 69 6e 64 65 78 68 61 73 68 tname $indexhash
23a0: 63 65 72 74 20 24 69 6e 64 65 78 68 61 73 68 73 cert $indexhashs
23b0: 69 67 20 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 ig $indexhash]}
23c0: 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 {....return -cod
23d0: 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 e error "Invalid
23e0: 20 73 69 67 6e 61 74 75 72 65 20 6f 72 20 63 65 signature or ce
23f0: 72 74 69 66 69 63 61 74 65 20 66 72 6f 6d 20 24 rtificate from $
2400: 68 6f 73 74 6e 61 6d 65 22 0a 09 09 7d 0a 0a 09 hostname"...}...
2410: 09 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c .set file [downl
2420: 6f 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 69 oad $hostname $i
2430: 6e 64 65 78 68 61 73 68 5d 0a 09 09 73 65 74 20 ndexhash]...set
2440: 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a fd [open $file].
2450: 09 09 73 65 74 20 64 61 74 61 20 5b 72 65 61 64 ..set data [read
2460: 20 24 66 64 5d 0a 09 09 63 6c 6f 73 65 20 24 66 $fd]...close $f
2470: 64 0a 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61 d....set curr_pa
2480: 63 6b 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 ckages [list]...
2490: 66 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 foreach line [sp
24a0: 6c 69 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 lit $data "\n"]
24b0: 7b 0a 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 {....set line [s
24c0: 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 tring trim $line
24d0: 5d 0a 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e ].....if {[strin
24e0: 67 20 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c g match "*/*" $l
24f0: 69 6e 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 ine]} {.....cont
2500: 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 inue....}.....if
2510: 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b {$line == ""} {
2520: 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 .....continue...
2530: 09 7d 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 .}.....set work
2540: 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 [split $line ","
2550: 5d 0a 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 ].....unset -noc
2560: 6f 6d 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a omplain pkgInfo.
2570: 09 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a ...if {[catch {.
2580: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 ....set pkgInfo(
2590: 70 61 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65 package) [linde
25a0: 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 x $work 0].....s
25b0: 65 74 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 et pkgInfo(versi
25c0: 6f 6e 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f on) [lindex $wo
25d0: 72 6b 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b rk 1].....set pk
25e0: 67 49 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20 gInfo(os)
25f0: 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c [_normalizeOS [l
2600: 69 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a index $work 2]].
2610: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 ....set pkgInfo(
2620: 63 70 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d cpuArch) [_norm
2630: 61 6c 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78 alizeCPU [lindex
2640: 20 24 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73 $work 3]].....s
2650: 65 74 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 et pkgInfo(hash)
2660: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c [string tol
2670: 6f 77 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f ower [lindex $wo
2680: 72 6b 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70 rk 4]].....set p
2690: 6b 67 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65 kgInfo(hash_type
26a0: 29 20 22 73 68 61 31 22 0a 09 09 09 09 73 65 74 ) "sha1".....set
26b0: 20 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 pkgInfo(isLates
26c0: 74 29 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e t) [expr {!![lin
26d0: 64 65 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09 dex $work 5]}]..
26e0: 09 09 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 ..}]} {.....cont
26f0: 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 inue....}.....if
2700: 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67 {![_isHash $pkg
2710: 49 6e 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09 Info(hash)]} {..
2720: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d ...continue....}
2730: 0a 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72 .....lappend cur
2740: 72 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 r_packages $pkgI
2750: 6e 66 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20 nfo(hash).....#
2760: 44 6f 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64 Do not do any ad
2770: 64 69 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66 ditional work if
2780: 20 77 65 20 61 6c 72 65 61 64 79 20 68 61 76 65 we already have
2790: 20 74 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09 this package...
27a0: 09 73 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61 .set existing_pa
27b0: 63 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 ckages [db eval
27c0: 7b 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20 {SELECT package
27d0: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 FROM packages WH
27e0: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 ERE hostname = $
27f0: 68 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 hostname AND sha
2800: 31 20 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 1 = $pkgInfo(has
2810: 68 29 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73 h);}]....if {[ls
2820: 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 earch -exact $ex
2830: 69 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 isting_packages
2840: 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 $pkgInfo(package
2850: 29 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 )] != -1} {.....
2860: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 continue....}...
2870: 09 09 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69 ..if {$pkgInfo(i
2880: 73 4c 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09 sLatest)} {.....
2890: 64 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 db eval {UPDATE
28a0: 70 61 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c packages SET isL
28b0: 61 74 65 73 74 20 3d 20 30 20 57 48 45 52 45 20 atest = 0 WHERE
28c0: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 hostname = $host
28d0: 6e 61 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65 name AND package
28e0: 20 3d 20 24 70 6b 67 49 6e 66 6f 28 24 70 61 63 = $pkgInfo($pac
28f0: 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 kage) AND os = $
2900: 70 6b 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 pkgInfo($package
2910: 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 ) AND cpuArch =
2920: 24 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68 $pkgInfo(cpuArch
2930: 29 3b 7d 0a 09 09 09 7d 0a 0a 09 09 09 64 62 20 );}....}.....db
2940: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 eval {INSERT INT
2950: 4f 20 70 61 63 6b 61 67 65 73 20 28 68 6f 73 74 O packages (host
2960: 6e 61 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b name, sha1, pack
2970: 61 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 age, version, os
2980: 2c 20 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 , cpuArch, isLat
2990: 65 73 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 est, haveManifes
29a0: 74 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 t) VALUES ($host
29b0: 6e 61 6d 65 2c 20 24 70 6b 67 49 6e 66 6f 28 68 name, $pkgInfo(h
29c0: 61 73 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 70 ash), $pkgInfo(p
29d0: 61 63 6b 61 67 65 29 2c 20 24 70 6b 67 49 6e 66 ackage), $pkgInf
29e0: 6f 28 76 65 72 73 69 6f 6e 29 2c 20 24 70 6b 67 o(version), $pkg
29f0: 49 6e 66 6f 28 6f 73 29 2c 20 24 70 6b 67 49 6e Info(os), $pkgIn
2a00: 66 6f 28 63 70 75 41 72 63 68 29 2c 20 24 70 6b fo(cpuArch), $pk
2a10: 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 2c gInfo(isLatest),
2a20: 20 30 29 3b 7d 0a 0a 09 09 7d 0a 0a 09 09 23 20 0);}....}....#
2a30: 4c 6f 6f 6b 20 66 6f 72 20 70 61 63 6b 61 67 65 Look for package
2a40: 73 20 74 68 61 74 20 68 61 76 65 20 62 65 65 6e s that have been
2a50: 20 64 65 6c 65 74 65 64 0a 09 09 73 65 74 20 66 deleted...set f
2a60: 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 20 5b 64 ound_packages [d
2a70: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 73 b eval {SELECT s
2a80: 68 61 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 ha1 FROM package
2a90: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 s WHERE hostname
2aa0: 20 3d 20 24 68 6f 73 74 6e 61 6d 65 3b 7d 5d 0a = $hostname;}].
2ab0: 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 ..foreach packag
2ac0: 65 20 24 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 e $found_package
2ad0: 73 20 7b 0a 09 09 09 73 65 74 20 66 6f 75 6e 64 s {....set found
2ae0: 5f 70 61 63 6b 61 67 65 73 5f 61 72 72 28 24 70 _packages_arr($p
2af0: 61 63 6b 61 67 65 29 20 31 0a 09 09 7d 0a 0a 09 ackage) 1...}...
2b00: 09 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 .foreach package
2b10: 20 24 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 $curr_packages
2b20: 7b 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f {....unset -noco
2b30: 6d 70 6c 61 69 6e 20 66 6f 75 6e 64 5f 70 61 63 mplain found_pac
2b40: 6b 61 67 65 73 5f 61 72 72 28 24 70 61 63 6b 61 kages_arr($packa
2b50: 67 65 29 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 ge)...}....forea
2b60: 63 68 20 70 61 63 6b 61 67 65 20 5b 61 72 72 61 ch package [arra
2b70: 79 20 6e 61 6d 65 73 20 66 6f 75 6e 64 5f 70 61 y names found_pa
2b80: 63 6b 61 67 65 73 5f 61 72 72 5d 20 7b 0a 09 09 ckages_arr] {...
2b90: 09 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 .db eval {DELETE
2ba0: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 FROM packages W
2bb0: 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 HERE hostname =
2bc0: 24 68 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 $hostname AND sh
2bd0: 61 31 20 3d 20 24 70 61 63 6b 61 67 65 3b 7d 0a a1 = $package;}.
2be0: 09 09 7d 0a 0a 09 09 64 62 20 65 76 61 6c 20 7b ..}....db eval {
2bf0: 49 4e 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 INSERT OR REPLAC
2c00: 45 20 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f E INTO sites (ho
2c10: 73 74 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 stname, lastUpda
2c20: 74 65 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 te, ttl) VALUES
2c30: 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 ($hostname, $now
2c40: 2c 20 24 3a 3a 61 70 70 66 73 3a 3a 74 74 6c 29 , $::appfs::ttl)
2c50: 3b 7d 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65 ;}....appfsd::ge
2c60: 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 t_path_info_cach
2c70: 65 5f 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72 e_flush....retur
2c80: 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 n COMPLETE..}...
2c90: 70 72 6f 63 20 67 65 74 70 6b 67 6d 61 6e 69 66 proc getpkgmanif
2ca0: 65 73 74 20 7b 68 6f 73 74 6e 61 6d 65 20 70 61 est {hostname pa
2cb0: 63 6b 61 67 65 5f 73 68 61 31 7d 20 7b 0a 09 09 ckage_sha1} {...
2cc0: 73 65 74 20 68 61 76 65 4d 61 6e 69 66 65 73 74 set haveManifest
2cd0: 20 5b 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b [db onecolumn {
2ce0: 53 45 4c 45 43 54 20 68 61 76 65 4d 61 6e 69 66 SELECT haveManif
2cf0: 65 73 74 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 est FROM package
2d00: 73 20 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 s WHERE sha1 = $
2d10: 70 61 63 6b 61 67 65 5f 73 68 61 31 20 4c 49 4d package_sha1 LIM
2d20: 49 54 20 31 3b 7d 5d 0a 0a 09 09 69 66 20 7b 24 IT 1;}]....if {$
2d30: 68 61 76 65 4d 61 6e 69 66 65 73 74 20 3d 3d 20 haveManifest ==
2d40: 22 31 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e "1"} {....return
2d50: 20 43 4f 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 COMPLETE...}...
2d60: 09 69 66 20 7b 21 5b 5f 69 73 48 61 73 68 20 24 .if {![_isHash $
2d70: 70 61 63 6b 61 67 65 5f 73 68 61 31 5d 7d 20 7b package_sha1]} {
2d80: 0a 09 09 09 72 65 74 75 72 6e 20 46 41 49 4c 0a ....return FAIL.
2d90: 09 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 ..}....set file
2da0: 5b 64 6f 77 6e 6c 6f 61 64 20 24 68 6f 73 74 6e [download $hostn
2db0: 61 6d 65 20 24 70 61 63 6b 61 67 65 5f 73 68 61 ame $package_sha
2dc0: 31 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65 1]...set fd [ope
2dd0: 6e 20 24 66 69 6c 65 5d 0a 09 09 73 65 74 20 70 n $file]...set p
2de0: 6b 67 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 kgdata [read $fd
2df0: 5d 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 ]...close $fd...
2e00: 09 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 .db transaction
2e10: 7b 0a 09 09 09 66 6f 72 65 61 63 68 20 6c 69 6e {....foreach lin
2e20: 65 20 5b 73 70 6c 69 74 20 24 70 6b 67 64 61 74 e [split $pkgdat
2e30: 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 09 73 65 a "\n"] {.....se
2e40: 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 t line [string t
2e50: 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 09 rim $line]......
2e60: 69 66 20 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d if {$line == ""}
2e70: 20 7b 0a 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 {......continue
2e80: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 .....}......set
2e90: 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 6c 69 6e work [split $lin
2ea0: 65 20 22 2c 22 5d 0a 0a 09 09 09 09 75 6e 73 65 e ","]......unse
2eb0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 t -nocomplain fi
2ec0: 6c 65 49 6e 66 6f 0a 09 09 09 09 73 65 74 20 66 leInfo.....set f
2ed0: 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 5b 6c ileInfo(type) [l
2ee0: 69 6e 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 index $work 0]..
2ef0: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 ...set fileInfo(
2f00: 74 69 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 time) [lindex $w
2f10: 6f 72 6b 20 31 5d 0a 0a 09 09 09 09 73 65 74 20 ork 1]......set
2f20: 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f work [lrange $wo
2f30: 72 6b 20 32 20 65 6e 64 5d 0a 09 09 09 09 73 77 rk 2 end].....sw
2f40: 69 74 63 68 20 2d 2d 20 24 66 69 6c 65 49 6e 66 itch -- $fileInf
2f50: 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09 22 o(type) {......"
2f60: 23 6d 61 6e 69 66 65 73 74 6d 65 74 61 64 61 74 #manifestmetadat
2f70: 61 22 20 7b 0a 09 09 09 09 09 09 75 6e 73 65 74 a" {.......unset
2f80: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 69 6c -nocomplain fil
2f90: 65 49 6e 66 6f 0a 09 09 09 09 09 09 63 6f 6e 74 eInfo.......cont
2fa0: 69 6e 75 65 0a 09 09 09 09 09 7d 0a 09 09 09 09 inue......}.....
2fb0: 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09 09 ."file" {.......
2fc0: 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 69 7a set fileInfo(siz
2fd0: 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b e) [lindex $work
2fe0: 20 30 5d 0a 0a 09 09 09 09 09 09 23 20 57 65 20 0]........# We
2ff0: 6c 6f 77 65 72 2d 63 61 73 65 20 74 68 65 20 70 lower-case the p
3000: 65 72 6d 69 73 73 69 6f 6e 73 20 62 65 63 61 75 ermissions becau
3010: 73 65 20 75 70 70 65 72 2d 63 61 73 65 20 70 65 se upper-case pe
3020: 72 6d 69 73 73 69 6f 6e 73 0a 09 09 09 09 09 09 rmissions.......
3030: 23 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 # should not be
3040: 73 65 74 20 72 65 6d 6f 74 65 6c 79 20 61 73 20 set remotely as
3050: 74 68 65 79 20 6d 61 79 20 69 6e 66 6c 75 65 6e they may influen
3060: 63 65 20 74 68 65 20 73 65 63 75 72 69 74 79 0a ce the security.
3070: 09 09 09 09 09 09 23 20 6f 66 20 74 68 65 20 73 ......# of the s
3080: 79 73 74 65 6d 2e 0a 09 09 09 09 09 09 73 65 74 ystem........set
3090: 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 fileInfo(perms)
30a0: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 [string tolower
30b0: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 [lindex $work 1
30c0: 5d 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 66 69 ]]........set fi
30d0: 6c 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69 leInfo(sha1) [li
30e0: 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09 ndex $work 2]...
30f0: 09 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c .....set work [l
3100: 72 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65 6e range $work 3 en
3110: 64 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22 d]......}......"
3120: 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 symlink" {......
3130: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f .set fileInfo(so
3140: 75 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 urce) [lindex $w
3150: 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74 ork 0].......set
3160: 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 work [lrange $w
3170: 6f 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09 09 ork 1 end]......
3180: 7d 0a 09 09 09 09 09 22 64 69 72 65 63 74 6f 72 }......"director
3190: 79 22 20 7b 0a 09 09 09 09 09 09 23 20 4e 6f 20 y" {.......# No
31a0: 65 78 74 72 61 20 64 61 74 61 20 72 65 71 75 69 extra data requi
31b0: 72 65 64 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 red......}......
31c0: 64 65 66 61 75 6c 74 20 7b 0a 09 09 09 09 09 09 default {.......
31d0: 23 20 48 61 6e 64 6c 65 20 75 6e 6b 6e 6f 77 6e # Handle unknown
31e0: 20 74 79 70 65 73 0a 09 09 09 09 09 09 69 66 20 types.......if
31f0: 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 {[string index $
3200: 66 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 30 fileInfo(type) 0
3210: 5d 20 3d 3d 20 22 23 22 7d 20 7b 0a 09 09 09 09 ] == "#"} {.....
3220: 09 09 09 23 20 4d 65 74 61 64 61 74 61 20 74 79 ...# Metadata ty
3230: 70 65 2c 20 69 67 6e 6f 72 65 0a 09 09 09 09 09 pe, ignore......
3240: 09 09 23 20 69 74 20 69 66 20 77 65 20 64 6f 6e ..# it if we don
3250: 27 74 0a 09 09 09 09 09 09 09 23 20 75 6e 64 65 't........# unde
3260: 72 73 74 61 6e 64 20 74 68 69 73 20 74 79 70 65 rstand this type
3270: 0a 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 ........continue
3280: 0a 09 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a .......} else {.
3290: 09 09 09 09 09 09 09 23 20 55 6e 6b 6e 6f 77 6e .......# Unknown
32a0: 20 74 79 70 65 2c 0a 09 09 09 09 09 09 09 23 20 type,........#
32b0: 67 65 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f generate an erro
32c0: 72 0a 09 09 09 09 09 09 09 65 72 72 6f 72 20 22 r........error "
32d0: 4d 61 6e 69 66 65 73 74 20 63 61 6e 6e 6f 74 20 Manifest cannot
32e0: 62 65 20 70 61 72 73 65 64 22 0a 09 09 09 09 09 be parsed"......
32f0: 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a .}......}.....}.
3300: 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 .....set fileInf
3310: 6f 28 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 24 77 o(name) [join $w
3320: 6f 72 6b 20 22 2c 22 5d 0a 09 09 09 09 73 65 74 ork ","].....set
3330: 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 fileInfo(name)
3340: 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 [split [string t
3350: 72 69 6d 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 rim $fileInfo(na
3360: 6d 65 29 20 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 me) "/"] "/"]...
3370: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 64 ..set fileInfo(d
3380: 69 72 65 63 74 6f 72 79 29 20 5b 6a 6f 69 6e 20 irectory) [join
3390: 5b 6c 72 61 6e 67 65 20 24 66 69 6c 65 49 6e 66 [lrange $fileInf
33a0: 6f 28 6e 61 6d 65 29 20 30 20 65 6e 64 2d 31 5d o(name) 0 end-1]
33b0: 20 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69 "/"].....set fi
33c0: 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 6c 69 leInfo(name) [li
33d0: 6e 64 65 78 20 24 66 69 6c 65 49 6e 66 6f 28 6e ndex $fileInfo(n
33e0: 61 6d 65 29 20 65 6e 64 5d 0a 0a 09 09 09 09 64 ame) end]......d
33f0: 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 b eval {INSERT I
3400: 4e 54 4f 20 66 69 6c 65 73 20 28 70 61 63 6b 61 NTO files (packa
3410: 67 65 5f 73 68 61 31 2c 20 74 79 70 65 2c 20 74 ge_sha1, type, t
3420: 69 6d 65 2c 20 73 6f 75 72 63 65 2c 20 73 69 7a ime, source, siz
3430: 65 2c 20 70 65 72 6d 73 2c 20 66 69 6c 65 5f 73 e, perms, file_s
3440: 68 61 31 2c 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 ha1, file_name,
3450: 66 69 6c 65 5f 64 69 72 65 63 74 6f 72 79 29 20 file_directory)
3460: 56 41 4c 55 45 53 20 28 24 70 61 63 6b 61 67 65 VALUES ($package
3470: 5f 73 68 61 31 2c 20 24 66 69 6c 65 49 6e 66 6f _sha1, $fileInfo
3480: 28 74 79 70 65 29 2c 20 24 66 69 6c 65 49 6e 66 (type), $fileInf
3490: 6f 28 74 69 6d 65 29 2c 20 24 66 69 6c 65 49 6e o(time), $fileIn
34a0: 66 6f 28 73 6f 75 72 63 65 29 2c 20 24 66 69 6c fo(source), $fil
34b0: 65 49 6e 66 6f 28 73 69 7a 65 29 2c 20 24 66 69 eInfo(size), $fi
34c0: 6c 65 49 6e 66 6f 28 70 65 72 6d 73 29 2c 20 24 leInfo(perms), $
34d0: 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 2c 20 fileInfo(sha1),
34e0: 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 2c $fileInfo(name),
34f0: 20 24 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 $fileInfo(direc
3500: 74 6f 72 79 29 20 29 3b 7d 0a 09 09 09 09 64 62 tory) );}.....db
3510: 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70 61 eval {UPDATE pa
3520: 63 6b 61 67 65 73 20 53 45 54 20 68 61 76 65 4d ckages SET haveM
3530: 61 6e 69 66 65 73 74 20 3d 20 31 20 57 48 45 52 anifest = 1 WHER
3540: 45 20 73 68 61 31 20 3d 20 24 70 61 63 6b 61 67 E sha1 = $packag
3550: 65 5f 73 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 e_sha1;}....}...
3560: 7d 0a 0a 09 09 61 70 70 66 73 64 3a 3a 67 65 74 }....appfsd::get
3570: 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 _path_info_cache
3580: 5f 66 6c 75 73 68 0a 0a 09 09 72 65 74 75 72 6e _flush....return
3590: 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a 09 70 COMPLETE..}...p
35a0: 72 6f 63 20 5f 6c 6f 63 61 6c 70 61 74 68 20 7b roc _localpath {
35b0: 70 61 63 6b 61 67 65 20 68 6f 73 74 6e 61 6d 65 package hostname
35c0: 20 66 69 6c 65 7d 20 7b 0a 09 09 73 65 74 20 64 file} {...set d
35d0: 69 72 20 22 22 0a 09 09 63 61 74 63 68 20 7b 0a ir ""...catch {.
35e0: 09 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20 5b ...set homedir [
35f0: 3a 3a 61 70 70 66 73 3a 3a 75 73 65 72 3a 3a 67 ::appfs::user::g
3600: 65 74 5f 68 6f 6d 65 64 69 72 5d 0a 09 09 09 73 et_homedir]....s
3610: 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 et dir [file joi
3620: 6e 20 24 68 6f 6d 65 64 69 72 20 2e 61 70 70 66 n $homedir .appf
3630: 73 20 22 2e 2f 24 7b 70 61 63 6b 61 67 65 7d 40 s "./${package}@
3640: 24 7b 68 6f 73 74 6e 61 6d 65 7d 22 20 22 2e 2f ${hostname}" "./
3650: 24 7b 66 69 6c 65 7d 22 5d 0a 09 09 7d 0a 09 09 ${file}"]...}...
3660: 72 65 74 75 72 6e 20 24 64 69 72 0a 09 7d 0a 0a return $dir..}..
3670: 09 70 72 6f 63 20 5f 77 68 69 74 65 6f 75 74 70 .proc _whiteoutp
3680: 61 74 68 20 7b 70 61 63 6b 61 67 65 20 68 6f 73 ath {package hos
3690: 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a 09 09 tname file} {...
36a0: 73 65 74 20 64 69 72 20 22 22 0a 09 09 63 61 74 set dir ""...cat
36b0: 63 68 20 7b 0a 09 09 09 73 65 74 20 68 6f 6d 65 ch {....set home
36c0: 64 69 72 20 5b 3a 3a 61 70 70 66 73 3a 3a 75 73 dir [::appfs::us
36d0: 65 72 3a 3a 67 65 74 5f 68 6f 6d 65 64 69 72 5d er::get_homedir]
36e0: 0a 09 09 09 73 65 74 20 64 69 72 20 5b 66 69 6c ....set dir [fil
36f0: 65 20 6a 6f 69 6e 20 24 68 6f 6d 65 64 69 72 20 e join $homedir
3700: 2e 61 70 70 66 73 20 22 2e 2f 24 7b 70 61 63 6b .appfs "./${pack
3710: 61 67 65 7d 40 24 7b 68 6f 73 74 6e 61 6d 65 7d age}@${hostname}
3720: 22 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f " ".APPFS.WHITEO
3730: 55 54 22 20 22 2e 2f 24 7b 66 69 6c 65 7d 2e 41 UT" "./${file}.A
3740: 50 50 46 53 2e 57 48 49 54 45 4f 55 54 22 5d 0a PPFS.WHITEOUT"].
3750: 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 24 64 69 ..}...return $di
3760: 72 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61 72 r..}...proc _par
3770: 73 65 70 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a sepath {path} {.
3780: 09 09 73 65 74 20 70 61 74 68 20 5b 73 74 72 69 ..set path [stri
3790: 6e 67 20 74 72 69 6d 20 24 70 61 74 68 20 22 2f ng trim $path "/
37a0: 22 5d 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73 "]...set path [s
37b0: 70 6c 69 74 20 24 70 61 74 68 20 22 2f 22 5d 0a plit $path "/"].
37c0: 09 09 73 65 74 20 70 61 74 68 6c 65 6e 20 5b 6c ..set pathlen [l
37d0: 6c 65 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a 09 length $path]...
37e0: 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61 .array set retva
37f0: 6c 20 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72 65 l [list _childre
3800: 6e 20 73 69 74 65 73 20 5f 74 79 70 65 20 74 6f n sites _type to
3810: 70 6c 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b 24 plevel]....if {$
3820: 70 61 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a 09 pathlen > 0} {..
3830: 09 09 73 65 74 20 72 65 74 76 61 6c 28 68 6f 73 ..set retval(hos
3840: 74 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 tname) [lindex $
3850: 70 61 74 68 20 30 5d 0a 09 09 09 73 65 74 20 72 path 0]....set r
3860: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 etval(_children)
3870: 20 70 61 63 6b 61 67 65 73 0a 09 09 09 73 65 74 packages....set
3880: 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 73 retval(_type) s
3890: 69 74 65 73 0a 0a 09 09 09 69 66 20 7b 24 70 61 ites.....if {$pa
38a0: 74 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09 09 thlen > 1} {....
38b0: 09 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c 69 .set package [li
38c0: 6e 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09 09 ndex $path 1]...
38d0: 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 ..if {[string le
38e0: 6e 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20 3d ngth $package] =
38f0: 3d 20 22 34 30 22 20 26 26 20 5b 72 65 67 65 78 = "40" && [regex
3900: 70 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a p {^[a-fA-F0-9]*
3910: 24 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b 0a $} $package]} {.
3920: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 .....set retval(
3930: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24 70 package_sha1) $p
3940: 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20 ackage......set
3950: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e retval(_children
3960: 29 20 66 69 6c 65 73 0a 09 09 09 09 09 73 65 74 ) files......set
3970: 20 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66 retval(_type) f
3980: 69 6c 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70 70 iles.......::app
3990: 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c fs::db eval {SEL
39a0: 45 43 54 20 70 61 63 6b 61 67 65 2c 20 6f 73 2c ECT package, os,
39b0: 20 63 70 75 41 72 63 68 2c 20 76 65 72 73 69 6f cpuArch, versio
39c0: 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 n FROM packages
39d0: 57 48 45 52 45 20 73 68 61 31 20 3d 20 24 72 65 WHERE sha1 = $re
39e0: 74 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 tval(package_sha
39f0: 31 29 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d 0a 1);} pkginfo {}.
3a00: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 .....set retval(
3a10: 70 61 63 6b 61 67 65 29 20 24 70 6b 67 69 6e 66 package) $pkginf
3a20: 6f 28 70 61 63 6b 61 67 65 29 0a 09 09 09 09 09 o(package)......
3a30: 73 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20 24 set retval(os) $
3a40: 70 6b 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09 09 pkginfo(os).....
3a50: 09 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29 .set retval(cpu)
3a60: 20 24 70 6b 67 69 6e 66 6f 28 63 70 75 41 72 63 $pkginfo(cpuArc
3a70: 68 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 h)......set retv
3a80: 61 6c 28 76 65 72 73 69 6f 6e 29 20 24 70 6b 67 al(version) $pkg
3a90: 69 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a 09 info(version)...
3aa0: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e ....if {$pathlen
3ab0: 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65 > 2} {.......se
3ac0: 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b t retval(file) [
3ad0: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61 join [lrange $pa
3ae0: 74 68 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 th 2 end] "/"]..
3af0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 ....} else {....
3b00: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 ...set retval(fi
3b10: 6c 65 29 20 22 22 0a 09 09 09 09 09 7d 0a 09 09 le) ""......}...
3b20: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 ..} else {......
3b30: 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 set retval(packa
3b40: 67 65 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09 ge) $package....
3b50: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 ..set retval(_ch
3b60: 69 6c 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a 09 ildren) os-cpu..
3b70: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f ....set retval(_
3b80: 74 79 70 65 29 20 70 61 63 6b 61 67 65 73 0a 0a type) packages..
3b90: 09 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 .....if {$pathle
3ba0: 6e 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 n > 2} {.......s
3bb0: 65 74 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64 65 et os_cpu [linde
3bc0: 78 20 24 70 61 74 68 20 32 5d 0a 09 09 09 09 09 x $path 2]......
3bd0: 09 73 65 74 20 6f 73 5f 63 70 75 20 5b 73 70 6c .set os_cpu [spl
3be0: 69 74 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d 0a it $os_cpu "-"].
3bf0: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 .......set retva
3c00: 6c 28 6f 73 29 20 5b 5f 6e 6f 72 6d 61 6c 69 7a l(os) [_normaliz
3c10: 65 4f 53 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f eOS [lindex $os_
3c20: 63 70 75 20 30 5d 20 31 5d 0a 09 09 09 09 09 09 cpu 0] 1].......
3c30: 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29 20 set retval(cpu)
3c40: 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 5b [_normalizeCPU [
3c50: 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 31 lindex $os_cpu 1
3c60: 5d 20 31 5d 0a 09 09 09 09 09 09 73 65 74 20 72 ] 1].......set r
3c70: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 etval(_children)
3c80: 20 76 65 72 73 69 6f 6e 73 0a 09 09 09 09 09 09 versions.......
3c90: 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70 65 set retval(_type
3ca0: 29 20 6f 73 2d 63 70 75 0a 0a 09 09 09 09 09 09 ) os-cpu........
3cb0: 69 66 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 33 if {$pathlen > 3
3cc0: 7d 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20 72 } {........set r
3cd0: 65 74 76 61 6c 28 76 65 72 73 69 6f 6e 29 20 5b etval(version) [
3ce0: 6c 69 6e 64 65 78 20 24 70 61 74 68 20 33 5d 0a lindex $path 3].
3cf0: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 .......set retva
3d00: 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 66 69 6c l(_children) fil
3d10: 65 73 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 es........set re
3d20: 74 76 61 6c 28 5f 74 79 70 65 29 20 76 65 72 73 tval(_type) vers
3d30: 69 6f 6e 73 0a 0a 09 09 09 09 09 09 09 73 65 74 ions.........set
3d40: 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67 65 5f retval(package_
3d50: 73 68 61 31 29 20 5b 3a 3a 61 70 70 66 73 3a 3a sha1) [::appfs::
3d60: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 db onecolumn {SE
3d70: 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d 20 70 LECT sha1 FROM p
3d80: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f ackages WHERE ho
3d90: 73 74 6e 61 6d 65 20 3d 20 24 72 65 74 76 61 6c stname = $retval
3da0: 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 (hostname) AND p
3db0: 61 63 6b 61 67 65 20 3d 20 24 72 65 74 76 61 6c ackage = $retval
3dc0: 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 (package) AND os
3dd0: 20 3d 20 24 72 65 74 76 61 6c 28 6f 73 29 20 41 = $retval(os) A
3de0: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 72 65 ND cpuArch = $re
3df0: 74 76 61 6c 28 63 70 75 29 20 41 4e 44 20 76 65 tval(cpu) AND ve
3e00: 72 73 69 6f 6e 20 3d 20 24 72 65 74 76 61 6c 28 rsion = $retval(
3e10: 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09 09 version);}].....
3e20: 09 09 09 69 66 20 7b 24 72 65 74 76 61 6c 28 70 ...if {$retval(p
3e30: 61 63 6b 61 67 65 5f 73 68 61 31 29 20 3d 3d 20 ackage_sha1) ==
3e40: 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 73 65 ""} {.........se
3e50: 74 20 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 t retval(_childr
3e60: 65 6e 29 20 64 65 61 64 0a 09 09 09 09 09 09 09 en) dead........
3e70: 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 .return [array g
3e80: 65 74 20 72 65 74 76 61 6c 5d 0a 09 09 09 09 09 et retval]......
3e90: 09 09 7d 0a 0a 09 09 09 09 09 09 09 69 66 20 7b ..}.........if {
3ea0: 24 70 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b 0a $pathlen > 4} {.
3eb0: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 ........set retv
3ec0: 61 6c 28 5f 74 79 70 65 29 20 66 69 6c 65 73 0a al(_type) files.
3ed0: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 ........set retv
3ee0: 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b al(file) [join [
3ef0: 6c 72 61 6e 67 65 20 24 70 61 74 68 20 34 20 65 lrange $path 4 e
3f00: 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 09 nd] "/"]........
3f10: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 } else {........
3f20: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74 79 70 .set retval(_typ
3f30: 65 29 20 66 69 6c 65 73 0a 09 09 09 09 09 09 09 e) files........
3f40: 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65 .set retval(file
3f50: 29 20 22 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 ) ""........}...
3f60: 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 ....}......}....
3f70: 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 .}....}...}....r
3f80: 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 eturn [array get
3f90: 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72 retval]..}...pr
3fa0: 6f 63 20 67 65 74 63 68 69 6c 64 72 65 6e 20 7b oc getchildren {
3fb0: 64 69 72 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 dir} {...array s
3fc0: 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61 et pathinfo [_pa
3fd0: 72 73 65 70 61 74 68 20 24 64 69 72 5d 0a 0a 09 rsepath $dir]...
3fe0: 09 73 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68 .switch -- $path
3ff0: 69 6e 66 6f 28 5f 63 68 69 6c 64 72 65 6e 29 20 info(_children)
4000: 7b 0a 09 09 09 22 73 69 74 65 73 22 20 7b 0a 09 {...."sites" {..
4010: 09 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 ...return [::app
4020: 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c fs::db eval {SEL
4030: 45 43 54 20 44 49 53 54 49 4e 43 54 20 68 6f 73 ECT DISTINCT hos
4040: 74 6e 61 6d 65 20 46 52 4f 4d 20 70 61 63 6b 61 tname FROM packa
4050: 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 ges;}]....}...."
4060: 70 61 63 6b 61 67 65 73 22 20 7b 0a 09 09 09 09 packages" {.....
4070: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61 catch {......::a
4080: 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24 ppfs::getindex $
4090: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d pathinfo(hostnam
40a0: 65 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 e).....}......re
40b0: 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 turn [::appfs::d
40c0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 b eval {SELECT D
40d0: 49 53 54 49 4e 43 54 20 70 61 63 6b 61 67 65 20 ISTINCT package
40e0: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 FROM packages WH
40f0: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 ERE hostname = $
4100: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d pathinfo(hostnam
4110: 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 6f e);}]....}...."o
4120: 73 2d 63 70 75 22 20 7b 0a 09 09 09 09 73 65 74 s-cpu" {.....set
4130: 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 retval [::appfs
4140: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 ::db eval {SELEC
4150: 54 20 44 49 53 54 49 4e 43 54 20 6f 73 20 7c 7c T DISTINCT os ||
4160: 20 22 2d 22 20 7c 7c 20 63 70 75 41 72 63 68 20 "-" || cpuArch
4170: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 FROM packages WH
4180: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 ERE hostname = $
4190: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d pathinfo(hostnam
41a0: 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d e) AND package =
41b0: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 $pathinfo(packa
41c0: 67 65 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70 70 ge);}]......lapp
41d0: 65 6e 64 20 72 65 74 76 61 6c 20 22 70 6c 61 74 end retval "plat
41e0: 66 6f 72 6d 22 0a 0a 09 09 09 09 72 65 74 75 72 form"......retur
41f0: 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 n $retval....}..
4200: 09 09 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 .."versions" {..
4210: 09 09 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a ...set retval [:
4220: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 :appfs::db eval
4230: 7b 0a 09 09 09 09 09 53 45 4c 45 43 54 20 44 49 {......SELECT DI
4240: 53 54 49 4e 43 54 20 76 65 72 73 69 6f 6e 20 46 STINCT version F
4250: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 ROM packages WHE
4260: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 RE hostname = $p
4270: 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 athinfo(hostname
4280: 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 ) AND package =
4290: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 $pathinfo(packag
42a0: 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 e) AND os = $pat
42b0: 68 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 hinfo(os) AND cp
42c0: 75 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66 uArch = $pathinf
42d0: 6f 28 63 70 75 29 3b 0a 09 09 09 09 7d 5d 0a 0a o(cpu);.....}]..
42e0: 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20 ....::appfs::db
42f0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 76 65 72 eval {SELECT ver
4300: 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63 6b 61 67 sion FROM packag
4310: 65 73 20 57 48 45 52 45 20 69 73 4c 61 74 65 73 es WHERE isLates
4320: 74 20 3d 20 31 20 41 4e 44 20 68 6f 73 74 6e 61 t = 1 AND hostna
4330: 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 me = $pathinfo(h
4340: 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 ostname) AND pac
4350: 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f kage = $pathinfo
4360: 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 (package) AND os
4370: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 = $pathinfo(os)
4380: 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 AND cpuArch = $
4390: 70 61 74 68 69 6e 66 6f 28 63 70 75 29 20 4c 49 pathinfo(cpu) LI
43a0: 4d 49 54 20 31 3b 7d 20 6c 61 74 65 73 74 5f 69 MIT 1;} latest_i
43b0: 6e 66 6f 20 7b 7d 0a 0a 09 09 09 09 69 66 20 7b nfo {}......if {
43c0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6c 61 74 [info exists lat
43d0: 65 73 74 5f 69 6e 66 6f 28 76 65 72 73 69 6f 6e est_info(version
43e0: 29 5d 7d 20 7b 0a 09 09 09 09 09 6c 61 70 70 65 )]} {......lappe
43f0: 6e 64 20 72 65 74 76 61 6c 20 22 6c 61 74 65 73 nd retval "lates
4400: 74 22 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 t".....}......re
4410: 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09 09 turn $retval....
4420: 7d 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 }...."files" {..
4430: 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 09 ...catch {......
4440: 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64 65 ::appfs::getinde
4450: 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 x $pathinfo(host
4460: 6e 61 6d 65 29 0a 09 09 09 09 09 3a 3a 61 70 70 name)......::app
4470: 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65 fs::getpkgmanife
4480: 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 st $pathinfo(hos
4490: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f tname) $pathinfo
44a0: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09 (package_sha1)..
44b0: 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20 72 65 ...}......set re
44c0: 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 tval [::appfs::d
44d0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 b eval {SELECT D
44e0: 49 53 54 49 4e 43 54 20 66 69 6c 65 5f 6e 61 6d ISTINCT file_nam
44f0: 65 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 e FROM files WHE
4500: 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20 RE package_sha1
4510: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b = $pathinfo(pack
4520: 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69 age_sha1) AND fi
4530: 6c 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24 le_directory = $
4540: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 3b 7d pathinfo(file);}
4550: 5d 0a 0a 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f ]......if {[info
4560: 20 65 78 69 73 74 73 20 70 61 74 68 69 6e 66 6f exists pathinfo
4570: 28 70 61 63 6b 61 67 65 29 5d 20 26 26 20 5b 69 (package)] && [i
4580: 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 69 nfo exists pathi
4590: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 5d 20 26 nfo(hostname)] &
45a0: 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 & [info exists p
45b0: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 7d 20 athinfo(file)]}
45c0: 7b 0a 09 09 09 09 09 5f 61 73 5f 75 73 65 72 20 {......_as_user
45d0: 7b 0a 09 09 09 09 09 09 73 65 74 20 64 69 72 20 {.......set dir
45e0: 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 70 61 74 [_localpath $pat
45f0: 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 20 24 hinfo(package) $
4600: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d pathinfo(hostnam
4610: 65 29 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c e) $pathinfo(fil
4620: 65 29 5d 0a 09 09 09 09 09 09 73 65 74 20 77 68 e)].......set wh
4630: 69 74 65 6f 75 74 64 69 72 20 5b 73 74 72 69 6e iteoutdir [strin
4640: 67 20 72 61 6e 67 65 20 5b 5f 77 68 69 74 65 6f g range [_whiteo
4650: 75 74 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f utpath $pathinfo
4660: 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 (package) $pathi
4670: 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 nfo(hostname) $p
4680: 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 20 30 athinfo(file)] 0
4690: 20 65 6e 64 2d 31 35 5d 0a 0a 09 09 09 09 09 09 end-15]........
46a0: 69 66 20 7b 24 77 68 69 74 65 6f 75 74 64 69 72 if {$whiteoutdir
46b0: 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 != ""} {.......
46c0: 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 .foreach file [g
46d0: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 lob -nocomplain
46e0: 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72 -tails -director
46f0: 79 20 24 77 68 69 74 65 6f 75 74 64 69 72 20 7b y $whiteoutdir {
4700: 7b 2e 2c 7d 2a 2e 41 50 50 46 53 2e 57 48 49 54 {.,}*.APPFS.WHIT
4710: 45 4f 55 54 7d 5d 20 7b 0a 09 09 09 09 09 09 09 EOUT}] {........
4720: 09 73 65 74 20 72 65 6d 6f 76 65 20 5b 73 74 72 .set remove [str
4730: 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c 65 20 ing range $file
4740: 30 20 65 6e 64 2d 31 35 5d 0a 09 09 09 09 09 09 0 end-15].......
4750: 09 09 73 65 74 20 69 64 78 20 5b 6c 73 65 61 72 ..set idx [lsear
4760: 63 68 20 2d 65 78 61 63 74 20 24 72 65 74 76 61 ch -exact $retva
4770: 6c 20 24 72 65 6d 6f 76 65 5d 0a 09 09 09 09 09 l $remove]......
4780: 09 09 09 69 66 20 7b 24 69 64 78 20 21 3d 20 2d ...if {$idx != -
4790: 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 73 65 1} {..........se
47a0: 74 20 72 65 74 76 61 6c 20 5b 6c 72 65 70 6c 61 t retval [lrepla
47b0: 63 65 20 24 72 65 74 76 61 6c 20 24 69 64 78 20 ce $retval $idx
47c0: 24 69 64 78 5d 0a 09 09 09 09 09 09 09 09 7d 0a $idx].........}.
47d0: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 7d .......}.......}
47e0: 0a 0a 09 09 09 09 09 09 69 66 20 7b 24 64 69 72 ........if {$dir
47f0: 20 21 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 != ""} {.......
4800: 09 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 .foreach file [g
4810: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 lob -nocomplain
4820: 2d 74 61 69 6c 73 20 2d 64 69 72 65 63 74 6f 72 -tails -director
4830: 79 20 24 64 69 72 20 7b 7b 2e 2c 7d 2a 7d 5d 20 y $dir {{.,}*}]
4840: 7b 0a 09 09 09 09 09 09 09 09 69 66 20 7b 24 66 {.........if {$f
4850: 69 6c 65 20 3d 3d 20 22 2e 22 20 7c 7c 20 24 66 ile == "." || $f
4860: 69 6c 65 20 3d 3d 20 22 2e 2e 22 7d 20 7b 0a 09 ile == ".."} {..
4870: 09 09 09 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 ........continue
4880: 0a 09 09 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 .........}......
4890: 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d 3d ....if {$file ==
48a0: 20 22 2e 41 50 50 46 53 2e 57 48 49 54 45 4f 55 ".APPFS.WHITEOU
48b0: 54 22 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 63 T"} {..........c
48c0: 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09 09 ontinue.........
48d0: 7d 0a 0a 09 09 09 09 09 09 09 09 69 66 20 7b 5b }..........if {[
48e0: 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 lsearch -exact $
48f0: 72 65 74 76 61 6c 20 24 66 69 6c 65 5d 20 21 3d retval $file] !=
4900: 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 09 -1} {..........
4910: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 09 continue........
4920: 09 7d 0a 0a 09 09 09 09 09 09 09 09 6c 61 70 70 .}..........lapp
4930: 65 6e 64 20 72 65 74 76 61 6c 20 24 66 69 6c 65 end retval $file
4940: 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 ........}.......
4950: 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a }......}.....}..
4960: 09 09 09 09 72 65 74 75 72 6e 20 24 72 65 74 76 ....return $retv
4970: 61 6c 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 al....}...}....r
4980: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f eturn -code erro
4990: 72 20 22 49 6e 76 61 6c 69 64 20 6f 72 20 75 6e r "Invalid or un
49a0: 61 63 63 65 70 74 61 62 6c 65 20 70 61 74 68 3a acceptable path:
49b0: 20 24 64 69 72 22 0a 09 7d 0a 0a 09 70 72 6f 63 $dir"..}...proc
49c0: 20 67 65 74 61 74 74 72 20 7b 70 61 74 68 7d 20 getattr {path}
49d0: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61 {...array set pa
49e0: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61 thinfo [_parsepa
49f0: 74 68 20 24 70 61 74 68 5d 0a 09 09 61 72 72 61 th $path]...arra
4a00: 79 20 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 69 y set retval [li
4a10: 73 74 5d 0a 0a 09 09 63 61 74 63 68 20 7b 0a 09 st]....catch {..
4a20: 09 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e ..::appfs::getin
4a30: 64 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f dex $pathinfo(ho
4a40: 73 74 6e 61 6d 65 29 0a 09 09 09 3a 3a 61 70 70 stname)....::app
4a50: 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65 fs::getpkgmanife
4a60: 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 st $pathinfo(hos
4a70: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f tname) $pathinfo
4a80: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09 (package_sha1)..
4a90: 09 7d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 .}....switch --
4aa0: 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65 29 $pathinfo(_type)
4ab0: 20 7b 0a 09 09 09 22 74 6f 70 6c 65 76 65 6c 22 {...."toplevel"
4ac0: 20 7b 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 {.....set retva
4ad0: 6c 28 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 l(type) director
4ae0: 79 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 6c y.....set retval
4af0: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c (childcount) [ll
4b00: 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 ength [getchildr
4b10: 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 7d 0a en $path]]....}.
4b20: 09 09 09 22 73 69 74 65 73 22 20 7b 0a 09 09 09 ..."sites" {....
4b30: 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 70 .set check [::ap
4b40: 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d pfs::db onecolum
4b50: 6e 20 7b 53 45 4c 45 43 54 20 31 20 46 52 4f 4d n {SELECT 1 FROM
4b60: 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 packages WHERE
4b70: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 hostname = $path
4b80: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 3b 7d info(hostname);}
4b90: 5d 0a 09 09 09 09 69 66 20 7b 24 63 68 65 63 6b ].....if {$check
4ba0: 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 09 09 09 09 == "1"} {......
4bb0: 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 29 set retval(type)
4bc0: 20 64 69 72 65 63 74 6f 72 79 0a 09 09 09 09 09 directory......
4bd0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64 set retval(child
4be0: 63 6f 75 6e 74 29 20 30 0a 09 09 09 09 7d 0a 09 count) 0.....}..
4bf0: 09 09 7d 0a 09 09 09 22 70 61 63 6b 61 67 65 73 ..}...."packages
4c00: 22 20 7b 0a 09 09 09 09 73 65 74 20 63 68 65 63 " {.....set chec
4c10: 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f k [::appfs::db o
4c20: 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 necolumn {SELECT
4c30: 20 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 1 FROM packages
4c40: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 WHERE hostname
4c50: 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 = $pathinfo(host
4c60: 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 67 name) AND packag
4c70: 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 e = $pathinfo(pa
4c80: 63 6b 61 67 65 29 3b 7d 5d 0a 09 09 09 09 69 66 ckage);}].....if
4c90: 20 7b 24 63 68 65 63 6b 20 3d 3d 20 22 31 22 7d {$check == "1"}
4ca0: 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 {......set retv
4cb0: 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74 6f al(type) directo
4cc0: 72 79 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 ry......set retv
4cd0: 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b al(childcount) [
4ce0: 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c llength [getchil
4cf0: 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 dren $path]]....
4d00: 09 7d 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d 63 .}....}...."os-c
4d10: 70 75 22 20 7b 0a 09 09 09 09 69 66 20 7b 24 70 pu" {.....if {$p
4d20: 61 74 68 69 6e 66 6f 28 6f 73 29 20 3d 3d 20 22 athinfo(os) == "
4d30: 70 6c 61 74 66 6f 72 6d 22 20 26 26 20 24 70 61 platform" && $pa
4d40: 74 68 69 6e 66 6f 28 63 70 75 29 20 3d 3d 20 22 thinfo(cpu) == "
4d50: 22 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 63 68 "} {......set ch
4d60: 65 63 6b 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 eck [::appfs::db
4d70: 20 65 76 61 6c 20 7b 0a 09 09 09 09 09 09 53 45 eval {.......SE
4d80: 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 6f 73 LECT DISTINCT os
4d90: 2c 20 63 70 75 41 72 63 68 20 46 52 4f 4d 20 70 , cpuArch FROM p
4da0: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f ackages WHERE ho
4db0: 73 74 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e stname = $pathin
4dc0: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 fo(hostname) AND
4dd0: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 package = $path
4de0: 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 3b 0a 09 info(package);..
4df0: 09 09 09 09 7d 5d 0a 0a 09 09 09 09 09 73 65 74 ....}].......set
4e00: 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 73 79 retval(type) sy
4e10: 6d 6c 69 6e 6b 0a 0a 09 09 09 09 09 69 66 20 7b mlink.......if {
4e20: 24 63 68 65 63 6b 20 3d 3d 20 5b 6c 69 73 74 20 $check == [list
4e30: 22 6e 6f 61 72 63 68 22 20 22 6e 6f 61 72 63 68 "noarch" "noarch
4e40: 22 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 "]} {.......set
4e50: 72 65 74 76 61 6c 28 73 6f 75 72 63 65 29 20 22 retval(source) "
4e60: 6e 6f 61 72 63 68 2d 6e 6f 61 72 63 68 22 0a 09 noarch-noarch"..
4e70: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 ....} else {....
4e80: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f ...set retval(so
4e90: 75 72 63 65 29 20 24 3a 3a 61 70 70 66 73 3a 3a urce) $::appfs::
4ea0: 70 6c 61 74 66 6f 72 6d 0a 09 09 09 09 09 7d 0a platform......}.
4eb0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 ....} else {....
4ec0: 09 09 73 65 74 20 63 68 65 63 6b 20 5b 3a 3a 61 ..set check [::a
4ed0: 70 70 66 73 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 ppfs::db onecolu
4ee0: 6d 6e 20 7b 0a 09 09 09 09 09 09 53 45 4c 45 43 mn {.......SELEC
4ef0: 54 20 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 T 1 FROM package
4f00: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 s WHERE hostname
4f10: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 = $pathinfo(hos
4f20: 74 6e 61 6d 65 29 20 41 4e 44 20 70 61 63 6b 61 tname) AND packa
4f30: 67 65 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 ge = $pathinfo(p
4f40: 61 63 6b 61 67 65 29 20 41 4e 44 20 6f 73 20 3d ackage) AND os =
4f50: 20 24 70 61 74 68 69 6e 66 6f 28 6f 73 29 20 41 $pathinfo(os) A
4f60: 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24 70 61 ND cpuArch = $pa
4f70: 74 68 69 6e 66 6f 28 63 70 75 29 3b 0a 09 09 09 thinfo(cpu);....
4f80: 09 09 7d 5d 0a 09 09 09 09 09 69 66 20 7b 24 63 ..}]......if {$c
4f90: 68 65 63 6b 20 3d 3d 20 22 31 22 7d 20 7b 0a 09 heck == "1"} {..
4fa0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 .....set retval(
4fb0: 74 79 70 65 29 20 64 69 72 65 63 74 6f 72 79 0a type) directory.
4fc0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c ......set retval
4fd0: 28 63 68 69 6c 64 63 6f 75 6e 74 29 20 5b 6c 6c (childcount) [ll
4fe0: 65 6e 67 74 68 20 5b 67 65 74 63 68 69 6c 64 72 ength [getchildr
4ff0: 65 6e 20 24 70 61 74 68 5d 5d 0a 09 09 09 09 09 en $path]]......
5000: 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 }.....}....}....
5010: 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09 "versions" {....
5020: 09 69 66 20 7b 24 70 61 74 68 69 6e 66 6f 28 76 .if {$pathinfo(v
5030: 65 72 73 69 6f 6e 29 20 3d 3d 20 22 6c 61 74 65 ersion) == "late
5040: 73 74 22 7d 20 7b 0a 09 09 09 09 09 3a 3a 61 70 st"} {......::ap
5050: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 pfs::db eval {SE
5060: 4c 45 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f LECT version FRO
5070: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 M packages WHERE
5080: 20 69 73 4c 61 74 65 73 74 20 3d 20 31 20 41 4e isLatest = 1 AN
5090: 44 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 D hostname = $pa
50a0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 thinfo(hostname)
50b0: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 AND package = $
50c0: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 pathinfo(package
50d0: 29 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 ) AND os = $path
50e0: 69 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 info(os) AND cpu
50f0: 41 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f Arch = $pathinfo
5100: 28 63 70 75 29 20 4c 49 4d 49 54 20 31 3b 7d 20 (cpu) LIMIT 1;}
5110: 6c 61 74 65 73 74 5f 69 6e 66 6f 20 7b 7d 0a 0a latest_info {}..
5120: 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 .....if {[info e
5130: 78 69 73 74 73 20 6c 61 74 65 73 74 5f 69 6e 66 xists latest_inf
5140: 6f 28 76 65 72 73 69 6f 6e 29 5d 7d 20 7b 0a 09 o(version)]} {..
5150: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 .....set retval(
5160: 74 79 70 65 29 20 73 79 6d 6c 69 6e 6b 0a 09 09 type) symlink...
5170: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 ....set retval(s
5180: 6f 75 72 63 65 29 20 24 6c 61 74 65 73 74 5f 69 ource) $latest_i
5190: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 09 09 09 nfo(version)....
51a0: 09 09 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b ..}.....} else {
51b0: 0a 09 09 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 ......if {[info
51c0: 65 78 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 exists pathinfo(
51d0: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 5d 20 26 package_sha1)] &
51e0: 26 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b & $pathinfo(pack
51f0: 61 67 65 5f 73 68 61 31 29 20 21 3d 20 22 22 7d age_sha1) != ""}
5200: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 {.......set ret
5210: 76 61 6c 28 74 79 70 65 29 20 64 69 72 65 63 74 val(type) direct
5220: 6f 72 79 0a 09 09 09 09 09 09 73 65 74 20 72 65 ory.......set re
5230: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 tval(childcount)
5240: 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 [llength [getch
5250: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 ildren $path]]..
5260: 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d ....}.....}....}
5270: 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a 09 09 ...."files" {...
5280: 09 09 73 65 74 20 72 65 74 76 61 6c 28 70 61 63 ..set retval(pac
5290: 6b 61 67 65 64 29 20 31 0a 0a 09 09 09 09 73 65 kaged) 1......se
52a0: 74 20 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f t localpath [_lo
52b0: 63 61 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 calpath $pathinf
52c0: 6f 28 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 o(package) $path
52d0: 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 info(hostname) $
52e0: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a pathinfo(file)].
52f0: 09 09 09 09 73 65 74 20 77 68 69 74 65 6f 75 74 ....set whiteout
5300: 70 61 74 68 20 20 5b 5f 77 68 69 74 65 6f 75 74 path [_whiteout
5310: 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28 70 path $pathinfo(p
5320: 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e 66 ackage) $pathinf
5330: 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61 74 o(hostname) $pat
5340: 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09 09 hinfo(file)]....
5350: 09 09 73 65 74 20 72 65 74 76 61 6c 28 6c 6f 63 ..set retval(loc
5360: 61 6c 70 61 74 68 29 20 24 6c 6f 63 61 6c 70 61 alpath) $localpa
5370: 74 68 0a 09 09 09 09 73 65 74 20 72 65 74 76 61 th.....set retva
5380: 6c 28 77 68 69 74 65 6f 75 74 70 61 74 68 29 20 l(whiteoutpath)
5390: 24 77 68 69 74 65 6f 75 74 70 61 74 68 0a 0a 09 $whiteoutpath...
53a0: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 ...unset -nocomp
53b0: 6c 61 69 6e 20 6c 6f 63 61 6c 70 61 74 68 69 6e lain localpathin
53c0: 66 6f 0a 09 09 09 09 69 66 20 7b 24 6c 6f 63 61 fo.....if {$loca
53d0: 6c 70 61 74 68 20 21 3d 20 22 22 7d 20 7b 0a 09 lpath != ""} {..
53e0: 09 09 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 ...._as_user {..
53f0: 09 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 .....catch {....
5400: 09 09 09 09 66 69 6c 65 20 6c 73 74 61 74 20 24 ....file lstat $
5410: 6c 6f 63 61 6c 70 61 74 68 20 6c 6f 63 61 6c 70 localpath localp
5420: 61 74 68 69 6e 66 6f 0a 09 09 09 09 09 09 7d 0a athinfo.......}.
5430: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 .....}.....}....
5440: 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 ..if {$localpath
5450: 20 21 3d 20 22 22 20 26 26 20 5b 69 6e 66 6f 20 != "" && [info
5460: 65 78 69 73 74 73 20 6c 6f 63 61 6c 70 61 74 68 exists localpath
5470: 69 6e 66 6f 5d 7d 20 7b 0a 09 09 09 09 09 73 65 info]} {......se
5480: 74 20 72 65 74 76 61 6c 28 69 73 5f 6c 6f 63 61 t retval(is_loca
5490: 6c 66 69 6c 65 29 20 31 0a 09 09 09 09 09 63 61 lfile) 1......ca
54a0: 74 63 68 20 7b 0a 09 09 09 09 09 09 73 65 74 20 tch {.......set
54b0: 72 65 74 76 61 6c 28 74 69 6d 65 29 20 24 6c 6f retval(time) $lo
54c0: 63 61 6c 70 61 74 68 69 6e 66 6f 28 6d 74 69 6d calpathinfo(mtim
54d0: 65 29 0a 0a 09 09 09 09 09 09 73 77 69 74 63 68 e)........switch
54e0: 20 2d 2d 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e -- $localpathin
54f0: 66 6f 28 74 79 70 65 29 20 7b 0a 09 09 09 09 09 fo(type) {......
5500: 09 09 22 64 69 72 65 63 74 6f 72 79 22 20 7b 0a .."directory" {.
5510: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 ........set retv
5520: 61 6c 28 74 79 70 65 29 20 22 64 69 72 65 63 74 al(type) "direct
5530: 6f 72 79 22 0a 09 09 09 09 09 09 09 09 73 65 74 ory".........set
5540: 20 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 retval(childcou
5550: 6e 74 29 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 nt) [llength [ge
5560: 74 63 68 69 6c 64 72 65 6e 20 24 70 61 74 68 5d tchildren $path]
5570: 5d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 ]........}......
5580: 09 09 22 66 69 6c 65 22 20 7b 0a 09 09 09 09 09 .."file" {......
5590: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 ...set retval(ty
55a0: 70 65 29 20 22 66 69 6c 65 22 0a 09 09 09 09 09 pe) "file"......
55b0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 73 69 ...set retval(si
55c0: 7a 65 29 20 24 6c 6f 63 61 6c 70 61 74 68 69 6e ze) $localpathin
55d0: 66 6f 28 73 69 7a 65 29 0a 0a 09 09 09 09 09 09 fo(size)........
55e0: 09 09 23 20 4f 6e 63 65 20 74 68 65 20 75 73 65 ..# Once the use
55f0: 72 20 77 72 69 74 65 73 20 74 6f 20 61 20 66 69 r writes to a fi
5600: 6c 65 2c 20 61 6c 6c 20 69 74 73 20 6f 74 68 65 le, all its othe
5610: 72 0a 09 09 09 09 09 09 09 09 23 20 61 74 74 72 r.........# attr
5620: 69 62 75 74 65 73 20 28 73 75 63 68 20 61 73 20 ibutes (such as
5630: 73 75 69 64 29 20 61 72 65 20 6c 6f 73 74 0a 0a suid) are lost..
5640: 09 09 09 09 09 09 09 09 5f 61 73 5f 75 73 65 72 ........_as_user
5650: 20 7b 0a 09 09 09 09 09 09 09 09 09 69 66 20 7b {..........if {
5660: 5b 66 69 6c 65 20 65 78 65 63 75 74 61 62 6c 65 [file executable
5670: 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b 0a $localpath]} {.
5680: 09 09 09 09 09 09 09 09 09 09 73 65 74 20 72 65 ..........set re
5690: 74 76 61 6c 28 70 65 72 6d 73 29 20 22 78 2d 22 tval(perms) "x-"
56a0: 0a 09 09 09 09 09 09 09 09 09 7d 20 65 6c 73 65 ..........} else
56b0: 20 7b 0a 09 09 09 09 09 09 09 09 09 09 73 65 74 {...........set
56c0: 20 72 65 74 76 61 6c 28 70 65 72 6d 73 29 20 22 retval(perms) "
56d0: 2d 22 0a 09 09 09 09 09 09 09 09 09 7d 0a 09 09 -"..........}...
56e0: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d ......}........}
56f0: 0a 09 09 09 09 09 09 09 22 6c 69 6e 6b 22 20 7b ........"link" {
5700: 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 .........set ret
5710: 76 61 6c 28 74 79 70 65 29 20 22 73 79 6d 6c 69 val(type) "symli
5720: 6e 6b 22 0a 0a 09 09 09 09 09 09 09 09 5f 61 73 nk".........._as
5730: 5f 75 73 65 72 20 7b 0a 09 09 09 09 09 09 09 09 _user {.........
5740: 09 73 65 74 20 72 65 74 76 61 6c 28 73 6f 75 72 .set retval(sour
5750: 63 65 29 20 5b 66 69 6c 65 20 72 65 61 64 6c 69 ce) [file readli
5760: 6e 6b 20 24 6c 6f 63 61 6c 70 61 74 68 5d 0a 09 nk $localpath]..
5770: 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 .......}........
5780: 7d 0a 09 09 09 09 09 09 09 22 66 69 66 6f 22 20 }........"fifo"
5790: 7b 0a 09 09 09 09 09 09 09 09 23 20 43 61 70 69 {.........# Capi
57a0: 74 61 6c 69 7a 65 64 20 73 6f 20 74 68 61 74 20 talized so that
57b0: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 20 69 the first char i
57c0: 73 20 75 6e 69 71 75 65 0a 09 09 09 09 09 09 09 s unique........
57d0: 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 70 65 .set retval(type
57e0: 29 20 22 46 69 66 6f 22 0a 09 09 09 09 09 09 09 ) "Fifo"........
57f0: 7d 0a 09 09 09 09 09 09 09 22 73 6f 63 6b 65 74 }........"socket
5800: 22 20 7b 0a 09 09 09 09 09 09 09 09 23 20 43 61 " {.........# Ca
5810: 70 69 74 61 6c 69 7a 65 64 20 73 6f 20 74 68 61 pitalized so tha
5820: 74 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 t the first char
5830: 20 69 73 20 75 6e 69 71 75 65 0a 09 09 09 09 09 is unique......
5840: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 74 79 ...set retval(ty
5850: 70 65 29 20 22 53 6f 63 6b 65 74 22 0a 09 09 09 pe) "Socket"....
5860: 09 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a 09 09 ....}.......}...
5870: 09 09 09 7d 20 65 72 72 0a 09 09 09 09 7d 20 65 ...} err.....} e
5880: 6c 73 65 20 7b 0a 09 09 09 09 09 69 66 20 7b 24 lse {......if {$
5890: 77 68 69 74 65 6f 75 74 70 61 74 68 20 3d 3d 20 whiteoutpath ==
58a0: 22 22 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 "" || ![file exi
58b0: 73 74 73 20 24 77 68 69 74 65 6f 75 74 70 61 74 sts $whiteoutpat
58c0: 68 5d 7d 20 7b 0a 09 09 09 09 09 09 73 65 74 20 h]} {.......set
58d0: 72 65 74 76 61 6c 28 69 73 5f 72 65 6d 6f 74 65 retval(is_remote
58e0: 66 69 6c 65 29 20 31 0a 0a 09 09 09 09 09 09 73 file) 1........s
58f0: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 et work [split $
5900: 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22 pathinfo(file) "
5910: 2f 22 5d 0a 09 09 09 09 09 09 73 65 74 20 64 69 /"].......set di
5920: 72 65 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c rectory [join [l
5930: 72 61 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e range $work 0 en
5940: 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 d-1] "/"].......
5950: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 set file [lindex
5960: 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 0a 09 09 09 $work end].....
5970: 09 09 09 69 66 20 7b 24 64 69 72 65 63 74 6f 72 ...if {$director
5980: 79 20 3d 3d 20 22 22 20 26 26 20 24 66 69 6c 65 y == "" && $file
5990: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 == ""} {.......
59a0: 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61 .array set retva
59b0: 6c 20 5b 6c 69 73 74 20 74 79 70 65 20 64 69 72 l [list type dir
59c0: 65 63 74 6f 72 79 5d 0a 09 09 09 09 09 09 7d 0a ectory].......}.
59d0: 0a 09 09 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a .......::appfs::
59e0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 db eval {SELECT
59f0: 74 79 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 type, time, sour
5a00: 63 65 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c ce, size, perms,
5a10: 20 66 69 6c 65 5f 73 68 61 31 20 46 52 4f 4d 20 file_sha1 FROM
5a20: 66 69 6c 65 73 20 57 48 45 52 45 20 70 61 63 6b files WHERE pack
5a30: 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61 74 68 age_sha1 = $path
5a40: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 info(package_sha
5a50: 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69 72 65 1) AND file_dire
5a60: 63 74 6f 72 79 20 3d 20 24 64 69 72 65 63 74 6f ctory = $directo
5a70: 72 79 20 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65 ry AND file_name
5a80: 20 3d 20 24 66 69 6c 65 3b 7d 20 72 65 74 76 61 = $file;} retva
5a90: 6c 20 7b 7d 0a 0a 09 09 09 09 09 09 23 20 41 6c l {}........# Al
5aa0: 6c 6f 77 20 61 6e 20 61 64 6d 69 6e 69 73 74 72 low an administr
5ab0: 61 74 6f 72 20 74 6f 20 73 75 70 70 6c 79 20 61 ator to supply a
5ac0: 64 64 69 74 69 6f 6e 61 6c 20 70 65 72 6d 69 73 dditional permis
5ad0: 73 69 6f 6e 73 20 74 6f 20 72 65 6d 6f 74 65 20 sions to remote
5ae0: 66 69 6c 65 73 0a 09 09 09 09 09 09 69 66 20 7b files.......if {
5af0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74 [info exists ret
5b00: 76 61 6c 28 70 65 72 6d 73 29 5d 7d 20 7b 0a 09 val(perms)]} {..
5b10: 09 09 09 09 09 09 23 20 4c 6f 77 65 72 20 63 61 ......# Lower ca
5b20: 73 65 20 74 68 69 73 20 69 6e 20 63 61 73 65 20 se this in case
5b30: 61 6e 20 75 70 70 65 72 2d 63 61 73 65 64 20 76 an upper-cased v
5b40: 61 6c 75 65 20 77 61 73 20 70 75 74 20 69 6e 0a alue was put in.
5b50: 09 09 09 09 09 09 09 23 20 74 68 65 20 64 61 74 .......# the dat
5b60: 61 62 61 73 65 20 62 65 66 6f 72 65 20 77 65 20 abase before we
5b70: 73 74 61 72 74 65 64 20 6c 6f 77 65 72 63 61 73 started lowercas
5b80: 69 6e 67 20 74 68 65 6d 0a 09 09 09 09 09 09 09 ing them........
5b90: 73 65 74 20 72 65 74 76 61 6c 28 70 65 72 6d 73 set retval(perms
5ba0: 29 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 ) [string tolowe
5bb0: 72 20 24 72 65 74 76 61 6c 28 70 65 72 6d 73 29 r $retval(perms)
5bc0: 5d 0a 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 ].........set re
5bd0: 74 76 61 6c 28 70 65 72 6d 73 29 20 5b 3a 3a 61 tval(perms) [::a
5be0: 70 70 66 73 3a 3a 75 73 65 72 3a 3a 63 68 61 6e ppfs::user::chan
5bf0: 67 65 5f 70 65 72 6d 73 20 24 70 61 74 68 20 24 ge_perms $path $
5c00: 72 65 74 76 61 6c 28 66 69 6c 65 5f 73 68 61 31 retval(file_sha1
5c10: 29 20 24 72 65 74 76 61 6c 28 70 65 72 6d 73 29 ) $retval(perms)
5c20: 5d 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 ].......}.......
5c30: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 .if {[info exist
5c40: 73 20 72 65 74 76 61 6c 28 74 79 70 65 29 5d 20 s retval(type)]
5c50: 26 26 20 24 72 65 74 76 61 6c 28 74 79 70 65 29 && $retval(type)
5c60: 20 3d 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d == "directory"}
5c70: 20 7b 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 {........set re
5c80: 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e 74 29 tval(childcount)
5c90: 20 5b 6c 6c 65 6e 67 74 68 20 5b 67 65 74 63 68 [llength [getch
5ca0: 69 6c 64 72 65 6e 20 24 70 61 74 68 5d 5d 0a 09 ildren $path]]..
5cb0: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09 75 6e .....}........un
5cc0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 set -nocomplain
5cd0: 72 65 74 76 61 6c 28 2a 29 0a 09 09 09 09 09 7d retval(*)......}
5ce0: 0a 09 09 09 09 7d 0a 0a 09 09 09 7d 0a 09 09 7d .....}.....}...}
5cf0: 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 ....if {![info e
5d00: 78 69 73 74 73 20 72 65 74 76 61 6c 28 74 79 70 xists retval(typ
5d10: 65 29 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e e)]} {....return
5d20: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f -code error "No
5d30: 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 such file or di
5d40: 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09 rectory"...}....
5d50: 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 return [array ge
5d60: 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 t retval]..}...p
5d70: 72 6f 63 20 6f 70 65 6e 70 61 74 68 20 7b 70 61 roc openpath {pa
5d80: 74 68 20 6d 6f 64 65 7d 20 7b 0a 09 09 61 72 72 th mode} {...arr
5d90: 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20 ay set pathinfo
5da0: 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 74 [_parsepath $pat
5db0: 68 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 69 h]....if {$pathi
5dc0: 6e 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 66 nfo(_type) != "f
5dd0: 69 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 75 iles"} {....retu
5de0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 rn -code error "
5df0: 69 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 09 invalid type"...
5e00: 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 61 }....set localpa
5e10: 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 24 th [_localpath $
5e20: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 pathinfo(package
5e30: 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 ) $pathinfo(host
5e40: 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f 28 name) $pathinfo(
5e50: 66 69 6c 65 29 5d 0a 0a 09 09 69 66 20 7b 24 6d file)]....if {$m
5e60: 6f 64 65 20 3d 3d 20 22 63 72 65 61 74 65 22 7d ode == "create"}
5e70: 20 7b 0a 09 09 09 69 66 20 7b 24 6c 6f 63 61 6c {....if {$local
5e80: 70 61 74 68 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 path == ""} {...
5e90: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
5ea0: 72 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 63 rror "Asked to c
5eb0: 72 65 61 74 65 2c 20 62 75 74 20 6e 6f 20 68 6f reate, but no ho
5ec0: 6d 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 09 me directory."..
5ed0: 09 09 7d 0a 0a 09 09 09 72 65 74 75 72 6e 20 24 ..}.....return $
5ee0: 6c 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 localpath...}...
5ef0: 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 20 .if {$localpath
5f00: 21 3d 20 22 22 20 26 26 20 5b 66 69 6c 65 20 65 != "" && [file e
5f10: 78 69 73 74 73 20 24 6c 6f 63 61 6c 70 61 74 68 xists $localpath
5f20: 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 ]} {....return $
5f30: 6c 6f 63 61 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 localpath...}...
5f40: 09 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 .set work [split
5f50: 20 24 70 61 74 68 69 6e 66 6f 28 66 69 6c 65 29 $pathinfo(file)
5f60: 20 22 2f 22 5d 0a 09 09 73 65 74 20 64 69 72 65 "/"]...set dire
5f70: 63 74 6f 72 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61 ctory [join [lra
5f80: 6e 67 65 20 24 77 6f 72 6b 20 30 20 65 6e 64 2d nge $work 0 end-
5f90: 31 5d 20 22 2f 22 5d 0a 09 09 73 65 74 20 66 69 1] "/"]...set fi
5fa0: 6c 65 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b le [lindex $work
5fb0: 20 65 6e 64 5d 0a 09 09 3a 3a 61 70 70 66 73 3a end]...::appfs:
5fc0: 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 :db eval {SELECT
5fd0: 20 66 69 6c 65 5f 73 68 61 31 2c 20 70 65 72 6d file_sha1, perm
5fe0: 73 20 46 52 4f 4d 20 66 69 6c 65 73 20 57 48 45 s FROM files WHE
5ff0: 52 45 20 70 61 63 6b 61 67 65 5f 73 68 61 31 20 RE package_sha1
6000: 3d 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b = $pathinfo(pack
6010: 61 67 65 5f 73 68 61 31 29 20 41 4e 44 20 66 69 age_sha1) AND fi
6020: 6c 65 5f 6e 61 6d 65 20 3d 20 24 66 69 6c 65 20 le_name = $file
6030: 41 4e 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f AND file_directo
6040: 72 79 20 3d 20 24 64 69 72 65 63 74 6f 72 79 3b ry = $directory;
6050: 7d 20 70 6b 67 70 61 74 68 69 6e 66 6f 20 7b 7d } pkgpathinfo {}
6060: 0a 0a 09 09 69 66 20 7b 24 70 6b 67 70 61 74 68 ....if {$pkgpath
6070: 69 6e 66 6f 28 66 69 6c 65 5f 73 68 61 31 29 20 info(file_sha1)
6080: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 == ""} {....retu
6090: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 rn -code error "
60a0: 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20 No such file or
60b0: 64 69 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a directory"...}..
60c0: 09 09 73 65 74 20 6c 6f 63 61 6c 63 61 63 68 65 ..set localcache
60d0: 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 file [download $
60e0: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d pathinfo(hostnam
60f0: 65 29 20 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 e) $pkgpathinfo(
6100: 66 69 6c 65 5f 73 68 61 31 29 5d 0a 0a 09 09 69 file_sha1)]....i
6110: 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 77 72 69 f {$mode == "wri
6120: 74 65 22 7d 20 7b 0a 09 09 09 5f 61 73 5f 75 73 te"} {...._as_us
6130: 65 72 20 7b 0a 09 09 09 09 73 65 74 20 74 6d 70 er {.....set tmp
6140: 6c 6f 63 61 6c 70 61 74 68 20 22 24 7b 6c 6f 63 localpath "${loc
6150: 61 6c 70 61 74 68 7d 2e 5b 65 78 70 72 20 72 61 alpath}.[expr ra
6160: 6e 64 28 29 5d 5b 63 6c 6f 63 6b 20 63 6c 69 63 nd()][clock clic
6170: 6b 73 5d 22 0a 0a 09 09 09 09 73 65 74 20 66 61 ks]"......set fa
6180: 69 6c 65 64 20 30 0a 09 09 09 09 69 66 20 7b 5b iled 0.....if {[
6190: 63 61 74 63 68 20 7b 0a 09 09 09 09 09 66 69 6c catch {......fil
61a0: 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64 69 e mkdir [file di
61b0: 72 6e 61 6d 65 20 24 6c 6f 63 61 6c 70 61 74 68 rname $localpath
61c0: 5d 0a 09 09 09 09 09 66 69 6c 65 20 63 6f 70 79 ]......file copy
61d0: 20 2d 66 6f 72 63 65 20 2d 2d 20 24 6c 6f 63 61 -force -- $loca
61e0: 6c 63 61 63 68 65 66 69 6c 65 20 24 74 6d 70 6c lcachefile $tmpl
61f0: 6f 63 61 6c 70 61 74 68 0a 0a 09 09 09 09 09 69 ocalpath.......i
6200: 66 20 7b 24 70 6b 67 70 61 74 68 69 6e 66 6f 28 f {$pkgpathinfo(
6210: 70 65 72 6d 73 29 20 3d 3d 20 22 78 22 7d 20 7b perms) == "x"} {
6220: 0a 09 09 09 09 09 09 66 69 6c 65 20 61 74 74 72 .......file attr
6230: 69 62 75 74 65 73 20 24 74 6d 70 6c 6f 63 61 6c ibutes $tmplocal
6240: 70 61 74 68 20 2d 70 65 72 6d 69 73 73 69 6f 6e path -permission
6250: 73 20 2b 78 0a 09 09 09 09 09 7d 0a 0a 09 09 09 s +x......}.....
6260: 09 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66 ..file rename -f
6270: 6f 72 63 65 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 orce -- $tmploca
6280: 6c 70 61 74 68 20 24 6c 6f 63 61 6c 70 61 74 68 lpath $localpath
6290: 0a 09 09 09 09 7d 20 65 72 72 5d 7d 20 7b 0a 09 .....} err]} {..
62a0: 09 09 09 09 73 65 74 20 66 61 69 6c 65 64 20 31 ....set failed 1
62b0: 0a 09 09 09 09 7d 0a 09 09 09 09 63 61 74 63 68 .....}.....catch
62c0: 20 7b 0a 09 09 09 09 09 66 69 6c 65 20 64 65 6c {......file del
62d0: 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 ete -force -- $t
62e0: 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 09 mplocalpath.....
62f0: 7d 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 }....}.....if {$
6300: 66 61 69 6c 65 64 7d 20 7b 0a 09 09 09 09 72 65 failed} {.....re
6310: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
6320: 20 24 65 72 72 0a 09 09 09 7d 0a 0a 09 09 09 72 $err....}.....r
6330: 65 74 75 72 6e 20 24 6c 6f 63 61 6c 70 61 74 68 eturn $localpath
6340: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 ...}....return $
6350: 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 0a 09 localcachefile..
6360: 7d 0a 0a 09 70 72 6f 63 20 6c 6f 63 61 6c 70 61 }...proc localpa
6370: 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 72 th {path} {...ar
6380: 72 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f ray set pathinfo
6390: 20 5b 5f 70 61 72 73 65 70 61 74 68 20 24 70 61 [_parsepath $pa
63a0: 74 68 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 th]....if {$path
63b0: 69 6e 66 6f 28 5f 74 79 70 65 29 20 21 3d 20 22 info(_type) != "
63c0: 66 69 6c 65 73 22 7d 20 7b 0a 09 09 09 72 65 74 files"} {....ret
63d0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
63e0: 22 69 6e 76 61 6c 69 64 20 74 79 70 65 22 0a 09 "invalid type"..
63f0: 09 7d 0a 0a 09 09 73 65 74 20 6c 6f 63 61 6c 70 .}....set localp
6400: 61 74 68 20 5b 5f 6c 6f 63 61 6c 70 61 74 68 20 ath [_localpath
6410: 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 $pathinfo(packag
6420: 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73 e) $pathinfo(hos
6430: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f tname) $pathinfo
6440: 28 66 69 6c 65 29 5d 0a 0a 09 09 72 65 74 75 72 (file)]....retur
6450: 6e 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 7d 0a n $localpath..}.
6460: 0a 09 70 72 6f 63 20 65 78 69 73 74 73 20 7b 70 ..proc exists {p
6470: 61 74 68 7d 20 7b 0a 09 09 63 61 74 63 68 20 7b ath} {...catch {
6480: 0a 09 09 09 73 65 74 20 69 6e 66 6f 20 5b 67 65 ....set info [ge
6490: 74 61 74 74 72 20 24 70 61 74 68 5d 0a 09 09 7d tattr $path]...}
64a0: 20 65 72 72 0a 0a 09 09 69 66 20 7b 21 5b 69 6e err....if {![in
64b0: 66 6f 20 65 78 69 73 74 73 20 69 6e 66 6f 5d 7d fo exists info]}
64c0: 20 7b 0a 09 09 09 69 66 20 7b 24 65 72 72 20 3d {....if {$err =
64d0: 3d 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 = "No such file
64e0: 6f 72 20 64 69 72 65 63 74 6f 72 79 22 7d 20 7b or directory"} {
64f0: 0a 09 09 09 09 72 65 74 75 72 6e 20 5b 6c 69 73 .....return [lis
6500: 74 5d 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 t]....} else {..
6510: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 ...return -code
6520: 65 72 72 6f 72 20 24 65 72 72 0a 09 09 09 7d 0a error $err....}.
6530: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 69 ..}....return $i
6540: 6e 66 6f 0a 09 7d 0a 0a 09 70 72 6f 63 20 70 72 nfo..}...proc pr
6550: 65 70 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 20 epare_to_create
6560: 7b 70 61 74 68 20 7b 6d 75 73 74 5f 6e 6f 74 5f {path {must_not_
6570: 65 78 69 73 74 20 31 7d 7d 20 7b 0a 09 09 69 66 exist 1}} {...if
6580: 20 7b 24 6d 75 73 74 5f 6e 6f 74 5f 65 78 69 73 {$must_not_exis
6590: 74 7d 20 7b 0a 09 09 09 69 66 20 7b 5b 65 78 69 t} {....if {[exi
65a0: 73 74 73 20 24 70 61 74 68 5d 20 21 3d 20 22 22 sts $path] != ""
65b0: 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 2d } {.....return -
65c0: 63 6f 64 65 20 65 72 72 6f 72 20 22 46 69 6c 65 code error "File
65d0: 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 22 already exists"
65e0: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 73 65 74 ....}...}....set
65f0: 20 66 69 6c 65 6e 61 6d 65 20 5b 6c 6f 63 61 6c filename [local
6600: 70 61 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 path $path]....i
6610: 66 20 7b 24 66 69 6c 65 6e 61 6d 65 20 3d 3d 20 f {$filename ==
6620: 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 ""} {....return
6630: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 41 73 6b -code error "Ask
6640: 65 64 20 74 6f 20 63 72 65 61 74 65 2c 20 62 75 ed to create, bu
6650: 74 20 6e 6f 20 68 6f 6d 65 20 64 69 72 65 63 74 t no home direct
6660: 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 09 73 65 74 ory."...}....set
6670: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 dirname [file d
6680: 69 72 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65 irname $filename
6690: 5d 0a 0a 09 09 5f 61 73 5f 75 73 65 72 20 7b 0a ]...._as_user {.
66a0: 09 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 64 ...file mkdir $d
66b0: 69 72 6e 61 6d 65 0a 09 09 7d 0a 0a 09 09 72 65 irname...}....re
66c0: 74 75 72 6e 20 24 66 69 6c 65 6e 61 6d 65 0a 09 turn $filename..
66d0: 7d 0a 0a 09 70 72 6f 63 20 75 6e 6c 69 6e 6b 70 }...proc unlinkp
66e0: 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09 09 61 ath {path} {...a
66f0: 72 72 61 79 20 73 65 74 20 70 61 74 68 61 74 74 rray set pathatt
6700: 72 73 20 5b 65 78 69 73 74 73 20 24 70 61 74 68 rs [exists $path
6710: 5d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 ]....if {![info
6720: 65 78 69 73 74 73 20 70 61 74 68 61 74 74 72 73 exists pathattrs
6730: 28 70 61 63 6b 61 67 65 64 29 5d 7d 20 7b 0a 09 (packaged)]} {..
6740: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
6750: 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74 79 rror "invalid ty
6760: 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 6c pe"...}....set l
6770: 6f 63 61 6c 70 61 74 68 20 24 70 61 74 68 61 74 ocalpath $pathat
6780: 74 72 73 28 6c 6f 63 61 6c 70 61 74 68 29 0a 0a trs(localpath)..
6790: 09 09 69 66 20 7b 24 6c 6f 63 61 6c 70 61 74 68 ..if {$localpath
67a0: 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 == ""} {....ret
67b0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
67c0: 22 41 73 6b 65 64 20 74 6f 20 64 65 6c 65 74 65 "Asked to delete
67d0: 2c 20 62 75 74 20 6e 6f 20 68 6f 6d 65 20 64 69 , but no home di
67e0: 72 65 63 74 6f 72 79 2e 22 0a 09 09 7d 0a 0a 09 rectory."...}...
67f0: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 .if {[info exist
6800: 73 20 70 61 74 68 61 74 74 72 73 28 69 73 5f 6c s pathattrs(is_l
6810: 6f 63 61 6c 66 69 6c 65 29 5d 7d 20 7b 0a 09 09 ocalfile)]} {...
6820: 09 69 66 20 7b 5b 66 69 6c 65 20 69 73 64 69 72 .if {[file isdir
6830: 65 63 74 6f 72 79 20 24 6c 6f 63 61 6c 70 61 74 ectory $localpat
6840: 68 5d 7d 20 7b 0a 09 09 09 09 73 65 74 20 63 68 h]} {.....set ch
6850: 69 6c 64 72 65 6e 20 5b 67 65 74 63 68 69 6c 64 ildren [getchild
6860: 72 65 6e 20 24 70 61 74 68 5d 0a 0a 09 09 09 09 ren $path]......
6870: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 68 if {[llength $ch
6880: 69 6c 64 72 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a ildren] != 0} {.
6890: 09 09 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 .....return -cod
68a0: 65 20 65 72 72 6f 72 20 22 41 73 6b 65 64 20 74 e error "Asked t
68b0: 6f 20 64 65 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 o delete non-emp
68c0: 74 79 20 64 69 72 65 63 74 6f 72 79 22 0a 09 09 ty directory"...
68d0: 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 5f 61 73 ..}....}....._as
68e0: 5f 75 73 65 72 20 7b 0a 09 09 09 09 66 69 6c 65 _user {.....file
68f0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d delete -force -
6900: 2d 20 24 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09 - $localpath....
6910: 7d 0a 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 69 }...} elseif {[i
6920: 6e 66 6f 20 65 78 69 73 74 73 20 70 61 74 68 61 nfo exists patha
6930: 74 74 72 73 28 69 73 5f 72 65 6d 6f 74 65 66 69 ttrs(is_remotefi
6940: 6c 65 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 le)]} {....if {$
6950: 70 61 74 68 61 74 74 72 73 28 74 79 70 65 29 20 pathattrs(type)
6960: 3d 3d 20 22 64 69 72 65 63 74 6f 72 79 22 7d 20 == "directory"}
6970: 7b 0a 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 {.....set childr
6980: 65 6e 20 5b 67 65 74 63 68 69 6c 64 72 65 6e 20 en [getchildren
6990: 24 70 61 74 68 5d 0a 0a 09 09 09 09 69 66 20 7b $path]......if {
69a0: 5b 6c 6c 65 6e 67 74 68 20 24 63 68 69 6c 64 72 [llength $childr
69b0: 65 6e 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 09 en] != 0} {.....
69c0: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 .return -code er
69d0: 72 6f 72 20 22 41 73 6b 65 64 20 74 6f 20 64 65 ror "Asked to de
69e0: 6c 65 74 65 20 6e 6f 6e 2d 65 6d 70 74 79 20 64 lete non-empty d
69f0: 69 72 65 63 74 6f 72 79 22 0a 09 09 09 09 7d 0a irectory".....}.
6a00: 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a ...}...} else {.
6a10: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 ...return -code
6a20: 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 69 error "Unknown i
6a30: 66 20 66 69 6c 65 20 69 73 20 72 65 6d 6f 74 65 f file is remote
6a40: 20 6f 72 20 6c 6f 63 61 6c 20 21 3f 22 0a 09 09 or local !?"...
6a50: 7d 0a 0a 09 09 73 65 74 20 77 68 69 74 65 6f 75 }....set whiteou
6a60: 74 66 69 6c 65 20 24 70 61 74 68 61 74 74 72 73 tfile $pathattrs
6a70: 28 77 68 69 74 65 6f 75 74 70 61 74 68 29 0a 09 (whiteoutpath)..
6a80: 09 73 65 74 20 77 68 69 74 65 6f 75 74 64 69 72 .set whiteoutdir
6a90: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 [file dirname $
6aa0: 77 68 69 74 65 6f 75 74 66 69 6c 65 5d 0a 0a 09 whiteoutfile]...
6ab0: 09 5f 61 73 5f 75 73 65 72 20 7b 0a 09 09 09 66 ._as_user {....f
6ac0: 69 6c 65 20 6d 6b 64 69 72 20 24 77 68 69 74 65 ile mkdir $white
6ad0: 6f 75 74 64 69 72 0a 09 09 09 63 6c 6f 73 65 20 outdir....close
6ae0: 5b 6f 70 65 6e 20 24 77 68 69 74 65 6f 75 74 66 [open $whiteoutf
6af0: 69 6c 65 20 77 5d 0a 09 09 7d 0a 09 7d 0a 7d 0a ile w]...}..}.}.