Mercurial > hg > egg-tcls

changeset 220:03579553233b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Add setting for specifying channels where weather commands are available.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 30 Sep 2014 14:48:51 +0300
parents 4e09bcc48851
children b8bf9d7666b6
files weather.tcl
diffstat 1 files changed, 15 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/weather.tcl	Tue Sep 30 14:47:58 2014 +0300
+++ b/weather.tcl	Tue Sep 30 14:48:51 2014 +0300
@@ -10,9 +10,14 @@
 #
 ##########################################################################
 
+# Channels where weather functionality is enabled
+# set weather_channels "#foobar;#baz"
+# You can use * to match substrings or everything
+set weather_channels "*"
+
 # Default location if none given and none set by user.
 # Multiple can be specified as "foo;bar;etc"
-set weather_default_locations "raahe"
+set weather_default_locations "raahe lapaluoto;tie 8 pattijoki"
 
 # Weather data file, must match the one in fetch_weather.pl's config
 set weather_datafile "/home/niinuska/bot/weather.data"
@@ -492,7 +497,15 @@
 
 #-------------------------------------------------------------------------
 proc weather_cmd_pub {unick uhost uhand uchan uargs} {
-  return [weather_cmd $unick $uhand $uchan $uargs 1]
+  global weather_channels
+
+  foreach akey [split $weather_channels ";"] {
+    if {[string match $akey $uchan]} {
+      return [weather_cmd $unick $uhand $uchan $uargs 1]
+    }
+  }
+
+  return 0
 }
 
 #-------------------------------------------------------------------------