Mercurial > hg > egg-tcls
comparison weather.tcl @ 429:1ada0cb9bdd9
weather: Some stray weather_msg_do calls were left in, fix those.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 08 Jan 2017 04:56:54 +0200 |
| parents | 84d3d7abeb8a |
| children | 8efbb045d44d |
comparison
equal
deleted
inserted
replaced
| 428:04021e2e26c3 | 429:1ada0cb9bdd9 |
|---|---|
| 52 } | 52 } |
| 53 | 53 |
| 54 | 54 |
| 55 proc weather_usage {apublic anick achan amsg} { | 55 proc weather_usage {apublic anick achan amsg} { |
| 56 global weather_msg_usage_prefix_1 weather_msg_usage_prefix_2 | 56 global weather_msg_usage_prefix_1 weather_msg_usage_prefix_2 |
| 57 global weather_preferredmsg | |
| 57 set nline 0 | 58 set nline 0 |
| 58 foreach aline [split $amsg "\n"] { | 59 foreach aline [split $amsg "\n"] { |
| 59 if {[string range $aline 0 1] == ":"} { | 60 if {[string range $aline 0 1] == ":"} { |
| 60 weather_msg_do $apublic $anick $achan $aline | 61 utl_msg_do $weather_preferredmsg $apublic $anick $achan $aline |
| 61 } elseif {$nline == 0} { | 62 } elseif {$nline == 0} { |
| 62 weather_msg_do $apublic $anick $achan "$weather_msg_usage_prefix_1$aline" | 63 utl_msg_do $weather_preferredmsg $apublic $anick $achan "$weather_msg_usage_prefix_1$aline" |
| 63 } else { | 64 } else { |
| 64 weather_msg_do $apublic $anick $achan "$weather_msg_usage_prefix_2$aline" | 65 utl_msg_do $weather_preferredmsg $apublic $anick $achan "$weather_msg_usage_prefix_2$aline" |
| 65 } | 66 } |
| 66 incr nline | 67 incr nline |
| 67 } | 68 } |
| 68 } | 69 } |
| 69 | 70 |