# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1594112416 -10800
# Node ID 4656f4fd0aa9c9165518d8fe4ef40130c3a6e917
# Parent  0da68d583b38fe6630629eac4bcbcd262846b6dd
fetch_feeds: Fix OOTS fetching, needs https:// nowadays.

diff -r 0da68d583b38 -r 4656f4fd0aa9 fetch_feeds.tcl
--- 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]]
   }
 }