Mercurial > hg > egg-tcls
changeset 507:2ca6fda5ba10
Merged.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 30 Apr 2020 20:51:33 +0300 |
parents | 80f48fdc94fb (current diff) 4f2bf10ceaa2 (diff) |
children | 3fc74204dd8b |
files | |
diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Thu Apr 30 20:51:16 2020 +0300 +++ b/tj.tcl Thu Apr 30 20:51:33 2020 +0300 @@ -79,6 +79,7 @@ set foo [split $uargs " "] set tjdays [lindex $foo 0] set tjhours [lindex $foo 1] + if {$tjdays == ""} { tj_smsg $uchan "Hälärm." return 1 @@ -106,7 +107,7 @@ global tj_dateident if {![validuser $uuser]} { - return "Tuntematon käyttäjä $uuser." + return "Tuntematon käyttäjä ${uuser}." } setuser $uuser XTRA $tj_dateident $udate @@ -131,12 +132,12 @@ # Tarkistetaan onko kayttaja OK if {![validuser $ihandle]} { if {$ichan == ""} { - return "$ihandle, Mene pois." + return "${ihandle}, Mene pois." } else { if {$ihandle == "*"} { return "En tiedä kuka olet, mene pois." } else { - return "En tiedä kuka $ihandle on." + return "En tiedä kuka ${ihandle} on." } } } @@ -176,21 +177,21 @@ } set lause "" - tj_append lause $vuodet "$vuodet vuotta" "" - tj_append lause $aamut "$aamut aamua" ", " - tj_append lause $tunnit "$tunnit tuntia" " ja " + tj_append lause $vuodet "${vuodet} vuotta" "" + tj_append lause $aamut "${aamut} aamua" ", " + tj_append lause $tunnit "${tunnit} tuntia" " ja " if {$aamut == 0 && $deltatj > 0} { if {$tunnit == 0} { return "$tjmt TOSI WÄINÖ! TJ 0!!" } else { - return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!" + return "$tjmt AIKA WÄBÄ -- TJ ${tunnit} tuntia!" } } else { if {$deltatj > 0} { - return "$tjmt $lause jäljellä... ([tj_ctime $tjpaiva])" + return "${tjmt} ${lause} jäljellä... ([tj_ctime $tjpaiva])" } else { - return "$tjmi ollut reservissä jo $lause! ([tj_ctime $tjpaiva])" + return "${tjmi} ollut reservissä jo ${lause}! ([tj_ctime $tjpaiva])" } }