Mercurial > hg > egg-tcls
changeset 505:4f2bf10ceaa2
tj: Cleanups.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 28 Jan 2020 19:18:06 +0200 |
parents | 0e86d541840c |
children | 2ca6fda5ba10 |
files | tj.tcl |
diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Thu Jan 23 08:05:56 2020 +0200 +++ b/tj.tcl Tue Jan 28 19:18:06 2020 +0200 @@ -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])" } }