Mercurial > hg > egg-tcls
changeset 82:1bbc79f41a1c
urllog: Rename few variables for clarity.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 11 Sep 2011 19:37:40 +0300 |
parents | 17e542b7985a |
children | f171a9fb7b7b |
files | urllog.tcl |
diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Sun Sep 11 18:49:06 2011 +0300 +++ b/urllog.tcl Sun Sep 11 19:37:40 2011 +0300 @@ -315,13 +315,13 @@ urllog_log "$uerrmsg on SQL:\n$sql" return 0 } - set urlID [urldb last_insert_rowid] + set uid [urldb last_insert_rowid] urllog_log "Added URL ($urlNick@$urlChan): $urlStr" ### Let's say something, to confirm that everything went well. if {$urllog_shorturl != 0} { - set qstr "[urllog_get_short $urlID] " + set qstr "[urllog_get_short $uid] " } else { set qstr "" } @@ -572,12 +572,12 @@ } set iresults 0 - set usql "SELECT id AS urlID, utime AS utime, url AS uurl, user AS uuser, host AS uhost FROM urls $fquery ORDER BY utime DESC LIMIT $ulimit" + set usql "SELECT id AS uid, utime AS utime, url AS uurl, user AS uuser, host AS uhost FROM urls $fquery ORDER BY utime DESC LIMIT $ulimit" urldb eval $usql { incr iresults set shortURL $uurl - if {$urllog_shorturl != 0 && $urlID != ""} { - set shortURL "$shortURL [urllog_get_short $urlID]" + if {$urllog_shorturl != 0 && $uid != ""} { + set shortURL "$shortURL [urllog_get_short $uid]" } urllog_msg $upublic $unick $uchan "#$iresults: $shortURL ($uuser@[urllog_ctime $utime])" }