Mercurial > hg > egg-tcls
comparison utillib.tcl @ 428:04021e2e26c3
utillib: Fix silly bugs.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 08 Jan 2017 04:15:50 +0200 |
| parents | 84d3d7abeb8a |
| children | 124b97f5a19d |
comparison
equal
deleted
inserted
replaced
| 427:86f39989df4b | 428:04021e2e26c3 |
|---|---|
| 63 } | 63 } |
| 64 | 64 |
| 65 | 65 |
| 66 proc utl_msg_do {upreferredmsg upublic unick uchan umsg} { | 66 proc utl_msg_do {upreferredmsg upublic unick uchan umsg} { |
| 67 foreach uline [utl_str_split $umsg 450] { | 67 foreach uline [utl_str_split $umsg 450] { |
| 68 if {$apublic == 1} { | 68 if {$upublic == 1} { |
| 69 putserv "$upreferredmsg $uchan :$ulineg" | 69 putserv "$upreferredmsg $uchan :$uline" |
| 70 } else { | 70 } else { |
| 71 putserv "$upreferredmsg $unick :$uline" | 71 putserv "$upreferredmsg $unick :$uline" |
| 72 } | 72 } |
| 73 } | 73 } |
| 74 } | 74 } |