diff options
author | Aki <please@ignore.pl> | 2020-08-06 20:49:30 +0200 |
---|---|---|
committer | Aki <please@ignore.pl> | 2020-08-06 20:49:30 +0200 |
commit | ed4063b53852cfd186970cf0ceb2379053720273 (patch) | |
tree | f9ffee710f413079559261e15ce56714a0d6cb09 /viewhtml | |
parent | 7517212644c3978ef2c7bd0dc2d8a4dde88e7e42 (diff) | |
download | browse-ed4063b53852cfd186970cf0ceb2379053720273.zip browse-ed4063b53852cfd186970cf0ceb2379053720273.tar.gz browse-ed4063b53852cfd186970cf0ceb2379053720273.tar.bz2 |
Changed viewhtml to use phttp to get images
Diffstat (limited to 'viewhtml')
-rwxr-xr-x | viewhtml | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -70,8 +70,9 @@ proc displayNode {node tagList} { } elseif {$tag == "img"} { $w insert end "\n" set lattr [array get $attributes] - set path "$baseAddress/[lindex $lattr [expr [lsearch -exact $lattr src] + 1]]" - image create photo $path -file $path + set path "$baseAddress[lindex $lattr [expr [lsearch -exact $lattr src] + 1]]" + set localPath [lindex [split [exec ./phttp $path] { }] 2] + image create photo $path -file $localPath $w image create end -image $path $w insert end "\n" } |