# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1594120926 -10800
# Node ID 3046ee0e574d5c8ddf7aca056a38ce1a3cef4284
# Parent  20a1b0f39f71fa06e9923848d325430f558f44c2
quotedb: Use utillib version of the function.

diff -r 20a1b0f39f71 -r 3046ee0e574d quotedb.tcl
--- a/quotedb.tcl	Tue Jul 07 14:20:55 2020 +0300
+++ b/quotedb.tcl	Tue Jul 07 14:22:06 2020 +0300
@@ -66,7 +66,7 @@
 
 
 proc qdb_msg {acmd atable apublic anick achan aid {aargs {}}} {
-  global qdb_preferredmsg qdb_messages
+  global qdb_preferredmsg
 
   # Get message
   set amsg [qdb_qm $atable $aid]
@@ -75,17 +75,8 @@
   # Map constant tokens
   set amsg [string map [list "@cmd@" $acmd] $amsg]
   set amsg [string map [list "@name@" $aname] $amsg]
-  set amsg [string map [list "@nick@" $anick] $amsg]
-  set amsg [string map [list "@chan@" $achan] $amsg]
 
-  # Map variable tokens
-  set narg 1
-  foreach marg $aargs {
-    set amsg [string map [list "@$narg@" $marg] $amsg]
-    incr narg
-  }
-
-  utl_msg_do $qdb_preferredmsg $apublic $anick $achan $amsg
+  utl_msg_args $qdb_preferredmsg $apublic $anick $achan $amsg $aargs
 }