Mercurial > hg > egg-tcls

changeset 521:4656f4fd0aa9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_feeds: Fix OOTS fetching, needs https:// nowadays.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 07 Jul 2020 12:00:16 +0300
parents 0da68d583b38
children 4b6ae9765903
files fetch_feeds.tcl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/fetch_feeds.tcl	Sat May 02 15:29:14 2020 +0300
+++ b/fetch_feeds.tcl	Tue Jul 07 12:00:16 2020 +0300
@@ -181,7 +181,7 @@
 
 ### Order of the Stick
 proc fetch_oots { } {
-  set datauri "http://www.giantitp.com/comics/oots.html";
+  set datauri "https://www.giantitp.com/comics/oots.html";
   set dataname "OOTS"
   if {![fetch_dorequest $datauri ustatus uscode ucode upage umeta]} {
     return 0
@@ -190,7 +190,7 @@
   set umatches [regexp -all -nocase -inline -- "<a href=\"(/comics/oots\[0-9\]+\.html)\">(\[^<\]+)</a>" $upage]
   set nmatches [llength $umatches]
   for {set n 0} {$n < $nmatches} {incr n 3} {
-    add_entry $dataname "http://www.giantitp.com" [lindex $umatches [expr $n+1]] [lindex $umatches [expr $n+2]]
+    add_entry $dataname "https://www.giantitp.com" [lindex $umatches [expr $n+1]] [lindex $umatches [expr $n+2]]
   }
 }