Mercurial > hg > egg-tcls

changeset 465:ba7ed8f6d2ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Add get latest quote feature.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 22 Feb 2018 20:15:20 +0200
parents 506977ea9d0c
children a8eb80bbffa5
files quotedb.tcl
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/quotedb.tcl	Wed Feb 07 19:01:36 2018 +0200
+++ b/quotedb.tcl	Thu Feb 22 20:15:20 2018 +0200
@@ -295,9 +295,15 @@
   if {$uindex >= 0} {
     append usql " WHERE ${utable}.id=$uindex GROUP BY ${utable}.id"
     qdb_log "$unick searched $utable #$uindex"
-  } else {
+  } elseif {$uindex == -1} {
     append usql " GROUP BY ${utable}.id ORDER BY RANDOM() LIMIT 1"
     qdb_log "$unick get random $utable"
+  } elseif {$uindex == -2} {
+    append usql " GROUP BY ${utable}.id ORDER BY ${utable}.id DESC LIMIT 1"
+    qdb_log "$unick get latest $utable"
+  } else {
+    qdb_log "$unick invalid qdb_get $utable index value."
+    return 0
   }
 
   qdb_handle eval $usql {
@@ -376,6 +382,9 @@
   if {$utext == "" || $utext == {}} {
     # No arguments, assume random query
     qdb_get $ucmd $utable $unick $uchan -1 $upublic
+  } elseif {[regexp {^(last|latest|uusin|viimeisin)$} $utext umatch]} {
+    # Latest added
+    qdb_get $ucmd $utable $unick $uchan -2 $upublic
   } elseif {[regexp {^([0-9]+)$} $utext umatch unum]} {
     # Numeric argument, assume index query
     qdb_get $ucmd $utable $unick $uchan $unum $upublic
@@ -398,6 +407,7 @@
     # Vote
     qdb_vote $ucmd $utable $unick $uhand $uchan $unum $upublic
   } else {
+    # Help/usage
     qdb_msg $upublic $unick $uchan $qdb_msg_help [list $ucmd]
   }
 }