Mercurial > hg > egg-tcls

changeset 45:18eb2f6d6c3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Log voting of quotes in bot log.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 07 Sep 2011 14:07:48 +0300
parents f0694e61ae45
children 80fa09f868d4
files quotedb.tcl
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/quotedb.tcl	Wed Sep 07 14:07:07 2011 +0300
+++ b/quotedb.tcl	Wed Sep 07 14:07:48 2011 +0300
@@ -257,7 +257,8 @@
     # Yes, update the previous vote
     set usql "UPDATE ${utable}_votes SET vote=$uvote WHERE id=$qid"
     if {[qdb_sql_exec $upublic $unick $uchan $usql]} {
-      qdb_msg $upublic $unick $uchan "ääni päivitetty (#$uid -> $uvote)"
+      qdb_log "$uhand changed vote to $uvote on #$uid / $utable"
+      qdb_msg $upublic $unick $uchan "ääni päivitetty #$uid -> $uvote"
       return 1
     } else {
       return 0
@@ -268,7 +269,8 @@
     # No previous votes, insert new
     set usql "INSERT INTO ${utable}_votes (user,urlid,vote) VALUES ('[qdb_escape $uhand]',$uid,$uvote)"
     if {[qdb_sql_exec $upublic $unick $uchan $usql]} {
-      qdb_msg $upublic $unick $uchan "kiitos äänestäsi (#$uid -> $uvote)"
+      qdb_log "$uhand voted $uvote on #$uid / $utable"
+      qdb_msg $upublic $unick $uchan "äänestit #$uid -> $uvote"
     }
   }
 }