Mercurial > hg > egg-tcls
diff hae_ruoka.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_ruoka.tcl Sun Sep 11 16:48:48 2011 +0300 +++ b/hae_ruoka.tcl Sun Sep 11 17:43:32 2011 +0300 @@ -5,24 +5,24 @@ ########################################################################## # # RuokaLista fetcher v1.0 by ccr/TNSP <ccr@tnsp.org> -# (C) Copyright 2010 Tecnic Software productions (TNSP) +# (C) Copyright 2010-2011 Tecnic Software productions (TNSP) # # This script is freely distributable under GNU GPL (version 2) license. # ########################################################################## -# Datatiedosto, oltava sama kuin ruoka.tcl:n vastaava asetus +# Path and filename of the data file, MUST BE SAME as in "ruoka.tcl" set datafile "/home/niinuska/bot/data.ruoka" -# Käytä HTTP proxya? 1 = kyllä, 0 = ei +# Use a HTTP proxy? (1 = yes, 0 = no) set http_proxy 0 -# HTTP proxyn osoite ja portti +# HTTP proxy host address and port (only needed if use_proxy = 1) set http_proxy_host "cache.inet.fi" set http_proxy_port 800 -############################################################################## +########################################################################## set html_ent [split "\n| |\r| |<br />| | | | | |»|>>|"|\"|ä|ä|ö|ö|Ä|Ä|Ö|Ö|&|&|<|<|>|>|ä|ä|ö|ö|Ä|Ä" "|"] package require http @@ -112,7 +112,7 @@ } -############################################################################## +########################################################################## set kello [clock seconds] set viikko [expr [clock format $kello -format "%W"] + 1] set vuosi [clock format $kello -format "%Y"] @@ -133,7 +133,7 @@ add_uniresta "$str=11" "Minttu" -############################################################################## +########################################################################## ### Open result datafile and save data set tmpfname "$datafile.tmp" if {[catch {set outfile [open $tmpfname w 0600]} uerrmsg]} {