Mercurial > hg > egg-tcls
comparison weather.tcl @ 589:b07ff5123baf
Oops.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 27 Jan 2021 10:57:13 +0200 |
parents | dae8f6ad12c2 |
children | 7f7d8048ecb5 |
comparison
equal
deleted
inserted
replaced
588:dae8f6ad12c2 | 589:b07ff5123baf |
---|---|
50 | 50 |
51 | 51 |
52 proc weather_smsg {apublic anick achan amsg {aargs {}}} { | 52 proc weather_smsg {apublic anick achan amsg {aargs {}}} { |
53 global weather_preferredmsg weather_cmd_name | 53 global weather_preferredmsg weather_cmd_name |
54 set amsg [string map [list "@cmd@" $weather_cmd_name] $amsg] | 54 set amsg [string map [list "@cmd@" $weather_cmd_name] $amsg] |
55 set amsg [string map [list "@nick@" $anick] $amsg] | |
56 utl_msg_args $weather_preferredmsg $apublic $anick $achan $amsg $aargs | 55 utl_msg_args $weather_preferredmsg $apublic $anick $achan $amsg $aargs |
57 } | 56 } |
58 | 57 |
59 | 58 |
60 proc weather_msg {apublic anick achan aid {aargs {}}} { | 59 proc weather_msg {apublic anick achan aid {aargs {}}} { |