Hex Artifact Content

Artifact 23568748fe6c7bf56e1ae75c766d44dc5dbb2209:


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 70 61 63 6b 61 67 65 20 72  tclsh..package r
0020: 65 71 75 69 72 65 20 68 74 74 70 20 32 2e 37 0a  equire http 2.7.
0030: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0040: 73 71 6c 69 74 65 33 0a 70 61 63 6b 61 67 65 20  sqlite3.package 
0050: 72 65 71 75 69 72 65 20 73 68 61 31 0a 70 61 63  require sha1.pac
0060: 6b 61 67 65 20 72 65 71 75 69 72 65 20 61 70 70  kage require app
0070: 66 73 64 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65  fsd..namespace e
0080: 76 61 6c 20 3a 3a 61 70 70 66 73 20 7b 0a 09 76  val ::appfs {..v
0090: 61 72 69 61 62 6c 65 20 63 61 63 68 65 64 69 72  ariable cachedir
00a0: 20 22 2f 74 6d 70 2f 61 70 70 66 73 2d 63 61 63   "/tmp/appfs-cac
00b0: 68 65 22 0a 09 76 61 72 69 61 62 6c 65 20 74 74  he"..variable tt
00c0: 6c 20 33 36 30 30 0a 09 76 61 72 69 61 62 6c 65  l 3600..variable
00d0: 20 6e 74 74 6c 20 36 30 0a 0a 09 23 20 55 73 65   nttl 60...# Use
00e0: 72 2d 72 65 70 6c 61 63 61 62 6c 65 20 66 75 6e  r-replacable fun
00f0: 63 74 69 6f 6e 20 74 6f 20 63 6f 6e 76 65 72 74  ction to convert
0100: 20 61 20 68 6f 73 74 6e 61 6d 65 2f 68 61 73 68   a hostname/hash
0110: 2f 6d 65 74 68 6f 64 20 74 6f 20 61 6e 20 55 52  /method to an UR
0120: 4c 0a 09 70 72 6f 63 20 5f 63 6f 6e 73 74 72 75  L..proc _constru
0130: 63 74 5f 75 72 6c 20 7b 68 6f 73 74 6e 61 6d 65  ct_url {hostname
0140: 20 68 61 73 68 20 6d 65 74 68 6f 64 7d 20 7b 0a   hash method} {.
0150: 09 09 72 65 74 75 72 6e 20 22 68 74 74 70 3a 2f  ..return "http:/
0160: 2f 24 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73  /$hostname/appfs
0170: 2f 24 6d 65 74 68 6f 64 2f 24 68 61 73 68 22 0a  /$method/$hash".
0180: 09 7d 0a 0a 09 70 72 6f 63 20 5f 68 61 73 68 5f  .}...proc _hash_
0190: 73 65 70 20 7b 68 61 73 68 20 7b 73 65 70 73 20  sep {hash {seps 
01a0: 34 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b 73 65 74  4}} {...for {set
01b0: 20 69 64 78 20 30 7d 20 7b 24 69 64 78 20 3c 20   idx 0} {$idx < 
01c0: 24 73 65 70 73 7d 20 7b 69 6e 63 72 20 69 64 78  $seps} {incr idx
01d0: 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 72 65  } {....append re
01e0: 74 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72 61  tval "[string ra
01f0: 6e 67 65 20 24 68 61 73 68 20 5b 65 78 70 72 20  nge $hash [expr 
0200: 7b 24 69 64 78 20 2a 20 32 7d 5d 20 5b 65 78 70  {$idx * 2}] [exp
0210: 72 20 7b 28 24 69 64 78 20 2a 20 32 29 20 2b 20  r {($idx * 2) + 
0220: 31 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 61 70 70  1}]]/"...}...app
0230: 65 6e 64 20 72 65 74 76 61 6c 20 22 5b 73 74 72  end retval "[str
0240: 69 6e 67 20 72 61 6e 67 65 20 24 68 61 73 68 20  ing range $hash 
0250: 5b 65 78 70 72 20 7b 24 69 64 78 20 2a 20 32 7d  [expr {$idx * 2}
0260: 5d 20 65 6e 64 5d 22 0a 0a 09 09 72 65 74 75 72  ] end]"....retur
0270: 6e 20 24 72 65 74 76 61 6c 0a 09 7d 0a 0a 09 70  n $retval..}...p
0280: 72 6f 63 20 5f 63 61 63 68 65 66 69 6c 65 20 7b  roc _cachefile {
0290: 75 72 6c 20 6b 65 79 20 7b 6b 65 79 49 73 48 61  url key {keyIsHa
02a0: 73 68 20 31 7d 7d 20 7b 0a 09 09 73 65 74 20 66  sh 1}} {...set f
02b0: 69 6c 65 6b 65 79 20 24 6b 65 79 0a 09 09 69 66  ilekey $key...if
02c0: 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b 0a   {$keyIsHash} {.
02d0: 09 09 09 73 65 74 20 66 69 6c 65 6b 65 79 20 5b  ...set filekey [
02e0: 5f 68 61 73 68 5f 73 65 70 20 24 66 69 6c 65 6b  _hash_sep $filek
02f0: 65 79 5d 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66  ey]...}....set f
0300: 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  ile [file join $
0310: 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69  ::appfs::cachedi
0320: 72 20 24 66 69 6c 65 6b 65 79 5d 0a 0a 09 09 66  r $filekey]....f
0330: 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65 20  ile mkdir [file 
0340: 64 69 72 6e 61 6d 65 20 24 66 69 6c 65 5d 0a 0a  dirname $file]..
0350: 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73  ..if {[file exis
0360: 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09 09 09  ts $file]} {....
0370: 72 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 09 7d  return $file...}
0380: 0a 0a 09 09 73 65 74 20 74 6d 70 66 69 6c 65 20  ....set tmpfile 
0390: 22 24 7b 66 69 6c 65 7d 2e 5b 65 78 70 72 20 7b  "${file}.[expr {
03a0: 72 61 6e 64 28 29 7d 5d 5b 63 6c 6f 63 6b 20 63  rand()}][clock c
03b0: 6c 69 63 6b 73 5d 22 0a 0a 09 09 73 65 74 20 66  licks]"....set f
03c0: 64 20 5b 6f 70 65 6e 20 24 74 6d 70 66 69 6c 65  d [open $tmpfile
03d0: 20 22 77 22 5d 0a 09 09 66 63 6f 6e 66 69 67 75   "w"]...fconfigu
03e0: 72 65 20 24 66 64 20 2d 74 72 61 6e 73 6c 61 74  re $fd -translat
03f0: 69 6f 6e 20 62 69 6e 61 72 79 0a 0a 09 09 63 61  ion binary....ca
0400: 74 63 68 20 7b 0a 09 09 09 73 65 74 20 74 6f 6b  tch {....set tok
0410: 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74 75  en [::http::getu
0420: 72 6c 20 24 75 72 6c 20 2d 63 68 61 6e 6e 65 6c  rl $url -channel
0430: 20 24 66 64 20 2d 62 69 6e 61 72 79 20 74 72 75   $fd -binary tru
0440: 65 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 69  e]...}....if {[i
0450: 6e 66 6f 20 65 78 69 73 74 73 20 74 6f 6b 65 6e  nfo exists token
0460: 5d 7d 20 7b 0a 09 09 09 73 65 74 20 6e 63 6f 64  ]} {....set ncod
0470: 65 20 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64 65  e [::http::ncode
0480: 20 24 74 6f 6b 65 6e 5d 0a 09 09 09 3a 3a 68 74   $token]....::ht
0490: 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65 6e  tp::reset $token
04a0: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73  ...} else {....s
04b0: 65 74 20 6e 63 6f 64 65 20 22 39 30 30 22 0a 09  et ncode "900"..
04c0: 09 7d 0a 0a 09 09 63 6c 6f 73 65 20 24 66 64 0a  .}....close $fd.
04d0: 0a 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73  ...if {$keyIsHas
04e0: 68 7d 20 7b 0a 09 09 09 73 65 74 20 68 61 73 68  h} {....set hash
04f0: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
0500: 20 5b 73 68 61 31 3a 3a 73 68 61 31 20 2d 68 65   [sha1::sha1 -he
0510: 78 20 2d 66 69 6c 65 20 24 74 6d 70 66 69 6c 65  x -file $tmpfile
0520: 5d 5d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  ]]...} else {...
0530: 09 73 65 74 20 68 61 73 68 20 24 6b 65 79 0a 09  .set hash $key..
0540: 09 7d 0a 0a 09 09 69 66 20 7b 24 6e 63 6f 64 65  .}....if {$ncode
0550: 20 3d 3d 20 22 32 30 30 22 20 26 26 20 24 68 61   == "200" && $ha
0560: 73 68 20 3d 3d 20 24 6b 65 79 7d 20 7b 0a 09 09  sh == $key} {...
0570: 09 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66 6f  .file rename -fo
0580: 72 63 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65 20  rce -- $tmpfile 
0590: 24 66 69 6c 65 0a 09 09 7d 20 65 6c 73 65 20 7b  $file...} else {
05a0: 0a 09 09 09 66 69 6c 65 20 64 65 6c 65 74 65 20  ....file delete 
05b0: 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70 66 69  -force -- $tmpfi
05c0: 6c 65 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e  le...}....return
05d0: 20 24 66 69 6c 65 0a 09 7d 0a 0a 0a 09 70 72 6f   $file..}....pro
05e0: 63 20 5f 69 73 48 61 73 68 20 7b 76 61 6c 75 65  c _isHash {value
05f0: 7d 20 7b 0a 09 09 73 65 74 20 76 61 6c 75 65 20  } {...set value 
0600: 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20  [string tolower 
0610: 24 76 61 6c 75 65 5d 0a 0a 09 09 69 66 20 7b 5b  $value]....if {[
0620: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 76  string length $v
0630: 61 6c 75 65 5d 20 21 3d 20 34 30 7d 20 7b 0a 09  alue] != 40} {..
0640: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 0a 09  ..return false..
0650: 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 72 65 67 65  .}....if {![rege
0660: 78 70 20 7b 5e 5b 30 2d 39 61 2d 66 5d 2a 24 7d  xp {^[0-9a-f]*$}
0670: 20 24 76 61 6c 75 65 5d 7d 20 7b 0a 09 09 09 72   $value]} {....r
0680: 65 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d 0a  eturn false...}.
0690: 0a 09 09 72 65 74 75 72 6e 20 74 72 75 65 0a 09  ...return true..
06a0: 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61 6c  }...proc _normal
06b0: 69 7a 65 4f 53 20 7b 6f 73 7d 20 7b 0a 09 09 73  izeOS {os} {...s
06c0: 65 74 20 6f 73 20 5b 73 74 72 69 6e 67 20 74 6f  et os [string to
06d0: 6c 6f 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72  lower [string tr
06e0: 69 6d 20 24 6f 73 5d 5d 0a 0a 09 09 73 77 69 74  im $os]]....swit
06f0: 63 68 20 2d 2d 20 24 6f 73 20 7b 0a 09 09 09 22  ch -- $os {...."
0700: 6c 69 6e 75 78 22 20 2d 20 22 66 72 65 65 62 73  linux" - "freebs
0710: 64 22 20 2d 20 22 6f 70 65 6e 62 73 64 22 20 2d  d" - "openbsd" -
0720: 20 22 6e 65 74 62 73 64 22 20 7b 0a 09 09 09 09   "netbsd" {.....
0730: 72 65 74 75 72 6e 20 24 6f 73 0a 09 09 09 7d 0a  return $os....}.
0740: 09 09 09 22 73 75 6e 6f 73 22 20 7b 0a 09 09 09  ..."sunos" {....
0750: 09 72 65 74 75 72 6e 20 22 73 6f 6c 61 72 69 73  .return "solaris
0760: 22 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72 63  "....}...."noarc
0770: 68 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22 61  h" - "none" - "a
0780: 6e 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09 09  ny" - "all" {...
0790: 09 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63 68  ..return "noarch
07a0: 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65  "....}...}....re
07b0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72  turn -code error
07c0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72 6d   "Unable to norm
07d0: 61 6c 69 7a 65 20 4f 53 3a 20 24 6f 73 22 0a 09  alize OS: $os"..
07e0: 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f 72 6d 61 6c  }...proc _normal
07f0: 69 7a 65 43 50 55 20 7b 63 70 75 7d 20 7b 0a 09  izeCPU {cpu} {..
0800: 09 73 65 74 20 63 70 75 20 5b 73 74 72 69 6e 67  .set cpu [string
0810: 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e 67   tolower [string
0820: 20 74 72 69 6d 20 24 63 70 75 5d 5d 0a 0a 09 09   trim $cpu]]....
0830: 73 77 69 74 63 68 20 2d 67 6c 6f 62 20 2d 2d 20  switch -glob -- 
0840: 24 63 70 75 20 7b 0a 09 09 09 22 69 3f 38 36 22  $cpu {...."i?86"
0850: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 22 69   {.....return "i
0860: 78 38 36 22 0a 09 09 09 7d 0a 09 09 09 22 78 38  x86"....}...."x8
0870: 36 5f 36 34 22 20 7b 0a 09 09 09 09 72 65 74 75  6_64" {.....retu
0880: 72 6e 20 24 63 70 75 0a 09 09 09 7d 0a 09 09 09  rn $cpu....}....
0890: 22 6e 6f 61 72 63 68 22 20 2d 20 22 6e 6f 6e 65  "noarch" - "none
08a0: 22 20 2d 20 22 61 6e 79 22 20 2d 20 22 61 6c 6c  " - "any" - "all
08b0: 22 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 22  " {.....return "
08c0: 6e 6f 61 72 63 68 22 0a 09 09 09 7d 0a 09 09 7d  noarch"....}...}
08d0: 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
08e0: 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74   error "Unable t
08f0: 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20 43 50 55 3a  o normalize CPU:
0900: 20 24 63 70 75 22 0a 09 7d 0a 0a 09 70 72 6f 63   $cpu"..}...proc
0910: 20 69 6e 69 74 20 7b 7d 20 7b 0a 09 09 69 66 20   init {} {...if 
0920: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
0930: 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c 6c  appfs::init_call
0940: 65 64 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  ed]} {....return
0950: 0a 09 09 7d 0a 0a 09 09 23 20 46 6f 72 63 65 20  ...}....# Force 
0960: 5b 70 61 72 72 61 79 5d 20 74 6f 20 62 65 20 6c  [parray] to be l
0970: 6f 61 64 65 64 0a 09 09 63 61 74 63 68 20 7b 0a  oaded...catch {.
0980: 09 09 09 70 61 72 72 61 79 20 64 6f 65 73 5f 6e  ...parray does_n
0990: 6f 74 5f 65 78 69 73 74 0a 09 09 7d 0a 0a 09 09  ot_exist...}....
09a0: 73 65 74 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69  set ::appfs::ini
09b0: 74 5f 63 61 6c 6c 65 64 20 31 0a 0a 09 09 23 20  t_called 1....# 
09c0: 4c 6f 61 64 20 63 6f 6e 66 69 67 75 72 61 74 69  Load configurati
09d0: 6f 6e 20 66 69 6c 65 0a 09 09 73 65 74 20 63 6f  on file...set co
09e0: 6e 66 69 67 5f 66 69 6c 65 20 5b 66 69 6c 65 20  nfig_file [file 
09f0: 6a 6f 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63  join $::appfs::c
0a00: 61 63 68 65 64 69 72 20 63 6f 6e 66 69 67 5d 0a  achedir config].
0a10: 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73  ..if {[file exis
0a20: 74 73 20 24 63 6f 6e 66 69 67 5f 66 69 6c 65 5d  ts $config_file]
0a30: 7d 20 7b 0a 09 09 09 73 6f 75 72 63 65 20 24 63  } {....source $c
0a40: 6f 6e 66 69 67 5f 66 69 6c 65 0a 09 09 7d 0a 0a  onfig_file...}..
0a50: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69  ..if {![info exi
0a60: 73 74 73 20 3a 3a 61 70 70 66 73 3a 3a 64 62 5d  sts ::appfs::db]
0a70: 7d 20 7b 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69  } {....file mkdi
0a80: 72 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68  r $::appfs::cach
0a90: 65 64 69 72 0a 0a 09 09 09 73 71 6c 69 74 65 33  edir.....sqlite3
0aa0: 20 3a 3a 61 70 70 66 73 3a 3a 64 62 20 5b 66 69   ::appfs::db [fi
0ab0: 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70 70 66 73  le join $::appfs
0ac0: 3a 3a 63 61 63 68 65 64 69 72 20 63 61 63 68 65  ::cachedir cache
0ad0: 2e 64 62 5d 0a 09 09 7d 0a 0a 09 09 23 20 43 72  .db]...}....# Cr
0ae0: 65 61 74 65 20 74 61 62 6c 65 73 0a 09 09 64 62  eate tables...db
0af0: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41   eval {CREATE TA
0b00: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54  BLE IF NOT EXIST
0b10: 53 20 73 69 74 65 73 28 68 6f 73 74 6e 61 6d 65  S sites(hostname
0b20: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 6c 61   PRIMARY KEY, la
0b30: 73 74 55 70 64 61 74 65 2c 20 74 74 6c 29 3b 7d  stUpdate, ttl);}
0b40: 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41  ...db eval {CREA
0b50: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20  TE TABLE IF NOT 
0b60: 45 58 49 53 54 53 20 70 61 63 6b 61 67 65 73 28  EXISTS packages(
0b70: 68 6f 73 74 6e 61 6d 65 2c 20 73 68 61 31 2c 20  hostname, sha1, 
0b80: 70 61 63 6b 61 67 65 2c 20 76 65 72 73 69 6f 6e  package, version
0b90: 2c 20 6f 73 2c 20 63 70 75 41 72 63 68 2c 20 69  , os, cpuArch, i
0ba0: 73 4c 61 74 65 73 74 2c 20 68 61 76 65 4d 61 6e  sLatest, haveMan
0bb0: 69 66 65 73 74 29 3b 7d 0a 09 09 64 62 20 65 76  ifest);}...db ev
0bc0: 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45  al {CREATE TABLE
0bd0: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 66   IF NOT EXISTS f
0be0: 69 6c 65 73 28 70 61 63 6b 61 67 65 5f 73 68 61  iles(package_sha
0bf0: 31 2c 20 74 79 70 65 2c 20 74 69 6d 65 2c 20 73  1, type, time, s
0c00: 6f 75 72 63 65 2c 20 73 69 7a 65 2c 20 70 65 72  ource, size, per
0c10: 6d 73 2c 20 66 69 6c 65 5f 73 68 61 31 2c 20 66  ms, file_sha1, f
0c20: 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64  ile_name, file_d
0c30: 69 72 65 63 74 6f 72 79 29 3b 7d 0a 0a 09 09 23  irectory);}....#
0c40: 20 43 72 65 61 74 65 20 69 6e 64 65 78 65 73 0a   Create indexes.
0c50: 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54  ..db eval {CREAT
0c60: 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45  E INDEX IF NOT E
0c70: 58 49 53 54 53 20 73 69 74 65 73 5f 69 6e 64 65  XISTS sites_inde
0c80: 78 20 4f 4e 20 73 69 74 65 73 20 28 68 6f 73 74  x ON sites (host
0c90: 6e 61 6d 65 29 3b 7d 0a 09 09 64 62 20 65 76 61  name);}...db eva
0ca0: 6c 20 7b 43 52 45 41 54 45 20 49 4e 44 45 58 20  l {CREATE INDEX 
0cb0: 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 70 61  IF NOT EXISTS pa
0cc0: 63 6b 61 67 65 73 5f 69 6e 64 65 78 20 4f 4e 20  ckages_index ON 
0cd0: 70 61 63 6b 61 67 65 73 20 28 68 6f 73 74 6e 61  packages (hostna
0ce0: 6d 65 2c 20 70 61 63 6b 61 67 65 2c 20 76 65 72  me, package, ver
0cf0: 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63  sion, os, cpuArc
0d00: 68 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b  h);}...db eval {
0d10: 43 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20  CREATE INDEX IF 
0d20: 4e 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73  NOT EXISTS files
0d30: 5f 69 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20  _index ON files 
0d40: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66  (package_sha1, f
0d50: 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64  ile_name, file_d
0d60: 69 72 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a  irectory);}..}..
0d70: 09 70 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b  .proc download {
0d80: 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d  hostname hash {m
0d90: 65 74 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09  ethod sha1}} {..
0da0: 09 73 65 74 20 75 72 6c 20 5b 5f 63 6f 6e 73 74  .set url [_const
0db0: 72 75 63 74 5f 75 72 6c 20 24 68 6f 73 74 6e 61  ruct_url $hostna
0dc0: 6d 65 20 24 68 61 73 68 20 24 6d 65 74 68 6f 64  me $hash $method
0dd0: 5d 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 5f 63  ]...set file [_c
0de0: 61 63 68 65 66 69 6c 65 20 24 75 72 6c 20 24 68  achefile $url $h
0df0: 61 73 68 5d 0a 0a 09 09 69 66 20 7b 21 5b 66 69  ash]....if {![fi
0e00: 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d  le exists $file]
0e10: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  } {....return -c
0e20: 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62 6c  ode error "Unabl
0e30: 65 20 74 6f 20 66 65 74 63 68 20 28 66 69 6c 65  e to fetch (file
0e40: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a   does not exist:
0e50: 20 24 66 69 6c 65 29 22 0a 09 09 7d 0a 0a 09 09   $file)"...}....
0e60: 72 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a  return $file..}.
0e70: 0a 09 70 72 6f 63 20 67 65 74 69 6e 64 65 78 20  ..proc getindex 
0e80: 7b 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09 09 73  {hostname} {...s
0e90: 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65  et now [clock se
0ea0: 63 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c 61  conds]....set la
0eb0: 73 74 55 70 64 61 74 65 73 20 5b 64 62 20 65 76  stUpdates [db ev
0ec0: 61 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74 55  al {SELECT lastU
0ed0: 70 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d 20  pdate, ttl FROM 
0ee0: 73 69 74 65 73 20 57 48 45 52 45 20 68 6f 73 74  sites WHERE host
0ef0: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
0f00: 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69 66   LIMIT 1;}]...if
0f10: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73 74   {[llength $last
0f20: 55 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20 7b  Updates] == 0} {
0f30: 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70 64 61  ....set lastUpda
0f40: 74 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c 20  te 0....set ttl 
0f50: 30 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  0...} else {....
0f60: 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 5b  set lastUpdate [
0f70: 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61  lindex $lastUpda
0f80: 74 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74 74  tes 0]....set tt
0f90: 6c 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55  l [lindex $lastU
0fa0: 70 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a 09  pdates 1]...}...
0fb0: 09 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c 61  .if {$now < ($la
0fc0: 73 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c 29  stUpdate + $ttl)
0fd0: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f  } {....return CO
0fe0: 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66  MPLETE...}....if
0ff0: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
1000: 22 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74  "*\[/~\]*" $host
1010: 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75  name]} {....retu
1020: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
1030: 49 6e 76 61 6c 69 64 20 68 6f 73 74 6e 61 6d 65  Invalid hostname
1040: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 75 72 6c  "...}....set url
1050: 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61   "http://$hostna
1060: 6d 65 2f 61 70 70 66 73 2f 69 6e 64 65 78 22 0a  me/appfs/index".
1070: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65  ...catch {....se
1080: 74 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a  t token [::http:
1090: 3a 67 65 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09  :geturl $url]...
10a0: 09 69 66 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63  .if {[::http::nc
10b0: 6f 64 65 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22  ode $token] == "
10c0: 32 30 30 22 7d 20 7b 0a 09 09 09 09 73 65 74 20  200"} {.....set 
10d0: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b  indexhash_data [
10e0: 3a 3a 68 74 74 70 3a 3a 64 61 74 61 20 24 74 6f  ::http::data $to
10f0: 6b 65 6e 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a 68  ken]....}....::h
1100: 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65  ttp::reset $toke
1110: 6e 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 63 6c 65  n....::http::cle
1120: 61 6e 75 70 20 24 74 6f 6b 65 6e 0a 09 09 7d 0a  anup $token...}.
1130: 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  ...if {![info ex
1140: 69 73 74 73 20 69 6e 64 65 78 68 61 73 68 5f 64  ists indexhash_d
1150: 61 74 61 5d 7d 20 7b 0a 09 09 09 23 20 43 61 63  ata]} {....# Cac
1160: 68 65 20 74 68 69 73 20 72 65 73 75 6c 74 20 66  he this result f
1170: 6f 72 20 36 30 20 73 65 63 6f 6e 64 73 0a 09 09  or 60 seconds...
1180: 09 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54  .db eval {INSERT
1190: 20 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54 4f   OR REPLACE INTO
11a0: 20 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65   sites (hostname
11b0: 2c 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74 74  , lastUpdate, tt
11c0: 6c 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74  l) VALUES ($host
11d0: 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61  name, $now, $::a
11e0: 70 70 66 73 3a 3a 6e 74 74 6c 29 3b 7d 0a 0a 09  ppfs::nttl);}...
11f0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
1200: 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20  rror "Unable to 
1210: 66 65 74 63 68 20 24 75 72 6c 22 0a 09 09 7d 0a  fetch $url"...}.
1220: 0a 09 09 73 65 74 20 69 6e 64 65 78 68 61 73 68  ...set indexhash
1230: 20 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74 20   [lindex [split 
1240: 24 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20  $indexhash_data 
1250: 22 2c 22 5d 20 30 5d 0a 0a 09 09 69 66 20 7b 21  ","] 0]....if {!
1260: 5b 5f 69 73 48 61 73 68 20 24 69 6e 64 65 78 68  [_isHash $indexh
1270: 61 73 68 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  ash]} {....retur
1280: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49  n -code error "I
1290: 6e 76 61 6c 69 64 20 68 61 73 68 3a 20 24 69 6e  nvalid hash: $in
12a0: 64 65 78 68 61 73 68 22 0a 09 09 7d 0a 0a 09 09  dexhash"...}....
12b0: 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f  set file [downlo
12c0: 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 69 6e  ad $hostname $in
12d0: 64 65 78 68 61 73 68 5d 0a 09 09 73 65 74 20 66  dexhash]...set f
12e0: 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09  d [open $file]..
12f0: 09 73 65 74 20 64 61 74 61 20 5b 72 65 61 64 20  .set data [read 
1300: 24 66 64 5d 0a 09 09 63 6c 6f 73 65 20 24 66 64  $fd]...close $fd
1310: 0a 0a 09 09 73 65 74 20 63 75 72 72 5f 70 61 63  ....set curr_pac
1320: 6b 61 67 65 73 20 5b 6c 69 73 74 5d 0a 09 09 66  kages [list]...f
1330: 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c  oreach line [spl
1340: 69 74 20 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b  it $data "\n"] {
1350: 0a 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74  ....set line [st
1360: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d  ring trim $line]
1370: 0a 0a 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67  .....if {[string
1380: 20 6d 61 74 63 68 20 22 2a 2f 2a 22 20 24 6c 69   match "*/*" $li
1390: 6e 65 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  ne]} {.....conti
13a0: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
13b0: 7b 24 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a  {$line == ""} {.
13c0: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
13d0: 7d 0a 0a 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  }.....set work [
13e0: 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d  split $line ","]
13f0: 0a 0a 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f  .....unset -noco
1400: 6d 70 6c 61 69 6e 20 70 6b 67 49 6e 66 6f 0a 09  mplain pkgInfo..
1410: 09 09 69 66 20 7b 5b 63 61 74 63 68 20 7b 0a 09  ..if {[catch {..
1420: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 70  ...set pkgInfo(p
1430: 61 63 6b 61 67 65 29 20 20 5b 6c 69 6e 64 65 78  ackage)  [lindex
1440: 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65   $work 0].....se
1450: 74 20 70 6b 67 49 6e 66 6f 28 76 65 72 73 69 6f  t pkgInfo(versio
1460: 6e 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  n)  [lindex $wor
1470: 6b 20 31 5d 0a 09 09 09 09 73 65 74 20 70 6b 67  k 1].....set pkg
1480: 49 6e 66 6f 28 6f 73 29 20 20 20 20 20 20 20 5b  Info(os)       [
1490: 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53 20 5b 6c 69  _normalizeOS [li
14a0: 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d 5d 0a 09  ndex $work 2]]..
14b0: 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 63  ...set pkgInfo(c
14c0: 70 75 41 72 63 68 29 20 20 5b 5f 6e 6f 72 6d 61  puArch)  [_norma
14d0: 6c 69 7a 65 43 50 55 20 5b 6c 69 6e 64 65 78 20  lizeCPU [lindex 
14e0: 24 77 6f 72 6b 20 33 5d 5d 0a 09 09 09 09 73 65  $work 3]].....se
14f0: 74 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 20  t pkgInfo(hash) 
1500: 20 20 20 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f      [string tolo
1510: 77 65 72 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  wer [lindex $wor
1520: 6b 20 34 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b  k 4]].....set pk
1530: 67 49 6e 66 6f 28 68 61 73 68 5f 74 79 70 65 29  gInfo(hash_type)
1540: 20 22 73 68 61 31 22 0a 09 09 09 09 73 65 74 20   "sha1".....set 
1550: 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74  pkgInfo(isLatest
1560: 29 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69 6e 64  ) [expr {!![lind
1570: 65 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a 09 09  ex $work 5]}]...
1580: 09 7d 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69  .}]} {.....conti
1590: 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20  nue....}.....if 
15a0: 7b 21 5b 5f 69 73 48 61 73 68 20 24 70 6b 67 49  {![_isHash $pkgI
15b0: 6e 66 6f 28 68 61 73 68 29 5d 7d 20 7b 0a 09 09  nfo(hash)]} {...
15c0: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a  ..continue....}.
15d0: 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 75 72 72  ....lappend curr
15e0: 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e  _packages $pkgIn
15f0: 66 6f 28 68 61 73 68 29 0a 0a 09 09 09 23 20 44  fo(hash).....# D
1600: 6f 20 6e 6f 74 20 64 6f 20 61 6e 79 20 61 64 64  o not do any add
1610: 69 74 69 6f 6e 61 6c 20 77 6f 72 6b 20 69 66 20  itional work if 
1620: 77 65 20 61 6c 72 65 61 64 79 20 68 61 76 65 20  we already have 
1630: 74 68 69 73 20 70 61 63 6b 61 67 65 0a 09 09 09  this package....
1640: 73 65 74 20 65 78 69 73 74 69 6e 67 5f 70 61 63  set existing_pac
1650: 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20 7b  kages [db eval {
1660: 53 45 4c 45 43 54 20 70 61 63 6b 61 67 65 20 46  SELECT package F
1670: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
1680: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
1690: 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31  ostname AND sha1
16a0: 20 3d 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68   = $pkgInfo(hash
16b0: 29 3b 7d 5d 0a 09 09 09 69 66 20 7b 5b 6c 73 65  );}]....if {[lse
16c0: 61 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 69  arch -exact $exi
16d0: 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 24  sting_packages $
16e0: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
16f0: 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 63  ] != -1} {.....c
1700: 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09  ontinue....}....
1710: 09 69 66 20 7b 24 70 6b 67 49 6e 66 6f 28 69 73  .if {$pkgInfo(is
1720: 4c 61 74 65 73 74 29 7d 20 7b 0a 09 09 09 09 64  Latest)} {.....d
1730: 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 70  b eval {UPDATE p
1740: 61 63 6b 61 67 65 73 20 53 45 54 20 69 73 4c 61  ackages SET isLa
1750: 74 65 73 74 20 3d 20 30 20 57 48 45 52 45 20 68  test = 0 WHERE h
1760: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
1770: 61 6d 65 20 41 4e 44 20 70 61 63 6b 61 67 65 20  ame AND package 
1780: 3d 20 24 70 6b 67 49 6e 66 6f 28 24 70 61 63 6b  = $pkgInfo($pack
1790: 61 67 65 29 20 41 4e 44 20 6f 73 20 3d 20 24 70  age) AND os = $p
17a0: 6b 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 29  kgInfo($package)
17b0: 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20 24   AND cpuArch = $
17c0: 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63 68 29  pkgInfo(cpuArch)
17d0: 3b 7d 0a 09 09 09 7d 0a 0a 09 09 09 64 62 20 65  ;}....}.....db e
17e0: 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f  val {INSERT INTO
17f0: 20 70 61 63 6b 61 67 65 73 20 28 68 6f 73 74 6e   packages (hostn
1800: 61 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61  ame, sha1, packa
1810: 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c  ge, version, os,
1820: 20 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65   cpuArch, isLate
1830: 73 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74  st, haveManifest
1840: 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e  ) VALUES ($hostn
1850: 61 6d 65 2c 20 24 70 6b 67 49 6e 66 6f 28 68 61  ame, $pkgInfo(ha
1860: 73 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 70 61  sh), $pkgInfo(pa
1870: 63 6b 61 67 65 29 2c 20 24 70 6b 67 49 6e 66 6f  ckage), $pkgInfo
1880: 28 76 65 72 73 69 6f 6e 29 2c 20 24 70 6b 67 49  (version), $pkgI
1890: 6e 66 6f 28 6f 73 29 2c 20 24 70 6b 67 49 6e 66  nfo(os), $pkgInf
18a0: 6f 28 63 70 75 41 72 63 68 29 2c 20 24 70 6b 67  o(cpuArch), $pkg
18b0: 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 2c 20  Info(isLatest), 
18c0: 30 29 3b 7d 0a 09 09 7d 0a 0a 09 09 23 20 4c 6f  0);}...}....# Lo
18d0: 6f 6b 20 66 6f 72 20 70 61 63 6b 61 67 65 73 20  ok for packages 
18e0: 74 68 61 74 20 68 61 76 65 20 62 65 65 6e 20 64  that have been d
18f0: 65 6c 65 74 65 64 0a 09 09 73 65 74 20 66 6f 75  eleted...set fou
1900: 6e 64 5f 70 61 63 6b 61 67 65 73 20 5b 64 62 20  nd_packages [db 
1910: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 73 68 61  eval {SELECT sha
1920: 31 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20  1 FROM packages 
1930: 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d  WHERE hostname =
1940: 20 24 68 6f 73 74 6e 61 6d 65 3b 7d 5d 0a 09 09   $hostname;}]...
1950: 66 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 20  foreach package 
1960: 24 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 20  $found_packages 
1970: 7b 0a 09 09 09 73 65 74 20 66 6f 75 6e 64 5f 70  {....set found_p
1980: 61 63 6b 61 67 65 73 5f 61 72 72 28 24 70 61 63  ackages_arr($pac
1990: 6b 61 67 65 29 20 31 0a 09 09 7d 0a 0a 09 09 66  kage) 1...}....f
19a0: 6f 72 65 61 63 68 20 70 61 63 6b 61 67 65 20 24  oreach package $
19b0: 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 7b 0a  curr_packages {.
19c0: 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
19d0: 6c 61 69 6e 20 66 6f 75 6e 64 5f 70 61 63 6b 61  lain found_packa
19e0: 67 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67 65  ges_arr($package
19f0: 29 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68  )...}....foreach
1a00: 20 70 61 63 6b 61 67 65 20 5b 61 72 72 61 79 20   package [array 
1a10: 6e 61 6d 65 73 20 66 6f 75 6e 64 5f 70 61 63 6b  names found_pack
1a20: 61 67 65 73 5f 61 72 72 5d 20 7b 0a 09 09 09 64  ages_arr] {....d
1a30: 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20 46  b eval {DELETE F
1a40: 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45  ROM packages WHE
1a50: 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68  RE hostname = $h
1a60: 6f 73 74 6e 61 6d 65 20 41 4e 44 20 73 68 61 31  ostname AND sha1
1a70: 20 3d 20 24 70 61 63 6b 61 67 65 3b 7d 0a 09 09   = $package;}...
1a80: 7d 0a 0a 09 09 64 62 20 65 76 61 6c 20 7b 49 4e  }....db eval {IN
1a90: 53 45 52 54 20 4f 52 20 52 45 50 4c 41 43 45 20  SERT OR REPLACE 
1aa0: 49 4e 54 4f 20 73 69 74 65 73 20 28 68 6f 73 74  INTO sites (host
1ab0: 6e 61 6d 65 2c 20 6c 61 73 74 55 70 64 61 74 65  name, lastUpdate
1ac0: 2c 20 74 74 6c 29 20 56 41 4c 55 45 53 20 28 24  , ttl) VALUES ($
1ad0: 68 6f 73 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20  hostname, $now, 
1ae0: 24 3a 3a 61 70 70 66 73 3a 3a 74 74 6c 29 3b 7d  $::appfs::ttl);}
1af0: 0a 0a 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c  ....return COMPL
1b00: 45 54 45 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65  ETE..}...proc ge
1b10: 74 70 6b 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f  tpkgmanifest {ho
1b20: 73 74 6e 61 6d 65 20 70 61 63 6b 61 67 65 5f 73  stname package_s
1b30: 68 61 31 7d 20 7b 0a 09 09 73 65 74 20 68 61 76  ha1} {...set hav
1b40: 65 4d 61 6e 69 66 65 73 74 73 20 5b 64 62 20 65  eManifests [db e
1b50: 76 61 6c 20 7b 53 45 4c 45 43 54 20 68 61 76 65  val {SELECT have
1b60: 4d 61 6e 69 66 65 73 74 20 46 52 4f 4d 20 70 61  Manifest FROM pa
1b70: 63 6b 61 67 65 73 20 57 48 45 52 45 20 73 68 61  ckages WHERE sha
1b80: 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73 68 61  1 = $package_sha
1b90: 31 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 73  1 LIMIT 1;}]...s
1ba0: 65 74 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20  et haveManifest 
1bb0: 5b 6c 69 6e 64 65 78 20 24 68 61 76 65 4d 61 6e  [lindex $haveMan
1bc0: 69 66 65 73 74 73 20 30 5d 0a 0a 09 09 69 66 20  ifests 0]....if 
1bd0: 7b 24 68 61 76 65 4d 61 6e 69 66 65 73 74 7d 20  {$haveManifest} 
1be0: 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f 4d 50  {....return COMP
1bf0: 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  LETE...}....if {
1c00: 21 5b 5f 69 73 48 61 73 68 20 24 70 61 63 6b 61  ![_isHash $packa
1c10: 67 65 5f 73 68 61 31 5d 7d 20 7b 0a 09 09 09 72  ge_sha1]} {....r
1c20: 65 74 75 72 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a  eturn FAIL...}..
1c30: 09 09 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e  ..set file [down
1c40: 6c 6f 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24  load $hostname $
1c50: 70 61 63 6b 61 67 65 5f 73 68 61 31 5d 0a 09 09  package_sha1]...
1c60: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69  set fd [open $fi
1c70: 6c 65 5d 0a 09 09 73 65 74 20 70 6b 67 64 61 74  le]...set pkgdat
1c80: 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 63  a [read $fd]...c
1c90: 6c 6f 73 65 20 24 66 64 0a 0a 09 09 64 62 20 74  lose $fd....db t
1ca0: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 09 09  ransaction {....
1cb0: 66 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70  foreach line [sp
1cc0: 6c 69 74 20 24 70 6b 67 64 61 74 61 20 22 5c 6e  lit $pkgdata "\n
1cd0: 22 5d 20 7b 0a 09 09 09 09 73 65 74 20 6c 69 6e  "] {.....set lin
1ce0: 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  e [string trim $
1cf0: 6c 69 6e 65 5d 0a 0a 09 09 09 09 69 66 20 7b 24  line]......if {$
1d00: 6c 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09  line == ""} {...
1d10: 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09  ...continue.....
1d20: 7d 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b 20  }......set work 
1d30: 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22  [split $line ","
1d40: 5d 0a 0a 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f  ]......unset -no
1d50: 63 6f 6d 70 6c 61 69 6e 20 66 69 6c 65 49 6e 66  complain fileInf
1d60: 6f 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  o.....set fileIn
1d70: 66 6f 28 74 79 70 65 29 20 5b 6c 69 6e 64 65 78  fo(type) [lindex
1d80: 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65   $work 0].....se
1d90: 74 20 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65 29  t fileInfo(time)
1da0: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31   [lindex $work 1
1db0: 5d 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b 20  ]......set work 
1dc0: 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 32 20  [lrange $work 2 
1dd0: 65 6e 64 5d 0a 09 09 09 09 73 77 69 74 63 68 20  end].....switch 
1de0: 2d 2d 20 24 66 69 6c 65 49 6e 66 6f 28 74 79 70  -- $fileInfo(typ
1df0: 65 29 20 7b 0a 09 09 09 09 09 22 66 69 6c 65 22  e) {......"file"
1e00: 20 7b 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c   {.......set fil
1e10: 65 49 6e 66 6f 28 73 69 7a 65 29 20 5b 6c 69 6e  eInfo(size) [lin
1e20: 64 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09  dex $work 0]....
1e30: 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28  ...set fileInfo(
1e40: 70 65 72 6d 73 29 20 5b 6c 69 6e 64 65 78 20 24  perms) [lindex $
1e50: 77 6f 72 6b 20 31 5d 0a 09 09 09 09 09 09 73 65  work 1].......se
1e60: 74 20 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29  t fileInfo(sha1)
1e70: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 32   [lindex $work 2
1e80: 5d 0a 0a 09 09 09 09 09 09 73 65 74 20 77 6f 72  ]........set wor
1e90: 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20  k [lrange $work 
1ea0: 33 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a 09 09  3 end]......}...
1eb0: 09 09 09 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09  ..."symlink" {..
1ec0: 09 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
1ed0: 6f 28 73 6f 75 72 63 65 29 20 5b 6c 69 6e 64 65  o(source) [linde
1ee0: 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09  x $work 0]......
1ef0: 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67  .set work [lrang
1f00: 65 20 24 77 6f 72 6b 20 31 20 65 6e 64 5d 0a 09  e $work 1 end]..
1f10: 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09  ....}.....}.....
1f20: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61  .set fileInfo(na
1f30: 6d 65 29 20 5b 6a 6f 69 6e 20 24 77 6f 72 6b 20  me) [join $work 
1f40: 22 2c 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c  ","].....set fil
1f50: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 73 70 6c  eInfo(name) [spl
1f60: 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  it [string trim 
1f70: 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20  $fileInfo(name) 
1f80: 22 2f 22 5d 20 22 2f 22 5d 0a 09 09 09 09 73 65  "/"] "/"].....se
1f90: 74 20 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63  t fileInfo(direc
1fa0: 74 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61  tory) [join [lra
1fb0: 6e 67 65 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61  nge $fileInfo(na
1fc0: 6d 65 29 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22  me) 0 end-1] "/"
1fd0: 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e  ].....set fileIn
1fe0: 66 6f 28 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78  fo(name) [lindex
1ff0: 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29   $fileInfo(name)
2000: 20 65 6e 64 5d 0a 0a 09 09 09 09 64 62 20 65 76   end]......db ev
2010: 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20  al {INSERT INTO 
2020: 66 69 6c 65 73 20 28 70 61 63 6b 61 67 65 5f 73  files (package_s
2030: 68 61 31 2c 20 74 79 70 65 2c 20 74 69 6d 65 2c  ha1, type, time,
2040: 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c 20 70   source, size, p
2050: 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61 31 2c  erms, file_sha1,
2060: 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65   file_name, file
2070: 5f 64 69 72 65 63 74 6f 72 79 29 20 56 41 4c 55  _directory) VALU
2080: 45 53 20 28 24 70 61 63 6b 61 67 65 5f 73 68 61  ES ($package_sha
2090: 31 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74 79 70  1, $fileInfo(typ
20a0: 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74 69  e), $fileInfo(ti
20b0: 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73  me), $fileInfo(s
20c0: 6f 75 72 63 65 29 2c 20 24 66 69 6c 65 49 6e 66  ource), $fileInf
20d0: 6f 28 73 69 7a 65 29 2c 20 24 66 69 6c 65 49 6e  o(size), $fileIn
20e0: 66 6f 28 70 65 72 6d 73 29 2c 20 24 66 69 6c 65  fo(perms), $file
20f0: 49 6e 66 6f 28 73 68 61 31 29 2c 20 24 66 69 6c  Info(sha1), $fil
2100: 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20 24 66 69  eInfo(name), $fi
2110: 6c 65 49 6e 66 6f 28 64 69 72 65 63 74 6f 72 79  leInfo(directory
2120: 29 20 29 3b 7d 0a 09 09 09 09 64 62 20 65 76 61  ) );}.....db eva
2130: 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61 67  l {UPDATE packag
2140: 65 73 20 53 45 54 20 68 61 76 65 4d 61 6e 69 66  es SET haveManif
2150: 65 73 74 20 3d 20 31 20 57 48 45 52 45 20 73 68  est = 1 WHERE sh
2160: 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73 68  a1 = $package_sh
2170: 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  a1;}....}...}...
2180: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
2190: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6c 6f 63 61  ..}...proc _loca
21a0: 6c 70 61 74 68 20 7b 70 61 63 6b 61 67 65 20 68  lpath {package h
21b0: 6f 73 74 6e 61 6d 65 20 66 69 6c 65 7d 20 7b 0a  ostname file} {.
21c0: 09 09 73 65 74 20 68 6f 6d 65 64 69 72 20 5b 3a  ..set homedir [:
21d0: 3a 61 70 70 66 73 64 3a 3a 67 65 74 5f 68 6f 6d  :appfsd::get_hom
21e0: 65 64 69 72 5d 0a 09 09 73 65 74 20 64 69 72 20  edir]...set dir 
21f0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 68 6f 6d 65  [file join $home
2200: 64 69 72 20 2e 61 70 70 66 73 20 22 2e 2f 24 7b  dir .appfs "./${
2210: 70 61 63 6b 61 67 65 7d 40 24 7b 68 6f 73 74 6e  package}@${hostn
2220: 61 6d 65 7d 22 20 22 2e 2f 24 7b 66 69 6c 65 7d  ame}" "./${file}
2230: 22 5d 0a 09 09 72 65 74 75 72 6e 20 24 64 69 72  "]...return $dir
2240: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 70 61 72 73  ..}...proc _pars
2250: 65 70 61 74 68 20 7b 70 61 74 68 7d 20 7b 0a 09  epath {path} {..
2260: 09 73 65 74 20 70 61 74 68 20 5b 73 74 72 69 6e  .set path [strin
2270: 67 20 74 72 69 6d 20 24 70 61 74 68 20 22 2f 22  g trim $path "/"
2280: 5d 0a 09 09 73 65 74 20 70 61 74 68 20 5b 73 70  ]...set path [sp
2290: 6c 69 74 20 24 70 61 74 68 20 22 2f 22 5d 0a 09  lit $path "/"]..
22a0: 09 73 65 74 20 70 61 74 68 6c 65 6e 20 5b 6c 6c  .set pathlen [ll
22b0: 65 6e 67 74 68 20 24 70 61 74 68 5d 0a 0a 09 09  ength $path]....
22c0: 61 72 72 61 79 20 73 65 74 20 72 65 74 76 61 6c  array set retval
22d0: 20 5b 6c 69 73 74 20 5f 63 68 69 6c 64 72 65 6e   [list _children
22e0: 20 73 69 74 65 73 20 5f 74 79 70 65 20 74 6f 70   sites _type top
22f0: 6c 65 76 65 6c 5d 0a 0a 09 09 69 66 20 7b 24 70  level]....if {$p
2300: 61 74 68 6c 65 6e 20 3e 20 30 7d 20 7b 0a 09 09  athlen > 0} {...
2310: 09 73 65 74 20 72 65 74 76 61 6c 28 68 6f 73 74  .set retval(host
2320: 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 70  name) [lindex $p
2330: 61 74 68 20 30 5d 0a 09 09 09 73 65 74 20 72 65  ath 0]....set re
2340: 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20  tval(_children) 
2350: 70 61 63 6b 61 67 65 73 0a 09 09 09 73 65 74 20  packages....set 
2360: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 73 69  retval(_type) si
2370: 74 65 73 0a 0a 09 09 09 69 66 20 7b 24 70 61 74  tes.....if {$pat
2380: 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09 09 09  hlen > 1} {.....
2390: 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c 69 6e  set package [lin
23a0: 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09 09 09  dex $path 1]....
23b0: 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e  .if {[string len
23c0: 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20 3d 3d  gth $package] ==
23d0: 20 22 34 30 22 20 26 26 20 5b 72 65 67 65 78 70   "40" && [regexp
23e0: 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a 24   {^[a-fA-F0-9]*$
23f0: 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b 0a 09  } $package]} {..
2400: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
2410: 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24 70 61  ackage_sha1) $pa
2420: 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20 72  ckage......set r
2430: 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e 29  etval(_children)
2440: 20 66 69 6c 65 73 0a 09 09 09 09 09 73 65 74 20   files......set 
2450: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 66 69  retval(_type) fi
2460: 6c 65 73 0a 0a 09 09 09 09 09 3a 3a 61 70 70 66  les.......::appf
2470: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
2480: 43 54 20 70 61 63 6b 61 67 65 2c 20 6f 73 2c 20  CT package, os, 
2490: 63 70 75 41 72 63 68 2c 20 76 65 72 73 69 6f 6e  cpuArch, version
24a0: 20 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57   FROM packages W
24b0: 48 45 52 45 20 73 68 61 31 20 3d 20 24 72 65 74  HERE sha1 = $ret
24c0: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
24d0: 29 3b 7d 20 70 6b 67 69 6e 66 6f 20 7b 7d 0a 09  );} pkginfo {}..
24e0: 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 70  ....set retval(p
24f0: 61 63 6b 61 67 65 29 20 24 70 6b 67 69 6e 66 6f  ackage) $pkginfo
2500: 28 70 61 63 6b 61 67 65 29 0a 09 09 09 09 09 73  (package)......s
2510: 65 74 20 72 65 74 76 61 6c 28 6f 73 29 20 24 70  et retval(os) $p
2520: 6b 67 69 6e 66 6f 28 6f 73 29 0a 09 09 09 09 09  kginfo(os)......
2530: 73 65 74 20 72 65 74 76 61 6c 28 63 70 75 29 20  set retval(cpu) 
2540: 24 70 6b 67 69 6e 66 6f 28 63 70 75 41 72 63 68  $pkginfo(cpuArch
2550: 29 0a 09 09 09 09 09 73 65 74 20 72 65 74 76 61  )......set retva
2560: 6c 28 76 65 72 73 69 6f 6e 29 20 24 70 6b 67 69  l(version) $pkgi
2570: 6e 66 6f 28 76 65 72 73 69 6f 6e 29 0a 0a 09 09  nfo(version)....
2580: 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e 20  ...if {$pathlen 
2590: 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65 74  > 2} {.......set
25a0: 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 5b 6a   retval(file) [j
25b0: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 70 61 74  oin [lrange $pat
25c0: 68 20 32 20 65 6e 64 5d 20 22 2f 22 5d 0a 09 09  h 2 end] "/"]...
25d0: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
25e0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 66 69 6c  ..set retval(fil
25f0: 65 29 20 22 22 0a 09 09 09 09 09 7d 0a 09 09 09  e) ""......}....
2600: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 73  .} else {......s
2610: 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67  et retval(packag
2620: 65 29 20 24 70 61 63 6b 61 67 65 0a 09 09 09 09  e) $package.....
2630: 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68 69  .set retval(_chi
2640: 6c 64 72 65 6e 29 20 6f 73 2d 63 70 75 0a 09 09  ldren) os-cpu...
2650: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 74  ...set retval(_t
2660: 79 70 65 29 20 70 61 63 6b 61 67 65 73 0a 0a 09  ype) packages...
2670: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e  ....if {$pathlen
2680: 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 09 73 65   > 2} {.......se
2690: 74 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64 65 78  t os_cpu [lindex
26a0: 20 24 70 61 74 68 20 32 5d 0a 09 09 09 09 09 09   $path 2].......
26b0: 73 65 74 20 6f 73 5f 63 70 75 20 5b 73 70 6c 69  set os_cpu [spli
26c0: 74 20 24 6f 73 5f 63 70 75 20 22 2d 22 5d 0a 0a  t $os_cpu "-"]..
26d0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
26e0: 28 6f 73 29 20 5b 6c 69 6e 64 65 78 20 24 6f 73  (os) [lindex $os
26f0: 5f 63 70 75 20 30 5d 0a 09 09 09 09 09 09 73 65  _cpu 0].......se
2700: 74 20 72 65 74 76 61 6c 28 63 70 75 29 20 5b 6c  t retval(cpu) [l
2710: 69 6e 64 65 78 20 24 6f 73 5f 63 70 75 20 31 5d  index $os_cpu 1]
2720: 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2730: 6c 28 5f 63 68 69 6c 64 72 65 6e 29 20 76 65 72  l(_children) ver
2740: 73 69 6f 6e 73 0a 09 09 09 09 09 09 73 65 74 20  sions.......set 
2750: 72 65 74 76 61 6c 28 5f 74 79 70 65 29 20 6f 73  retval(_type) os
2760: 2d 63 70 75 0a 0a 09 09 09 09 09 09 69 66 20 7b  -cpu........if {
2770: 24 70 61 74 68 6c 65 6e 20 3e 20 33 7d 20 7b 0a  $pathlen > 3} {.
2780: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
2790: 6c 28 76 65 72 73 69 6f 6e 29 20 5b 6c 69 6e 64  l(version) [lind
27a0: 65 78 20 24 70 61 74 68 20 33 5d 0a 09 09 09 09  ex $path 3].....
27b0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63  ...set retval(_c
27c0: 68 69 6c 64 72 65 6e 29 20 66 69 6c 65 73 0a 09  hildren) files..
27d0: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
27e0: 28 5f 74 79 70 65 29 20 76 65 72 73 69 6f 6e 73  (_type) versions
27f0: 0a 0a 09 09 09 09 09 09 09 73 65 74 20 72 65 74  .........set ret
2800: 76 61 6c 28 70 61 63 6b 61 67 65 5f 73 68 61 31  val(package_sha1
2810: 29 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f  ) [::appfs::db o
2820: 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54  necolumn {SELECT
2830: 20 73 68 61 31 20 46 52 4f 4d 20 70 61 63 6b 61   sha1 FROM packa
2840: 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61  ges WHERE hostna
2850: 6d 65 20 3d 20 24 72 65 74 76 61 6c 28 68 6f 73  me = $retval(hos
2860: 74 6e 61 6d 65 29 20 41 4e 44 20 6f 73 20 3d 20  tname) AND os = 
2870: 24 72 65 74 76 61 6c 28 6f 73 29 20 41 4e 44 20  $retval(os) AND 
2880: 63 70 75 41 72 63 68 20 3d 20 24 72 65 74 76 61  cpuArch = $retva
2890: 6c 28 63 70 75 29 20 41 4e 44 20 76 65 72 73 69  l(cpu) AND versi
28a0: 6f 6e 20 3d 20 24 72 65 74 76 61 6c 28 76 65 72  on = $retval(ver
28b0: 73 69 6f 6e 29 3b 7d 5d 0a 09 09 09 09 09 09 09  sion);}]........
28c0: 69 66 20 7b 24 72 65 74 76 61 6c 28 70 61 63 6b  if {$retval(pack
28d0: 61 67 65 5f 73 68 61 31 29 20 3d 3d 20 22 22 7d  age_sha1) == ""}
28e0: 20 7b 0a 09 09 09 09 09 09 09 09 72 65 74 75 72   {.........retur
28f0: 6e 20 5b 6c 69 73 74 5d 0a 09 09 09 09 09 09 09  n [list]........
2900: 7d 0a 0a 09 09 09 09 09 09 09 69 66 20 7b 24 70  }.........if {$p
2910: 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b 0a 09 09  athlen > 4} {...
2920: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2930: 28 5f 74 79 70 65 29 20 66 69 6c 65 73 0a 09 09  (_type) files...
2940: 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c  ......set retval
2950: 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b 6c 72  (file) [join [lr
2960: 61 6e 67 65 20 24 70 61 74 68 20 34 20 65 6e 64  ange $path 4 end
2970: 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 09 7d 20  ] "/"]........} 
2980: 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 73  else {.........s
2990: 65 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20  et retval(file) 
29a0: 22 22 0a 09 09 09 09 09 09 09 7d 0a 09 09 09 09  ""........}.....
29b0: 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d  ..}......}.....}
29c0: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74  ....}...}....ret
29d0: 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20 72  urn [array get r
29e0: 65 74 76 61 6c 5d 0a 09 7d 0a 0a 09 70 72 6f 63  etval]..}...proc
29f0: 20 67 65 74 63 68 69 6c 64 72 65 6e 20 7b 64 69   getchildren {di
2a00: 72 7d 20 7b 0a 09 09 61 72 72 61 79 20 73 65 74  r} {...array set
2a10: 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73   pathinfo [_pars
2a20: 65 70 61 74 68 20 24 64 69 72 5d 0a 0a 09 09 73  epath $dir]....s
2a30: 77 69 74 63 68 20 2d 2d 20 24 70 61 74 68 69 6e  witch -- $pathin
2a40: 66 6f 28 5f 63 68 69 6c 64 72 65 6e 29 20 7b 0a  fo(_children) {.
2a50: 09 09 09 22 73 69 74 65 73 22 20 7b 0a 09 09 09  ..."sites" {....
2a60: 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73  .return [::appfs
2a70: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
2a80: 54 20 44 49 53 54 49 4e 43 54 20 68 6f 73 74 6e  T DISTINCT hostn
2a90: 61 6d 65 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  ame FROM package
2aa0: 73 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 70 61  s;}]....}...."pa
2ab0: 63 6b 61 67 65 73 22 20 7b 0a 09 09 09 09 63 61  ckages" {.....ca
2ac0: 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70  tch {......::app
2ad0: 66 73 3a 3a 67 65 74 69 6e 64 65 78 20 24 70 61  fs::getindex $pa
2ae0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
2af0: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75  .....}......retu
2b00: 72 6e 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20  rn [::appfs::db 
2b10: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 44 49 53  eval {SELECT DIS
2b20: 54 49 4e 43 54 20 70 61 63 6b 61 67 65 20 46 52  TINCT package FR
2b30: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
2b40: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
2b50: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
2b60: 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22 6f 73 2d  ;}]....}...."os-
2b70: 63 70 75 22 20 7b 0a 09 09 09 09 73 65 74 20 72  cpu" {.....set r
2b80: 65 74 76 61 6c 20 5b 3a 3a 61 70 70 66 73 3a 3a  etval [::appfs::
2b90: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
2ba0: 44 49 53 54 49 4e 43 54 20 6f 73 20 7c 7c 20 22  DISTINCT os || "
2bb0: 2d 22 20 7c 7c 20 63 70 75 41 72 63 68 20 46 52  -" || cpuArch FR
2bc0: 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52  OM packages WHER
2bd0: 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61  E hostname = $pa
2be0: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
2bf0: 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24   AND package = $
2c00: 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65  pathinfo(package
2c10: 29 3b 7d 5d 0a 0a 09 09 09 09 6c 61 70 70 65 6e  );}]......lappen
2c20: 64 20 72 65 74 76 61 6c 20 22 70 6c 61 74 66 6f  d retval "platfo
2c30: 72 6d 22 0a 0a 09 09 09 09 72 65 74 75 72 6e 20  rm"......return 
2c40: 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 09 09  $retval....}....
2c50: 22 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09  "versions" {....
2c60: 09 73 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61  .set retval [::a
2c70: 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 0a  ppfs::db eval {.
2c80: 09 09 09 09 09 53 45 4c 45 43 54 20 44 49 53 54  .....SELECT DIST
2c90: 49 4e 43 54 20 76 65 72 73 69 6f 6e 20 46 52 4f  INCT version FRO
2ca0: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
2cb0: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 70 61 74   hostname = $pat
2cc0: 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20  hinfo(hostname) 
2cd0: 41 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70  AND package = $p
2ce0: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29  athinfo(package)
2cf0: 20 41 4e 44 20 6f 73 20 3d 20 24 70 61 74 68 69   AND os = $pathi
2d00: 6e 66 6f 28 6f 73 29 20 41 4e 44 20 63 70 75 41  nfo(os) AND cpuA
2d10: 72 63 68 20 3d 20 24 70 61 74 68 69 6e 66 6f 28  rch = $pathinfo(
2d20: 63 70 75 29 3b 0a 09 09 09 09 7d 5d 0a 0a 09 09  cpu);.....}]....
2d30: 09 09 6c 61 70 70 65 6e 64 20 72 65 74 76 61 6c  ..lappend retval
2d40: 20 22 6c 61 74 65 73 74 22 0a 0a 09 09 09 09 72   "latest"......r
2d50: 65 74 75 72 6e 20 24 72 65 74 76 61 6c 0a 09 09  eturn $retval...
2d60: 09 7d 0a 09 09 09 22 66 69 6c 65 73 22 20 7b 0a  .}...."files" {.
2d70: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09  ....catch {.....
2d80: 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 70 6b 67  .::appfs::getpkg
2d90: 6d 61 6e 69 66 65 73 74 20 24 70 61 74 68 69 6e  manifest $pathin
2da0: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
2db0: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
2dc0: 68 61 31 29 0a 09 09 09 09 7d 0a 0a 09 09 09 09  ha1).....}......
2dd0: 73 65 74 20 72 65 74 76 61 6c 20 5b 3a 3a 61 70  set retval [::ap
2de0: 70 66 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45  pfs::db eval {SE
2df0: 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20 66 69  LECT DISTINCT fi
2e00: 6c 65 5f 6e 61 6d 65 20 46 52 4f 4d 20 66 69 6c  le_name FROM fil
2e10: 65 73 20 57 48 45 52 45 20 70 61 63 6b 61 67 65  es WHERE package
2e20: 5f 73 68 61 31 20 3d 20 24 70 61 74 68 69 6e 66  _sha1 = $pathinf
2e30: 6f 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20  o(package_sha1) 
2e40: 41 4e 44 20 66 69 6c 65 5f 64 69 72 65 63 74 6f  AND file_directo
2e50: 72 79 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 66  ry = $pathinfo(f
2e60: 69 6c 65 29 3b 7d 5d 0a 0a 09 09 09 09 69 66 20  ile);}]......if 
2e70: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 61  {[info exists pa
2e80: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 29 5d  thinfo(package)]
2e90: 20 26 26 20 5b 69 6e 66 6f 20 65 78 69 73 74 73   && [info exists
2ea0: 20 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61   pathinfo(hostna
2eb0: 6d 65 29 5d 20 26 26 20 5b 69 6e 66 6f 20 65 78  me)] && [info ex
2ec0: 69 73 74 73 20 70 61 74 68 69 6e 66 6f 28 66 69  ists pathinfo(fi
2ed0: 6c 65 29 5d 7d 20 7b 0a 09 09 09 09 09 73 65 74  le)]} {......set
2ee0: 20 64 69 72 20 5b 5f 6c 6f 63 61 6c 70 61 74 68   dir [_localpath
2ef0: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
2f00: 67 65 29 20 24 70 61 74 68 69 6e 66 6f 28 68 6f  ge) $pathinfo(ho
2f10: 73 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66  stname) $pathinf
2f20: 6f 28 66 69 6c 65 29 5d 0a 09 09 09 09 09 66 6f  o(file)]......fo
2f30: 72 65 61 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62  reach file [glob
2f40: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 61   -nocomplain -ta
2f50: 69 6c 73 20 2d 64 69 72 65 63 74 6f 72 79 20 24  ils -directory $
2f60: 64 69 72 20 2d 74 79 70 65 73 20 7b 64 20 66 20  dir -types {d f 
2f70: 6c 7d 20 7b 7b 2e 2c 7d 2a 7d 5d 20 7b 0a 09 09  l} {{.,}*}] {...
2f80: 09 09 09 09 69 66 20 7b 24 66 69 6c 65 20 3d 3d  ....if {$file ==
2f90: 20 22 2e 22 20 7c 7c 20 24 66 69 6c 65 20 3d 3d   "." || $file ==
2fa0: 20 22 2e 2e 22 7d 20 7b 0a 09 09 09 09 09 09 09   ".."} {........
2fb0: 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 09 09 7d  continue.......}
2fc0: 0a 0a 09 09 09 09 09 09 69 66 20 7b 5b 6c 73 65  ........if {[lse
2fd0: 61 72 63 68 20 2d 65 78 61 63 74 20 24 72 65 74  arch -exact $ret
2fe0: 76 61 6c 20 24 66 69 6c 65 5d 20 21 3d 20 2d 31  val $file] != -1
2ff0: 7d 20 7b 0a 09 09 09 09 09 09 09 63 6f 6e 74 69  } {........conti
3000: 6e 75 65 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09  nue.......}.....
3010: 09 09 09 6c 61 70 70 65 6e 64 20 72 65 74 76 61  ...lappend retva
3020: 6c 20 24 66 69 6c 65 0a 09 09 09 09 09 7d 0a 09  l $file......}..
3030: 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75 72 6e  ...}......return
3040: 20 24 72 65 74 76 61 6c 0a 09 09 09 7d 0a 09 09   $retval....}...
3050: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64  }....return -cod
3060: 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64  e error "Invalid
3070: 20 6f 72 20 75 6e 61 63 63 65 70 74 61 62 6c 65   or unacceptable
3080: 20 70 61 74 68 3a 20 24 64 69 72 22 0a 09 7d 0a   path: $dir"..}.
3090: 0a 09 70 72 6f 63 20 67 65 74 61 74 74 72 20 7b  ..proc getattr {
30a0: 70 61 74 68 7d 20 7b 0a 09 09 61 72 72 61 79 20  path} {...array 
30b0: 73 65 74 20 70 61 74 68 69 6e 66 6f 20 5b 5f 70  set pathinfo [_p
30c0: 61 72 73 65 70 61 74 68 20 24 70 61 74 68 5d 0a  arsepath $path].
30d0: 09 09 61 72 72 61 79 20 73 65 74 20 72 65 74 76  ..array set retv
30e0: 61 6c 20 5b 6c 69 73 74 5d 0a 0a 09 09 73 77 69  al [list]....swi
30f0: 74 63 68 20 2d 2d 20 24 70 61 74 68 69 6e 66 6f  tch -- $pathinfo
3100: 28 5f 74 79 70 65 29 20 7b 0a 09 09 09 22 74 6f  (_type) {...."to
3110: 70 6c 65 76 65 6c 22 20 2d 20 22 73 69 74 65 73  plevel" - "sites
3120: 22 20 2d 20 22 70 61 63 6b 61 67 65 73 22 20 2d  " - "packages" -
3130: 20 22 6f 73 2d 63 70 75 22 20 2d 20 22 76 65 72   "os-cpu" - "ver
3140: 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09 73 65 74  sions" {.....set
3150: 20 72 65 74 76 61 6c 28 74 79 70 65 29 20 64 69   retval(type) di
3160: 72 65 63 74 6f 72 79 0a 09 09 09 09 73 65 74 20  rectory.....set 
3170: 72 65 74 76 61 6c 28 63 68 69 6c 64 63 6f 75 6e  retval(childcoun
3180: 74 29 20 32 3b 0a 09 09 09 7d 0a 09 09 09 22 66  t) 2;....}...."f
3190: 69 6c 65 73 22 20 7b 0a 09 09 09 09 73 65 74 20  iles" {.....set 
31a0: 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61  localpath [_loca
31b0: 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28  lpath $pathinfo(
31c0: 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e  package) $pathin
31d0: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
31e0: 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 09 09  thinfo(file)]...
31f0: 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73  ..if {[file exis
3200: 74 73 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20  ts $localpath]} 
3210: 7b 0a 09 09 09 09 09 63 61 74 63 68 20 7b 0a 09  {......catch {..
3220: 09 09 09 09 09 66 69 6c 65 20 6c 73 74 61 74 20  .....file lstat 
3230: 24 6c 6f 63 61 6c 70 61 74 68 20 6c 6f 63 61 6c  $localpath local
3240: 70 61 74 68 69 6e 66 6f 0a 09 09 09 09 09 09 73  pathinfo.......s
3250: 65 74 20 72 65 74 76 61 6c 28 74 69 6d 65 29 20  et retval(time) 
3260: 24 6c 6f 63 61 6c 70 61 74 68 69 6e 66 6f 28 6d  $localpathinfo(m
3270: 74 69 6d 65 29 0a 0a 09 09 09 09 09 09 73 77 69  time)........swi
3280: 74 63 68 20 2d 2d 20 24 6c 6f 63 61 6c 70 61 74  tch -- $localpat
3290: 68 69 6e 66 6f 28 74 79 70 65 29 20 7b 0a 09 09  hinfo(type) {...
32a0: 09 09 09 09 09 22 64 69 72 65 63 74 6f 72 79 22  ....."directory"
32b0: 20 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72   {.........set r
32c0: 65 74 76 61 6c 28 74 79 70 65 29 20 22 64 69 72  etval(type) "dir
32d0: 65 63 74 6f 72 79 22 0a 09 09 09 09 09 09 09 09  ectory".........
32e0: 73 65 74 20 72 65 74 76 61 6c 28 63 68 69 6c 64  set retval(child
32f0: 63 6f 75 6e 74 29 20 32 0a 09 09 09 09 09 09 09  count) 2........
3300: 7d 0a 09 09 09 09 09 09 09 22 66 69 6c 65 22 20  }........"file" 
3310: 7b 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  {.........set re
3320: 74 76 61 6c 28 74 79 70 65 29 20 22 66 69 6c 65  tval(type) "file
3330: 22 0a 09 09 09 09 09 09 09 09 73 65 74 20 72 65  ".........set re
3340: 74 76 61 6c 28 73 69 7a 65 29 20 24 6c 6f 63 61  tval(size) $loca
3350: 6c 70 61 74 68 69 6e 66 6f 28 73 69 7a 65 29 0a  lpathinfo(size).
3360: 09 09 09 09 09 09 09 09 69 66 20 7b 5b 66 69 6c  ........if {[fil
3370: 65 20 65 78 65 63 75 74 61 62 6c 65 20 24 6c 6f  e executable $lo
3380: 63 61 6c 70 61 74 68 5d 7d 20 7b 0a 09 09 09 09  calpath]} {.....
3390: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
33a0: 70 65 72 6d 73 29 20 22 78 22 0a 09 09 09 09 09  perms) "x"......
33b0: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
33c0: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
33d0: 70 65 72 6d 73 29 20 22 22 0a 09 09 09 09 09 09  perms) "".......
33e0: 09 09 7d 0a 09 09 09 09 09 09 09 7d 0a 09 09 09  ..}........}....
33f0: 09 09 09 09 22 6c 69 6e 6b 22 20 7b 0a 09 09 09  ...."link" {....
3400: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
3410: 74 79 70 65 29 20 22 73 79 6d 6c 69 6e 6b 22 0a  type) "symlink".
3420: 09 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76  ........set retv
3430: 61 6c 28 73 6f 75 72 63 65 29 20 5b 66 69 6c 65  al(source) [file
3440: 20 72 65 61 64 6c 69 6e 6b 20 24 6c 6f 63 61 6c   readlink $local
3450: 70 61 74 68 5d 0a 09 09 09 09 09 09 09 7d 0a 09  path]........}..
3460: 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 20 65 72  .....}......} er
3470: 72 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  r.....} else {..
3480: 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 73 70  ....set work [sp
3490: 6c 69 74 20 24 70 61 74 68 69 6e 66 6f 28 66 69  lit $pathinfo(fi
34a0: 6c 65 29 20 22 2f 22 5d 0a 09 09 09 09 09 73 65  le) "/"]......se
34b0: 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6a 6f 69  t directory [joi
34c0: 6e 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20  n [lrange $work 
34d0: 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09  0 end-1] "/"]...
34e0: 09 09 09 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e  ...set file [lin
34f0: 64 65 78 20 24 77 6f 72 6b 20 65 6e 64 5d 0a 09  dex $work end]..
3500: 09 09 09 09 3a 3a 61 70 70 66 73 3a 3a 64 62 20  ....::appfs::db 
3510: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 79 70  eval {SELECT typ
3520: 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65 2c  e, time, source,
3530: 20 73 69 7a 65 2c 20 70 65 72 6d 73 20 46 52 4f   size, perms FRO
3540: 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70 61  M files WHERE pa
3550: 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61  ckage_sha1 = $pa
3560: 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73  thinfo(package_s
3570: 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64 69  ha1) AND file_di
3580: 72 65 63 74 6f 72 79 20 3d 20 24 64 69 72 65 63  rectory = $direc
3590: 74 6f 72 79 20 41 4e 44 20 66 69 6c 65 5f 6e 61  tory AND file_na
35a0: 6d 65 20 3d 20 24 66 69 6c 65 3b 7d 20 72 65 74  me = $file;} ret
35b0: 76 61 6c 20 7b 7d 0a 09 09 09 09 09 75 6e 73 65  val {}......unse
35c0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
35d0: 74 76 61 6c 28 2a 29 0a 09 09 09 09 7d 0a 0a 09  tval(*).....}...
35e0: 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  ..}...}....if {!
35f0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 74  [info exists ret
3600: 76 61 6c 28 74 79 70 65 29 5d 7d 20 7b 0a 09 09  val(type)]} {...
3610: 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72  .return -code er
3620: 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 66 69 6c  ror "No such fil
3630: 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 0a  e or directory".
3640: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b 61  ..}....return [a
3650: 72 72 61 79 20 67 65 74 20 72 65 74 76 61 6c 5d  rray get retval]
3660: 0a 09 7d 0a 0a 09 70 72 6f 63 20 6f 70 65 6e 70  ..}...proc openp
3670: 61 74 68 20 7b 70 61 74 68 20 6d 6f 64 65 7d 20  ath {path mode} 
3680: 7b 0a 09 09 61 72 72 61 79 20 73 65 74 20 70 61  {...array set pa
3690: 74 68 69 6e 66 6f 20 5b 5f 70 61 72 73 65 70 61  thinfo [_parsepa
36a0: 74 68 20 24 70 61 74 68 5d 0a 0a 09 09 69 66 20  th $path]....if 
36b0: 7b 24 70 61 74 68 69 6e 66 6f 28 5f 74 79 70 65  {$pathinfo(_type
36c0: 29 20 21 3d 20 22 66 69 6c 65 73 22 7d 20 7b 0a  ) != "files"} {.
36d0: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
36e0: 65 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 74  error "invalid t
36f0: 79 70 65 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  ype"...}....set 
3700: 6c 6f 63 61 6c 70 61 74 68 20 5b 5f 6c 6f 63 61  localpath [_loca
3710: 6c 70 61 74 68 20 24 70 61 74 68 69 6e 66 6f 28  lpath $pathinfo(
3720: 70 61 63 6b 61 67 65 29 20 24 70 61 74 68 69 6e  package) $pathin
3730: 66 6f 28 68 6f 73 74 6e 61 6d 65 29 20 24 70 61  fo(hostname) $pa
3740: 74 68 69 6e 66 6f 28 66 69 6c 65 29 5d 0a 0a 09  thinfo(file)]...
3750: 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74  .if {[file exist
3760: 73 20 24 6c 6f 63 61 6c 70 61 74 68 5d 7d 20 7b  s $localpath]} {
3770: 0a 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61  ....return $loca
3780: 6c 70 61 74 68 0a 09 09 7d 0a 0a 09 09 73 65 74  lpath...}....set
3790: 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24 70 61   work [split $pa
37a0: 74 68 69 6e 66 6f 28 66 69 6c 65 29 20 22 2f 22  thinfo(file) "/"
37b0: 5d 0a 09 09 73 65 74 20 64 69 72 65 63 74 6f 72  ]...set director
37c0: 79 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20  y [join [lrange 
37d0: 24 77 6f 72 6b 20 30 20 65 6e 64 2d 31 5d 20 22  $work 0 end-1] "
37e0: 2f 22 5d 0a 09 09 73 65 74 20 66 69 6c 65 20 5b  /"]...set file [
37f0: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 65 6e 64  lindex $work end
3800: 5d 0a 09 09 73 65 74 20 66 69 6c 65 5f 73 68 61  ]...set file_sha
3810: 31 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 6f  1 [::appfs::db o
3820: 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54  necolumn {SELECT
3830: 20 66 69 6c 65 5f 73 68 61 31 20 46 52 4f 4d 20   file_sha1 FROM 
3840: 66 69 6c 65 73 20 57 48 45 52 45 20 70 61 63 6b  files WHERE pack
3850: 61 67 65 5f 73 68 61 31 20 3d 20 24 70 61 74 68  age_sha1 = $path
3860: 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f 73 68 61  info(package_sha
3870: 31 29 20 41 4e 44 20 66 69 6c 65 5f 6e 61 6d 65  1) AND file_name
3880: 20 3d 20 24 66 69 6c 65 20 41 4e 44 20 66 69 6c   = $file AND fil
3890: 65 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 24 64  e_directory = $d
38a0: 69 72 65 63 74 6f 72 79 3b 7d 5d 0a 0a 09 09 69  irectory;}]....i
38b0: 66 20 7b 24 66 69 6c 65 5f 73 68 61 31 20 3d 3d  f {$file_sha1 ==
38c0: 20 22 22 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e   ""} {....return
38d0: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 4e 6f   -code error "No
38e0: 20 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69   such file or di
38f0: 72 65 63 74 6f 72 79 22 0a 09 09 7d 0a 0a 09 09  rectory"...}....
3900: 73 65 74 20 6c 6f 63 61 6c 63 61 63 68 65 66 69  set localcachefi
3910: 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 70 61  le [download $pa
3920: 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d 65 29  thinfo(hostname)
3930: 20 24 66 69 6c 65 5f 73 68 61 31 5d 0a 0a 09 09   $file_sha1]....
3940: 69 66 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 63 72  if {$mode == "cr
3950: 65 61 74 65 22 7d 20 7b 0a 09 09 09 73 65 74 20  eate"} {....set 
3960: 74 6d 70 6c 6f 63 61 6c 70 61 74 68 20 22 24 7b  tmplocalpath "${
3970: 6c 6f 63 61 6c 70 61 74 68 7d 2e 5b 65 78 70 72  localpath}.[expr
3980: 20 72 61 6e 64 28 29 5d 5b 63 6c 6f 63 6b 20 63   rand()][clock c
3990: 6c 69 63 6b 73 5d 22 0a 09 09 09 66 69 6c 65 20  licks]"....file 
39a0: 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d 20 24  copy -force -- $
39b0: 6c 6f 63 61 6c 63 61 63 68 65 66 69 6c 65 20 24  localcachefile $
39c0: 74 6d 70 6c 6f 63 61 6c 70 61 74 68 0a 09 09 09  tmplocalpath....
39d0: 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66 6f 72  file rename -for
39e0: 63 65 20 2d 2d 20 24 74 6d 70 6c 6f 63 61 6c 70  ce -- $tmplocalp
39f0: 61 74 68 20 24 6c 6f 63 61 6c 70 61 74 68 0a 0a  ath $localpath..
3a00: 09 09 09 72 65 74 75 72 6e 20 24 6c 6f 63 61 6c  ...return $local
3a10: 70 61 74 68 0a 09 09 7d 0a 0a 09 09 72 65 74 75  path...}....retu
3a20: 72 6e 20 24 6c 6f 63 61 6c 63 61 63 68 65 66 69  rn $localcachefi
3a30: 6c 65 0a 09 7d 0a 7d 0a                          le..}.}.