Mercurial > hg > egg-tcls
diff tj.tcl @ 424:825cac46b1cb
Cosmetic / stray trailing whitespace cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 08 Jan 2017 03:55:55 +0200 |
parents | a8954fd5cad5 |
children | 4f2bf10ceaa2 |
line wrap: on
line diff
--- a/tj.tcl Sun Jan 08 03:52:40 2017 +0200 +++ b/tj.tcl Sun Jan 08 03:55:55 2017 +0200 @@ -81,7 +81,7 @@ set tjhours [lindex $foo 1] if {$tjdays == ""} { tj_smsg $uchan "Hälärm." - return 1 + return 1 } if {$tjhours == ""} { set tjhours 0 } @@ -145,7 +145,7 @@ # Haetaan TJ aloitus paivamaara set tjpaiva [getuser $chandle XTRA $tj_dateident] - + if {$tjpaiva == ""} { return "$chandle ei ole asettanut itselleen TJ päivämäärää." } @@ -153,7 +153,7 @@ # Lasketaan tamanhetkinen TJ aika set deltatj [expr $tjpaiva - [unixtime]] - if {$deltatj < 0} { + if {$deltatj < 0} { set tmp [expr [unixtime] - $tjpaiva] } else { set tmp $deltatj @@ -181,7 +181,7 @@ tj_append lause $tunnit "$tunnit tuntia" " ja " if {$aamut == 0 && $deltatj > 0} { - if {$tunnit == 0} { + if {$tunnit == 0} { return "$tjmt TOSI WÄINÖ! TJ 0!!" } else { return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!"