# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1613761580 -7200
# Node ID 721c8cef50394acc43368351f743edf4b7c9b2bf
# Parent  ab2ba0b82407c85d954adff53af4158acaeda95c
fetch_feeds: Clean up some comments.

diff -r ab2ba0b82407 -r 721c8cef5039 fetch_feeds.tcl
--- a/fetch_feeds.tcl	Fri Feb 19 21:06:04 2021 +0200
+++ b/fetch_feeds.tcl	Fri Feb 19 21:06:20 2021 +0200
@@ -236,8 +236,11 @@
 
 
 ##############################################################################
-### Open database, etc
+###
+### Main code starts
+###
 ##############################################################################
+### Set up HTTP stuff
 if {[info exists http_user_agent] && $http_user_agent != ""} {
   ::http::config -urlencoding utf8 -useragent $http_user_agent
 } else {
@@ -253,8 +256,7 @@
   ::http::register https 443 [list ::tls::socket -request true -require true -ssl2 false -ssl3 false -tls1 true -tls1.1 true -tls1.2 true -cadir $http_tls_cadir -autoservername true]
 }
 
-
-
+### Open database
 set nitems 0
 set currclock [clock seconds]
 global feeds_db