Mercurial > hg > egg-tcls

comparison tj.tcl @ 505:4f2bf10ceaa2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 28 Jan 2020 19:18:06 +0200
parents 825cac46b1cb
children 14dfb925a64a
comparison
equal deleted inserted replaced
504:0e86d541840c 505:4f2bf10ceaa2
77 # ------------------------------------------------------------------------ 77 # ------------------------------------------------------------------------
78 proc tj_pubaamut {unick uhost uhand uchan uargs} { 78 proc tj_pubaamut {unick uhost uhand uchan uargs} {
79 set foo [split $uargs " "] 79 set foo [split $uargs " "]
80 set tjdays [lindex $foo 0] 80 set tjdays [lindex $foo 0]
81 set tjhours [lindex $foo 1] 81 set tjhours [lindex $foo 1]
82
82 if {$tjdays == ""} { 83 if {$tjdays == ""} {
83 tj_smsg $uchan "Hälärm." 84 tj_smsg $uchan "Hälärm."
84 return 1 85 return 1
85 } 86 }
86 87
104 # ------------------------------------------------------------------------ 105 # ------------------------------------------------------------------------
105 proc tj_settj { uuser unick udate } { 106 proc tj_settj { uuser unick udate } {
106 global tj_dateident 107 global tj_dateident
107 108
108 if {![validuser $uuser]} { 109 if {![validuser $uuser]} {
109 return "Tuntematon käyttäjä $uuser." 110 return "Tuntematon käyttäjä ${uuser}."
110 } 111 }
111 112
112 setuser $uuser XTRA $tj_dateident $udate 113 setuser $uuser XTRA $tj_dateident $udate
113 return "$unick:n ($uuser) TJ asetettu. ([tj_ctime $udate])" 114 return "$unick:n ($uuser) TJ asetettu. ([tj_ctime $udate])"
114 } 115 }
129 global tj_dateident 130 global tj_dateident
130 131
131 # Tarkistetaan onko kayttaja OK 132 # Tarkistetaan onko kayttaja OK
132 if {![validuser $ihandle]} { 133 if {![validuser $ihandle]} {
133 if {$ichan == ""} { 134 if {$ichan == ""} {
134 return "$ihandle, Mene pois." 135 return "${ihandle}, Mene pois."
135 } else { 136 } else {
136 if {$ihandle == "*"} { 137 if {$ihandle == "*"} {
137 return "En tiedä kuka olet, mene pois." 138 return "En tiedä kuka olet, mene pois."
138 } else { 139 } else {
139 return "En tiedä kuka $ihandle on." 140 return "En tiedä kuka ${ihandle} on."
140 } 141 }
141 } 142 }
142 } 143 }
143 144
144 set chandle [tj_correctnickcase $ihandle] 145 set chandle [tj_correctnickcase $ihandle]
174 set tjmt "Sinulla on" 175 set tjmt "Sinulla on"
175 set tjmi "Sinä olet" 176 set tjmi "Sinä olet"
176 } 177 }
177 178
178 set lause "" 179 set lause ""
179 tj_append lause $vuodet "$vuodet vuotta" "" 180 tj_append lause $vuodet "${vuodet} vuotta" ""
180 tj_append lause $aamut "$aamut aamua" ", " 181 tj_append lause $aamut "${aamut} aamua" ", "
181 tj_append lause $tunnit "$tunnit tuntia" " ja " 182 tj_append lause $tunnit "${tunnit} tuntia" " ja "
182 183
183 if {$aamut == 0 && $deltatj > 0} { 184 if {$aamut == 0 && $deltatj > 0} {
184 if {$tunnit == 0} { 185 if {$tunnit == 0} {
185 return "$tjmt TOSI WÄINÖ! TJ 0!!" 186 return "$tjmt TOSI WÄINÖ! TJ 0!!"
186 } else { 187 } else {
187 return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!" 188 return "$tjmt AIKA WÄBÄ -- TJ ${tunnit} tuntia!"
188 } 189 }
189 } else { 190 } else {
190 if {$deltatj > 0} { 191 if {$deltatj > 0} {
191 return "$tjmt $lause jäljellä... ([tj_ctime $tjpaiva])" 192 return "${tjmt} ${lause} jäljellä... ([tj_ctime $tjpaiva])"
192 } else { 193 } else {
193 return "$tjmi ollut reservissä jo $lause! ([tj_ctime $tjpaiva])" 194 return "${tjmi} ollut reservissä jo ${lause}! ([tj_ctime $tjpaiva])"
194 } 195 }
195 } 196 }
196 197
197 } 198 }
198 199
199 # ------------------------------------------------------------------------ 200 # ------------------------------------------------------------------------