Mercurial > hg > egg-tcls
changeset 272:a8954fd5cad5
tj: ISO8859-1 -> UTF8
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 23 Jan 2015 11:01:53 +0200 |
parents | f47b41d2be64 |
children | 38a5bce4b078 |
files | tj.tcl |
diffstat | 1 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Fri Jan 23 10:57:47 2015 +0200 +++ b/tj.tcl Fri Jan 23 11:01:53 2015 +0200 @@ -80,7 +80,7 @@ set tjdays [lindex $foo 0] set tjhours [lindex $foo 1] if {$tjdays == ""} { - tj_smsg $uchan "Hälärm." + tj_smsg $uchan "Hälärm." return 1 } @@ -106,7 +106,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 @@ -134,9 +134,9 @@ return "$ihandle, Mene pois." } else { if {$ihandle == "*"} { - return "En tiedä kuka olet, mene pois." + return "En tiedä kuka olet, mene pois." } else { - return "En tiedä kuka $ihandle on." + return "En tiedä kuka $ihandle on." } } } @@ -147,7 +147,7 @@ set tjpaiva [getuser $chandle XTRA $tj_dateident] if {$tjpaiva == ""} { - return "$chandle ei ole asettanut itselleen TJ päivämäärää." + return "$chandle ei ole asettanut itselleen TJ päivämäärää." } # Lasketaan tamanhetkinen TJ aika @@ -168,11 +168,11 @@ # Maaritetaan sanalause if {$ichan != ""} { - set tjmt "$chandle:lla on" - set tjmi "$chandle on" + set tjmt "${chandle}:lla on" + set tjmi "${chandle} on" } else { set tjmt "Sinulla on" - set tjmi "Sinä olet" + set tjmi "Sinä olet" } set lause "" @@ -182,15 +182,15 @@ if {$aamut == 0 && $deltatj > 0} { if {$tunnit == 0} { - return "$tjmt TOSI WÄINÖ! TJ 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])" } }