Artifact
368e1bdd6ba45566f6780ac06c9de594ff570847:
- File
Setup/updateFileInfo.tcl
— part of check-in
[1e7de67036]
at
2015-08-20 18:12:09
on branch trunk
— Skip non-existent files when verifying the metadata for downloadable packages in the file metadata update tool.
(user:
mistachkin
size: 7637)
0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 75 70 64 61 74 65 46 69 6c 65 .#..# updateFile
0060: 49 6e 66 6f 2e 74 63 6c 20 2d 2d 20 46 69 6c 65 Info.tcl -- File
0070: 20 4d 65 74 61 64 61 74 61 20 55 70 64 61 74 69 Metadata Updati
0080: 6e 67 20 54 6f 6f 6c 0d 0a 23 0d 0a 23 20 57 41 ng Tool..#..# WA
0090: 52 4e 49 4e 47 3a 20 54 68 69 73 20 74 6f 6f 6c RNING: This tool
00a0: 20 72 65 71 75 69 72 65 73 20 74 68 65 20 46 6f requires the Fo
00b0: 73 73 69 6c 20 62 69 6e 61 72 79 20 74 6f 20 65 ssil binary to e
00c0: 78 69 73 74 20 73 6f 6d 65 77 68 65 72 65 20 61 xist somewhere a
00d0: 6c 6f 6e 67 20 74 68 65 0d 0a 23 20 20 20 20 20 long the..#
00e0: 20 20 20 20 20 50 41 54 48 2e 0d 0a 23 0d 0a 23 PATH...#..#
00f0: 20 57 72 69 74 74 65 6e 20 62 79 20 4a 6f 65 20 Written by Joe
0100: 4d 69 73 74 61 63 68 6b 69 6e 2e 0d 0a 23 20 52 Mistachkin...# R
0110: 65 6c 65 61 73 65 64 20 74 6f 20 74 68 65 20 70 eleased to the p
0120: 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c 20 75 73 ublic domain, us
0130: 65 20 61 74 20 79 6f 75 72 20 6f 77 6e 20 72 69 e at your own ri
0140: 73 6b 21 0d 0a 23 0d 0a 23 23 23 23 23 23 23 23 sk!..#..########
0150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0160: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0170: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0190: 23 23 23 23 23 23 23 0d 0a 0d 0a 70 72 6f 63 20 #######....proc
01a0: 72 65 61 64 46 69 6c 65 20 7b 20 66 69 6c 65 4e readFile { fileN
01b0: 61 6d 65 20 7d 20 7b 0d 0a 20 20 73 65 74 20 66 ame } {.. set f
01c0: 69 6c 65 5f 69 64 20 5b 6f 70 65 6e 20 24 66 69 ile_id [open $fi
01d0: 6c 65 4e 61 6d 65 20 52 44 4f 4e 4c 59 5d 0d 0a leName RDONLY]..
01e0: 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 66 69 fconfigure $fi
01f0: 6c 65 5f 69 64 20 2d 65 6e 63 6f 64 69 6e 67 20 le_id -encoding
0200: 62 69 6e 61 72 79 20 2d 74 72 61 6e 73 6c 61 74 binary -translat
0210: 69 6f 6e 20 62 69 6e 61 72 79 0d 0a 20 20 73 65 ion binary.. se
0220: 74 20 72 65 73 75 6c 74 20 5b 72 65 61 64 20 24 t result [read $
0230: 66 69 6c 65 5f 69 64 5d 0d 0a 20 20 63 6c 6f 73 file_id].. clos
0240: 65 20 24 66 69 6c 65 5f 69 64 0d 0a 20 20 72 65 e $file_id.. re
0250: 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 7d 0d turn $result..}.
0260: 0a 0c 0d 0a 70 72 6f 63 20 77 72 69 74 65 46 69 ....proc writeFi
0270: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 64 61 le { fileName da
0280: 74 61 20 7d 20 7b 0d 0a 20 20 73 65 74 20 66 69 ta } {.. set fi
0290: 6c 65 5f 69 64 20 5b 6f 70 65 6e 20 24 66 69 6c le_id [open $fil
02a0: 65 4e 61 6d 65 20 7b 57 52 4f 4e 4c 59 20 43 52 eName {WRONLY CR
02b0: 45 41 54 20 54 52 55 4e 43 7d 5d 0d 0a 20 20 66 EAT TRUNC}].. f
02c0: 63 6f 6e 66 69 67 75 72 65 20 24 66 69 6c 65 5f configure $file_
02d0: 69 64 20 2d 65 6e 63 6f 64 69 6e 67 20 62 69 6e id -encoding bin
02e0: 61 72 79 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e ary -translation
02f0: 20 62 69 6e 61 72 79 0d 0a 20 20 70 75 74 73 20 binary.. puts
0300: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 66 69 6c 65 -nonewline $file
0310: 5f 69 64 20 24 64 61 74 61 0d 0a 20 20 63 6c 6f _id $data.. clo
0320: 73 65 20 24 66 69 6c 65 5f 69 64 0d 0a 20 20 72 se $file_id.. r
0330: 65 74 75 72 6e 20 22 22 0d 0a 7d 0d 0a 0c 0d 0a eturn ""..}.....
0340: 70 72 6f 63 20 67 65 74 46 69 6c 65 53 69 7a 65 proc getFileSize
0350: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d { fileName } {.
0360: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 . #.. # NOTE:
0370: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
0380: 72 20 6f 66 20 6d 65 62 69 62 79 74 65 73 20 69 r of mebibytes i
0390: 6e 20 74 68 65 20 66 69 6c 65 20 77 69 74 68 20 n the file with
03a0: 74 77 6f 20 64 69 67 69 74 73 20 61 66 74 65 72 two digits after
03b0: 20 74 68 65 0d 0a 20 20 23 20 20 20 20 20 20 20 the.. #
03c0: 64 65 63 69 6d 61 6c 2e 0d 0a 20 20 23 0d 0a 20 decimal... #..
03d0: 20 72 65 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 return [format
03e0: 25 2e 32 66 20 5b 65 78 70 72 20 7b 5b 66 69 6c %.2f [expr {[fil
03f0: 65 20 73 69 7a 65 20 24 66 69 6c 65 4e 61 6d 65 e size $fileName
0400: 5d 20 2f 20 31 30 34 38 35 37 36 2e 30 7d 5d 5d ] / 1048576.0}]]
0410: 0d 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 67 65 74 ..}.....proc get
0420: 46 69 6c 65 48 61 73 68 20 7b 20 66 69 6c 65 4e FileHash { fileN
0430: 61 6d 65 20 7d 20 7b 0d 0a 20 20 23 0d 0a 20 20 ame } {.. #..
0440: 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 # NOTE: Return t
0450: 68 65 20 53 48 41 31 20 68 61 73 68 20 6f 66 20 he SHA1 hash of
0460: 74 68 65 20 66 69 6c 65 2c 20 6d 61 6b 69 6e 67 the file, making
0470: 20 75 73 65 20 6f 66 20 46 6f 73 73 69 6c 20 76 use of Fossil v
0480: 69 61 20 5b 65 78 65 63 5d 20 74 6f 0d 0a 20 20 ia [exec] to..
0490: 23 20 20 20 20 20 20 20 61 63 74 75 61 6c 6c 79 # actually
04a0: 20 63 61 6c 63 75 6c 61 74 65 20 69 74 2e 0d 0a calculate it...
04b0: 20 20 23 0d 0a 20 20 72 65 74 75 72 6e 20 5b 73 #.. return [s
04c0: 74 72 69 6e 67 20 74 72 69 6d 20 5b 6c 69 6e 64 tring trim [lind
04d0: 65 78 20 5b 72 65 67 65 78 70 20 2d 69 6e 6c 69 ex [regexp -inli
04e0: 6e 65 20 2d 6e 6f 63 61 73 65 20 2d 2d 20 7b 5b ne -nocase -- {[
04f0: 30 2d 39 41 2d 46 5d 7b 34 30 7d 20 7d 20 5c 0d 0-9A-F]{40} } \.
0500: 0a 20 20 20 20 20 20 5b 65 78 65 63 20 66 6f 73 . [exec fos
0510: 73 69 6c 20 73 68 61 31 73 75 6d 20 24 66 69 6c sil sha1sum $fil
0520: 65 4e 61 6d 65 5d 5d 20 30 5d 5d 0d 0a 7d 0d 0a eName]] 0]]..}..
0530: 0c 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 47 72 ...#..# NOTE: Gr
0540: 61 62 20 74 68 65 20 66 75 6c 6c 79 20 71 75 61 ab the fully qua
0550: 6c 69 66 69 65 64 20 64 69 72 65 63 74 6f 72 79 lified directory
0560: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 72 name of the dir
0570: 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e ectory containin
0580: 67 0d 0a 23 20 20 20 20 20 20 20 74 68 69 73 20 g..# this
0590: 73 63 72 69 70 74 20 66 69 6c 65 2e 0d 0a 23 0d script file...#.
05a0: 0a 73 65 74 20 70 61 74 68 20 5b 66 69 6c 65 20 .set path [file
05b0: 6e 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20 normalize [file
05c0: 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 dirname [info sc
05d0: 72 69 70 74 5d 5d 5d 0d 0a 0d 0a 23 0d 0a 23 20 ript]]]....#..#
05e0: 4e 4f 54 45 3a 20 2a 57 41 52 4e 49 4e 47 2a 20 NOTE: *WARNING*
05f0: 54 68 69 73 20 61 73 73 75 6d 65 73 20 74 68 61 This assumes tha
0600: 74 20 74 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 t the root of th
0610: 65 20 73 6f 75 72 63 65 20 63 68 65 63 6b 2d 6f e source check-o
0620: 75 74 20 69 73 20 6f 6e 65 0d 0a 23 20 20 20 20 ut is one..#
0630: 20 20 20 64 69 72 65 63 74 6f 72 79 20 61 62 6f directory abo
0640: 76 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 ve the directory
0650: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 containing this
0660: 20 73 63 72 69 70 74 2e 0d 0a 23 0d 0a 73 65 74 script...#..set
0670: 20 72 6f 6f 74 20 5b 66 69 6c 65 20 6e 6f 72 6d root [file norm
0680: 61 6c 69 7a 65 20 5b 66 69 6c 65 20 64 69 72 6e alize [file dirn
0690: 61 6d 65 20 24 70 61 74 68 5d 5d 0d 0a 0d 0a 23 ame $path]]....#
06a0: 0d 0a 23 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 ..# NOTE: Grab t
06b0: 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 he name of the f
06c0: 69 6c 65 20 74 6f 20 62 65 20 75 70 64 61 74 65 ile to be update
06d0: 64 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 6d 61 d from the comma
06e0: 6e 64 20 6c 69 6e 65 2c 20 69 66 0d 0a 23 20 20 nd line, if..#
06f0: 20 20 20 20 20 61 76 61 69 6c 61 62 6c 65 3b 20 available;
0700: 6f 74 68 65 72 77 69 73 65 2c 20 75 73 65 20 74 otherwise, use t
0710: 68 65 20 64 65 66 61 75 6c 74 20 28 69 2e 65 2e he default (i.e.
0720: 20 22 2e 2e 2f 77 77 77 2f 64 6f 77 6e 6c 6f 61 "../www/downloa
0730: 64 73 2e 77 69 6b 69 22 29 2e 0d 0a 23 0d 0a 69 ds.wiki")...#..i
0740: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
0750: 61 72 67 76 5d 20 26 26 20 5b 6c 6c 65 6e 67 74 argv] && [llengt
0760: 68 20 24 61 72 67 76 5d 20 3e 20 30 7d 20 74 68 h $argv] > 0} th
0770: 65 6e 20 7b 0d 0a 20 20 73 65 74 20 75 70 64 61 en {.. set upda
0780: 74 65 46 69 6c 65 4e 61 6d 65 20 5b 6c 69 6e 64 teFileName [lind
0790: 65 78 20 24 61 72 67 76 20 30 5d 0d 0a 7d 0d 0a ex $argv 0]..}..
07a0: 0d 0a 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 ..if {![info exi
07b0: 73 74 73 20 75 70 64 61 74 65 46 69 6c 65 4e 61 sts updateFileNa
07c0: 6d 65 5d 20 7c 7c 20 5c 0d 0a 20 20 20 20 5b 73 me] || \.. [s
07d0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 75 70 tring length $up
07e0: 64 61 74 65 46 69 6c 65 4e 61 6d 65 5d 20 3d 3d dateFileName] ==
07f0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 73 65 0} then {.. se
0800: 74 20 75 70 64 61 74 65 46 69 6c 65 4e 61 6d 65 t updateFileName
0810: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 72 6f 6f [file join $roo
0820: 74 20 77 77 77 20 64 6f 77 6e 6c 6f 61 64 73 2e t www downloads.
0830: 77 69 6b 69 5d 0d 0a 7d 0d 0a 0d 0a 23 0d 0a 23 wiki]..}....#..#
0840: 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65 20 NOTE: Grab the
0850: 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 directory contai
0860: 6e 69 6e 67 20 74 68 65 20 66 69 6c 65 73 20 72 ning the files r
0870: 65 66 65 72 65 6e 63 65 64 20 69 6e 20 74 68 65 eferenced in the
0880: 20 64 61 74 61 20 6f 66 20 74 68 65 0d 0a 23 20 data of the..#
0890: 20 20 20 20 20 20 66 69 6c 65 20 74 6f 20 62 65 file to be
08a0: 20 75 70 64 61 74 65 64 20 66 72 6f 6d 20 74 68 updated from th
08b0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c 20 e command line,
08c0: 69 66 20 61 76 61 69 6c 61 62 6c 65 3b 20 6f 74 if available; ot
08d0: 68 65 72 77 69 73 65 2c 20 75 73 65 0d 0a 23 20 herwise, use..#
08e0: 20 20 20 20 20 20 74 68 65 20 64 65 66 61 75 6c the defaul
08f0: 74 20 28 69 2e 65 2e 20 22 2e 2f 4f 75 74 70 75 t (i.e. "./Outpu
0900: 74 22 29 2e 0d 0a 23 0d 0a 69 66 20 7b 5b 69 6e t")...#..if {[in
0910: 66 6f 20 65 78 69 73 74 73 20 61 72 67 76 5d 20 fo exists argv]
0920: 26 26 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 && [llength $arg
0930: 76 5d 20 3e 20 31 7d 20 74 68 65 6e 20 7b 0d 0a v] > 1} then {..
0940: 20 20 73 65 74 20 6f 75 74 70 75 74 44 69 72 65 set outputDire
0950: 63 74 6f 72 79 20 5b 6c 69 6e 64 65 78 20 24 61 ctory [lindex $a
0960: 72 67 76 20 31 5d 0d 0a 7d 0d 0a 0d 0a 69 66 20 rgv 1]..}....if
0970: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6f {![info exists o
0980: 75 74 70 75 74 44 69 72 65 63 74 6f 72 79 5d 20 utputDirectory]
0990: 7c 7c 20 5c 0d 0a 20 20 20 20 5b 73 74 72 69 6e || \.. [strin
09a0: 67 20 6c 65 6e 67 74 68 20 24 6f 75 74 70 75 74 g length $output
09b0: 44 69 72 65 63 74 6f 72 79 5d 20 3d 3d 20 30 7d Directory] == 0}
09c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 73 65 74 20 6f then {.. set o
09d0: 75 74 70 75 74 44 69 72 65 63 74 6f 72 79 20 5b utputDirectory [
09e0: 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68 20 file join $path
09f0: 4f 75 74 70 75 74 5d 0d 0a 7d 0d 0a 0d 0a 23 0d Output]..}....#.
0a00: 0a 23 20 4e 4f 54 45 3a 20 53 65 74 75 70 20 74 .# NOTE: Setup t
0a10: 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 he regular expre
0a20: 73 73 69 6f 6e 20 70 61 74 74 65 72 6e 73 20 77 ssion patterns w
0a30: 69 74 68 20 74 68 65 20 6e 65 63 65 73 73 61 72 ith the necessar
0a40: 79 20 63 61 70 74 75 72 65 73 2e 0d 0a 23 20 20 y captures...#
0a50: 20 20 20 20 20 54 68 65 73 65 20 70 61 74 74 65 These patte
0a60: 72 6e 73 20 61 72 65 20 6d 6f 73 74 6c 79 20 6e rns are mostly n
0a70: 6f 6e 2d 67 72 65 65 64 79 3b 20 68 6f 77 65 76 on-greedy; howev
0a80: 65 72 2c 20 61 74 20 74 68 65 20 65 6e 64 20 77 er, at the end w
0a90: 65 20 6e 65 65 64 20 74 6f 0d 0a 23 20 20 20 20 e need to..#
0aa0: 20 20 20 6d 61 74 63 68 20 65 78 61 63 74 6c 79 match exactly
0ab0: 20 34 30 20 68 65 78 61 64 65 63 69 6d 61 6c 20 40 hexadecimal
0ac0: 63 68 61 72 61 63 74 65 72 73 2e 20 20 49 6e 20 characters. In
0ad0: 74 68 65 6f 72 79 2c 20 69 6e 20 54 63 6c 2c 20 theory, in Tcl,
0ae0: 74 68 69 73 20 63 6f 75 6c 64 0d 0a 23 20 20 20 this could..#
0af0: 20 20 20 20 68 61 76 65 20 61 6e 20 75 6e 64 65 have an unde
0b00: 66 69 6e 65 64 20 72 65 73 75 6c 74 20 64 75 65 fined result due
0b10: 20 74 6f 20 74 68 65 20 6d 69 78 69 6e 67 20 6f to the mixing o
0b20: 66 20 67 72 65 65 64 79 20 61 6e 64 20 6e 6f 6e f greedy and non
0b30: 2d 67 72 65 65 64 79 0d 0a 23 20 20 20 20 20 20 -greedy..#
0b40: 20 71 75 61 6e 74 69 66 69 65 72 73 3b 20 68 6f quantifiers; ho
0b50: 77 65 76 65 72 2c 20 69 6e 20 70 72 61 63 74 69 wever, in practi
0b60: 63 65 2c 20 74 68 69 73 20 73 65 65 6d 73 20 74 ce, this seems t
0b70: 6f 20 77 6f 72 6b 20 70 72 6f 70 65 72 6c 79 2e o work properly.
0b80: 20 20 41 6c 73 6f 2c 0d 0a 23 20 20 20 20 20 20 Also,..#
0b90: 20 74 68 69 73 20 70 61 74 74 65 72 6e 20 61 73 this pattern as
0ba0: 73 75 6d 65 73 20 61 20 70 61 72 74 69 63 75 6c sumes a particul
0bb0: 61 72 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 ar structure for
0bc0: 20 74 68 65 20 5b 48 54 4d 4c 5d 20 66 69 6c 65 the [HTML] file
0bd0: 20 74 6f 20 62 65 0d 0a 23 20 20 20 20 20 20 20 to be..#
0be0: 75 70 64 61 74 65 64 2e 0d 0a 23 0d 0a 73 65 74 updated...#..set
0bf0: 20 70 61 74 74 65 72 6e 31 20 7b 3c 61 5c 0d 0a pattern1 {<a\..
0c00: 20 20 20 20 68 72 65 66 3d 22 2e 2a 3f 2f 28 2e href=".*?/(.
0c10: 2a 3f 5c 2e 28 3f 3a 65 78 65 7c 7a 69 70 7c 6e *?\.(?:exe|zip|n
0c20: 75 70 6b 67 29 29 22 3e 2e 2a 3f 5c 28 28 5c 64 upkg))">.*?\((\d
0c30: 2b 3f 5c 2e 5c 64 2b 3f 29 20 4d 69 42 5c 29 2e +?\.\d+?) MiB\).
0c40: 2a 3f 73 68 61 31 3a 5c 0d 0a 20 20 20 20 28 5b *?sha1:\.. ([
0c50: 30 2d 39 41 2d 46 5d 7b 34 30 7d 29 7d 0d 0a 0d 0-9A-F]{40})}...
0c60: 0a 73 65 74 20 70 61 74 74 65 72 6e 32 20 7b 3c .set pattern2 {<
0c70: 61 5c 0d 0a 20 20 20 20 68 72 65 66 3d 22 2e 2a a\.. href=".*
0c80: 3f 2f 70 61 63 6b 61 67 65 2f 2e 2a 3f 2f 5c 64 ?/package/.*?/\d
0c90: 2b 5c 2e 5c 64 2b 5c 2e 5c 64 2b 5c 2e 5c 64 2b +\.\d+\.\d+\.\d+
0ca0: 22 3e 28 2e 2a 3f 29 3c 2f 61 3e 2e 2a 3f 5c 28 ">(.*?)</a>.*?\(
0cb0: 28 5c 64 2b 3f 5c 2e 5c 64 2b 3f 29 5c 0d 0a 20 (\d+?\.\d+?)\..
0cc0: 20 20 20 4d 69 42 5c 29 2e 2a 3f 73 68 61 31 3a MiB\).*?sha1:
0cd0: 20 28 5b 30 2d 39 41 2d 46 5d 7b 34 30 7d 29 7d ([0-9A-F]{40})}
0ce0: 0d 0a 0d 0a 73 65 74 20 70 61 74 74 65 72 6e 33 ....set pattern3
0cf0: 20 7b 68 72 65 66 3d 22 2f 64 6f 77 6e 6c 6f 61 {href="/downloa
0d00: 64 73 2f 28 2e 2a 3f 29 22 7d 0d 0a 73 65 74 20 ds/(.*?)"}..set
0d10: 70 61 74 74 65 72 6e 34 20 7b 5c 28 73 68 61 31 pattern4 {\(sha1
0d20: 3a 20 28 5b 30 2d 39 41 2d 46 5d 7b 34 30 7d 29 : ([0-9A-F]{40})
0d30: 5c 29 7d 0d 0a 73 65 74 20 70 61 74 74 65 72 6e \)}..set pattern
0d40: 35 20 7b 5c 28 28 5c 64 2b 3f 5c 2e 5c 64 2b 3f 5 {\((\d+?\.\d+?
0d50: 29 20 4d 69 42 5c 29 7d 0d 0a 0d 0a 23 0d 0a 23 ) MiB\)}....#..#
0d60: 20 4e 4f 54 45 3a 20 47 72 61 62 20 61 6c 6c 20 NOTE: Grab all
0d70: 74 68 65 20 64 61 74 61 20 66 72 6f 6d 20 74 68 the data from th
0d80: 65 20 66 69 6c 65 20 74 6f 20 62 65 20 75 70 64 e file to be upd
0d90: 61 74 65 64 2e 0d 0a 23 0d 0a 73 65 74 20 64 61 ated...#..set da
0da0: 74 61 20 5b 72 65 61 64 46 69 6c 65 20 24 75 70 ta [readFile $up
0db0: 64 61 74 65 46 69 6c 65 4e 61 6d 65 5d 0d 0a 0d dateFileName]...
0dc0: 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 49 6e 69 74 .#..# NOTE: Init
0dd0: 69 61 6c 69 7a 65 20 74 68 65 20 74 6f 74 61 6c ialize the total
0de0: 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 6e 67 number of chang
0df0: 65 73 20 6d 61 64 65 20 74 6f 20 7a 65 72 6f 2e es made to zero.
0e00: 0d 0a 23 0d 0a 73 65 74 20 63 6f 75 6e 74 20 30 ..#..set count 0
0e10: 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 50 ....#..# NOTE: P
0e20: 72 6f 63 65 73 73 20 65 61 63 68 20 72 65 67 75 rocess each regu
0e30: 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 70 lar expression p
0e40: 61 74 74 65 72 6e 20 61 67 61 69 6e 73 74 20 74 attern against t
0e50: 68 65 20 70 61 67 65 20 74 65 78 74 2e 0d 0a 23 he page text...#
0e60: 0d 0a 66 6f 72 65 61 63 68 20 70 61 74 74 65 72 ..foreach patter
0e70: 6e 20 5b 6c 69 73 74 20 24 70 61 74 74 65 72 6e n [list $pattern
0e80: 31 20 24 70 61 74 74 65 72 6e 32 5d 20 7b 0d 0a 1 $pattern2] {..
0e90: 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 #.. # NOTE: P
0ea0: 72 6f 63 65 73 73 20 65 61 63 68 20 6d 61 74 63 rocess each matc
0eb0: 68 20 69 6e 20 74 68 65 20 64 61 74 61 20 61 6e h in the data an
0ec0: 64 20 63 61 70 74 75 72 65 20 74 68 65 20 66 69 d capture the fi
0ed0: 6c 65 20 6e 61 6d 65 2c 20 73 69 7a 65 2c 20 61 le name, size, a
0ee0: 6e 64 0d 0a 20 20 23 20 20 20 20 20 20 20 68 61 nd.. # ha
0ef0: 73 68 2e 0d 0a 20 20 23 0d 0a 20 20 66 6f 72 65 sh... #.. fore
0f00: 61 63 68 20 7b 64 75 6d 6d 79 20 66 69 6c 65 4e ach {dummy fileN
0f10: 61 6d 65 20 66 69 6c 65 53 69 7a 65 20 66 69 6c ame fileSize fil
0f20: 65 48 61 73 68 7d 20 5c 0d 0a 20 20 20 20 20 20 eHash} \..
0f30: 5b 72 65 67 65 78 70 20 2d 61 6c 6c 20 2d 69 6e [regexp -all -in
0f40: 6c 69 6e 65 20 2d 6e 6f 63 61 73 65 20 2d 2d 20 line -nocase --
0f50: 24 70 61 74 74 65 72 6e 20 24 64 61 74 61 5d 20 $pattern $data]
0f60: 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 {.. #.. #
0f70: 4e 4f 54 45 3a 20 47 65 74 20 74 68 65 20 66 75 NOTE: Get the fu
0f80: 6c 6c 79 20 71 75 61 6c 69 66 69 65 64 20 66 69 lly qualified fi
0f90: 6c 65 20 6e 61 6d 65 20 62 61 73 65 64 20 6f 6e le name based on
0fa0: 20 74 68 65 20 63 6f 6e 66 69 67 75 72 65 64 0d the configured.
0fb0: 0a 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72 . # dir
0fc0: 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 23 0d 0a ectory... #..
0fd0: 20 20 20 20 73 65 74 20 66 75 6c 6c 46 69 6c 65 set fullFile
0fe0: 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 Name [file join
0ff0: 24 6f 75 74 70 75 74 44 69 72 65 63 74 6f 72 79 $outputDirectory
1000: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c [file tail $fil
1010: 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 23 eName]].... #
1020: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 .. # NOTE: If
1030: 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e the file does n
1040: 6f 74 20 65 78 69 73 74 2c 20 69 73 73 75 65 20 ot exist, issue
1050: 61 20 77 61 72 6e 69 6e 67 20 61 6e 64 20 73 6b a warning and sk
1060: 69 70 20 69 74 2e 0d 0a 20 20 20 20 23 0d 0a 20 ip it... #..
1070: 20 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 if {![file ex
1080: 69 73 74 73 20 24 66 75 6c 6c 46 69 6c 65 4e 61 ists $fullFileNa
1090: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 me]} then {..
10a0: 20 20 20 70 75 74 73 20 73 74 64 6f 75 74 20 22 puts stdout "
10b0: 57 41 52 4e 49 4e 47 3a 20 46 69 6c 65 20 5c 22 WARNING: File \"
10c0: 24 66 75 6c 6c 46 69 6c 65 4e 61 6d 65 5c 22 20 $fullFileName\"
10d0: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 does not exist,
10e0: 73 6b 69 70 70 65 64 2e 22 0d 0a 20 20 20 20 20 skipped."..
10f0: 20 63 6f 6e 74 69 6e 75 65 0d 0a 20 20 20 20 7d continue.. }
1100: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 .... #.. #
1110: 20 4e 4f 54 45 3a 20 52 65 70 6c 61 63 65 20 74 NOTE: Replace t
1120: 68 65 20 63 61 70 74 75 72 65 64 20 73 69 7a 65 he captured size
1130: 20 61 6e 64 20 68 61 73 68 20 77 69 74 68 20 6f and hash with o
1140: 6e 65 73 20 63 61 6c 63 75 6c 61 74 65 64 20 66 nes calculated f
1150: 72 6f 6d 20 74 68 65 0d 0a 20 20 20 20 23 20 20 rom the.. #
1160: 20 20 20 20 20 61 63 74 75 61 6c 20 66 69 6c 65 actual file
1170: 20 6e 61 6d 65 2e 20 20 54 68 69 73 20 77 69 6c name. This wil
1180: 6c 20 6f 6e 6c 79 20 72 65 70 6c 61 63 65 20 74 l only replace t
1190: 68 65 20 66 69 72 73 74 20 69 6e 73 74 61 6e 63 he first instanc
11a0: 65 20 6f 66 0d 0a 20 20 20 20 23 20 20 20 20 20 e of.. #
11b0: 20 20 65 61 63 68 20 28 6c 69 74 65 72 61 6c 29 each (literal)
11c0: 20 6d 61 74 63 68 2e 20 20 53 69 6e 63 65 20 77 match. Since w
11d0: 65 20 61 72 65 20 70 72 6f 63 65 73 73 69 6e 67 e are processing
11e0: 20 74 68 65 20 6d 61 74 63 68 65 73 20 69 6e 20 the matches in
11f0: 74 68 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 the.. #
1200: 20 65 78 61 63 74 20 6f 72 64 65 72 20 74 68 65 exact order the
1210: 79 20 61 70 70 65 61 72 20 69 6e 20 74 68 65 20 y appear in the
1220: 64 61 74 61 20 41 4e 44 20 77 65 20 61 72 65 20 data AND we are
1230: 6f 6e 6c 79 20 72 65 70 6c 61 63 69 6e 67 20 6f only replacing o
1240: 6e 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 ne.. #
1250: 6c 69 74 65 72 61 6c 20 69 6e 73 74 61 6e 63 65 literal instance
1260: 20 70 65 72 20 6d 61 74 63 68 20 41 4e 44 20 74 per match AND t
1270: 68 65 20 73 69 7a 65 20 73 75 62 2d 70 61 74 74 he size sub-patt
1280: 65 72 6e 20 69 73 20 6e 6f 74 68 69 6e 67 20 6c ern is nothing l
1290: 69 6b 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 ike.. #
12a0: 20 74 68 65 20 68 61 73 68 20 73 75 62 2d 70 61 the hash sub-pa
12b0: 74 74 65 72 6e 2c 20 74 68 69 73 20 73 68 6f 75 ttern, this shou
12c0: 6c 64 20 62 65 20 31 30 30 25 20 72 65 6c 69 61 ld be 100% relia
12d0: 62 6c 65 2e 20 20 49 6e 20 6f 72 64 65 72 20 74 ble. In order t
12e0: 6f 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 61 o.. # a
12f0: 76 6f 69 64 20 73 75 70 65 72 66 6c 75 6f 75 73 void superfluous
1300: 20 6d 61 74 63 68 65 73 20 6f 66 20 74 68 65 20 matches of the
1310: 66 69 6c 65 20 73 69 7a 65 20 6f 72 20 68 61 73 file size or has
1320: 68 2c 20 74 68 65 20 73 74 61 72 74 69 6e 67 0d h, the starting.
1330: 0a 20 20 20 20 23 20 20 20 20 20 20 20 69 6e 64 . # ind
1340: 65 78 20 69 73 20 73 65 74 20 74 6f 20 61 20 70 ex is set to a p
1350: 6f 73 69 74 69 6f 6e 20 6a 75 73 74 20 62 65 79 osition just bey
1360: 6f 6e 64 20 74 68 65 20 6d 61 74 63 68 69 6e 67 ond the matching
1370: 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20 20 20 file name...
1380: 20 23 0d 0a 20 20 20 20 73 65 74 20 73 74 61 72 #.. set star
1390: 74 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 t [string first
13a0: 24 66 69 6c 65 4e 61 6d 65 20 24 64 61 74 61 5d $fileName $data]
13b0: 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 24 73 74 61 .... if {$sta
13c0: 72 74 20 3d 3d 20 2d 31 7d 20 74 68 65 6e 20 7b rt == -1} then {
13d0: 0d 0a 20 20 20 20 20 20 70 75 74 73 20 73 74 64 .. puts std
13e0: 6f 75 74 20 22 57 41 52 4e 49 4e 47 3a 20 50 6f out "WARNING: Po
13f0: 73 69 74 69 6f 6e 20 66 6f 72 20 5c 22 24 66 69 sition for \"$fi
1400: 6c 65 4e 61 6d 65 5c 22 20 6e 6f 74 20 66 6f 75 leName\" not fou
1410: 6e 64 2c 20 73 6b 69 70 70 65 64 2e 22 0d 0a 20 nd, skipped."..
1420: 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 0d 0a 20 continue..
1430: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 6e 63 72 }.... incr
1440: 20 73 74 61 72 74 20 5b 73 74 72 69 6e 67 20 6c start [string l
1450: 65 6e 67 74 68 20 24 66 69 6c 65 4e 61 6d 65 5d ength $fileName]
1460: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 .... #.. #
1470: 20 4e 4f 54 45 3a 20 43 61 6c 63 75 6c 61 74 65 NOTE: Calculate
1480: 20 74 68 65 20 6e 65 77 20 66 69 6c 65 20 73 69 the new file si
1490: 7a 65 20 61 6e 64 20 63 6f 6d 70 61 72 65 20 69 ze and compare i
14a0: 74 20 74 6f 20 74 68 65 20 6f 6c 64 20 6f 6e 65 t to the old one
14b0: 2e 20 20 49 66 20 69 74 0d 0a 20 20 20 20 23 20 . If it.. #
14c0: 20 20 20 20 20 20 68 61 73 20 6e 6f 74 20 63 68 has not ch
14d0: 61 6e 67 65 64 2c 20 64 6f 20 6e 6f 74 68 69 6e anged, do nothin
14e0: 67 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 g... #.. s
14f0: 65 74 20 6e 65 77 46 69 6c 65 53 69 7a 65 20 5b et newFileSize [
1500: 67 65 74 46 69 6c 65 53 69 7a 65 20 24 66 75 6c getFileSize $ful
1510: 6c 46 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 lFileName]....
1520: 20 20 69 66 20 7b 24 66 69 6c 65 53 69 7a 65 20 if {$fileSize
1530: 6e 65 20 24 6e 65 77 46 69 6c 65 53 69 7a 65 7d ne $newFileSize}
1540: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 69 then {.. i
1550: 6e 63 72 20 63 6f 75 6e 74 20 5b 72 65 67 73 75 ncr count [regsu
1560: 62 20 2d 6e 6f 63 61 73 65 20 2d 73 74 61 72 74 b -nocase -start
1570: 20 24 73 74 61 72 74 20 2d 2d 20 22 2a 2a 2a 3d $start -- "***=
1580: 24 66 69 6c 65 53 69 7a 65 22 20 24 64 61 74 61 $fileSize" $data
1590: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 24 6e \.. $n
15a0: 65 77 46 69 6c 65 53 69 7a 65 20 64 61 74 61 5d ewFileSize data]
15b0: 0d 0a 0d 0a 20 20 20 20 20 20 69 6e 63 72 20 73 .... incr s
15c0: 74 61 72 74 20 5b 73 74 72 69 6e 67 20 6c 65 6e tart [string len
15d0: 67 74 68 20 24 66 69 6c 65 53 69 7a 65 5d 0d 0a gth $fileSize]..
15e0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a }.... #..
15f0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 61 6c 63 # NOTE: Calc
1600: 75 6c 61 74 65 20 74 68 65 20 6e 65 77 20 66 69 ulate the new fi
1610: 6c 65 20 68 61 73 68 20 61 6e 64 20 63 6f 6d 70 le hash and comp
1620: 61 72 65 20 69 74 20 74 6f 20 74 68 65 20 6f 6c are it to the ol
1630: 64 20 6f 6e 65 2e 20 20 49 66 20 69 74 0d 0a 20 d one. If it..
1640: 20 20 20 23 20 20 20 20 20 20 20 68 61 73 20 6e # has n
1650: 6f 74 20 63 68 61 6e 67 65 64 2c 20 64 6f 20 6e ot changed, do n
1660: 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 23 0d 0a othing... #..
1670: 20 20 20 20 73 65 74 20 6e 65 77 46 69 6c 65 48 set newFileH
1680: 61 73 68 20 5b 67 65 74 46 69 6c 65 48 61 73 68 ash [getFileHash
1690: 20 24 66 75 6c 6c 46 69 6c 65 4e 61 6d 65 5d 0d $fullFileName].
16a0: 0a 0d 0a 20 20 20 20 69 66 20 7b 24 66 69 6c 65 ... if {$file
16b0: 48 61 73 68 20 6e 65 20 24 6e 65 77 46 69 6c 65 Hash ne $newFile
16c0: 48 61 73 68 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 Hash} then {..
16d0: 20 20 20 20 69 6e 63 72 20 63 6f 75 6e 74 20 5b incr count [
16e0: 72 65 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 2d regsub -nocase -
16f0: 73 74 61 72 74 20 24 73 74 61 72 74 20 2d 2d 20 start $start --
1700: 22 2a 2a 2a 3d 24 66 69 6c 65 48 61 73 68 22 20 "***=$fileHash"
1710: 24 64 61 74 61 20 5c 0d 0a 20 20 20 20 20 20 20 $data \..
1720: 20 20 20 24 6e 65 77 46 69 6c 65 48 61 73 68 20 $newFileHash
1730: 64 61 74 61 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 data].... i
1740: 6e 63 72 20 73 74 61 72 74 20 5b 73 74 72 69 6e ncr start [strin
1750: 67 20 6c 65 6e 67 74 68 20 24 66 69 6c 65 48 61 g length $fileHa
1760: 73 68 5d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d sh].. }.. }.
1770: 0a 7d 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a .}....#..# NOTE:
1780: 20 41 74 74 65 6d 70 74 20 74 6f 20 76 65 72 69 Attempt to veri
1790: 66 79 20 74 68 61 74 20 65 61 63 68 20 66 69 6c fy that each fil
17a0: 65 20 6e 61 6d 65 20 6e 6f 77 20 68 61 73 20 74 e name now has t
17b0: 68 65 20 63 6f 72 72 65 63 74 20 53 48 41 31 20 he correct SHA1
17c0: 68 61 73 68 0d 0a 23 20 20 20 20 20 20 20 61 73 hash..# as
17d0: 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 69 74 sociated with it
17e0: 20 6f 6e 20 74 68 65 20 70 61 67 65 2e 0d 0a 23 on the page...#
17f0: 0d 0a 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 ..foreach {dummy
1800: 33 20 66 69 6c 65 4e 61 6d 65 7d 20 5b 72 65 67 3 fileName} [reg
1810: 65 78 70 20 2d 61 6c 6c 20 2d 69 6e 6c 69 6e 65 exp -all -inline
1820: 20 2d 6e 6f 63 61 73 65 20 2d 2d 20 24 70 61 74 -nocase -- $pat
1830: 74 65 72 6e 33 20 24 64 61 74 61 5d 20 5c 0d 0a tern3 $data] \..
1840: 20 20 20 20 20 20 20 20 7b 64 75 6d 6d 79 34 20 {dummy4
1850: 66 69 6c 65 48 61 73 68 7d 20 5b 72 65 67 65 78 fileHash} [regex
1860: 70 20 2d 61 6c 6c 20 2d 69 6e 6c 69 6e 65 20 2d p -all -inline -
1870: 6e 6f 63 61 73 65 20 2d 2d 20 24 70 61 74 74 65 nocase -- $patte
1880: 72 6e 34 20 24 64 61 74 61 5d 20 5c 0d 0a 20 20 rn4 $data] \..
1890: 20 20 20 20 20 20 7b 64 75 6d 6d 79 35 20 66 69 {dummy5 fi
18a0: 6c 65 53 69 7a 65 7d 20 5b 72 65 67 65 78 70 20 leSize} [regexp
18b0: 2d 61 6c 6c 20 2d 69 6e 6c 69 6e 65 20 2d 6e 6f -all -inline -no
18c0: 63 61 73 65 20 2d 2d 20 24 70 61 74 74 65 72 6e case -- $pattern
18d0: 35 20 24 64 61 74 61 5d 20 7b 0d 0a 20 20 23 0d 5 $data] {.. #.
18e0: 0a 20 20 23 20 4e 4f 54 45 3a 20 47 65 74 20 74 . # NOTE: Get t
18f0: 68 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66 69 he fully qualifi
1900: 65 64 20 66 69 6c 65 20 6e 61 6d 65 20 62 61 73 ed file name bas
1910: 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 66 69 67 ed on the config
1920: 75 72 65 64 0d 0a 20 20 23 20 20 20 20 20 20 20 ured.. #
1930: 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 23 0d directory... #.
1940: 0a 20 20 73 65 74 20 66 75 6c 6c 46 69 6c 65 4e . set fullFileN
1950: 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 ame [file join $
1960: 6f 75 74 70 75 74 44 69 72 65 63 74 6f 72 79 20 outputDirectory
1970: 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 [file tail $file
1980: 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 23 0d 0a 20 Name]].... #..
1990: 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 # NOTE: If the
19a0: 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 file does not ex
19b0: 69 73 74 2c 20 69 73 73 75 65 20 61 20 77 61 72 ist, issue a war
19c0: 6e 69 6e 67 20 61 6e 64 20 73 6b 69 70 20 69 74 ning and skip it
19d0: 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20 7b 21 5b ... #.. if {![
19e0: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 75 6c file exists $ful
19f0: 6c 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e lFileName]} then
1a00: 20 7b 0d 0a 20 20 20 20 70 75 74 73 20 73 74 64 {.. puts std
1a10: 6f 75 74 20 22 57 41 52 4e 49 4e 47 3a 20 46 69 out "WARNING: Fi
1a20: 6c 65 20 5c 22 24 66 75 6c 6c 46 69 6c 65 4e 61 le \"$fullFileNa
1a30: 6d 65 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65 78 me\" does not ex
1a40: 69 73 74 2c 20 73 6b 69 70 70 65 64 2e 22 0d 0a ist, skipped."..
1a50: 20 20 20 20 63 6f 6e 74 69 6e 75 65 0d 0a 20 20 continue..
1a60: 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f }.... #.. # NO
1a70: 54 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 TE: Make sure th
1a80: 65 20 66 69 6c 65 20 68 61 73 68 20 66 72 6f 6d e file hash from
1a90: 20 74 68 65 20 5b 6d 6f 64 69 66 69 65 64 5d 20 the [modified]
1aa0: 64 61 74 61 20 6d 61 74 63 68 65 73 20 74 68 65 data matches the
1ab0: 0d 0a 20 20 23 20 20 20 20 20 20 20 63 61 6c 63 .. # calc
1ac0: 75 6c 61 74 65 64 20 68 61 73 68 20 66 6f 72 20 ulated hash for
1ad0: 74 68 65 20 66 69 6c 65 2e 20 20 49 66 20 6e 6f the file. If no
1ae0: 74 2c 20 66 61 69 6c 2e 0d 0a 20 20 23 0d 0a 20 t, fail... #..
1af0: 20 73 65 74 20 66 75 6c 6c 46 69 6c 65 48 61 73 set fullFileHas
1b00: 68 20 5b 67 65 74 46 69 6c 65 48 61 73 68 20 24 h [getFileHash $
1b10: 66 75 6c 6c 46 69 6c 65 4e 61 6d 65 5d 0d 0a 0d fullFileName]...
1b20: 0a 20 20 69 66 20 7b 24 66 69 6c 65 48 61 73 68 . if {$fileHash
1b30: 20 6e 65 20 24 66 75 6c 6c 46 69 6c 65 48 61 73 ne $fullFileHas
1b40: 68 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 70 h} then {.. p
1b50: 75 74 73 20 73 74 64 6f 75 74 20 22 45 52 52 4f uts stdout "ERRO
1b60: 52 3a 20 53 48 41 31 20 68 61 73 68 20 6d 69 73 R: SHA1 hash mis
1b70: 6d 61 74 63 68 20 66 6f 72 5c 0d 0a 20 20 20 20 match for\..
1b80: 20 20 20 20 66 69 6c 65 20 5c 22 24 66 75 6c 6c file \"$full
1b90: 46 69 6c 65 4e 61 6d 65 5c 22 2c 20 68 61 76 65 FileName\", have
1ba0: 20 5c 22 24 66 69 6c 65 48 61 73 68 5c 22 20 28 \"$fileHash\" (
1bb0: 66 72 6f 6d 20 64 61 74 61 29 2c 5c 0d 0a 20 20 from data),\..
1bc0: 20 20 20 20 20 20 6e 65 65 64 20 5c 22 24 66 75 need \"$fu
1bd0: 6c 6c 46 69 6c 65 48 61 73 68 5c 22 20 28 63 61 llFileHash\" (ca
1be0: 6c 63 75 6c 61 74 65 64 29 2e 22 0d 0a 20 20 7d lculated).".. }
1bf0: 0d 0a 0d 0a 20 20 73 65 74 20 66 75 6c 6c 46 69 .... set fullFi
1c00: 6c 65 53 69 7a 65 20 5b 67 65 74 46 69 6c 65 53 leSize [getFileS
1c10: 69 7a 65 20 24 66 75 6c 6c 46 69 6c 65 4e 61 6d ize $fullFileNam
1c20: 65 5d 0d 0a 0d 0a 20 20 69 66 20 7b 24 66 69 6c e].... if {$fil
1c30: 65 53 69 7a 65 20 6e 65 20 24 66 75 6c 6c 46 69 eSize ne $fullFi
1c40: 6c 65 53 69 7a 65 7d 20 74 68 65 6e 20 7b 0d 0a leSize} then {..
1c50: 20 20 20 20 70 75 74 73 20 73 74 64 6f 75 74 20 puts stdout
1c60: 22 45 52 52 4f 52 3a 20 42 79 74 65 20 73 69 7a "ERROR: Byte siz
1c70: 65 20 6d 69 73 6d 61 74 63 68 20 66 6f 72 5c 0d e mismatch for\.
1c80: 0a 20 20 20 20 20 20 20 20 66 69 6c 65 20 5c 22 . file \"
1c90: 24 66 75 6c 6c 46 69 6c 65 4e 61 6d 65 5c 22 2c $fullFileName\",
1ca0: 20 68 61 76 65 20 5c 22 24 66 69 6c 65 53 69 7a have \"$fileSiz
1cb0: 65 5c 22 20 28 66 72 6f 6d 20 64 61 74 61 29 2c e\" (from data),
1cc0: 5c 0d 0a 20 20 20 20 20 20 20 20 6e 65 65 64 20 \.. need
1cd0: 5c 22 24 66 75 6c 6c 46 69 6c 65 53 69 7a 65 5c \"$fullFileSize\
1ce0: 22 20 28 63 61 6c 63 75 6c 61 74 65 64 29 2e 22 " (calculated)."
1cf0: 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0d 0a 23 0d 0a 23 .. }..}....#..#
1d00: 20 4e 4f 54 45 3a 20 57 72 69 74 65 20 74 68 65 NOTE: Write the
1d10: 20 5b 6d 6f 64 69 66 69 65 64 5d 20 64 61 74 61 [modified] data
1d20: 20 74 6f 20 74 68 65 20 66 69 6c 65 20 74 6f 20 to the file to
1d30: 62 65 20 75 70 64 61 74 65 64 2e 0d 0a 23 0d 0a be updated...#..
1d40: 69 66 20 7b 24 63 6f 75 6e 74 20 3e 20 30 7d 20 if {$count > 0}
1d50: 74 68 65 6e 20 7b 0d 0a 20 20 77 72 69 74 65 46 then {.. writeF
1d60: 69 6c 65 20 24 75 70 64 61 74 65 46 69 6c 65 4e ile $updateFileN
1d70: 61 6d 65 20 24 64 61 74 61 0d 0a 7d 20 65 6c 73 ame $data..} els
1d80: 65 20 7b 0d 0a 20 20 70 75 74 73 20 73 74 64 6f e {.. puts stdo
1d90: 75 74 20 22 57 41 52 4e 49 4e 47 3a 20 4e 6f 20 ut "WARNING: No
1da0: 63 68 61 6e 67 65 73 2c 20 75 70 64 61 74 65 20 changes, update
1db0: 6f 66 20 5c 22 24 75 70 64 61 74 65 46 69 6c 65 of \"$updateFile
1dc0: 4e 61 6d 65 5c 22 20 73 6b 69 70 70 65 64 2e 22 Name\" skipped."
1dd0: 0d 0a 7d 0d 0a ..}..