Hex Artifact Content

Artifact a0bff8102801307943c98892d4bf02ea7045c2bd:


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 70 72 6f 63 20 5f 68 61 73 68 5f 73  0...proc _hash_s
00d0: 65 70 20 7b 68 61 73 68 20 7b 73 65 70 73 20 34  ep {hash {seps 4
00e0: 7d 7d 20 7b 0a 09 09 66 6f 72 20 7b 73 65 74 20  }} {...for {set 
00f0: 69 64 78 20 30 7d 20 7b 24 69 64 78 20 3c 20 24  idx 0} {$idx < $
0100: 73 65 70 73 7d 20 7b 69 6e 63 72 20 69 64 78 7d  seps} {incr idx}
0110: 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 72 65 74   {....append ret
0120: 76 61 6c 20 22 5b 73 74 72 69 6e 67 20 72 61 6e  val "[string ran
0130: 67 65 20 24 68 61 73 68 20 5b 65 78 70 72 20 7b  ge $hash [expr {
0140: 24 69 64 78 20 2a 20 32 7d 5d 20 5b 65 78 70 72  $idx * 2}] [expr
0150: 20 7b 28 24 69 64 78 20 2a 20 32 29 20 2b 20 31   {($idx * 2) + 1
0160: 7d 5d 5d 2f 22 0a 09 09 7d 0a 09 09 61 70 70 65  }]]/"...}...appe
0170: 6e 64 20 72 65 74 76 61 6c 20 22 5b 73 74 72 69  nd retval "[stri
0180: 6e 67 20 72 61 6e 67 65 20 24 68 61 73 68 20 5b  ng range $hash [
0190: 65 78 70 72 20 7b 24 69 64 78 20 2a 20 32 7d 5d  expr {$idx * 2}]
01a0: 20 65 6e 64 5d 22 0a 0a 09 09 72 65 74 75 72 6e   end]"....return
01b0: 20 24 72 65 74 76 61 6c 0a 09 7d 0a 0a 09 70 72   $retval..}...pr
01c0: 6f 63 20 5f 63 61 63 68 65 66 69 6c 65 20 7b 75  oc _cachefile {u
01d0: 72 6c 20 6b 65 79 20 7b 6b 65 79 49 73 48 61 73  rl key {keyIsHas
01e0: 68 20 31 7d 7d 20 7b 0a 09 09 73 65 74 20 66 69  h 1}} {...set fi
01f0: 6c 65 6b 65 79 20 24 6b 65 79 0a 09 09 69 66 20  lekey $key...if 
0200: 7b 24 6b 65 79 49 73 48 61 73 68 7d 20 7b 0a 09  {$keyIsHash} {..
0210: 09 09 73 65 74 20 66 69 6c 65 6b 65 79 20 5b 5f  ..set filekey [_
0220: 68 61 73 68 5f 73 65 70 20 24 66 69 6c 65 6b 65  hash_sep $fileke
0230: 79 5d 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66 69  y]...}....set fi
0240: 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a  le [file join $:
0250: 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72  :appfs::cachedir
0260: 20 24 66 69 6c 65 6b 65 79 5d 0a 0a 09 09 66 69   $filekey]....fi
0270: 6c 65 20 6d 6b 64 69 72 20 5b 66 69 6c 65 20 64  le mkdir [file d
0280: 69 72 6e 61 6d 65 20 24 66 69 6c 65 5d 0a 0a 09  irname $file]...
0290: 09 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73  .if {![file exis
02a0: 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a 09 09 09  ts $file]} {....
02b0: 73 65 74 20 74 6d 70 66 69 6c 65 20 22 24 7b 66  set tmpfile "${f
02c0: 69 6c 65 7d 2e 6e 65 77 22 0a 0a 09 09 09 73 65  ile}.new".....se
02d0: 74 20 66 64 20 5b 6f 70 65 6e 20 24 74 6d 70 66  t fd [open $tmpf
02e0: 69 6c 65 20 22 77 22 5d 0a 09 09 09 66 63 6f 6e  ile "w"]....fcon
02f0: 66 69 67 75 72 65 20 24 66 64 20 2d 74 72 61 6e  figure $fd -tran
0300: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 0a  slation binary..
0310: 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 73  ...catch {.....s
0320: 65 74 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70  et token [::http
0330: 3a 3a 67 65 74 75 72 6c 20 24 75 72 6c 20 2d 63  ::geturl $url -c
0340: 68 61 6e 6e 65 6c 20 24 66 64 20 2d 62 69 6e 61  hannel $fd -bina
0350: 72 79 20 74 72 75 65 5d 0a 09 09 09 7d 0a 0a 09  ry true]....}...
0360: 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  ..if {[info exis
0370: 74 73 20 74 6f 6b 65 6e 5d 7d 20 7b 0a 09 09 09  ts token]} {....
0380: 09 73 65 74 20 6e 63 6f 64 65 20 5b 3a 3a 68 74  .set ncode [::ht
0390: 74 70 3a 3a 6e 63 6f 64 65 20 24 74 6f 6b 65 6e  tp::ncode $token
03a0: 5d 0a 09 09 09 09 3a 3a 68 74 74 70 3a 3a 72 65  ].....::http::re
03b0: 73 65 74 20 24 74 6f 6b 65 6e 0a 09 09 09 7d 20  set $token....} 
03c0: 65 6c 73 65 20 7b 0a 09 09 09 09 73 65 74 20 6e  else {.....set n
03d0: 63 6f 64 65 20 22 39 30 30 22 0a 09 09 09 7d 0a  code "900"....}.
03e0: 0a 09 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09  ....close $fd...
03f0: 09 09 69 66 20 7b 24 6b 65 79 49 73 48 61 73 68  ..if {$keyIsHash
0400: 7d 20 7b 0a 09 09 09 09 73 65 74 20 68 61 73 68  } {.....set hash
0410: 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72   [string tolower
0420: 20 5b 73 68 61 31 3a 3a 73 68 61 31 20 2d 68 65   [sha1::sha1 -he
0430: 78 20 2d 66 69 6c 65 20 24 74 6d 70 66 69 6c 65  x -file $tmpfile
0440: 5d 5d 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ]]....} else {..
0450: 09 09 09 73 65 74 20 68 61 73 68 20 24 6b 65 79  ...set hash $key
0460: 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 6e  ....}.....if {$n
0470: 63 6f 64 65 20 3d 3d 20 22 32 30 30 22 20 26 26  code == "200" &&
0480: 20 24 68 61 73 68 20 3d 3d 20 24 6b 65 79 7d 20   $hash == $key} 
0490: 7b 0a 09 09 09 09 66 69 6c 65 20 72 65 6e 61 6d  {.....file renam
04a0: 65 20 2d 66 6f 72 63 65 20 2d 2d 20 24 74 6d 70  e -force -- $tmp
04b0: 66 69 6c 65 20 24 66 69 6c 65 0a 09 09 09 7d 20  file $file....} 
04c0: 65 6c 73 65 20 7b 0a 09 09 09 09 66 69 6c 65 20  else {.....file 
04d0: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 2d 2d  delete -force --
04e0: 20 24 74 6d 70 66 69 6c 65 0a 09 09 09 7d 0a 09   $tmpfile....}..
04f0: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 66 69  .}....return $fi
0500: 6c 65 0a 09 7d 0a 0a 0a 09 70 72 6f 63 20 5f 69  le..}....proc _i
0510: 73 48 61 73 68 20 7b 76 61 6c 75 65 7d 20 7b 0a  sHash {value} {.
0520: 09 09 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72  ..set value [str
0530: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 76 61 6c  ing tolower $val
0540: 75 65 5d 0a 0a 09 09 69 66 20 7b 5b 73 74 72 69  ue]....if {[stri
0550: 6e 67 20 6c 65 6e 67 74 68 20 24 76 61 6c 75 65  ng length $value
0560: 5d 20 21 3d 20 34 30 7d 20 7b 0a 09 09 09 72 65  ] != 40} {....re
0570: 74 75 72 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a  turn false...}..
0580: 09 09 69 66 20 7b 21 5b 72 65 67 65 78 70 20 7b  ..if {![regexp {
0590: 5e 5b 30 2d 39 61 2d 66 5d 2a 24 7d 20 24 76 61  ^[0-9a-f]*$} $va
05a0: 6c 75 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75 72  lue]} {....retur
05b0: 6e 20 66 61 6c 73 65 0a 09 09 7d 0a 0a 09 09 72  n false...}....r
05c0: 65 74 75 72 6e 20 74 72 75 65 0a 09 7d 0a 0a 09  eturn true..}...
05d0: 70 72 6f 63 20 5f 64 62 20 7b 61 72 67 73 7d 20  proc _db {args} 
05e0: 7b 0a 09 09 72 65 74 75 72 6e 20 5b 75 70 6c 65  {...return [uple
05f0: 76 65 6c 20 31 20 5b 6c 69 73 74 20 3a 3a 61 70  vel 1 [list ::ap
0600: 70 66 73 3a 3a 64 62 20 7b 2a 7d 24 61 72 67 73  pfs::db {*}$args
0610: 5d 5d 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f  ]]..}...proc _no
0620: 72 6d 61 6c 69 7a 65 4f 53 20 7b 6f 73 7d 20 7b  rmalizeOS {os} {
0630: 0a 09 09 73 65 74 20 6f 73 20 5b 73 74 72 69 6e  ...set os [strin
0640: 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74 72 69 6e  g tolower [strin
0650: 67 20 74 72 69 6d 20 24 6f 73 5d 5d 0a 0a 09 09  g trim $os]]....
0660: 73 77 69 74 63 68 20 2d 2d 20 24 6f 73 20 7b 0a  switch -- $os {.
0670: 09 09 09 22 6c 69 6e 75 78 22 20 2d 20 22 66 72  ..."linux" - "fr
0680: 65 65 62 73 64 22 20 2d 20 22 6f 70 65 6e 62 73  eebsd" - "openbs
0690: 64 22 20 2d 20 22 6e 65 74 62 73 64 22 20 7b 0a  d" - "netbsd" {.
06a0: 09 09 09 09 72 65 74 75 72 6e 20 24 6f 73 0a 09  ....return $os..
06b0: 09 09 7d 0a 09 09 09 22 73 75 6e 6f 73 22 20 7b  ..}...."sunos" {
06c0: 0a 09 09 09 09 72 65 74 75 72 6e 20 22 73 6f 6c  .....return "sol
06d0: 61 72 69 73 22 0a 09 09 09 7d 0a 09 09 7d 0a 0a  aris"....}...}..
06e0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65  ..return -code e
06f0: 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20  rror "Unable to 
0700: 6e 6f 72 6d 61 6c 69 7a 65 20 4f 53 3a 20 24 6f  normalize OS: $o
0710: 73 22 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 6e 6f  s"..}...proc _no
0720: 72 6d 61 6c 69 7a 65 43 50 55 20 7b 63 70 75 7d  rmalizeCPU {cpu}
0730: 20 7b 0a 09 09 73 65 74 20 63 70 75 20 5b 73 74   {...set cpu [st
0740: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 74  ring tolower [st
0750: 72 69 6e 67 20 74 72 69 6d 20 24 63 70 75 5d 5d  ring trim $cpu]]
0760: 0a 0a 09 09 73 77 69 74 63 68 20 2d 67 6c 6f 62  ....switch -glob
0770: 20 2d 2d 20 24 63 70 75 20 7b 0a 09 09 09 22 69   -- $cpu {...."i
0780: 3f 38 36 22 20 7b 0a 09 09 09 09 72 65 74 75 72  ?86" {.....retur
0790: 6e 20 22 69 78 38 36 22 0a 09 09 09 7d 0a 09 09  n "ix86"....}...
07a0: 09 22 78 38 36 5f 36 34 22 20 7b 0a 09 09 09 09  ."x86_64" {.....
07b0: 72 65 74 75 72 6e 20 24 63 70 75 0a 09 09 09 7d  return $cpu....}
07c0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 2d  ...}....return -
07d0: 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 61 62  code error "Unab
07e0: 6c 65 20 74 6f 20 6e 6f 72 6d 61 6c 69 7a 65 20  le to normalize 
07f0: 43 50 55 3a 20 24 63 70 75 22 0a 09 7d 0a 0a 09  CPU: $cpu"..}...
0800: 70 72 6f 63 20 69 6e 69 74 20 7b 7d 20 7b 0a 09  proc init {} {..
0810: 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  .if {[info exist
0820: 73 20 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f  s ::appfs::init_
0830: 63 61 6c 6c 65 64 5d 7d 20 7b 0a 09 09 09 72 65  called]} {....re
0840: 74 75 72 6e 0a 09 09 7d 0a 0a 09 09 73 65 74 20  turn...}....set 
0850: 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74 5f 63 61  ::appfs::init_ca
0860: 6c 6c 65 64 20 31 0a 0a 09 09 69 66 20 7b 21 5b  lled 1....if {![
0870: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 61 70  info exists ::ap
0880: 70 66 73 3a 3a 64 62 5d 7d 20 7b 0a 09 09 09 66  pfs::db]} {....f
0890: 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a 61 70 70  ile mkdir $::app
08a0: 66 73 3a 3a 63 61 63 68 65 64 69 72 0a 0a 09 09  fs::cachedir....
08b0: 09 73 71 6c 69 74 65 33 20 3a 3a 61 70 70 66 73  .sqlite3 ::appfs
08c0: 3a 3a 64 62 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  ::db [file join 
08d0: 24 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64  $::appfs::cached
08e0: 69 72 20 63 61 63 68 65 2e 64 62 5d 0a 09 09 7d  ir cache.db]...}
08f0: 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 61 62  ....# Create tab
0900: 6c 65 73 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b  les..._db eval {
0910: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
0920: 4e 4f 54 20 45 58 49 53 54 53 20 73 69 74 65 73  NOT EXISTS sites
0930: 28 68 6f 73 74 6e 61 6d 65 20 50 52 49 4d 41 52  (hostname PRIMAR
0940: 59 20 4b 45 59 2c 20 6c 61 73 74 55 70 64 61 74  Y KEY, lastUpdat
0950: 65 2c 20 74 74 6c 29 3b 7d 0a 09 09 5f 64 62 20  e, ttl);}..._db 
0960: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42  eval {CREATE TAB
0970: 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53  LE IF NOT EXISTS
0980: 20 70 61 63 6b 61 67 65 73 28 68 6f 73 74 6e 61   packages(hostna
0990: 6d 65 2c 20 73 68 61 31 2c 20 70 61 63 6b 61 67  me, sha1, packag
09a0: 65 2c 20 76 65 72 73 69 6f 6e 2c 20 6f 73 2c 20  e, version, os, 
09b0: 63 70 75 41 72 63 68 2c 20 69 73 4c 61 74 65 73  cpuArch, isLates
09c0: 74 2c 20 68 61 76 65 4d 61 6e 69 66 65 73 74 29  t, haveManifest)
09d0: 3b 7d 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b 43  ;}..._db eval {C
09e0: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
09f0: 4f 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 28  OT EXISTS files(
0a00: 70 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 74 79  package_sha1, ty
0a10: 70 65 2c 20 74 69 6d 65 2c 20 73 6f 75 72 63 65  pe, time, source
0a20: 2c 20 73 69 7a 65 2c 20 70 65 72 6d 73 2c 20 66  , size, perms, f
0a30: 69 6c 65 5f 73 68 61 31 2c 20 66 69 6c 65 5f 6e  ile_sha1, file_n
0a40: 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72 65 63 74  ame, file_direct
0a50: 6f 72 79 29 3b 7d 0a 0a 09 09 23 20 43 72 65 61  ory);}....# Crea
0a60: 74 65 20 69 6e 64 65 78 65 73 0a 09 09 5f 64 62  te indexes..._db
0a70: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 49 4e   eval {CREATE IN
0a80: 44 45 58 20 49 46 20 4e 4f 54 20 45 58 49 53 54  DEX IF NOT EXIST
0a90: 53 20 73 69 74 65 73 5f 69 6e 64 65 78 20 4f 4e  S sites_index ON
0aa0: 20 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d 65   sites (hostname
0ab0: 29 3b 7d 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b  );}..._db eval {
0ac0: 43 52 45 41 54 45 20 49 4e 44 45 58 20 49 46 20  CREATE INDEX IF 
0ad0: 4e 4f 54 20 45 58 49 53 54 53 20 70 61 63 6b 61  NOT EXISTS packa
0ae0: 67 65 73 5f 69 6e 64 65 78 20 4f 4e 20 70 61 63  ges_index ON pac
0af0: 6b 61 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c  kages (hostname,
0b00: 20 70 61 63 6b 61 67 65 2c 20 76 65 72 73 69 6f   package, versio
0b10: 6e 2c 20 6f 73 2c 20 63 70 75 41 72 63 68 29 3b  n, os, cpuArch);
0b20: 7d 0a 09 09 5f 64 62 20 65 76 61 6c 20 7b 43 52  }..._db eval {CR
0b30: 45 41 54 45 20 49 4e 44 45 58 20 49 46 20 4e 4f  EATE INDEX IF NO
0b40: 54 20 45 58 49 53 54 53 20 66 69 6c 65 73 5f 69  T EXISTS files_i
0b50: 6e 64 65 78 20 4f 4e 20 66 69 6c 65 73 20 28 70  ndex ON files (p
0b60: 61 63 6b 61 67 65 5f 73 68 61 31 2c 20 66 69 6c  ackage_sha1, fil
0b70: 65 5f 6e 61 6d 65 2c 20 66 69 6c 65 5f 64 69 72  e_name, file_dir
0b80: 65 63 74 6f 72 79 29 3b 7d 0a 09 7d 0a 0a 09 70  ectory);}..}...p
0b90: 72 6f 63 20 64 6f 77 6e 6c 6f 61 64 20 7b 68 6f  roc download {ho
0ba0: 73 74 6e 61 6d 65 20 68 61 73 68 20 7b 6d 65 74  stname hash {met
0bb0: 68 6f 64 20 73 68 61 31 7d 7d 20 7b 0a 09 09 73  hod sha1}} {...s
0bc0: 65 74 20 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24  et url "http://$
0bd0: 68 6f 73 74 6e 61 6d 65 2f 61 70 70 66 73 2f 24  hostname/appfs/$
0be0: 6d 65 74 68 6f 64 2f 24 68 61 73 68 22 0a 09 09  method/$hash"...
0bf0: 73 65 74 20 66 69 6c 65 20 5b 5f 63 61 63 68 65  set file [_cache
0c00: 66 69 6c 65 20 24 75 72 6c 20 24 68 61 73 68 5d  file $url $hash]
0c10: 0a 0a 09 09 69 66 20 7b 21 5b 66 69 6c 65 20 65  ....if {![file e
0c20: 78 69 73 74 73 20 24 66 69 6c 65 5d 7d 20 7b 0a  xists $file]} {.
0c30: 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20  ...return -code 
0c40: 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f  error "Unable to
0c50: 20 66 65 74 63 68 22 0a 09 09 7d 0a 0a 09 09 72   fetch"...}....r
0c60: 65 74 75 72 6e 20 24 66 69 6c 65 0a 09 7d 0a 0a  eturn $file..}..
0c70: 09 70 72 6f 63 20 67 65 74 69 6e 64 65 78 20 7b  .proc getindex {
0c80: 68 6f 73 74 6e 61 6d 65 7d 20 7b 0a 09 09 73 65  hostname} {...se
0c90: 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65 63  t now [clock sec
0ca0: 6f 6e 64 73 5d 0a 0a 09 09 73 65 74 20 6c 61 73  onds]....set las
0cb0: 74 55 70 64 61 74 65 73 20 5b 5f 64 62 20 65 76  tUpdates [_db ev
0cc0: 61 6c 20 7b 53 45 4c 45 43 54 20 6c 61 73 74 55  al {SELECT lastU
0cd0: 70 64 61 74 65 2c 20 74 74 6c 20 46 52 4f 4d 20  pdate, ttl FROM 
0ce0: 73 69 74 65 73 20 57 48 45 52 45 20 68 6f 73 74  sites WHERE host
0cf0: 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65  name = $hostname
0d00: 20 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 69 66   LIMIT 1;}]...if
0d10: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 61 73 74   {[llength $last
0d20: 55 70 64 61 74 65 73 5d 20 3d 3d 20 30 7d 20 7b  Updates] == 0} {
0d30: 0a 09 09 09 73 65 74 20 6c 61 73 74 55 70 64 61  ....set lastUpda
0d40: 74 65 20 30 0a 09 09 09 73 65 74 20 74 74 6c 20  te 0....set ttl 
0d50: 30 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  0...} else {....
0d60: 73 65 74 20 6c 61 73 74 55 70 64 61 74 65 20 5b  set lastUpdate [
0d70: 6c 69 6e 64 65 78 20 24 6c 61 73 74 55 70 64 61  lindex $lastUpda
0d80: 74 65 73 20 30 5d 0a 09 09 09 73 65 74 20 74 74  tes 0]....set tt
0d90: 6c 20 5b 6c 69 6e 64 65 78 20 24 6c 61 73 74 55  l [lindex $lastU
0da0: 70 64 61 74 65 73 20 31 5d 0a 09 09 7d 0a 0a 09  pdates 1]...}...
0db0: 09 69 66 20 7b 24 6e 6f 77 20 3c 20 28 24 6c 61  .if {$now < ($la
0dc0: 73 74 55 70 64 61 74 65 20 2b 20 24 74 74 6c 29  stUpdate + $ttl)
0dd0: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 43 4f  } {....return CO
0de0: 4d 50 4c 45 54 45 0a 09 09 7d 0a 0a 09 09 69 66  MPLETE...}....if
0df0: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
0e00: 22 2a 5c 5b 2f 7e 5c 5d 2a 22 20 24 68 6f 73 74  "*\[/~\]*" $host
0e10: 6e 61 6d 65 5d 7d 20 7b 0a 09 09 09 72 65 74 75  name]} {....retu
0e20: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
0e30: 49 6e 76 61 6c 69 64 20 68 6f 73 74 6e 61 6d 65  Invalid hostname
0e40: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 75 72 6c  "...}....set url
0e50: 20 22 68 74 74 70 3a 2f 2f 24 68 6f 73 74 6e 61   "http://$hostna
0e60: 6d 65 2f 61 70 70 66 73 2f 69 6e 64 65 78 22 0a  me/appfs/index".
0e70: 0a 09 09 63 61 74 63 68 20 7b 0a 09 09 09 73 65  ...catch {....se
0e80: 74 20 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a  t token [::http:
0e90: 3a 67 65 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09  :geturl $url]...
0ea0: 09 69 66 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63  .if {[::http::nc
0eb0: 6f 64 65 20 24 74 6f 6b 65 6e 5d 20 3d 3d 20 22  ode $token] == "
0ec0: 32 30 30 22 7d 20 7b 0a 09 09 09 09 73 65 74 20  200"} {.....set 
0ed0: 69 6e 64 65 78 68 61 73 68 5f 64 61 74 61 20 5b  indexhash_data [
0ee0: 3a 3a 68 74 74 70 3a 3a 64 61 74 61 20 24 74 6f  ::http::data $to
0ef0: 6b 65 6e 5d 0a 09 09 09 7d 0a 09 09 09 3a 3a 68  ken]....}....::h
0f00: 74 74 70 3a 3a 72 65 73 65 74 20 24 74 6f 6b 65  ttp::reset $toke
0f10: 6e 0a 09 09 09 24 74 6f 6b 65 6e 20 63 6c 65 61  n....$token clea
0f20: 6e 75 70 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21  nup...}....if {!
0f30: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69 6e 64  [info exists ind
0f40: 65 78 68 61 73 68 5f 64 61 74 61 5d 7d 20 7b 0a  exhash_data]} {.
0f50: 09 09 09 23 20 43 61 63 68 65 20 74 68 69 73 20  ...# Cache this 
0f60: 72 65 73 75 6c 74 20 66 6f 72 20 36 30 20 73 65  result for 60 se
0f70: 63 6f 6e 64 73 0a 09 09 09 5f 64 62 20 65 76 61  conds...._db eva
0f80: 6c 20 7b 49 4e 53 45 52 54 20 4f 52 20 52 45 50  l {INSERT OR REP
0f90: 4c 41 43 45 20 49 4e 54 4f 20 73 69 74 65 73 20  LACE INTO sites 
0fa0: 28 68 6f 73 74 6e 61 6d 65 2c 20 6c 61 73 74 55  (hostname, lastU
0fb0: 70 64 61 74 65 2c 20 74 74 6c 29 20 56 41 4c 55  pdate, ttl) VALU
0fc0: 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24  ES ($hostname, $
0fd0: 6e 6f 77 2c 20 24 3a 3a 61 70 70 66 73 3a 3a 6e  now, $::appfs::n
0fe0: 74 74 6c 29 3b 7d 0a 0a 09 09 09 72 65 74 75 72  ttl);}.....retur
0ff0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55  n -code error "U
1000: 6e 61 62 6c 65 20 74 6f 20 66 65 74 63 68 20 24  nable to fetch $
1010: 75 72 6c 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20  url"...}....set 
1020: 69 6e 64 65 78 68 61 73 68 20 5b 6c 69 6e 64 65  indexhash [linde
1030: 78 20 5b 73 70 6c 69 74 20 24 69 6e 64 65 78 68  x [split $indexh
1040: 61 73 68 5f 64 61 74 61 20 22 2c 22 5d 20 30 5d  ash_data ","] 0]
1050: 0a 0a 09 09 69 66 20 7b 21 5b 5f 69 73 48 61 73  ....if {![_isHas
1060: 68 20 24 69 6e 64 65 78 68 61 73 68 5d 7d 20 7b  h $indexhash]} {
1070: 0a 09 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65  ....return -code
1080: 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20   error "Invalid 
1090: 68 61 73 68 3a 20 24 69 6e 64 65 78 68 61 73 68  hash: $indexhash
10a0: 22 0a 09 09 7d 0a 0a 09 09 73 65 74 20 66 69 6c  "...}....set fil
10b0: 65 20 5b 64 6f 77 6e 6c 6f 61 64 20 24 68 6f 73  e [download $hos
10c0: 74 6e 61 6d 65 20 24 69 6e 64 65 78 68 61 73 68  tname $indexhash
10d0: 5d 0a 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e  ]...set fd [open
10e0: 20 24 66 69 6c 65 5d 0a 09 09 73 65 74 20 64 61   $file]...set da
10f0: 74 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 09 09  ta [read $fd]...
1100: 63 6c 6f 73 65 20 24 66 64 0a 0a 09 09 73 65 74  close $fd....set
1110: 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73 20 5b   curr_packages [
1120: 6c 69 73 74 5d 0a 09 09 66 6f 72 65 61 63 68 20  list]...foreach 
1130: 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 64 61 74  line [split $dat
1140: 61 20 22 5c 6e 22 5d 20 7b 0a 09 09 09 73 65 74  a "\n"] {....set
1150: 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 72   line [string tr
1160: 69 6d 20 24 6c 69 6e 65 5d 0a 0a 09 09 09 69 66  im $line].....if
1170: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
1180: 22 2a 2f 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b 0a  "*/*" $line]} {.
1190: 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09  ....continue....
11a0: 7d 0a 0a 09 09 09 69 66 20 7b 24 6c 69 6e 65 20  }.....if {$line 
11b0: 3d 3d 20 22 22 7d 20 7b 0a 09 09 09 09 63 6f 6e  == ""} {.....con
11c0: 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 09 73  tinue....}.....s
11d0: 65 74 20 77 6f 72 6b 20 5b 73 70 6c 69 74 20 24  et work [split $
11e0: 6c 69 6e 65 20 22 2c 22 5d 0a 0a 09 09 09 75 6e  line ","].....un
11f0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
1200: 70 6b 67 49 6e 66 6f 0a 09 09 09 73 65 74 20 70  pkgInfo....set p
1210: 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29 20  kgInfo(package) 
1220: 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 30   [lindex $work 0
1230: 5d 0a 09 09 09 73 65 74 20 70 6b 67 49 6e 66 6f  ]....set pkgInfo
1240: 28 76 65 72 73 69 6f 6e 29 20 20 5b 6c 69 6e 64  (version)  [lind
1250: 65 78 20 24 77 6f 72 6b 20 31 5d 0a 09 09 09 73  ex $work 1]....s
1260: 65 74 20 70 6b 67 49 6e 66 6f 28 6f 73 29 20 20  et pkgInfo(os)  
1270: 20 20 20 20 20 5b 5f 6e 6f 72 6d 61 6c 69 7a 65       [_normalize
1280: 4f 53 20 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b  OS [lindex $work
1290: 20 32 5d 5d 0a 09 09 09 73 65 74 20 70 6b 67 49   2]]....set pkgI
12a0: 6e 66 6f 28 63 70 75 41 72 63 68 29 20 20 5b 5f  nfo(cpuArch)  [_
12b0: 6e 6f 72 6d 61 6c 69 7a 65 43 50 55 20 5b 6c 69  normalizeCPU [li
12c0: 6e 64 65 78 20 24 77 6f 72 6b 20 33 5d 5d 0a 09  ndex $work 3]]..
12d0: 09 09 73 65 74 20 70 6b 67 49 6e 66 6f 28 68 61  ..set pkgInfo(ha
12e0: 73 68 29 20 20 20 20 20 5b 73 74 72 69 6e 67 20  sh)     [string 
12f0: 74 6f 6c 6f 77 65 72 20 5b 6c 69 6e 64 65 78 20  tolower [lindex 
1300: 24 77 6f 72 6b 20 34 5d 5d 0a 09 09 09 73 65 74  $work 4]]....set
1310: 20 70 6b 67 49 6e 66 6f 28 68 61 73 68 5f 74 79   pkgInfo(hash_ty
1320: 70 65 29 20 22 73 68 61 31 22 0a 09 09 09 73 65  pe) "sha1"....se
1330: 74 20 70 6b 67 49 6e 66 6f 28 69 73 4c 61 74 65  t pkgInfo(isLate
1340: 73 74 29 20 5b 65 78 70 72 20 7b 21 21 5b 6c 69  st) [expr {!![li
1350: 6e 64 65 78 20 24 77 6f 72 6b 20 35 5d 7d 5d 0a  ndex $work 5]}].
1360: 0a 09 09 09 69 66 20 7b 21 5b 5f 69 73 48 61 73  ....if {![_isHas
1370: 68 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29  h $pkgInfo(hash)
1380: 5d 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75  ]} {.....continu
1390: 65 0a 09 09 09 7d 0a 0a 09 09 09 6c 61 70 70 65  e....}.....lappe
13a0: 6e 64 20 63 75 72 72 5f 70 61 63 6b 61 67 65 73  nd curr_packages
13b0: 20 24 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 0a   $pkgInfo(hash).
13c0: 0a 09 09 09 23 20 44 6f 20 6e 6f 74 20 64 6f 20  ....# Do not do 
13d0: 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 77  any additional w
13e0: 6f 72 6b 20 69 66 20 77 65 20 61 6c 72 65 61 64  ork if we alread
13f0: 79 20 68 61 76 65 20 74 68 69 73 20 70 61 63 6b  y have this pack
1400: 61 67 65 0a 09 09 09 73 65 74 20 65 78 69 73 74  age....set exist
1410: 69 6e 67 5f 70 61 63 6b 61 67 65 73 20 5b 5f 64  ing_packages [_d
1420: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 70  b eval {SELECT p
1430: 61 63 6b 61 67 65 20 46 52 4f 4d 20 70 61 63 6b  ackage FROM pack
1440: 61 67 65 73 20 57 48 45 52 45 20 68 6f 73 74 6e  ages WHERE hostn
1450: 61 6d 65 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20  ame = $hostname 
1460: 41 4e 44 20 73 68 61 31 20 3d 20 24 70 6b 67 49  AND sha1 = $pkgI
1470: 6e 66 6f 28 68 61 73 68 29 3b 7d 5d 0a 09 09 09  nfo(hash);}]....
1480: 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78  if {[lsearch -ex
1490: 61 63 74 20 24 65 78 69 73 74 69 6e 67 5f 70 61  act $existing_pa
14a0: 63 6b 61 67 65 73 20 24 70 6b 67 49 6e 66 6f 28  ckages $pkgInfo(
14b0: 70 61 63 6b 61 67 65 29 5d 20 21 3d 20 2d 31 7d  package)] != -1}
14c0: 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a   {.....continue.
14d0: 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 24 70 6b  ...}.....if {$pk
14e0: 67 49 6e 66 6f 28 69 73 4c 61 74 65 73 74 29 7d  gInfo(isLatest)}
14f0: 20 7b 0a 09 09 09 09 5f 64 62 20 65 76 61 6c 20   {....._db eval 
1500: 7b 55 50 44 41 54 45 20 70 61 63 6b 61 67 65 73  {UPDATE packages
1510: 20 53 45 54 20 69 73 4c 61 74 65 73 74 20 3d 20   SET isLatest = 
1520: 30 20 57 48 45 52 45 20 68 6f 73 74 6e 61 6d 65  0 WHERE hostname
1530: 20 3d 20 24 68 6f 73 74 6e 61 6d 65 20 41 4e 44   = $hostname AND
1540: 20 70 61 63 6b 61 67 65 20 3d 20 24 70 6b 67 49   package = $pkgI
1550: 6e 66 6f 28 24 70 61 63 6b 61 67 65 29 20 41 4e  nfo($package) AN
1560: 44 20 6f 73 20 3d 20 24 70 6b 67 49 6e 66 6f 28  D os = $pkgInfo(
1570: 24 70 61 63 6b 61 67 65 29 20 41 4e 44 20 63 70  $package) AND cp
1580: 75 41 72 63 68 20 3d 20 24 70 6b 67 49 6e 66 6f  uArch = $pkgInfo
1590: 28 63 70 75 41 72 63 68 29 3b 7d 0a 09 09 09 7d  (cpuArch);}....}
15a0: 0a 0a 09 09 09 5f 64 62 20 65 76 61 6c 20 7b 49  ....._db eval {I
15b0: 4e 53 45 52 54 20 49 4e 54 4f 20 70 61 63 6b 61  NSERT INTO packa
15c0: 67 65 73 20 28 68 6f 73 74 6e 61 6d 65 2c 20 73  ges (hostname, s
15d0: 68 61 31 2c 20 70 61 63 6b 61 67 65 2c 20 76 65  ha1, package, ve
15e0: 72 73 69 6f 6e 2c 20 6f 73 2c 20 63 70 75 41 72  rsion, os, cpuAr
15f0: 63 68 2c 20 69 73 4c 61 74 65 73 74 2c 20 68 61  ch, isLatest, ha
1600: 76 65 4d 61 6e 69 66 65 73 74 29 20 56 41 4c 55  veManifest) VALU
1610: 45 53 20 28 24 68 6f 73 74 6e 61 6d 65 2c 20 24  ES ($hostname, $
1620: 70 6b 67 49 6e 66 6f 28 68 61 73 68 29 2c 20 24  pkgInfo(hash), $
1630: 70 6b 67 49 6e 66 6f 28 70 61 63 6b 61 67 65 29  pkgInfo(package)
1640: 2c 20 24 70 6b 67 49 6e 66 6f 28 76 65 72 73 69  , $pkgInfo(versi
1650: 6f 6e 29 2c 20 24 70 6b 67 49 6e 66 6f 28 6f 73  on), $pkgInfo(os
1660: 29 2c 20 24 70 6b 67 49 6e 66 6f 28 63 70 75 41  ), $pkgInfo(cpuA
1670: 72 63 68 29 2c 20 24 70 6b 67 49 6e 66 6f 28 69  rch), $pkgInfo(i
1680: 73 4c 61 74 65 73 74 29 2c 20 30 29 3b 7d 0a 09  sLatest), 0);}..
1690: 09 7d 0a 0a 09 09 23 20 4c 6f 6f 6b 20 66 6f 72  .}....# Look for
16a0: 20 70 61 63 6b 61 67 65 73 20 74 68 61 74 20 68   packages that h
16b0: 61 76 65 20 62 65 65 6e 20 64 65 6c 65 74 65 64  ave been deleted
16c0: 0a 09 09 73 65 74 20 66 6f 75 6e 64 5f 70 61 63  ...set found_pac
16d0: 6b 61 67 65 73 20 5b 5f 64 62 20 65 76 61 6c 20  kages [_db eval 
16e0: 7b 53 45 4c 45 43 54 20 73 68 61 31 20 46 52 4f  {SELECT sha1 FRO
16f0: 4d 20 70 61 63 6b 61 67 65 73 20 57 48 45 52 45  M packages WHERE
1700: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73   hostname = $hos
1710: 74 6e 61 6d 65 3b 7d 5d 0a 09 09 66 6f 72 65 61  tname;}]...forea
1720: 63 68 20 70 61 63 6b 61 67 65 20 24 66 6f 75 6e  ch package $foun
1730: 64 5f 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09  d_packages {....
1740: 73 65 74 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67  set found_packag
1750: 65 73 5f 61 72 72 28 24 70 61 63 6b 61 67 65 29  es_arr($package)
1760: 20 31 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63   1...}....foreac
1770: 68 20 70 61 63 6b 61 67 65 20 24 63 75 72 72 5f  h package $curr_
1780: 70 61 63 6b 61 67 65 73 20 7b 0a 09 09 09 75 6e  packages {....un
1790: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
17a0: 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f 61  found_packages_a
17b0: 72 72 28 24 70 61 63 6b 61 67 65 29 0a 09 09 7d  rr($package)...}
17c0: 0a 0a 09 09 66 6f 72 65 61 63 68 20 70 61 63 6b  ....foreach pack
17d0: 61 67 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  age [array names
17e0: 20 66 6f 75 6e 64 5f 70 61 63 6b 61 67 65 73 5f   found_packages_
17f0: 61 72 72 5d 20 7b 0a 09 09 09 5f 64 62 20 65 76  arr] {...._db ev
1800: 61 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20  al {DELETE FROM 
1810: 70 61 63 6b 61 67 65 73 20 57 48 45 52 45 20 68  packages WHERE h
1820: 6f 73 74 6e 61 6d 65 20 3d 20 24 68 6f 73 74 6e  ostname = $hostn
1830: 61 6d 65 20 41 4e 44 20 73 68 61 31 20 3d 20 24  ame AND sha1 = $
1840: 70 61 63 6b 61 67 65 3b 7d 0a 09 09 7d 0a 0a 09  package;}...}...
1850: 09 5f 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52  ._db eval {INSER
1860: 54 20 4f 52 20 52 45 50 4c 41 43 45 20 49 4e 54  T OR REPLACE INT
1870: 4f 20 73 69 74 65 73 20 28 68 6f 73 74 6e 61 6d  O sites (hostnam
1880: 65 2c 20 6c 61 73 74 55 70 64 61 74 65 2c 20 74  e, lastUpdate, t
1890: 74 6c 29 20 56 41 4c 55 45 53 20 28 24 68 6f 73  tl) VALUES ($hos
18a0: 74 6e 61 6d 65 2c 20 24 6e 6f 77 2c 20 24 3a 3a  tname, $now, $::
18b0: 61 70 70 66 73 3a 3a 74 74 6c 29 3b 7d 0a 0a 09  appfs::ttl);}...
18c0: 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54 45  .return COMPLETE
18d0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 67 65 74 70 6b  ..}...proc getpk
18e0: 67 6d 61 6e 69 66 65 73 74 20 7b 68 6f 73 74 6e  gmanifest {hostn
18f0: 61 6d 65 20 70 61 63 6b 61 67 65 5f 73 68 61 31  ame package_sha1
1900: 7d 20 7b 0a 09 09 73 65 74 20 68 61 76 65 4d 61  } {...set haveMa
1910: 6e 69 66 65 73 74 73 20 5b 5f 64 62 20 65 76 61  nifests [_db eva
1920: 6c 20 7b 53 45 4c 45 43 54 20 68 61 76 65 4d 61  l {SELECT haveMa
1930: 6e 69 66 65 73 74 20 46 52 4f 4d 20 70 61 63 6b  nifest FROM pack
1940: 61 67 65 73 20 57 48 45 52 45 20 73 68 61 31 20  ages WHERE sha1 
1950: 3d 20 24 70 61 63 6b 61 67 65 5f 73 68 61 31 20  = $package_sha1 
1960: 4c 49 4d 49 54 20 31 3b 7d 5d 0a 09 09 73 65 74  LIMIT 1;}]...set
1970: 20 68 61 76 65 4d 61 6e 69 66 65 73 74 20 5b 6c   haveManifest [l
1980: 69 6e 64 65 78 20 24 68 61 76 65 4d 61 6e 69 66  index $haveManif
1990: 65 73 74 73 20 30 5d 0a 0a 09 09 69 66 20 7b 24  ests 0]....if {$
19a0: 68 61 76 65 4d 61 6e 69 66 65 73 74 7d 20 7b 0a  haveManifest} {.
19b0: 09 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45  ...return COMPLE
19c0: 54 45 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 21 5b  TE...}....if {![
19d0: 5f 69 73 48 61 73 68 20 24 70 61 63 6b 61 67 65  _isHash $package
19e0: 5f 73 68 61 31 5d 7d 20 7b 0a 09 09 09 72 65 74  _sha1]} {....ret
19f0: 75 72 6e 20 46 41 49 4c 0a 09 09 7d 0a 0a 09 09  urn FAIL...}....
1a00: 73 65 74 20 66 69 6c 65 20 5b 64 6f 77 6e 6c 6f  set file [downlo
1a10: 61 64 20 24 68 6f 73 74 6e 61 6d 65 20 24 70 61  ad $hostname $pa
1a20: 63 6b 61 67 65 5f 73 68 61 31 5d 0a 09 09 73 65  ckage_sha1]...se
1a30: 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65  t fd [open $file
1a40: 5d 0a 09 09 73 65 74 20 70 6b 67 64 61 74 61 20  ]...set pkgdata 
1a50: 5b 72 65 61 64 20 24 66 64 5d 0a 09 09 63 6c 6f  [read $fd]...clo
1a60: 73 65 20 24 66 64 0a 0a 09 09 5f 64 62 20 74 72  se $fd...._db tr
1a70: 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 09 09 66  ansaction {....f
1a80: 6f 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c  oreach line [spl
1a90: 69 74 20 24 70 6b 67 64 61 74 61 20 22 5c 6e 22  it $pkgdata "\n"
1aa0: 5d 20 7b 0a 09 09 09 09 73 65 74 20 6c 69 6e 65  ] {.....set line
1ab0: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6c   [string trim $l
1ac0: 69 6e 65 5d 0a 0a 09 09 09 09 69 66 20 7b 24 6c  ine]......if {$l
1ad0: 69 6e 65 20 3d 3d 20 22 22 7d 20 7b 0a 09 09 09  ine == ""} {....
1ae0: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 09 7d  ..continue.....}
1af0: 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  ......set work [
1b00: 73 70 6c 69 74 20 24 6c 69 6e 65 20 22 2c 22 5d  split $line ","]
1b10: 0a 0a 09 09 09 09 75 6e 73 65 74 20 2d 6e 6f 63  ......unset -noc
1b20: 6f 6d 70 6c 61 69 6e 20 66 69 6c 65 49 6e 66 6f  omplain fileInfo
1b30: 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
1b40: 6f 28 74 79 70 65 29 20 5b 6c 69 6e 64 65 78 20  o(type) [lindex 
1b50: 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 73 65 74  $work 0].....set
1b60: 20 66 69 6c 65 49 6e 66 6f 28 74 69 6d 65 29 20   fileInfo(time) 
1b70: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 31 5d  [lindex $work 1]
1b80: 0a 0a 09 09 09 09 73 65 74 20 77 6f 72 6b 20 5b  ......set work [
1b90: 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 32 20 65  lrange $work 2 e
1ba0: 6e 64 5d 0a 09 09 09 09 73 77 69 74 63 68 20 2d  nd].....switch -
1bb0: 2d 20 24 66 69 6c 65 49 6e 66 6f 28 74 79 70 65  - $fileInfo(type
1bc0: 29 20 7b 0a 09 09 09 09 09 22 66 69 6c 65 22 20  ) {......"file" 
1bd0: 7b 0a 09 09 09 09 09 09 73 65 74 20 66 69 6c 65  {.......set file
1be0: 49 6e 66 6f 28 73 69 7a 65 29 20 5b 6c 69 6e 64  Info(size) [lind
1bf0: 65 78 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09  ex $work 0].....
1c00: 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 70  ..set fileInfo(p
1c10: 65 72 6d 73 29 20 5b 6c 69 6e 64 65 78 20 24 77  erms) [lindex $w
1c20: 6f 72 6b 20 31 5d 0a 09 09 09 09 09 09 73 65 74  ork 1].......set
1c30: 20 66 69 6c 65 49 6e 66 6f 28 73 68 61 31 29 20   fileInfo(sha1) 
1c40: 5b 6c 69 6e 64 65 78 20 24 77 6f 72 6b 20 32 5d  [lindex $work 2]
1c50: 0a 0a 09 09 09 09 09 09 73 65 74 20 77 6f 72 6b  ........set work
1c60: 20 5b 6c 72 61 6e 67 65 20 24 77 6f 72 6b 20 33   [lrange $work 3
1c70: 20 65 6e 64 5d 0a 09 09 09 09 09 7d 0a 09 09 09   end]......}....
1c80: 09 09 22 73 79 6d 6c 69 6e 6b 22 20 7b 0a 09 09  .."symlink" {...
1c90: 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66 6f  ....set fileInfo
1ca0: 28 73 6f 75 72 63 65 29 20 5b 6c 69 6e 64 65 78  (source) [lindex
1cb0: 20 24 77 6f 72 6b 20 30 5d 0a 09 09 09 09 09 09   $work 0].......
1cc0: 73 65 74 20 77 6f 72 6b 20 5b 6c 72 61 6e 67 65  set work [lrange
1cd0: 20 24 77 6f 72 6b 20 31 20 65 6e 64 5d 0a 09 09   $work 1 end]...
1ce0: 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09  ...}.....}......
1cf0: 73 65 74 20 66 69 6c 65 49 6e 66 6f 28 6e 61 6d  set fileInfo(nam
1d00: 65 29 20 5b 6a 6f 69 6e 20 24 77 6f 72 6b 20 22  e) [join $work "
1d10: 2c 22 5d 0a 09 09 09 09 73 65 74 20 66 69 6c 65  ,"].....set file
1d20: 49 6e 66 6f 28 6e 61 6d 65 29 20 5b 73 70 6c 69  Info(name) [spli
1d30: 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  t [string trim $
1d40: 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20 22  fileInfo(name) "
1d50: 2f 22 5d 20 22 2f 22 5d 0a 09 09 09 09 73 65 74  /"] "/"].....set
1d60: 20 66 69 6c 65 49 6e 66 6f 28 64 69 72 65 63 74   fileInfo(direct
1d70: 6f 72 79 29 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e  ory) [join [lran
1d80: 67 65 20 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d  ge $fileInfo(nam
1d90: 65 29 20 30 20 65 6e 64 2d 31 5d 20 22 2f 22 5d  e) 0 end-1] "/"]
1da0: 0a 09 09 09 09 73 65 74 20 66 69 6c 65 49 6e 66  .....set fileInf
1db0: 6f 28 6e 61 6d 65 29 20 5b 6c 69 6e 64 65 78 20  o(name) [lindex 
1dc0: 24 66 69 6c 65 49 6e 66 6f 28 6e 61 6d 65 29 20  $fileInfo(name) 
1dd0: 65 6e 64 5d 0a 0a 09 09 09 09 5f 64 62 20 65 76  end]......_db ev
1de0: 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20  al {INSERT INTO 
1df0: 66 69 6c 65 73 20 28 70 61 63 6b 61 67 65 5f 73  files (package_s
1e00: 68 61 31 2c 20 74 79 70 65 2c 20 74 69 6d 65 2c  ha1, type, time,
1e10: 20 73 6f 75 72 63 65 2c 20 73 69 7a 65 2c 20 70   source, size, p
1e20: 65 72 6d 73 2c 20 66 69 6c 65 5f 73 68 61 31 2c  erms, file_sha1,
1e30: 20 66 69 6c 65 5f 6e 61 6d 65 2c 20 66 69 6c 65   file_name, file
1e40: 5f 64 69 72 65 63 74 6f 72 79 29 20 56 41 4c 55  _directory) VALU
1e50: 45 53 20 28 24 70 61 63 6b 61 67 65 5f 73 68 61  ES ($package_sha
1e60: 31 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74 79 70  1, $fileInfo(typ
1e70: 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 74 69  e), $fileInfo(ti
1e80: 6d 65 29 2c 20 24 66 69 6c 65 49 6e 66 6f 28 73  me), $fileInfo(s
1e90: 6f 75 72 63 65 29 2c 20 24 66 69 6c 65 49 6e 66  ource), $fileInf
1ea0: 6f 28 73 69 7a 65 29 2c 20 24 66 69 6c 65 49 6e  o(size), $fileIn
1eb0: 66 6f 28 70 65 72 6d 73 29 2c 20 24 66 69 6c 65  fo(perms), $file
1ec0: 49 6e 66 6f 28 73 68 61 31 29 2c 20 24 66 69 6c  Info(sha1), $fil
1ed0: 65 49 6e 66 6f 28 6e 61 6d 65 29 2c 20 24 66 69  eInfo(name), $fi
1ee0: 6c 65 49 6e 66 6f 28 64 69 72 65 63 74 6f 72 79  leInfo(directory
1ef0: 29 20 29 3b 7d 0a 09 09 09 09 5f 64 62 20 65 76  ) );}....._db ev
1f00: 61 6c 20 7b 55 50 44 41 54 45 20 70 61 63 6b 61  al {UPDATE packa
1f10: 67 65 73 20 53 45 54 20 68 61 76 65 4d 61 6e 69  ges SET haveMani
1f20: 66 65 73 74 20 3d 20 31 20 57 48 45 52 45 20 73  fest = 1 WHERE s
1f30: 68 61 31 20 3d 20 24 70 61 63 6b 61 67 65 5f 73  ha1 = $package_s
1f40: 68 61 31 3b 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a  ha1;}....}...}..
1f50: 09 09 72 65 74 75 72 6e 20 43 4f 4d 50 4c 45 54  ..return COMPLET
1f60: 45 0a 09 7d 0a 7d 0a                             E..}.}.