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 />| |&nbsp;| |&#160;| |&raquo;|>>|&quot;|\"|&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|ä|ä|ö|ö|Ä|Ä" "|"]
 
 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]} {