incith-horoscope tls diff

--- incith-horoscope.tcl        2013-05-28 07:09:52.000000000 -0400
+++ incith-horoscope-tls.tcl    2017-09-21 23:03:40.153410973 -0400
@@ -42,6 +42,7 @@
 # http://incith.com ~ [email protected] ~ irc.freenode.net/#incith     #
 #---------------------------------------------------------------------#
 package require http 2.3
+package require tls
 setudef flag horoscope

 namespace eval incith::horoscope {
@@ -175,10 +176,10 @@
       return
     }
     # valid, set our url
-    set input(url) "http://www.astrology.com/horoscopes/daily-horoscope.rss"
+    set input(url) "https://www.astrology.com/horoscopes/daily-horoscope.rss"
     foreach sign [split ${incith::horoscope::en_chinese} " "] {
       if {$input(query) == $sign} {
-        set input(url) "http://www.astrology.com/horoscopes/daily-chinese.rss"
+        set input(url) "https://www.astrology.com/horoscopes/daily-chinese.rss"
         break
       }
     }
@@ -209,6 +210,7 @@
       ::http::config -useragent $ua
     }
     # retrieve the html
+    http::register https 443 [list ::tls::socket -tls1 1]
     if {$incith::horoscope::callback >= 1} {
       catch {set token [::http::geturl "$input(url)" -command incith::horoscope::httpCommand -timeout $timeout]} output(status)
     } else {