egg-tcls: weather.tcl annotate

annotate weather.tcl @ 161:2c9db9a29429

weather: More work, bugfixes.

author	Matti Hamalainen <ccr@tnsp.org>
date	Mon, 02 Jun 2014 15:53:53 +0300
parents	c8fa73ba67da
children	bee5cd89d41c

rev	line source
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 ##########################################################################
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 #
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	3 # Weather v0.1 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	4 # (C) Copyright 2014 Tecnic Software productions (TNSP)
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5 #
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 # Requires get_weather.tcl to be run as a cronjob, for example
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7 # 15 * * * * /absolute/path/to/get_weather.tcl
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	8 #
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9 # This script is freely distributable under GNU GPL (version 2) license.
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 #
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 ##########################################################################
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	12
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	13 set weather_default_locations "raahe"
157 c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	14
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	15 set weather_datafile "/home/niinuska/bot/weather.data"
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	16 set weather_aliasfile "/home/niinuska/bot/weather.alias"
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	17 set weather_check_period 2
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	18
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	19 set weather_max_results 3
a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	20
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	21 set weather_logmsg 1
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	22 set weather_preferredmsg "PRIVMSG"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	23
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	24
157 c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	25 ###
c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	26 ### Messages
c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	27 ###
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	28 set weather_msg_usage_1 "K�ytt�: !s��2 \[paikka\]"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	29 set weather_msg_usage_2 "K�ytt�: !s��2 aseta <paikka>\[;<paikka2>\]"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	30 set weather_msg_user_not_known "Tuntematon k�ytt�j�."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	31 set weather_msg_no_results "Ei mittaustietoja."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	32 set weather_msg_no_data_for_location "Paikkakunnan tietoja ei saatu."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	33
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	34
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	35 ##########################################################################
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	36 # No need to look below this line
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	37 ##########################################################################
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	38 set weather_name "Weather"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	39 set weather_version "0.1"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	40
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	41 ### Binding initializations
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	42 bind pub - !s��2 weather_cmd_pub
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	43 bind pub - !saa2 weather_cmd_pub
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	44 bind msg - !s��2 weather_cmd_msg
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	45 bind msg - !saa2 weather_cmd_msg
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	46
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	47
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48 ### Initialization messages
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	49 package require textutil::split
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	50 set weather_message "$weather_name v$weather_version by ccr/TNSP"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	51 putlog "$weather_message"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	52
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	53
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	54 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	55 proc weather_log {arg} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	56 global weather_logmsg weather_name
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	57 if {$weather_logmsg != 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	58 putlog "$weather_name: $arg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	59 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	60 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	61
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	62
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	63 proc weather_msg {apublic anick achan amsg} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64 global weather_preferredmsg
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	65 if {$apublic == 1} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	66 putserv "$weather_preferredmsg $achan :$amsg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	67 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	68 putserv "$weather_preferredmsg $anick :$amsg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	69 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	70 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	71
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	72
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	73 proc weather_ctime {utime} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	74 return [clock format $utime -format "%H:%M"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	75 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	76
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	77
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	78 proc weather_valid_user {uhand} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	79 if {$uhand != "" && $uhand != "{}" && $uhand != "*"} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	80 return 1
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	81 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	82 return 0
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	83 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	84
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	85
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	86 proc weather_check_user {uhand} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	87 if {![weather_valid_user $uhand]} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	88 weather_msg $upublic $unick $uchan $weather_msg_user_not_known
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	89 return 0
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	90 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	91 return 1
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	92 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	93
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	94
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	95 #-------------------------------------------------------------------------
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	96 proc weather_get_data {ukey udata} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	97 set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 1]]: \002[lindex $udata 2]�C\002"
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	98 if {[llength $udata] > 3} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	99 append str ", tien pinta [lindex $udata 3]�C"
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	100 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	101 if {[llength $udata] > 4} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	102 append str ", [lindex $udata 4]"
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	103 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	104 return "${str}."
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	105 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	106
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	107
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	108 proc weather_get_key {ukey} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	109 global weather_data
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	110 return [weather_get_data $ukey $weather_data($ukey)]
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	111 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	112
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	113
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	114 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	115 proc weather_update {} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	116 global weather_datafile weather_data
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	117
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	118 # Create dict
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	119 array unset weather_data
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	120 array set weather_data {}
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	121 set wtemp_min_val 500000
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	122 set wtemp_max_val -500000
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	123 set wtemp_min_key ""
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	124 set wtemp_max_key ""
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	125
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	126 # Read datafile
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	127 if {![catch {set ufile [open $weather_datafile r 0600]} uerrmsg]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	128 while {![eof $ufile]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	129 gets $ufile uline
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	130 set udata [split $uline "\|"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	131 if {[llength $udata] > 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	132 set utemp [lindex $udata 2]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	133 set ukey [lindex $udata 0]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	134
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	135 set weather_data($ukey) $udata
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	136
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	137 if {[string is double -strict $utemp]} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	138 if {$utemp < $wtemp_min_val} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	139 set wtemp_min_key $ukey
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	140 set wtemp_min_val $utemp
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	141 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	142 if {$utemp > $wtemp_max_val} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	143 set wtemp_max_key $ukey
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	144 set wtemp_max_val $utemp
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	145 }
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	146 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	147 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	148 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	149 close $ufile
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	150
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	151 # Store min/max
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	152 set weather_data(w_min) $weather_data($wtemp_min_key)
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	153 set weather_data(w_max) $weather_data($wtemp_max_key)
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	155 weather_log "Could not open data file: $uerrmsg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	156 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	157 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	158
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	159
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	160 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	161 proc weather_exec {} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	162 global weather_check_period weather_running
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164 # Perform update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	165 weather_update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	166
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	167 # Schedule next update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	168 set weather_running [clock seconds]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	169 timer $weather_check_period weather_update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	170 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	171
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	172
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	173 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	174 if {![info exists weather_data]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	175 array set weather_data {}
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	176 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	177
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	178 if {[info exists weather_running]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 set weather_last [expr [clock seconds] - $weather_running]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	180 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	181 set weather_last -1
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	182 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	183
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	184 if {$weather_last < 0 \|\| $weather_last > [expr $weather_check_period * 60]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	185 weather_log "Starting weather update."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186 weather_exec
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	187 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188 weather_update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	190
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	191 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	192 proc weather_cmd {unick uhand uchan uargs upublic} {
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	193 global weather_default_locations weather_data weather_max_results
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	194 global weather_msg_usage_1 weather_msg_usage_2 weather_msg_user_not_known
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	195 global weather_msg_no_results weather_msg_no_data_for_location
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	196
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197 # Check and handle arguments
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	198 set rarglist [::textutil::split::splitx $uargs {\s+}]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	199 set rarg [lindex $rarglist 0]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201 if {$rarg == "?" \|\| $rarg == "help" \|\| $rarg == "apua"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	202 weather_msg $upublic $unick $uchan $weather_msg_usage_1
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203 weather_msg $upublic $unick $uchan $weather_msg_usage_2
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204 return 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	207 # Setting the location
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	208 if {$rarg == "aseta" \|\| $rarg == "set"} {
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	209 if {![weather_check_user $uhand]} {
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	210 return 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	211 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	212
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	213 # Split the list of desired locations
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	214 set qlist [::textutil::split::splitx [join [lrange $rarglist 1 end] " "] {\s\;\s}]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	215 set nlist [lsearch -all -inline -not -exact $qlist ""]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	216
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	217 if {[llength $nlist] > 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218 set lista [join $nlist ";"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	219 weather_msg $upublic $unick $uchan "Vakiopaikoiksi asetettu: \002${lista}\002."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220 setuser $uhand XTRA "weather_locations" $lista
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	222 weather_msg $upublic $unick $uchan $weather_msg_usage_2
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	224 return 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	225 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	226
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	227 if {$rarg == "default" \|\| $rarg == "vakio"} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	228 if {![weather_check_user $uhand]} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	229 return 0
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	230 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	231
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	232 set lista [getuser $uhand XTRA "weather_locations"]
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	233 if {$lista == "" \|\| $lista == "{}"} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	234 set lista "Ei asetettu"
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	235 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	236 weather_msg $upublic $unick $uchan "Vakiopaikat ${uhand}: \002${lista}\002."
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	237 return 0
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	238 }
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	239
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	240 # Get args or default location(s)
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	241 set rargs [join $rarglist " "]
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	242 if {$rargs == "" && $uhand != "" && $uhand != "{}" && $uhand != "*"} {
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	243 set rargs [getuser $uhand XTRA "weather_locations"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	244 }
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	245 if {$rargs == ""} {
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	246 set rargs $weather_default_locations
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	247 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	248
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	249 # Handle argument list
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	250 set nresults 0
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	251 set rarglist [::textutil::split::splitx $rargs "\s\;\s"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	252 foreach rarg $rarglist {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	253 if {$rarg == "min"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	254 # Min temp
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	255 set umin [weather_get_key "w_min"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	256 weather_msg $upublic $unick $uchan "Min: $umin"
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	257 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	258 } elseif {$rarg == "max"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	259 # Max temp
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260 set umax [weather_get_key "w_max"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	261 weather_msg $upublic $unick $uchan "Max: $umax"
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	262 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	263 } elseif {$rarg == "minmax" \|\| $rarg == "min max" \|\| $rarg == "maxmin" \|\| $rarg == "max min"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	264 # Min & Max temps
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	265 set umin [weather_get_key "w_min"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	266 set umax [weather_get_key "w_max"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	267 weather_msg $upublic $unick $uchan "Min: $umin \| Max: $umax"
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	268 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	269 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	270 # Location match
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	271 set ufound 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	272 foreach {ukey uvalue} [array get weather_data] {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	273 if {![string match "w_" $ukey] && [string match -nocase "${rarg}*" $ukey]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	274 if {[llength $uvalue] > 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	275 weather_msg $upublic $unick $uchan [weather_get_data $ukey $uvalue]
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	276 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	277 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	278 weather_msg $upublic $unick $uchan "\002${ukey}\002: $weather_msg_no_results"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	279 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	280 incr ufound
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	281 }
161 2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	282
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	283 if {$nresults >= $weather_max_results} {
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	284 return 0
2c9db9a29429 weather: More work, bugfixes. Matti Hamalainen <ccr@tnsp.org> parents: 157 diff changeset	285 }
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	286 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	287
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	288 if {$ufound == 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	289 weather_msg $upublic $unick $uchan "\002${rarg}\002: $weather_msg_no_data_for_location"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	290 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	291 }
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	292 if {$nresults >= $weather_max_results} {
a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	293 return 0
a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	294 }
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	295 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	296 return 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	297 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	298
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	299
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	300
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	301 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	302 proc weather_cmd_pub {unick uhost uhand uchan uargs} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	303 return [weather_cmd $unick $uhand $uchan $uargs 1]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	304 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	305
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	306 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	307 proc weather_cmd_msg {unick uhost uhand uargs} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	308 return [weather_cmd $unick $uhand "PRIV" $uargs 0]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	309 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	311 # end of script

Mercurial > hg > egg-tcls

annotate weather.tcl @ 161:2c9db9a29429