frodovdr/raspberrymatic-addon-rmupdate
1
0
Fork 0
mirror of https://github.com/j-a-n/raspberrymatic-addon-rmupdate.git synced 2023-10-10 13:37:40 +02:00
Code Issues Releases Wiki Activity

Improve regular expression to find download links

Browse Source
This commit is contained in:
Jan Schneider 2018-04-03 23:15:26 +02:00
parent 04bd269d55
commit 8aa2983eb3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
addon/lib/rmupdate.tcl
View File

@ -1394,11 +1394,11 @@ proc ::rmupdate::get_addon_info {{fetch_available_version 0} {fetch_download_url
regsub -all {\n+} $data3 "" oneline regsub -all {\n+} $data3 "" oneline
regsub -all {<a} $oneline "\n<a" alines regsub -all {<a} $oneline "\n<a" alines
foreach d [split $alines "\n"] { foreach d [split $alines "\n"] {
if {[regexp {<a[^>]+\shref\s*=\s*"([^"]+)"[^>]*>([^>]*)<} $d match href text]} { if {[regexp {<a[^>]*\shref\s*=\s*"([^"]+)"[^>]*>(.*)</a} $d match href text]} {
set filename "" set filename ""
if {[regexp {\s*(\S.+\.tar.gz)\s*} $href match fn]} { if {[regexp {\s*(\S.+\.tar.gz)\s*} $href match fn]} {
set filename $fn set filename $fn
} elseif {[regexp {\s*(\S.+\.tar.gz)\s*} $text match fn]} { } elseif {[regexp {([^\s>]+\.tar.gz)\s*} $text match fn]} {
set filename $fn set filename $fn
} }
if {$filename != ""} { if {$filename != ""} {