Mercurial > hg > egg-tcls
changeset 213:330d7e39c8f4
weather: Add extra data field.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 24 Sep 2014 21:42:58 +0300 |
parents | 5f04ec60e8d9 |
children | f3f2363d8686 |
files | fetch_weather.pl weather.tcl |
diffstat | 2 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/fetch_weather.pl Wed Sep 24 21:40:49 2014 +0300 +++ b/fetch_weather.pl Wed Sep 24 21:42:58 2014 +0300 @@ -408,6 +408,7 @@ get_node($fdata, "text", 2), get_node($fdata, "text", 3), translate_th_rain(get_node($fdata, "text", 4)), + "", get_node($fdata, "text", 5), ]; }
--- a/weather.tcl Wed Sep 24 21:40:49 2014 +0300 +++ b/weather.tcl Wed Sep 24 21:42:58 2014 +0300 @@ -201,6 +201,7 @@ set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 2]]: \002[lindex $udata 3]°C\002" append str [weather_item $udata 5 ", @@"] append str [weather_item $udata 6 ", kosteus \002@@%\002"] + append str [weather_item $udata 7 ", \002@@%\002"] append str [weather_item $udata 4 ", tien pinta @@°C"] return "${str}." }