egg-tcls: weather.tcl annotate

annotate weather.tcl @ 157:c8fa73ba67da

weather: Cosmetics.

author	Matti Hamalainen <ccr@tnsp.org>
date	Sun, 01 Jun 2014 18:47:50 +0300
parents	a1f4c163e48c
children	2c9db9a29429

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
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	15 set weather_datafile "/home/niinuska/bot/data.weather"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	16 set weather_check_period 5
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	17
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	18 set weather_max_results 3
a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	19
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20 set weather_logmsg 1
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	21 set weather_preferredmsg "PRIVMSG"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	22
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	23
157 c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	24 ###
c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	25 ### Messages
c8fa73ba67da weather: Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 156 diff changeset	26 ###
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	27 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	28 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	29 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	30 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	31 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	32
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 # 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	36 ##########################################################################
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	37 set weather_name "Weather"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	38 set weather_version "0.1"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	39
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	40 ### Binding initializations
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	41 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	42 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	43 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	44 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	45
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 ### Initialization messages
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48 package require textutil::split
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	49 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	50 putlog "$weather_message"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	51
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 proc weather_log {arg} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	55 global weather_logmsg weather_name
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	56 if {$weather_logmsg != 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	57 putlog "$weather_name: $arg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	58 }
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 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	63 global weather_preferredmsg
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64 if {$apublic == 1} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	65 putserv "$weather_preferredmsg $achan :$amsg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	66 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	67 putserv "$weather_preferredmsg $anick :$amsg"
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	68 }
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 proc weather_ctime {utime} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	73 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	74 }
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 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	78 proc weather_update {} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	79 global weather_datafile weather_data
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	80
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	81 # Create dict
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82 array set weather_data {}
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	83 set wtemp_min_val 500000
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	84 set wtemp_max_val -500000
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	85 set wtemp_min_key ""
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	86 set wtemp_max_key ""
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	87
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	88 # Read datafile
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89 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	90 while {![eof $ufile]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	91 gets $ufile uline
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	92 set udata [split $uline "\|"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	93 if {[llength $udata] > 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	94 set utemp [lindex $udata 2]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	95 set ukey [lindex $udata 0]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	96
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	97 set weather_data($ukey) $udata
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	98
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	99 if {$utemp < $wtemp_min_val} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	100 set wtemp_min_key $ukey
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	101 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	102 if {$utemp > $wtemp_max_val} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	103 set wtemp_max_key $ukey
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	104 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	105 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	106 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	107 close $ufile
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	108
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	109 # Store min/max
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	110 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	111 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	112 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	113 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	114 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	115 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	116
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 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	119 proc weather_exec {} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	120 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	121
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	122 # Perform update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	123 weather_update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	124
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	125 # Schedule next update
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	126 set weather_running [clock seconds]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	127 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	128 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	129
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	130
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	131 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	132 if {![info exists weather_data]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	133 array set weather_data {}
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
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	136 if {[info exists weather_running]} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	137 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	138 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	139 set weather_last -1
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	140 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	141
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	142 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	143 weather_log "Starting weather update."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	144 weather_exec
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	146 weather_update
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 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	150 proc weather_get_data {ukey udata} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	151 return "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 1]]: \002[lindex $udata 2]�C\002."
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	152 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	153
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	155 proc weather_get_key {ukey} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	156 global weather_data
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	157 return [weather_get_data $ukey $weather_data($ukey)]
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 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	162 proc weather_cmd {unick uhand uchan uargs upublic} {
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	163 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	164 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	165 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	166
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	167 # Check and handle arguments
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	168 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	169 set rarg [lindex $rarglist 0]
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 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	172 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	173 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	174 return 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	175 }
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 # Setting the location
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	178 if {$rarg == "aseta" \|\| $rarg == "set"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 if {$uhand == "" \|\| $uhand == "{}"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	180 weather_msg $upublic $unick $uchan $weather_msg_user_not_known
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	181 return 0
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 # 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	185 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	186 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	187
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188 if {[llength $nlist] > 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189 set lista [join $nlist ";"]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	190 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	191 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	192 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	193 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	194 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	195 return 0
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
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	198 # 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	199 set rargs [join $rarglist " "]
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200 if {$rargs == "" && ($uhand == "" \|\| $uhand == "{}")} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201 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	202 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203 if {$rargs == "" \|\| $rargs == "{}"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204 set rargs $weather_default_locations
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 # Handle argument list
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	208 set nresults 0
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	209 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	210 foreach rarg $rarglist {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	211 if {$rarg == "min"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	212 # Min temp
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	213 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	214 weather_msg $upublic $unick $uchan "Min: $umin"
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	215 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	216 } elseif {$rarg == "max"} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	217 # Max temp
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218 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	219 weather_msg $upublic $unick $uchan "Max: $umax"
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	220 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221 } 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	222 # Min & Max temps
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223 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	224 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	225 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	226 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228 # Location match
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229 set ufound 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	230 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	231 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	232 if {[llength $uvalue] > 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	233 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	234 incr nresults
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	235 } else {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	236 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	237 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	238 incr ufound
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	239 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	240 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	241
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	242 if {$ufound == 0} {
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	243 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	244 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	245 }
156 a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	246 if {$nresults >= $weather_max_results} {
a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	247 return 0
a1f4c163e48c weather: Add max results limit. Matti Hamalainen <ccr@tnsp.org> parents: 153 diff changeset	248 }
153 8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	249 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	250 return 0
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	251 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	252
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	253
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	254
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	255 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	256 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	257 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	258 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	259
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260 #-------------------------------------------------------------------------
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	261 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	262 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	263 }
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	264
8b888a9f07df New script, weather.tcl. Needs backend stuff to be implemented. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	265 # end of script

Mercurial > hg > egg-tcls

annotate weather.tcl @ 157:c8fa73ba67da