Added retry logic to fetching process
This commit is contained in:
+1
-1
@@ -154,7 +154,7 @@ proc getfile {url} {
|
||||
} else {return {}}
|
||||
}
|
||||
https - http {
|
||||
set hs [::http::geturl $url -binary 1 -keepalive 0 -timeout 4000]
|
||||
set hs [::http::geturl $url -binary 1 -keepalive 0 -timeout 10000]
|
||||
if {[::http::ncode $hs] eq "200"} {
|
||||
return [::http::data $hs]
|
||||
} else {return {}}
|
||||
|
||||
Reference in New Issue
Block a user