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!"