Mercurial > hg > egg-tcls
changeset 661:721c8cef5039
fetch_feeds: Clean up some comments.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Fri, 19 Feb 2021 21:06:20 +0200 |
| parents | ab2ba0b82407 |
| children | bb6aea76cdb4 |
| files | fetch_feeds.tcl |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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