Index: Setup/updateFileInfo.tcl ================================================================== --- Setup/updateFileInfo.tcl +++ Setup/updateFileInfo.tcl @@ -83,25 +83,25 @@ } # # NOTE: Setup the regular expression patterns with the necessary captures. # These patterns are mostly non-greedy; however, at the end we need to -# match exactly 40 hexadecimal characters. In theory, in Tcl, this could +# match exactly 40 hexadecimal characters. In theory, in Tcl, this can # have an undefined result due to the mixing of greedy and non-greedy # quantifiers; however, in practice, this seems to work properly. Also, -# this pattern assumes a particular structure for the [HTML] file to be +# these patterns assume a particular structure for the [HTML] file to be # updated. # set pattern1 {.*?\((\d+?\.\d+?) MiB\).*?sha1:\ + href=".*?/([^"]*?\.(?:exe|zip|nupkg))">.*?\((\d+?\.\d+?) MiB\).*?sha1:\ ([0-9A-F]{40})} set pattern2 {(.*?).*?\((\d+?\.\d+?)\ + href="[^"]*?/package/[^"]*?/\d+\.\d+\.\d+\.\d+">(.*?).*?\((\d+?\.\d+?)\ MiB\).*?sha1: ([0-9A-F]{40})} -set pattern3 {href="/downloads/(.*?)"} +set pattern3 {href="/downloads/([^"]*?)"} set pattern4 {\(sha1: ([0-9A-F]{40})\)} set pattern5 {\((\d+?\.\d+?) MiB\)} # # NOTE: Grab all the data from the file to be updated.