Mercurial > hg > egg-tcls
diff hae_feedit.tcl @ 69:df3230f8aa46
Translate some comments to english and cosmetic fixes.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 11 Sep 2011 17:43:32 +0300 |
| parents | 7b03971c6d28 |
| children | 593874678e45 |
line wrap: on
line diff
--- a/hae_feedit.tcl Sun Sep 11 16:48:48 2011 +0300 +++ b/hae_feedit.tcl Sun Sep 11 17:43:32 2011 +0300 @@ -2,14 +2,14 @@ # # NOTICE! Change above path to correct tclsh binary path! # -############################################################################ +########################################################################## # # FeedCheck fetcher v0.7 by ccr/TNSP <ccr@tnsp.org> -# (C) Copyright 2008-2010 Tecnic Software productions (TNSP) +# (C) Copyright 2008-2011 Tecnic Software productions (TNSP) # # This script is freely distributable under GNU GPL (version 2) license. # -############################################################################ +########################################################################## # Datafile, MUST be set to same as in feeds.tcl set datafile "/home/niinuska/bot/data.feeds" @@ -22,7 +22,7 @@ set http_proxy_port 800 -############################################################################## +########################################################################## set html_ent [split " | |»|>>|"|\"|ä|ä|ö|ö|Ä|Ä|Ö|Ö|&|&|<|<|>|>|ä|ä|ö|ö|Ä|Ä" "|"] package require http @@ -82,8 +82,8 @@ } -############################################################################## -### Luetaan vanhat paskat +########################################################################## +### Read in old data set oldurls 0 set newurls 0 if {![catch {set ufile [open $datafile r 0600]} uerrmsg]} { @@ -102,7 +102,7 @@ ############################################################################## -### Haetaan ja parsitaan Halla-ahon jutut +### Fetch and parse Halla-aho's blog page data set datauri "http://www.halla-aho.com/scripta/"; set dataname "Mestari" if {[catch {set utoken [::http::geturl $datauri -binary true -timeout 5000]} uerrmsg]} { @@ -159,7 +159,7 @@ } -### Hae RSS-feedit +### Generic RSS-feed fetching add_rss_feed "http://www.kaleva.fi/rss/145.xml" "Kaleva/Tiede" "" #add_rss_feed "http://sektori.com/?tpl=rssNewsFeed" "Sektori" "" @@ -173,7 +173,7 @@ #add_rss_feed "http://lehti.samizdat.info/feed/" "Lehti" "" ############################################################################## -### Avataan tulostiedosto +### Open data file for writing set tmpfname "$datafile.tmp" if {[catch {set outfile [open $tmpfname w 0600]} uerrmsg]} { puts "Error opening $tmpfname for writing: $uerrmsg"