# HG changeset patch # User Matti Hamalainen # Date 1483844214 -7200 # Node ID 1ada0cb9bdd96ea4442f8d7b1037e06147fd07df # Parent 04021e2e26c39e318b4acff6b41c747678513fc0 weather: Some stray weather_msg_do calls were left in, fix those. diff -r 04021e2e26c3 -r 1ada0cb9bdd9 weather.tcl --- a/weather.tcl Sun Jan 08 04:15:50 2017 +0200 +++ b/weather.tcl Sun Jan 08 04:56:54 2017 +0200 @@ -54,14 +54,15 @@ proc weather_usage {apublic anick achan amsg} { global weather_msg_usage_prefix_1 weather_msg_usage_prefix_2 + global weather_preferredmsg set nline 0 foreach aline [split $amsg "\n"] { if {[string range $aline 0 1] == ":"} { - weather_msg_do $apublic $anick $achan $aline + utl_msg_do $weather_preferredmsg $apublic $anick $achan $aline } elseif {$nline == 0} { - weather_msg_do $apublic $anick $achan "$weather_msg_usage_prefix_1$aline" + utl_msg_do $weather_preferredmsg $apublic $anick $achan "$weather_msg_usage_prefix_1$aline" } else { - weather_msg_do $apublic $anick $achan "$weather_msg_usage_prefix_2$aline" + utl_msg_do $weather_preferredmsg $apublic $anick $achan "$weather_msg_usage_prefix_2$aline" } incr nline }