Hex Artifact Content

Artifact 88b17c4a86a8ca6bdad8aa3afa91c03494b622d2:


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 0a 6e 61  require sha1..na
0060: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 61  mespace eval ::a
0070: 70 70 66 73 20 7b 0a 09 76 61 72 69 61 62 6c 65  ppfs {..variable
0080: 20 63 61 63 68 65 64 69 72 20 22 2f 74 6d 70 2f   cachedir "/tmp/
0090: 61 70 70 66 73 2d 63 61 63 68 65 22 0a 09 76 61  appfs-cache"..va
00a0: 72 69 61 62 6c 65 20 74 74 6c 20 33 36 30 30 0a  riable ttl 3600.
00b0: 09 76 61 72 69 61 62 6c 65 20 6e 74 74 6c 20 36  .variable nttl 6
00c0: 30 0a 0a 09 23 20 55 73 65 72 2d 72 65 70 6c 61  0...# User-repla
00d0: 63 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 74  cable function t
00e0: 6f 20 63 6f 6e 76 65 72 74 20 61 20 68 6f 73 74  o convert a host
00f0: 6e 61 6d 65 2f 68 61 73 68 2f 6d 65 74 68 6f 64  name/hash/method
0100: 20 74 6f 20 61 6e 20 55 52 4c 0a 09 70 72 6f 63   to an URL..proc
0110: 20 5f 63 6f 6e 73 74 72 75 63 74 5f 75 72 6c 20   _construct_url 
0120: 7b 68 6f 73 74 6e 61 6d 65 20 68 61 73 68 20 6d  {hostname hash m
0130: 65 74 68 6f 64 7d 20 7b 0a 09 09 72 65 74 75 72  ethod} {...retur
0140: 6e 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e  n "http://$hostn
0150: 61 6d 65 2f 61 70 70 66 73 2f 24 6d 65 74 68 6f  ame/appfs/$metho
0160: 64 2f 24 68 61 73 68 22 0a 09 7d 0a 0a 09 70 72  d/$hash"..}...pr
0170: 6f 63 20 5f 68 61 73 68 5f 73 65 70 20 7b 68 61  oc _hash_sep {ha
0180: 73 68 20 7b 73 65 70 73 20 34 7d 7d 20 7b 0a 09  sh {seps 4}} {..
0190: 09 66 6f 72 20 7b 73 65 74 20 69 64 78 20 30 7d  .for {set idx 0}
01a0: 20 7b 24 69 64 78 20 3c 20 24 73 65 70 73 7d 20   {$idx < $seps} 
01b0: 7b 69 6e 63 72 20 69 64 78 7d 20 7b 0a 09 09 09  {incr idx} {....
01c0: 61 70 70 65 6e 64 20 72 65 74 76 61 6c 20 22 5b  append retval "[
01d0: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 68 61  string range $ha
01e0: 73 68 20 5b 65 78 70 72 20 7b 24 69 64 78 20 2a  sh [expr {$idx *
01f0: 20 32 7d 5d 20 5b 65 78 70 72 20 7b 28 24 69 64   2}] [expr {($id
0200: 78 20 2a 20 32 29 20 2b 20 31 7d 5d 5d 2f 22 0a  x * 2) + 1}]]/".
0210: 09 09 7d 0a 09 09 61 70 70 65 6e 64 20 72 65 74  ..}...append ret
0220: 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72 61 6e  val "[string ran
0230: 67 65 20 24 68 61 73 68 20 5b 65 78 70 72 20 7b  ge $hash [expr {
0240: 24 69 64 78 20 2a 20 32 7d 5d 20 65 6e 64 5d 22  $idx * 2}] end]"
0250: 0a 0a 09 09 72 65 74 75 72 6e 20 24 72 65 74 76  ....return $retv
0260: 61 6c 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 63 61  al..}...proc _ca
0270: 63 68 65 66 69 6c 65 20 7b 75 72 6c 20 6b 65 79  chefile {url key
0280: 20 7b 6b 65 79 49 73 48 61 73 68 20 31 7d 7d 20   {keyIsHash 1}} 
0290: 7b 0a 09 09 73 65 74 20 66 69 6c 65 6b 65 79 20  {...set filekey 
02a0: 24 6b 65 79 0a 09 09 69 66 20 7b 24 6b 65 79 49  $key...if {$keyI
02b0: 73 48 61 73 68 7d 20 7b 0a 09 09 09 73 65 74 20  sHash} {....set 
02c0: 66 69 6c 65 6b 65 79 20 5b 5f 68 61 73 68 5f 73  filekey [_hash_s
02d0: 65 70 20 24 66 69 6c 65 6b 65 79 5d 0a 09 09 7d  ep $filekey]...}
02e0: 0a 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 66 69  ....set file [fi
02f0: 6c 65 20 6a 6f 69 6e 20 24 3a 3a 61 70 70 66 73  le join $::appfs
0300: 3a 3a 63 61 63 68 65 64 69 72 20 24 66 69 6c 65  ::cachedir $file
0310: 6b 65 79 5d 0a 0a 09 09 66 69 6c 65 20 6d 6b 64  key]....file mkd
0320: 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  ir [file dirname
0330: 20 24 66 69 6c 65 5d 0a 0a 09 09 69 66 20 7b 5b   $file]....if {[
0340: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c  file exists $fil
0350: 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20  e]} {....return 
0360: 24 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 73 65 74  $file...}....set
0370: 20 74 6d 70 66 69 6c 65 20 22 24 7b 66 69 6c 65   tmpfile "${file
0380: 7d 2e 5b 65 78 70 72 20 7b 72 61 6e 64 28 29 7d  }.[expr {rand()}
0390: 5d 22 0a 0a 09 09 73 65 74 20 66 64 20 5b 6f 70  ]"....set fd [op
03a0: 65 6e 20 24 74 6d 70 66 69 6c 65 20 22 77 22 5d  en $tmpfile "w"]
03b0: 0a 09 09 66 63 6f 6e 66 69 67 75 72 65 20 24 66  ...fconfigure $f
03c0: 64 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62  d -translation b
03d0: 69 6e 61 72 79 0a 0a 09 09 63 61 74 63 68 20 7b  inary....catch {
03e0: 0a 09 09 09 73 65 74 20 74 6f 6b 65 6e 20 5b 3a  ....set token [:
03f0: 3a 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 24 75  :http::geturl $u
0400: 72 6c 20 2d 63 68 61 6e 6e 65 6c 20 24 66 64 20  rl -channel $fd 
0410: 2d 62 69 6e 61 72 79 20 74 72 75 65 5d 0a 09 09  -binary true]...
0420: 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65  }....if {[info e
0430: 78 69 73 74 73 20 74 6f 6b 65 6e 5d 7d 20 7b 0a  xists token]} {.
0440: 09 09 09 73 65 74 20 6e 63 6f 64 65 20 5b 3a 3a  ...set ncode [::
0450: 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f 6b  http::ncode $tok
0460: 65 6e 5d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a 72  en]....::http::r
0470: 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 7d 20  eset $token...} 
0480: 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 6e 63  else {....set nc
0490: 6f 64 65 20 22 39 30 30 22 0a 09 09 7d 0a 0a 09  ode "900"...}...
04a0: 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 69 66  .close $fd....if
04b0: 20 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b 0a   {$keyIsHash} {.
04c0: 09 09 09 73 65 74 20 68 61 73 68 20 5b 73 74 72  ...set hash [str
04d0: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 68 61  ing tolower [sha
04e0: 31 3a 3a 73 68 61 31 20 2d 68 65 78 20 2d 66 69  1::sha1 -hex -fi
04f0: 6c 65 20 24 74 6d 70 66 69 6c 65 5d 5d 0a 09 09  le $tmpfile]]...
0500: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20  } else {....set 
0510: 68 61 73 68 20 24 6b 65 79 0a 09 09 7d 0a 0a 09  hash $key...}...
0520: 09 69 66 20 7b 24 6e 63 6f 64 65 20 3d 3d 20 22  .if {$ncode == "
0530: 32 30 30 22 20 26 26 20 24 68 61 73 68 20 3d 3d  200" && $hash ==
0540: 20 24 6b 65 79 7d 20 7b 0a 09 09 09 66 69 6c 65   $key} {....file
0550: 20 72 65 6e 61 6d 65 20 2d 66 6f 72 63 65 20 2d   rename -force -
0560: 2d 20 24 74 6d 70 66 69 6c 65 20 24 66 69 6c 65  - $tmpfile $file
0570: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 66  ...} else {....f
0580: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
0590: 65 20 2d 2d 20 24 74 6d 70 66 69 6c 65 0a 09 09  e -- $tmpfile...
05a0: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69 6c  }....return $fil
05b0: 65 0a 09 7d 0a 0a 0a 09 70 72 6f 63 20 5f 69 73  e..}....proc _is
05c0: 48 61 73 68 20 7b 76 61 6c 75 65 7d 20 7b 0a 09  Hash {value} {..
05d0: 09 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72 69  .set value [stri
05e0: 6e 67 20 74 6f 6c 6f 77 65 72 20 24 76 61 6c 75  ng tolower $valu
05f0: 65 5d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e  e]....if {[strin
0600: 67 20 6c 65 6e 67 74 68 20 24 76 61 6c 75 65 5d  g length $value]
0610: 20 21 3d 20 34 30 7d 20 7b 0a 09 09 09 72 65 74   != 40} {....ret
0620: 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09  urn false...}...
0630: 09 69 66 20 7b 21 5b 72 65 67 65 78 70 20 7b 5e  .if {![regexp {^
0640: 5b 30 2d 39 61 2d 66 5d 2a 24 7d 20 24 76 61 6c  [0-9a-f]*$} $val
0650: 75 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  ue]} {....return
0660: 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 72 65   false...}....re
0670: 74 75 72 6e 20 74 72 75 65 0a 09 7d 0a 0a 09 70  turn true..}...p
0680: 72 6f 63 20 5f 6e 6f 72 6d 61 6c 69 7a 65 4f 53  roc _normalizeOS
0690: 20 7b 6f 73 7d 20 7b 0a 09 09 73 65 74 20 6f 73   {os} {...set os
06a0: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
06b0: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6f   [string trim $o
06c0: 73 5d 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d  s]]....switch --
06d0: 20 24 6f 73 20 7b 0a 09 09 09 22 6c 69 6e 75 78   $os {...."linux
06e0: 22 20 2d 20 22 66 72 65 65 62 73 64 22 20 2d 20  " - "freebsd" - 
06f0: 22 6f 70 65 6e 62 73 64 22 20 2d 20 22 6e 65 74  "openbsd" - "net
0700: 62 73 64 22 20 7b 0a 09 09 09 09 72 65 74 75 72  bsd" {.....retur
0710: 6e 20 24 6f 73 0a 09 09 09 7d 0a 09 09 09 22 73  n $os....}...."s
0720: 75 6e 6f 73 22 20 7b 0a 09 09 09 09 72 65 74 75  unos" {.....retu
0730: 72 6e 20 22 73 6f 6c 61 72 69 73 22 0a 09 09 09  rn "solaris"....
0740: 7d 0a 09 09 09 22 6e 6f 61 72 63 68 22 20 2d 20  }...."noarch" - 
0750: 22 6e 6f 6e 65 22 20 2d 20 22 61 6e 79 22 20 2d  "none" - "any" -
0760: 20 22 61 6c 6c 22 20 7b 0a 09 09 09 09 72 65 74   "all" {.....ret
0770: 75 72 6e 20 22 6e 6f 61 72 63 68 22 0a 09 09 09  urn "noarch"....
0780: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  }...}....return 
0790: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61  -code error "Una
07a0: 62 6c 65 20 74 6f 20 6e 6f 72 6d 61 6c 69 7a 65  ble to normalize
07b0: 20 4f 53 3a 20 24 6f 73 22 0a 09 7d 0a 0a 09 70   OS: $os"..}...p
07c0: 72 6f 63 20 5f 6e 6f 72 6d 61 6c 69 7a 65 43 50  roc _normalizeCP
07d0: 55 20 7b 63 70 75 7d 20 7b 0a 09 09 73 65 74 20  U {cpu} {...set 
07e0: 63 70 75 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f  cpu [string tolo
07f0: 77 65 72 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  wer [string trim
0800: 20 24 63 70 75 5d 5d 0a 0a 09 09 73 77 69 74 63   $cpu]]....switc
0810: 68 20 2d 67 6c 6f 62 20 2d 2d 20 24 63 70 75 20  h -glob -- $cpu 
0820: 7b 0a 09 09 09 22 69 3f 38 36 22 20 7b 0a 09 09  {...."i?86" {...
0830: 09 09 72 65 74 75 72 6e 20 22 69 78 38 36 22 0a  ..return "ix86".
0840: 09 09 09 7d 0a 09 09 09 22 78 38 36 5f 36 34 22  ...}...."x86_64"
0850: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 24 63   {.....return $c
0860: 70 75 0a 09 09 09 7d 0a 09 09 09 22 6e 6f 61 72  pu....}...."noar
0870: 63 68 22 20 2d 20 22 6e 6f 6e 65 22 20 2d 20 22  ch" - "none" - "
0880: 61 6e 79 22 20 2d 20 22 61 6c 6c 22 20 7b 0a 09  any" - "all" {..
0890: 09 09 09 72 65 74 75 72 6e 20 22 6e 6f 61 72 63  ...return "noarc
08a0: 68 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72  h"....}...}....r
08b0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f  eturn -code erro
08c0: 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 6e 6f 72  r "Unable to nor
08d0: 6d 61 6c 69 7a 65 20 43 50 55 3a 20 24 63 70 75  malize CPU: $cpu
08e0: 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 69 6e 69 74  "..}...proc init
08f0: 20 7b 7d 20 7b 0a 09 09 69 66 20 7b 5b 69 6e 66   {} {...if {[inf
0900: 6f 20 65 78 69 73 74 73 20 3a 3a 61 70 70 66 73  o exists ::appfs
0910: 3a 3a 69 6e 69 74 5f 63 61 6c 6c 65 64 5d 7d 20  ::init_called]} 
0920: 7b 0a 09 09 09 72 65 74 75 72 6e 0a 09 09 7d 0a  {....return...}.
0930: 0a 09 09 23 20 46 6f 72 63 65 20 5b 70 61 72 72  ...# Force [parr
0940: 61 79 5d 20 74 6f 20 62 65 20 6c 6f 61 64 65 64  ay] to be loaded
0950: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 70 61  ...catch {....pa
0960: 72 72 61 79 20 64 6f 65 73 5f 6e 6f 74 5f 65 78  rray does_not_ex
0970: 69 73 74 0a 09 09 7d 0a 0a 09 09 73 65 74 20 3a  ist...}....set :
0980: 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61 6c  :appfs::init_cal
0990: 6c 65 64 20 31 0a 0a 09 09 23 20 4c 6f 61 64 20  led 1....# Load 
09a0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 69  configuration fi
09b0: 6c 65 0a 09 09 73 65 74 20 63 6f 6e 66 69 67 5f  le...set config_
09c0: 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  file [file join 
09d0: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
09e0: 69 72 20 63 6f 6e 66 69 67 5d 0a 09 09 69 66 20  ir config]...if 
09f0: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 63  {[file exists $c
0a00: 6f 6e 66 69 67 5f 66 69 6c 65 5d 7d 20 7b 0a 09  onfig_file]} {..
0a10: 09 09 73 6f 75 72 63 65 20 24 63 6f 6e 66 69 67  ..source $config
0a20: 5f 66 69 6c 65 0a 09 09 7d 0a 0a 09 09 69 66 20  _file...}....if 
0a30: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
0a40: 3a 61 70 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09  :appfs::db]} {..
0a50: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a  ..file mkdir $::
0a60: 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72 0a  appfs::cachedir.
0a70: 0a 09 09 09 73 71 6c 69 74 65 33 20 3a 3a 61 70  ....sqlite3 ::ap
0a80: 70 66 73 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f  pfs::db [file jo
0a90: 69 6e 20 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63  in $::appfs::cac
0aa0: 68 65 64 69 72 20 63 61 63 68 65 2e 64 62 5d 0a  hedir cache.db].
0ab0: 09 09 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20  ..}....# Create 
0ac0: 74 61 62 6c 65 73 0a 09 09 64 62 20 65 76 61 6c  tables...db eval
0ad0: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 49   {CREATE TABLE I
0ae0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74  F NOT EXISTS sit
0af0: 65 73 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d  es(hostname PRIM
0b00: 41 52 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64  ARY KEY, lastUpd
0b10: 61 74 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 64 62  ate, ttl);}...db
0b20: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41   eval {CREATE TA
0b30: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54  BLE IF NOT EXIST
0b40: 53 20 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e  S packages(hostn
0b50: 61 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61  ame, sha1, packa
0b60: 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c  ge, version, os,
0b70: 20 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65   cpuArch, isLate
0b80: 73 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74  st, haveManifest
0b90: 29 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43  );}...db eval {C
0ba0: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
0bb0: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 28  OT EXISTS files(
0bc0: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79  package_sha1, ty
0bd0: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
0be0: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66  , size, perms, f
0bf0: 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e  ile_sha1, file_n
0c00: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74  ame, file_direct
0c10: 6f 72 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61  ory);}....# Crea
0c20: 74 65 20 69 6e 64 65 78 65 73 0a 09 09 64 62 20  te indexes...db 
0c30: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e 44  eval {CREATE IND
0c40: 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53  EX IF NOT EXISTS
0c50: 20 73 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e 20   sites_index ON 
0c60: 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 29  sites (hostname)
0c70: 3b 7d 0a 09 09 64 62 20 65 76 61 6c 20 7b 43 52  ;}...db eval {CR
0c80: 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f  EATE INDEX IF NO
0c90: 54 20 45 58 49 53 54 53 20 70 61 63 6b 61 67 65  T EXISTS package
0ca0: 73 5f 69 6e 64 65 78 20 4f 4e 20 70 61 63 6b 61  s_index ON packa
0cb0: 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 70  ges (hostname, p
0cc0: 61 63 6b 61 67 65 2c 20 76 65 72 73 69 6f 6e 2c  ackage, version,
0cd0: 20 6f 73 2c 20 63 70 75 41 72 63 68 29 3b 7d 0a   os, cpuArch);}.
0ce0: 09 09 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54  ..db eval {CREAT
0cf0: 45 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45  E INDEX IF NOT E
0d00: 58 49 53 54 53 20 66 69 6c 65 73 5f 69 6e 64 65  XISTS files_inde
0d10: 78 20 4f 4e 20 66 69 6c 65 73 20 28 70 61 63 6b  x ON files (pack
0d20: 61 67 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e  age_sha1, file_n
0d30: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74  ame, file_direct
0d40: 6f 72 79 29 3b 7d 0a 09 7d 0a 0a 09 70 72 6f 63  ory);}..}...proc
0d50: 20 64 6f 77 6e 6c 6f 61 64 20 7b 68 6f 73 74 6e   download {hostn
0d60: 61 6d 65 20 68 61 73 68 20 7b 6d 65 74 68 6f 64  ame hash {method
0d70: 20 73 68 61 31 7d 7d 20 7b 0a 09 09 73 65 74 20   sha1}} {...set 
0d80: 75 72 6c 20 5b 5f 63 6f 6e 73 74 72 75 63 74 5f  url [_construct_
0d90: 75 72 6c 20 24 68 6f 73 74 6e 61 6d 65 20 24 68  url $hostname $h
0da0: 61 73 68 20 24 6d 65 74 68 6f 64 5d 0a 09 09 73  ash $method]...s
0db0: 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68 65 66  et file [_cachef
0dc0: 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68 5d 0a  ile $url $hash].
0dd0: 0a 09 09 69 66 20 7b 21 5b 66 69 6c 65 20 65 78  ...if {![file ex
0de0: 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09  ists $file]} {..
0df0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
0e00: 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20  rror "Unable to 
0e10: 66 65 74 63 68 20 28 66 69 6c 65 20 64 6f 65 73  fetch (file does
0e20: 20 6e 6f 74 20 65 78 69 73 74 3a 20 24 66 69 6c   not exist: $fil
0e30: 65 29 22 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72  e)"...}....retur
0e40: 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a 09 70 72 6f  n $file..}...pro
0e50: 63 20 67 65 74 69 6e 64 65 78 20 7b 68 6f 73 74  c getindex {host
0e60: 6e 61 6d 65 7d 20 7b 0a 09 09 73 65 74 20 6e 6f  name} {...set no
0e70: 77 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73  w [clock seconds
0e80: 5d 0a 0a 09 09 73 65 74 20 6c 61 73 74 55 70 64  ]....set lastUpd
0e90: 61 74 65 73 20 5b 64 62 20 65 76 61 6c 20 7b 53  ates [db eval {S
0ea0: 45 4c 45 43 54 20 6c 61 73 74 55 70 64 61 74 65  ELECT lastUpdate
0eb0: 2c 20 74 74 6c 20 46 52 4f 4d 20 73 69 74 65 73  , ttl FROM sites
0ec0: 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65 20   WHERE hostname 
0ed0: 3d 20 24 68 6f 73 74 6e 61 6d 65 20 4c 49 4d 49  = $hostname LIMI
0ee0: 54 20 31 3b 7d 5d 0a 09 09 69 66 20 7b 5b 6c 6c  T 1;}]...if {[ll
0ef0: 65 6e 67 74 68 20 24 6c 61 73 74 55 70 64 61 74  ength $lastUpdat
0f00: 65 73 5d 20 3d 3d 20 30 7d 20 7b 0a 09 09 09 73  es] == 0} {....s
0f10: 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 30 0a  et lastUpdate 0.
0f20: 09 09 09 73 65 74 20 74 74 6c 20 30 0a 09 09 7d  ...set ttl 0...}
0f30: 20 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 20 6c   else {....set l
0f40: 61 73 74 55 70 64 61 74 65 20 5b 6c 69 6e 64 65  astUpdate [linde
0f50: 78 20 24 6c 61 73 74 55 70 64 61 74 65 73 20 30  x $lastUpdates 0
0f60: 5d 0a 09 09 09 73 65 74 20 74 74 6c 20 5b 6c 69  ]....set ttl [li
0f70: 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61 74 65  ndex $lastUpdate
0f80: 73 20 31 5d 0a 09 09 7d 0a 0a 09 09 69 66 20 7b  s 1]...}....if {
0f90: 24 6e 6f 77 20 3c 20 28 24 6c 61 73 74 55 70 64  $now < ($lastUpd
0fa0: 61 74 65 20 2b 20 24 74 74 6c 29 7d 20 7b 0a 09  ate + $ttl)} {..
0fb0: 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54  ..return COMPLET
0fc0: 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 73 74  E...}....if {[st
0fd0: 72 69 6e 67 20 6d 61 74 63 68 20 22 2a 5c 5b 2f  ring match "*\[/
0fe0: 7e 5c 5d 2a 22 20 24 68 6f 73 74 6e 61 6d 65 5d  ~\]*" $hostname]
0ff0: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63  } {....return -c
1000: 6f 64 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c  ode error "Inval
1010: 69 64 20 68 6f 73 74 6e 61 6d 65 22 0a 09 09 7d  id hostname"...}
1020: 0a 0a 09 09 73 65 74 20 75 72 6c 20 22 68 74 74  ....set url "htt
1030: 70 3a 2f 2f 24 68 6f 73 74 6e 61 6d 65 2f 61 70  p://$hostname/ap
1040: 70 66 73 2f 69 6e 64 65 78 22 0a 0a 09 09 63 61  pfs/index"....ca
1050: 74 63 68 20 7b 0a 09 09 09 73 65 74 20 74 6f 6b  tch {....set tok
1060: 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 74 75  en [::http::getu
1070: 72 6c 20 24 75 72 6c 5d 0a 09 09 09 69 66 20 7b  rl $url]....if {
1080: 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 20 24  [::http::ncode $
1090: 74 6f 6b 65 6e 5d 20 3d 3d 20 22 32 30 30 22 7d  token] == "200"}
10a0: 20 7b 0a 09 09 09 09 73 65 74 20 69 6e 64 65 78   {.....set index
10b0: 68 61 73 68 5f 64 61 74 61 20 5b 3a 3a 68 74 74  hash_data [::htt
10c0: 70 3a 3a 64 61 74 61 20 24 74 6f 6b 65 6e 5d 0a  p::data $token].
10d0: 09 09 09 7d 0a 09 09 09 3a 3a 68 74 74 70 3a 3a  ...}....::http::
10e0: 72 65 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 09  reset $token....
10f0: 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 6e 75 70 20  ::http::cleanup 
1100: 24 74 6f 6b 65 6e 0a 09 09 7d 0a 0a 09 09 69 66  $token...}....if
1110: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
1120: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 5d 7d  indexhash_data]}
1130: 20 7b 0a 09 09 09 23 20 43 61 63 68 65 20 74 68   {....# Cache th
1140: 69 73 20 72 65 73 75 6c 74 20 66 6f 72 20 36 30  is result for 60
1150: 20 73 65 63 6f 6e 64 73 0a 09 09 09 64 62 20 65   seconds....db e
1160: 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20 52  val {INSERT OR R
1170: 45 50 4c 41 43 45 20 49 4e 54 4f 20 73 69 74 65  EPLACE INTO site
1180: 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61 73  s (hostname, las
1190: 74 55 70 64 61 74 65 2c 20 74 74 6c 29 20 56 41  tUpdate, ttl) VA
11a0: 4c 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c  LUES ($hostname,
11b0: 20 24 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73 3a   $now, $::appfs:
11c0: 3a 6e 74 74 6c 29 3b 7d 0a 0a 09 09 09 72 65 74  :nttl);}.....ret
11d0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20  urn -code error 
11e0: 22 55 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68  "Unable to fetch
11f0: 20 24 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73 65   $url"...}....se
1200: 74 20 69 6e 64 65 78 68 61 73 68 20 5b 6c 69 6e  t indexhash [lin
1210: 64 65 78 20 5b 73 70 6c 69 74 20 24 69 6e 64 65  dex [split $inde
1220: 78 68 61 73 68 5f 64 61 74 61 20 22 2c 22 5d 20  xhash_data ","] 
1230: 30 5d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73 48  0]....if {![_isH
1240: 61 73 68 20 24 69 6e 64 65 78 68 61 73 68 5d 7d  ash $indexhash]}
1250: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f   {....return -co
1260: 64 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69  de error "Invali
1270: 64 20 68 61 73 68 3a 20 24 69 6e 64 65 78 68 61  d hash: $indexha
1280: 73 68 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66  sh"...}....set f
1290: 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68  ile [download $h
12a0: 6f 73 74 6e 61 6d 65 20 24 69 6e 64 65 78 68 61  ostname $indexha
12b0: 73 68 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f 70  sh]...set fd [op
12c0: 65 6e 20 24 66 69 6c 65 5d 0a 09 09 73 65 74 20  en $file]...set 
12d0: 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a  data [read $fd].
12e0: 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 73  ..close $fd....s
12f0: 65 74 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73  et curr_packages
1300: 20 5b 6c 69 73 74 5d 0a 09 09 66 6f 72 65 61 63   [list]...foreac
1310: 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 64  h line [split $d
1320: 61 74 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 73  ata "\n"] {....s
1330: 65 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20  et line [string 
1340: 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09  trim $line].....
1350: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63  if {[string matc
1360: 68 20 22 2a 2f 2a 22 20 24 6c 69 6e 65 5d 7d 20  h "*/*" $line]} 
1370: 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09  {.....continue..
1380: 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 6c 69 6e  ..}.....if {$lin
1390: 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 63  e == ""} {.....c
13a0: 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09  ontinue....}....
13b0: 09 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74  .set work [split
13c0: 20 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09   $line ","].....
13d0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
13e0: 6e 20 70 6b 67 49 6e 66 6f 0a 09 09 09 69 66 20  n pkgInfo....if 
13f0: 7b 5b 63 61 74 63 68 20 7b 0a 09 09 09 09 73 65  {[catch {.....se
1400: 74 20 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67  t pkgInfo(packag
1410: 65 29 20 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  e)  [lindex $wor
1420: 6b 20 30 5d 0a 09 09 09 09 73 65 74 20 70 6b 67  k 0].....set pkg
1430: 49 6e 66 6f 28 76 65 72 73 69 6f 6e 29 20 20 5b  Info(version)  [
1440: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a  lindex $work 1].
1450: 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28  ....set pkgInfo(
1460: 6f 73 29 20 20 20 20 20 20 20 5b 5f 6e 6f 72 6d  os)       [_norm
1470: 61 6c 69 7a 65 4f 53 20 5b 6c 69 6e 64 65 78 20  alizeOS [lindex 
1480: 24 77 6f 72 6b 20 32 5d 5d 0a 09 09 09 09 73 65  $work 2]].....se
1490: 74 20 70 6b 67 49 6e 66 6f 28 63 70 75 41 72 63  t pkgInfo(cpuArc
14a0: 68 29 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65 43  h)  [_normalizeC
14b0: 50 55 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  PU [lindex $work
14c0: 20 33 5d 5d 0a 09 09 09 09 73 65 74 20 70 6b 67   3]].....set pkg
14d0: 49 6e 66 6f 28 68 61 73 68 29 20 20 20 20 20 5b  Info(hash)     [
14e0: 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b  string tolower [
14f0: 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 34 5d 5d  lindex $work 4]]
1500: 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f  .....set pkgInfo
1510: 28 68 61 73 68 5f 74 79 70 65 29 20 22 73 68 61  (hash_type) "sha
1520: 31 22 0a 09 09 09 09 73 65 74 20 70 6b 67 49 6e  1".....set pkgIn
1530: 66 6f 28 69 73 4c 61 74 65 73 74 29 20 5b 65 78  fo(isLatest) [ex
1540: 70 72 20 7b 21 21 5b 6c 69 6e 64 65 78 20 24 77  pr {!![lindex $w
1550: 6f 72 6b 20 35 5d 7d 5d 0a 09 09 09 7d 5d 7d 20  ork 5]}]....}]} 
1560: 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09  {.....continue..
1570: 09 09 7d 0a 0a 09 09 09 69 66 20 7b 21 5b 5f 69  ..}.....if {![_i
1580: 73 48 61 73 68 20 24 70 6b 67 49 6e 66 6f 28 68  sHash $pkgInfo(h
1590: 61 73 68 29 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e  ash)]} {.....con
15a0: 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 6c  tinue....}.....l
15b0: 61 70 70 65 6e 64 20 63 75 72 72 5f 70 61 63 6b  append curr_pack
15c0: 61 67 65 73 20 24 70 6b 67 49 6e 66 6f 28 68 61  ages $pkgInfo(ha
15d0: 73 68 29 0a 0a 09 09 09 23 20 44 6f 20 6e 6f 74  sh).....# Do not
15e0: 20 64 6f 20 61 6e 79 20 61 64 64 69 74 69 6f 6e   do any addition
15f0: 61 6c 20 77 6f 72 6b 20 69 66 20 77 65 20 61 6c  al work if we al
1600: 72 65 61 64 79 20 68 61 76 65 20 74 68 69 73 20  ready have this 
1610: 70 61 63 6b 61 67 65 0a 09 09 09 73 65 74 20 65  package....set e
1620: 78 69 73 74 69 6e 67 5f 70 61 63 6b 61 67 65 73  xisting_packages
1630: 20 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43   [db eval {SELEC
1640: 54 20 70 61 63 6b 61 67 65 20 46 52 4f 4d 20 70  T package FROM p
1650: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
1660: 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61  stname = $hostna
1670: 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70  me AND sha1 = $p
1680: 6b 67 49 6e 66 6f 28 68 61 73 68 29 3b 7d 5d 0a  kgInfo(hash);}].
1690: 09 09 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20  ...if {[lsearch 
16a0: 2d 65 78 61 63 74 20 24 65 78 69 73 74 69 6e 67  -exact $existing
16b0: 5f 70 61 63 6b 61 67 65 73 20 24 70 6b 67 49 6e  _packages $pkgIn
16c0: 66 6f 28 70 61 63 6b 61 67 65 29 5d 20 21 3d 20  fo(package)] != 
16d0: 2d 31 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e  -1} {.....contin
16e0: 75 65 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b  ue....}.....if {
16f0: 24 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65 73  $pkgInfo(isLates
1700: 74 29 7d 20 7b 0a 09 09 09 09 64 62 20 65 76 61  t)} {.....db eva
1710: 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61 67  l {UPDATE packag
1720: 65 73 20 53 45 54 20 69 73 4c 61 74 65 73 74 20  es SET isLatest 
1730: 3d 20 30 20 57 48 45 52 45 20 68 6f 73 74 6e 61  = 0 WHERE hostna
1740: 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41  me = $hostname A
1750: 4e 44 20 70 61 63 6b 61 67 65 20 3d 20 24 70 6b  ND package = $pk
1760: 67 49 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20  gInfo($package) 
1770: 41 4e 44 20 6f 73 20 3d 20 24 70 6b 67 49 6e 66  AND os = $pkgInf
1780: 6f 28 24 70 61 63 6b 61 67 65 29 20 41 4e 44 20  o($package) AND 
1790: 63 70 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e  cpuArch = $pkgIn
17a0: 66 6f 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09  fo(cpuArch);}...
17b0: 09 7d 0a 0a 09 09 09 64 62 20 65 76 61 6c 20 7b  .}.....db eval {
17c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 70 61 63 6b  INSERT INTO pack
17d0: 61 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20  ages (hostname, 
17e0: 73 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76  sha1, package, v
17f0: 65 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41  ersion, os, cpuA
1800: 72 63 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68  rch, isLatest, h
1810: 61 76 65 4d 61 6e 69 66 65 73 74 29 20 56 41 4c  aveManifest) VAL
1820: 55 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20  UES ($hostname, 
1830: 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c 20  $pkgInfo(hash), 
1840: 24 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65  $pkgInfo(package
1850: 29 2c 20 24 70 6b 67 49 6e 66 6f 28 76 65 72 73  ), $pkgInfo(vers
1860: 69 6f 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f  ion), $pkgInfo(o
1870: 73 29 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70 75  s), $pkgInfo(cpu
1880: 41 72 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28  Arch), $pkgInfo(
1890: 69 73 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a  isLatest), 0);}.
18a0: 09 09 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f  ..}....# Look fo
18b0: 72 20 70 61 63 6b 61 67 65 73 20 74 68 61 74 20  r packages that 
18c0: 68 61 76 65 20 62 65 65 6e 20 64 65 6c 65 74 65  have been delete
18d0: 64 0a 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61  d...set found_pa
18e0: 63 6b 61 67 65 73 20 5b 64 62 20 65 76 61 6c 20  ckages [db eval 
18f0: 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f  {SELECT sha1 FRO
1900: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
1910: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73   hostname = $hos
1920: 74 6e 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61  tname;}]...forea
1930: 63 68 20 70 61 63 6b 61 67 65 20 24 66 6f 75 6e  ch package $foun
1940: 64 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09  d_packages {....
1950: 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67  set found_packag
1960: 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29  es_arr($package)
1970: 20 31 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63   1...}....foreac
1980: 68 20 70 61 63 6b 61 67 65 20 24 63 75 72 72 5f  h package $curr_
1990: 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e  packages {....un
19a0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
19b0: 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61  found_packages_a
19c0: 72 72 28 24 70 61 63 6b 61 67 65 29 0a 09 09 7d  rr($package)...}
19d0: 0a 0a 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b  ....foreach pack
19e0: 61 67 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  age [array names
19f0: 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f   found_packages_
1a00: 61 72 72 5d 20 7b 0a 09 09 09 64 62 20 65 76 61  arr] {....db eva
1a10: 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 70  l {DELETE FROM p
1a20: 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f  ackages WHERE ho
1a30: 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61  stname = $hostna
1a40: 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24 70  me AND sha1 = $p
1a50: 61 63 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09 09  ackage;}...}....
1a60: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20  db eval {INSERT 
1a70: 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20  OR REPLACE INTO 
1a80: 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c  sites (hostname,
1a90: 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74 74 6c   lastUpdate, ttl
1aa0: 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73 74 6e  ) VALUES ($hostn
1ab0: 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a 61 70  ame, $now, $::ap
1ac0: 70 66 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09 09 72  pfs::ttl);}....r
1ad0: 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09  eturn COMPLETE..
1ae0: 7d 0a 0a 09 70 72 6f 63 20 67 65 74 70 6b 67 6d  }...proc getpkgm
1af0: 61 6e 69 66 65 73 74 20 7b 68 6f 73 74 6e 61 6d  anifest {hostnam
1b00: 65 20 70 61 63 6b 61 67 65 5f 73 68 61 31 7d 20  e package_sha1} 
1b10: 7b 0a 09 09 73 65 74 20 68 61 76 65 4d 61 6e 69  {...set haveMani
1b20: 66 65 73 74 73 20 5b 64 62 20 65 76 61 6c 20 7b  fests [db eval {
1b30: 53 45 4c 45 43 54 20 68 61 76 65 4d 61 6e 69 66  SELECT haveManif
1b40: 65 73 74 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  est FROM package
1b50: 73 20 57 48 45 52 45 20 73 68 61 31 20 3d 20 24  s WHERE sha1 = $
1b60: 70 61 63 6b 61 67 65 5f 73 68 61 31 20 4c 49 4d  package_sha1 LIM
1b70: 49 54 20 31 3b 7d 5d 0a 09 09 73 65 74 20 68 61  IT 1;}]...set ha
1b80: 76 65 4d 61 6e 69 66 65 73 74 20 5b 6c 69 6e 64  veManifest [lind
1b90: 65 78 20 24 68 61 76 65 4d 61 6e 69 66 65 73 74  ex $haveManifest
1ba0: 73 20 30 5d 0a 0a 09 09 69 66 20 7b 24 68 61 76  s 0]....if {$hav
1bb0: 65 4d 61 6e 69 66 65 73 74 7d 20 7b 0a 09 09 09  eManifest} {....
1bc0: 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45 0a  return COMPLETE.
1bd0: 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73  ..}....if {![_is
1be0: 48 61 73 68 20 24 70 61 63 6b 61 67 65 5f 73 68  Hash $package_sh
1bf0: 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e  a1]} {....return
1c00: 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09 73 65 74   FAIL...}....set
1c10: 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f 61 64 20   file [download 
1c20: 24 68 6f 73 74 6e 61 6d 65 20 24 70 61 63 6b 61  $hostname $packa
1c30: 67 65 5f 73 68 61 31 5d 0a 09 09 73 65 74 20 66  ge_sha1]...set f
1c40: 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 09  d [open $file]..
1c50: 09 73 65 74 20 70 6b 67 64 61 74 61 20 5b 72 65  .set pkgdata [re
1c60: 61 64 20 24 66 64 5d 0a 09 09 63 6c 6f 73 65 20  ad $fd]...close 
1c70: 24 66 64 0a 0a 09 09 64 62 20 74 72 61 6e 73 61  $fd....db transa
1c80: 63 74 69 6f 6e 20 7b 0a 09 09 09 66 6f 72 65 61  ction {....forea
1c90: 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24  ch line [split $
1ca0: 70 6b 67 64 61 74 61 20 22 5c 6e 22 5d 20 7b 0a  pkgdata "\n"] {.
1cb0: 09 09 09 09 73 65 74 20 6c 69 6e 65 20 5b 73 74  ....set line [st
1cc0: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d  ring trim $line]
1cd0: 0a 0a 09 09 09 09 69 66 20 7b 24 6c 69 6e 65 20  ......if {$line 
1ce0: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 63 6f  == ""} {......co
1cf0: 6e 74 69 6e 75 65 0a 09 09 09 09 7d 0a 0a 09 09  ntinue.....}....
1d00: 09 09 73 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69  ..set work [spli
1d10: 74 20 24 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09  t $line ","]....
1d20: 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c  ..unset -nocompl
1d30: 61 69 6e 20 66 69 6c 65 49 6e 66 6f 0a 09 09 09  ain fileInfo....
1d40: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 74 79  .set fileInfo(ty
1d50: 70 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72  pe) [lindex $wor
1d60: 6b 20 30 5d 0a 09 09 09 09 73 65 74 20 66 69 6c  k 0].....set fil
1d70: 65 49 6e 66 6f 28 74 69 6d 65 29 20 5b 6c 69 6e  eInfo(time) [lin
1d80: 64 65 78 20 24 77 6f 72 6b 20 31 5d 0a 0a 09 09  dex $work 1]....
1d90: 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e  ..set work [lran
1da0: 67 65 20 24 77 6f 72 6b 20 32 20 65 6e 64 5d 0a  ge $work 2 end].
1db0: 09 09 09 09 73 77 69 74 63 68 20 2d 2d 20 24 66  ....switch -- $f
1dc0: 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 20 7b 0a  ileInfo(type) {.
1dd0: 09 09 09 09 09 22 66 69 6c 65 22 20 7b 0a 09 09  ....."file" {...
1de0: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
1df0: 28 73 69 7a 65 29 20 5b 6c 69 6e 64 65 78 20 24  (size) [lindex $
1e00: 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65  work 0].......se
1e10: 74 20 66 69 6c 65 49 6e 66 6f 28 70 65 72 6d 73  t fileInfo(perms
1e20: 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20  ) [lindex $work 
1e30: 31 5d 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c  1].......set fil
1e40: 65 49 6e 66 6f 28 73 68 61 31 29 20 5b 6c 69 6e  eInfo(sha1) [lin
1e50: 64 65 78 20 24 77 6f 72 6b 20 32 5d 0a 0a 09 09  dex $work 2]....
1e60: 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b 6c 72  ....set work [lr
1e70: 61 6e 67 65 20 24 77 6f 72 6b 20 33 20 65 6e 64  ange $work 3 end
1e80: 5d 0a 09 09 09 09 09 7d 0a 09 09 09 09 09 22 73  ]......}......"s
1e90: 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09 09 09 09 09  ymlink" {.......
1ea0: 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 73 6f 75  set fileInfo(sou
1eb0: 72 63 65 29 20 5b 6c 69 6e 64 65 78 20 24 77 6f  rce) [lindex $wo
1ec0: 72 6b 20 30 5d 0a 09 09 09 09 09 09 73 65 74 20  rk 0].......set 
1ed0: 77 6f 72 6b 20 5b 6c 72 61 6e 67 65 20 24 77 6f  work [lrange $wo
1ee0: 72 6b 20 31 20 65 6e 64 5d 0a 09 09 09 09 09 7d  rk 1 end]......}
1ef0: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 74 20  .....}......set 
1f00: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 5b  fileInfo(name) [
1f10: 6a 6f 69 6e 20 24 77 6f 72 6b 20 22 2c 22 5d 0a  join $work ","].
1f20: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
1f30: 28 6e 61 6d 65 29 20 5b 73 70 6c 69 74 20 5b 73  (name) [split [s
1f40: 74 72 69 6e 67 20 74 72 69 6d 20 24 66 69 6c 65  tring trim $file
1f50: 49 6e 66 6f 28 6e 61 6d 65 29 20 22 2f 22 5d 20  Info(name) "/"] 
1f60: 22 2f 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c  "/"].....set fil
1f70: 65 49 6e 66 6f 28 64 69 72 65 63 74 6f 72 79 29  eInfo(directory)
1f80: 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24   [join [lrange $
1f90: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 30  fileInfo(name) 0
1fa0: 20 65 6e 64 2d 31 5d 20 22 2f 22 5d 0a 09 09 09   end-1] "/"]....
1fb0: 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61  .set fileInfo(na
1fc0: 6d 65 29 20 5b 6c 69 6e 64 65 78 20 24 66 69 6c  me) [lindex $fil
1fd0: 65 49 6e 66 6f 28 6e 61 6d 65 29 20 65 6e 64 5d  eInfo(name) end]
1fe0: 0a 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b 49  ......db eval {I
1ff0: 4e 53 45 52 54 20 49 4e 54 4f 20 66 69 6c 65 73  NSERT INTO files
2000: 20 28 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20   (package_sha1, 
2010: 74 79 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72  type, time, sour
2020: 63 65 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c  ce, size, perms,
2030: 20 66 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65   file_sha1, file
2040: 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65  _name, file_dire
2050: 63 74 6f 72 79 29 20 56 41 4c 55 45 53 20 28 24  ctory) VALUES ($
2060: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 24 66  package_sha1, $f
2070: 69 6c 65 49 6e 66 6f 28 74 79 70 65 29 2c 20 24  ileInfo(type), $
2080: 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65 29 2c 20  fileInfo(time), 
2090: 24 66 69 6c 65 49 6e 66 6f 28 73 6f 75 72 63 65  $fileInfo(source
20a0: 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73 69 7a  ), $fileInfo(siz
20b0: 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 70 65  e), $fileInfo(pe
20c0: 72 6d 73 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28  rms), $fileInfo(
20d0: 73 68 61 31 29 2c 20 24 66 69 6c 65 49 6e 66 6f  sha1), $fileInfo
20e0: 28 6e 61 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66  (name), $fileInf
20f0: 6f 28 64 69 72 65 63 74 6f 72 79 29 20 29 3b 7d  o(directory) );}
2100: 0a 09 09 09 09 64 62 20 65 76 61 6c 20 7b 55 50  .....db eval {UP
2110: 44 41 54 45 20 70 61 63 6b 61 67 65 73 20 53 45  DATE packages SE
2120: 54 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20 3d  T haveManifest =
2130: 20 31 20 57 48 45 52 45 20 73 68 61 31 20 3d 20   1 WHERE sha1 = 
2140: 24 70 61 63 6b 61 67 65 5f 73 68 61 31 3b 7d 0a  $package_sha1;}.
2150: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75  ...}...}....retu
2160: 72 6e 20 43 4f 4d 50 4c 45 54 45 0a 09 7d 0a 0a  rn COMPLETE..}..
2170: 09 70 72 6f 63 20 5f 70 61 72 73 65 70 61 74 68  .proc _parsepath
2180: 20 7b 70 61 74 68 7d 20 7b 0a 09 09 73 65 74 20   {path} {...set 
2190: 70 61 74 68 20 5b 73 74 72 69 6e 67 20 74 72 69  path [string tri
21a0: 6d 20 24 70 61 74 68 20 22 2f 22 5d 0a 09 09 73  m $path "/"]...s
21b0: 65 74 20 70 61 74 68 20 5b 73 70 6c 69 74 20 24  et path [split $
21c0: 70 61 74 68 20 22 2f 22 5d 0a 09 09 73 65 74 20  path "/"]...set 
21d0: 70 61 74 68 6c 65 6e 20 5b 6c 6c 65 6e 67 74 68  pathlen [llength
21e0: 20 24 70 61 74 68 5d 0a 0a 09 09 61 72 72 61 79   $path]....array
21f0: 20 73 65 74 20 72 65 74 76 61 6c 20 5b 6c 69 73   set retval [lis
2200: 74 20 5f 63 68 69 6c 64 72 65 6e 20 73 69 74 65  t _children site
2210: 73 5d 0a 0a 09 09 69 66 20 7b 24 70 61 74 68 6c  s]....if {$pathl
2220: 65 6e 20 3e 20 30 7d 20 7b 0a 09 09 09 73 65 74  en > 0} {....set
2230: 20 72 65 74 76 61 6c 28 68 6f 73 74 6e 61 6d 65   retval(hostname
2240: 29 20 5b 6c 69 6e 64 65 78 20 24 70 61 74 68 20  ) [lindex $path 
2250: 30 5d 0a 09 09 09 73 65 74 20 72 65 74 76 61 6c  0]....set retval
2260: 28 5f 63 68 69 6c 64 72 65 6e 29 20 70 61 63 6b  (_children) pack
2270: 61 67 65 73 0a 0a 09 09 09 69 66 20 7b 24 70 61  ages.....if {$pa
2280: 74 68 6c 65 6e 20 3e 20 31 7d 20 7b 0a 09 09 09  thlen > 1} {....
2290: 09 73 65 74 20 70 61 63 6b 61 67 65 20 5b 6c 69  .set package [li
22a0: 6e 64 65 78 20 24 70 61 74 68 20 31 5d 0a 09 09  ndex $path 1]...
22b0: 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65  ..if {[string le
22c0: 6e 67 74 68 20 24 70 61 63 6b 61 67 65 5d 20 3d  ngth $package] =
22d0: 3d 20 22 34 30 22 20 26 26 20 5b 72 65 67 65 78  = "40" && [regex
22e0: 70 20 7b 5e 5b 61 2d 66 41 2d 46 30 2d 39 5d 2a  p {^[a-fA-F0-9]*
22f0: 24 7d 20 24 70 61 63 6b 61 67 65 5d 7d 20 7b 0a  $} $package]} {.
2300: 09 09 09 09 09 73 65 74 20 72 65 74 76 61 6c 28  .....set retval(
2310: 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 24 70  package_sha1) $p
2320: 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20  ackage......set 
2330: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
2340: 29 20 66 69 6c 65 73 0a 0a 09 09 09 09 09 69 66  ) files.......if
2350: 20 7b 24 70 61 74 68 6c 65 6e 20 3e 20 32 7d 20   {$pathlen > 2} 
2360: 7b 0a 09 09 09 09 09 09 73 65 74 20 72 65 74 76  {.......set retv
2370: 61 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b  al(file) [join [
2380: 6c 72 61 6e 67 65 20 24 70 61 74 68 20 32 20 65  lrange $path 2 e
2390: 6e 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09 7d 20  nd] "/"]......} 
23a0: 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 73 65 74  else {.......set
23b0: 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 22 22   retval(file) ""
23c0: 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 72 65  ......}.......re
23d0: 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20  turn [array get 
23e0: 72 65 74 76 61 6c 5d 0a 09 09 09 09 7d 20 65 6c  retval].....} el
23f0: 73 65 20 7b 0a 09 09 09 09 09 73 65 74 20 72 65  se {......set re
2400: 74 76 61 6c 28 70 61 63 6b 61 67 65 29 20 24 70  tval(package) $p
2410: 61 63 6b 61 67 65 0a 09 09 09 09 09 73 65 74 20  ackage......set 
2420: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
2430: 29 20 6f 73 2d 63 70 75 0a 09 09 09 09 7d 0a 0a  ) os-cpu.....}..
2440: 09 09 09 09 69 66 20 7b 24 70 61 74 68 6c 65 6e  ....if {$pathlen
2450: 20 3e 20 32 7d 20 7b 0a 09 09 09 09 09 73 65 74   > 2} {......set
2460: 20 6f 73 5f 63 70 75 20 5b 6c 69 6e 64 65 78 20   os_cpu [lindex 
2470: 24 70 61 74 68 20 32 5d 0a 09 09 09 09 09 73 65  $path 2]......se
2480: 74 20 6f 73 5f 63 70 75 20 5b 73 70 6c 69 74 20  t os_cpu [split 
2490: 24 6f 73 5f 63 70 75 20 22 2d 22 5d 0a 0a 09 09  $os_cpu "-"]....
24a0: 09 09 09 73 65 74 20 72 65 74 76 61 6c 28 6f 73  ...set retval(os
24b0: 29 20 5b 6c 69 6e 64 65 78 20 24 6f 73 5f 63 70  ) [lindex $os_cp
24c0: 75 20 30 5d 0a 09 09 09 09 09 73 65 74 20 72 65  u 0]......set re
24d0: 74 76 61 6c 28 63 70 75 29 20 5b 6c 69 6e 64 65  tval(cpu) [linde
24e0: 78 20 24 6f 73 5f 63 70 75 20 31 5d 0a 09 09 09  x $os_cpu 1]....
24f0: 09 09 73 65 74 20 72 65 74 76 61 6c 28 5f 63 68  ..set retval(_ch
2500: 69 6c 64 72 65 6e 29 20 76 65 72 73 69 6f 6e 73  ildren) versions
2510: 0a 0a 09 09 09 09 09 69 66 20 7b 24 70 61 74 68  .......if {$path
2520: 6c 65 6e 20 3e 20 33 7d 20 7b 0a 09 09 09 09 09  len > 3} {......
2530: 09 73 65 74 20 72 65 74 76 61 6c 28 76 65 72 73  .set retval(vers
2540: 69 6f 6e 29 20 5b 6c 69 6e 64 65 78 20 24 70 61  ion) [lindex $pa
2550: 74 68 20 33 5d 0a 09 09 09 09 09 09 73 65 74 20  th 3].......set 
2560: 72 65 74 76 61 6c 28 5f 63 68 69 6c 64 72 65 6e  retval(_children
2570: 29 20 66 69 6c 65 73 0a 0a 09 09 09 09 09 09 73  ) files........s
2580: 65 74 20 72 65 74 76 61 6c 28 70 61 63 6b 61 67  et retval(packag
2590: 65 5f 73 68 61 31 29 20 5b 3a 3a 61 70 70 66 73  e_sha1) [::appfs
25a0: 3a 3a 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b  ::db onecolumn {
25b0: 53 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f 4d  SELECT sha1 FROM
25c0: 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20   packages WHERE 
25d0: 68 6f 73 74 6e 61 6d 65 20 3d 20 24 72 65 74 76  hostname = $retv
25e0: 61 6c 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44  al(hostname) AND
25f0: 20 6f 73 20 3d 20 24 72 65 74 76 61 6c 28 6f 73   os = $retval(os
2600: 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d 20  ) AND cpuArch = 
2610: 24 72 65 74 76 61 6c 28 63 70 75 29 20 41 4e 44  $retval(cpu) AND
2620: 20 76 65 72 73 69 6f 6e 20 3d 20 24 72 65 74 76   version = $retv
2630: 61 6c 28 76 65 72 73 69 6f 6e 29 3b 7d 5d 0a 09  al(version);}]..
2640: 09 09 09 09 09 69 66 20 7b 24 72 65 74 76 61 6c  .....if {$retval
2650: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 20 3d  (package_sha1) =
2660: 3d 20 22 22 7d 20 7b 0a 09 09 09 09 09 09 09 72  = ""} {........r
2670: 65 74 75 72 6e 20 5b 6c 69 73 74 5d 0a 09 09 09  eturn [list]....
2680: 09 09 09 7d 0a 0a 09 09 09 09 09 09 69 66 20 7b  ...}........if {
2690: 24 70 61 74 68 6c 65 6e 20 3e 20 34 7d 20 7b 0a  $pathlen > 4} {.
26a0: 09 09 09 09 09 09 09 73 65 74 20 72 65 74 76 61  .......set retva
26b0: 6c 28 66 69 6c 65 29 20 5b 6a 6f 69 6e 20 5b 6c  l(file) [join [l
26c0: 72 61 6e 67 65 20 24 70 61 74 68 20 34 20 65 6e  range $path 4 en
26d0: 64 5d 20 22 2f 22 5d 0a 09 09 09 09 09 09 7d 20  d] "/"].......} 
26e0: 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 73 65  else {........se
26f0: 74 20 72 65 74 76 61 6c 28 66 69 6c 65 29 20 22  t retval(file) "
2700: 22 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d  ".......}......}
2710: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a  .....}....}...}.
2720: 0a 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79  ...return [array
2730: 20 67 65 74 20 72 65 74 76 61 6c 5d 0a 09 7d 0a   get retval]..}.
2740: 0a 09 70 72 6f 63 20 67 65 74 63 68 69 6c 64 72  ..proc getchildr
2750: 65 6e 20 7b 64 69 72 7d 20 7b 0a 09 09 61 72 72  en {dir} {...arr
2760: 61 79 20 73 65 74 20 70 61 74 68 69 6e 66 6f 20  ay set pathinfo 
2770: 5b 5f 70 61 72 73 65 70 61 74 68 20 24 64 69 72  [_parsepath $dir
2780: 5d 0a 0a 09 09 73 77 69 74 63 68 20 2d 2d 20 24  ]....switch -- $
2790: 70 61 74 68 69 6e 66 6f 28 5f 63 68 69 6c 64 72  pathinfo(_childr
27a0: 65 6e 29 20 7b 0a 09 09 09 22 73 69 74 65 73 22  en) {...."sites"
27b0: 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 5b 3a   {.....return [:
27c0: 3a 61 70 70 66 73 3a 3a 64 62 20 65 76 61 6c 20  :appfs::db eval 
27d0: 7b 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54  {SELECT DISTINCT
27e0: 20 68 6f 73 74 6e 61 6d 65 20 46 52 4f 4d 20 70   hostname FROM p
27f0: 61 63 6b 61 67 65 73 3b 7d 5d 0a 09 09 09 7d 0a  ackages;}]....}.
2800: 09 09 09 22 70 61 63 6b 61 67 65 73 22 20 7b 0a  ..."packages" {.
2810: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09  ....catch {.....
2820: 09 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69 6e 64  .::appfs::getind
2830: 65 78 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  ex $pathinfo(hos
2840: 74 6e 61 6d 65 29 0a 09 09 09 09 7d 0a 0a 09 09  tname).....}....
2850: 09 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66  ..return [::appf
2860: 73 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  s::db eval {SELE
2870: 43 54 20 44 49 53 54 49 4e 43 54 20 70 61 63 6b  CT DISTINCT pack
2880: 61 67 65 20 46 52 4f 4d 20 70 61 63 6b 61 67 65  age FROM package
2890: 73 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  s WHERE hostname
28a0: 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73   = $pathinfo(hos
28b0: 74 6e 61 6d 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09  tname);}]....}..
28c0: 09 09 22 6f 73 2d 63 70 75 22 20 7b 0a 09 09 09  .."os-cpu" {....
28d0: 09 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73  .return [::appfs
28e0: 3a 3a 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43  ::db eval {SELEC
28f0: 54 20 44 49 53 54 49 4e 43 54 20 6f 73 20 7c 7c  T DISTINCT os ||
2900: 20 22 2d 22 20 7c 7c 20 63 70 75 41 72 63 68 20   "-" || cpuArch 
2910: 46 52 4f 4d 20 70 61 63 6b 61 67 65 73 20 57 48  FROM packages WH
2920: 45 52 45 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24  ERE hostname = $
2930: 70 61 74 68 69 6e 66 6f 28 68 6f 73 74 6e 61 6d  pathinfo(hostnam
2940: 65 29 20 41 4e 44 20 70 61 63 6b 61 67 65 20 3d  e) AND package =
2950: 20 24 70 61 74 68 69 6e 66 6f 28 70 61 63 6b 61   $pathinfo(packa
2960: 67 65 29 3b 7d 5d 0a 09 09 09 7d 0a 09 09 09 22  ge);}]....}...."
2970: 76 65 72 73 69 6f 6e 73 22 20 7b 0a 09 09 09 09  versions" {.....
2980: 72 65 74 75 72 6e 20 5b 3a 3a 61 70 70 66 73 3a  return [::appfs:
2990: 3a 64 62 20 65 76 61 6c 20 7b 0a 09 09 09 09 09  :db eval {......
29a0: 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 54 20  SELECT DISTINCT 
29b0: 76 65 72 73 69 6f 6e 20 46 52 4f 4d 20 70 61 63  version FROM pac
29c0: 6b 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74  kages WHERE host
29d0: 6e 61 6d 65 20 3d 20 24 70 61 74 68 69 6e 66 6f  name = $pathinfo
29e0: 28 68 6f 73 74 6e 61 6d 65 29 20 41 4e 44 20 70  (hostname) AND p
29f0: 61 63 6b 61 67 65 20 3d 20 24 70 61 74 68 69 6e  ackage = $pathin
2a00: 66 6f 28 70 61 63 6b 61 67 65 29 20 41 4e 44 20  fo(package) AND 
2a10: 6f 73 20 3d 20 24 70 61 74 68 69 6e 66 6f 28 6f  os = $pathinfo(o
2a20: 73 29 20 41 4e 44 20 63 70 75 41 72 63 68 20 3d  s) AND cpuArch =
2a30: 20 24 70 61 74 68 69 6e 66 6f 28 63 70 75 29 3b   $pathinfo(cpu);
2a40: 0a 09 09 09 09 7d 5d 0a 09 09 09 7d 0a 09 09 09  .....}]....}....
2a50: 22 66 69 6c 65 73 22 20 7b 0a 09 09 09 09 63 61  "files" {.....ca
2a60: 74 63 68 20 7b 0a 09 09 09 09 09 3a 3a 61 70 70  tch {......::app
2a70: 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65  fs::getpkgmanife
2a80: 73 74 20 24 70 61 74 68 69 6e 66 6f 28 68 6f 73  st $pathinfo(hos
2a90: 74 6e 61 6d 65 29 20 24 70 61 74 68 69 6e 66 6f  tname) $pathinfo
2aa0: 28 70 61 63 6b 61 67 65 5f 73 68 61 31 29 0a 09  (package_sha1)..
2ab0: 09 09 09 7d 0a 0a 09 09 09 09 72 65 74 75 72 6e  ...}......return
2ac0: 20 5b 3a 3a 61 70 70 66 73 3a 3a 64 62 20 65 76   [::appfs::db ev
2ad0: 61 6c 20 7b 53 45 4c 45 43 54 20 44 49 53 54 49  al {SELECT DISTI
2ae0: 4e 43 54 20 66 69 6c 65 5f 6e 61 6d 65 20 46 52  NCT file_name FR
2af0: 4f 4d 20 66 69 6c 65 73 20 57 48 45 52 45 20 70  OM files WHERE p
2b00: 61 63 6b 61 67 65 5f 73 68 61 31 20 3d 20 24 70  ackage_sha1 = $p
2b10: 61 74 68 69 6e 66 6f 28 70 61 63 6b 61 67 65 5f  athinfo(package_
2b20: 73 68 61 31 29 20 41 4e 44 20 66 69 6c 65 5f 64  sha1) AND file_d
2b30: 69 72 65 63 74 6f 72 79 20 3d 20 24 70 61 74 68  irectory = $path
2b40: 69 6e 66 6f 28 66 69 6c 65 29 3b 7d 5d 0a 09 09  info(file);}]...
2b50: 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e  .}...}....return
2b60: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 49 6e   -code error "In
2b70: 76 61 6c 69 64 20 6f 72 20 75 6e 61 63 63 65 70  valid or unaccep
2b80: 74 61 62 6c 65 20 70 61 74 68 3a 20 24 64 69 72  table path: $dir
2b90: 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 61  "..}...proc geta
2ba0: 74 74 72 20 7b 70 61 74 68 7d 20 7b 0a 09 7d 0a  ttr {path} {..}.
2bb0: 0a 09 70 72 6f 63 20 6f 70 65 6e 70 61 74 68 20  ..proc openpath 
2bc0: 7b 70 61 74 68 20 6d 6f 64 65 7d 20 7b 0a 09 7d  {path mode} {..}
2bd0: 0a 7d 0a                                         .}.