Mercurial > hg > egg-tcls

comparison config.quotedb.example @ 547:717a1c84df4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Rename qdb_command() to qdb_cmd()
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 08 Jul 2020 12:12:57 +0300
parents 15bbd5b2bd73
children 85fe3bc36307
comparison
equal deleted inserted replaced
546:21aee5c2835c 547:717a1c84df4c
9 ### 9 ###
10 10
11 # Bind !quote -command for table "quotedb" 11 # Bind !quote -command for table "quotedb"
12 bind pub - !vitsi vitsi_cmd_pub 12 bind pub - !vitsi vitsi_cmd_pub
13 bind msg - !vitsi vitsi_cmd_msg 13 bind msg - !vitsi vitsi_cmd_msg
14 proc vitsi_cmd_pub {unick uhost uhand uchan utext} { qdb_command "!vitsi" "quotedb" $unick $uhost $uhand $uchan $utext 1 } 14 proc vitsi_cmd_pub {unick uhost uhand uchan utext} { qdb_cmd "!vitsi" "quotedb" $unick $uhost $uhand $uchan $utext 1 }
15 proc vitsi_cmd_msg {unick uhost uhand utext} { qdb_command "!vitsi" "quotedb" $unick $uhost $uhand "" $utext 0 } 15 proc vitsi_cmd_msg {unick uhost uhand utext} { qdb_cmd "!vitsi" "quotedb" $unick $uhost $uhand "" $utext 0 }
16 set qdb_messages(quotedb_fmt_get) "@2@ (#@1@)" 16 set qdb_messages(quotedb_fmt_get) "@2@ (#@1@)"
17 set qdb_messages(quotedb_urlprefix) "" 17 set qdb_messages(quotedb_urlprefix) ""
18 set qdb_messages(quotedb_name) "Vitsi" 18 set qdb_messages(quotedb_name) "Vitsi"
19 19
20 20
21 # Bind !quote -command for table "kissa" 21 # Bind !quote -command for table "kissa"
22 bind pub - !kissa kissa_cmd_pub 22 bind pub - !kissa kissa_cmd_pub
23 bind msg - !kissa kissa_cmd_msg 23 bind msg - !kissa kissa_cmd_msg
24 proc kissa_cmd_pub {unick uhost uhand uchan utext} { qdb_command "!kissa" "kissadb" $unick $uhost $uhand $uchan $utext 1 } 24 proc kissa_cmd_pub {unick uhost uhand uchan utext} { qdb_cmd "!kissa" "kissadb" $unick $uhost $uhand $uchan $utext 1 }
25 proc kissa_cmd_msg {unick uhost uhand utext} { qdb_command "!kissa" "kissadb" $unick $uhost $uhand "" $utext 0 } 25 proc kissa_cmd_msg {unick uhost uhand utext} { qdb_cmd "!kissa" "kissadb" $unick $uhost $uhand "" $utext 0 }
26 set qdb_messages(kissadb_fmt_get) "kissa @2@ (#@1@)" 26 set qdb_messages(kissadb_fmt_get) "kissa @2@ (#@1@)"
27 set qdb_messages(kissadb_urlprefix) "" 27 set qdb_messages(kissadb_urlprefix) ""
28 set qdb_messages(kissadb_name) "Kissa" 28 set qdb_messages(kissadb_name) "Kissa"
29 set qdb_messages(kissadb_stats) "Kissa-tilastot: @1@ kissajuttua, @2@ äänestettyä kissamaisuutta." 29 set qdb_messages(kissadb_stats) "Kissa-tilastot: @1@ kissajuttua, @2@ äänestettyä kissamaisuutta."
30 set qdb_messages(kissadb_quote_does_not_exist) "Kissaa #@1@ ei ole olemassa." 30 set qdb_messages(kissadb_quote_does_not_exist) "Kissaa #@1@ ei ole olemassa."
31 31
32 32
33 bind pub - !spede spede_cmd_pub 33 bind pub - !spede spede_cmd_pub
34 bind msg - !spede spede_cmd_msg 34 bind msg - !spede spede_cmd_msg
35 proc spede_cmd_pub {unick uhost uhand uchan utext} { qdb_command "!spede" "spededb" $unick $uhost $uhand $uchan $utext 1 } 35 proc spede_cmd_pub {unick uhost uhand uchan utext} { qdb_cmd "!spede" "spededb" $unick $uhost $uhand $uchan $utext 1 }
36 proc spede_cmd_msg {unick uhost uhand utext} { qdb_command "!spede" "spededb" $unick $uhost $uhand "" $utext 0 } 36 proc spede_cmd_msg {unick uhost uhand utext} { qdb_cmd "!spede" "spededb" $unick $uhost $uhand "" $utext 0 }
37 set qdb_messages(spededb_urlprefix) "https://tnsp.org/spede/img/" 37 set qdb_messages(spededb_urlprefix) "https://tnsp.org/spede/img/"
38 set qdb_messages(spededb_name) "Spede" 38 set qdb_messages(spededb_name) "Spede"
39 set qdb_messages(spededb_stats) "Spede-tilastot: @1@ spedeä, @2@ äänestettyä spedeä." 39 set qdb_messages(spededb_stats) "Spede-tilastot: @1@ spedeä, @2@ äänestettyä spedeä."
40 set qdb_messages(spededb_quote_does_not_exist) "Spedeä #@1@ ei ole." 40 set qdb_messages(spededb_quote_does_not_exist) "Spedeä #@1@ ei ole."
41 41
42 42
43 bind pub - !mn mn_cmd_pub 43 bind pub - !mn mn_cmd_pub
44 bind msg - !mn mn_cmd_msg 44 bind msg - !mn mn_cmd_msg
45 proc mn_cmd_pub {unick uhost uhand uchan utext} { qdb_command "!mn" "mndb" $unick $uhost $uhand $uchan $utext 1 } 45 proc mn_cmd_pub {unick uhost uhand uchan utext} { qdb_cmd "!mn" "mndb" $unick $uhost $uhand $uchan $utext 1 }
46 proc mn_cmd_msg {unick uhost uhand utext} { qdb_command "!mn" "mndb" $unick $uhost $uhand "" $utext 0 } 46 proc mn_cmd_msg {unick uhost uhand utext} { qdb_cmd "!mn" "mndb" $unick $uhost $uhand "" $utext 0 }
47 set qdb_messages(mndb_urlprefix) "https://tnsp.org/mndb/img/" 47 set qdb_messages(mndb_urlprefix) "https://tnsp.org/mndb/img/"
48 set qdb_messages(mndb_name) "Nykäsismi" 48 set qdb_messages(mndb_name) "Nykäsismi"
49 set qdb_messages(mndb_stats) "Nykäs-tilastot: @1@ nykäsismiä, @2@ äänestettyä." 49 set qdb_messages(mndb_stats) "Nykäs-tilastot: @1@ nykäsismiä, @2@ äänestettyä."
50 set qdb_messages(mndb_quote_does_not_exist) "Nykäsismiä #@1@ ei ole." 50 set qdb_messages(mndb_quote_does_not_exist) "Nykäsismiä #@1@ ei ole."
51 51
52 52
53 bind pub - !tuksu tuksu_cmd_pub 53 bind pub - !tuksu tuksu_cmd_pub
54 bind msg - !tuksu tuksu_cmd_msg 54 bind msg - !tuksu tuksu_cmd_msg
55 proc tuksu_cmd_pub {unick uhost uhand uchan utext} { qdb_command "!tuksu" "tuksudb" $unick $uhost $uhand $uchan $utext 1 } 55 proc tuksu_cmd_pub {unick uhost uhand uchan utext} { qdb_cmd "!tuksu" "tuksudb" $unick $uhost $uhand $uchan $utext 1 }
56 proc tuksu_cmd_msg {unick uhost uhand utext} { qdb_command "!tuksu" "tuksudb" $unick $uhost $uhand "" $utext 0 } 56 proc tuksu_cmd_msg {unick uhost uhand utext} { qdb_cmd "!tuksu" "tuksudb" $unick $uhost $uhand "" $utext 0 }
57 set qdb_messages(tuksudb_urlprefix) "https://tnsp.org/tuksu/img/" 57 set qdb_messages(tuksudb_urlprefix) "https://tnsp.org/tuksu/img/"
58 set qdb_messages(tuksudb_name) "Tuksu" 58 set qdb_messages(tuksudb_name) "Tuksu"
59 set qdb_messages(tuksudb_stats) "Tuksu-tilastot: @1@ tuksuilua, @2@ äänestettyä." 59 set qdb_messages(tuksudb_stats) "Tuksu-tilastot: @1@ tuksuilua, @2@ äänestettyä."
60 set qdb_messages(tuksudb_quote_does_not_exist) "Tuksuilua #@1@ ei ole." 60 set qdb_messages(tuksudb_quote_does_not_exist) "Tuksuilua #@1@ ei ole."
61 61