diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-04-24 19:05:45 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-04-24 19:05:45 (GMT) |
| commit | 508a62b0e576fcc850fb702b6275ab204ca94ece (patch) | |
| tree | de7d1d6fb00ed72a8ff0f161086efbee2bd5b953 /ds9/library/hvsup.tcl | |
| parent | 19df70d23034ed5a3e549b64a7e0a36a569a90ac (diff) | |
| download | blt-508a62b0e576fcc850fb702b6275ab204ca94ece.zip blt-508a62b0e576fcc850fb702b6275ab204ca94ece.tar.gz blt-508a62b0e576fcc850fb702b6275ab204ca94ece.tar.bz2 | |
support https via tls
Diffstat (limited to 'ds9/library/hvsup.tcl')
| -rw-r--r-- | ds9/library/hvsup.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ds9/library/hvsup.tcl b/ds9/library/hvsup.tcl index c16545a..b5b4a2d 100644 --- a/ds9/library/hvsup.tcl +++ b/ds9/library/hvsup.tcl @@ -213,7 +213,8 @@ proc HVLoadURL {varname url query {sync 0}} { file - {} {HVProcessURLFile $varname $url $query r} ftp {HVProcessURLFTP $varname $url $query r} - http {HVProcessURLHTTP $varname $url $query r $sync} + http - + https {HVProcessURLHTTP $varname $url $query r $sync} default {HVError $varname "[msgcat::mc {Sorry, DS9 does not support}] $r(scheme)"} } } @@ -1125,7 +1126,8 @@ proc HVParseHTML {varname} { set base {} # scheme switch $r(scheme) { - http {append base "$r(scheme)://"} + http - + https {append base "$r(scheme)://"} ftp {} file {} } @@ -1829,7 +1831,8 @@ proc HVImageURL {varname url width height} { } } } - http { + http - + https { set ch {} set fn [tmpnam [file extension $r(path)]] |