Mercurial > hg > egg-tcls

annotate quotedb.tcl @ 530:a7e44605c930

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 07 Jul 2020 14:22:16 +0300
parents 3046ee0e574d
children 717a1c84df4c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 ##########################################################################
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 #
514
a9cb1a248791 quotedb: Bump version.
Matti Hamalainen <ccr@tnsp.org>
parents: 513
diff changeset
3 # QuoteDB v2.7 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
500
f31cb0b7d0c0 quotedb: Adjust the note in the script header blurb, update copyright.
Matti Hamalainen <ccr@tnsp.org>
parents: 482
diff changeset
4 # (C) Copyright 2003-2020 Tecnic Software productions (TNSP)
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 #
500
f31cb0b7d0c0 quotedb: Adjust the note in the script header blurb, update copyright.
Matti Hamalainen <ccr@tnsp.org>
parents: 482
diff changeset
6 # This script was made for my own use, any questions about it or any
f31cb0b7d0c0 quotedb: Adjust the note in the script header blurb, update copyright.
Matti Hamalainen <ccr@tnsp.org>
parents: 482
diff changeset
7 # problems you may have with it can be sent to /dev/null.
f31cb0b7d0c0 quotedb: Adjust the note in the script header blurb, update copyright.
Matti Hamalainen <ccr@tnsp.org>
parents: 482
diff changeset
8 #
f31cb0b7d0c0 quotedb: Adjust the note in the script header blurb, update copyright.
Matti Hamalainen <ccr@tnsp.org>
parents: 482
diff changeset
9 # This script is freely distributable under GNU GPL (version 2) license.
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 #
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 ##########################################################################
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12
261
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
13 ### The configuration should be in config.quotedb in same directory
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
14 ### as this script. Or change the line below to point where ever
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
15 ### you wish. See "config.quotedb.example" for an example config file.
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
16 source [file dirname [info script]]/config.quotedb
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17
293
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
18 ### Required utillib.tcl
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
19 source [file dirname [info script]]/utillib.tcl
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
20
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 ##########################################################################
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23 # No need to look below this line
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
24 ##########################################################################
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25 set qdb_name "QuoteDB"
514
a9cb1a248791 quotedb: Bump version.
Matti Hamalainen <ccr@tnsp.org>
parents: 513
diff changeset
26 set qdb_version "2.7"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 #-------------------------------------------------------------------------
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 ### Initialization messages
500
f31cb0b7d0c0 quotedb: Adjust the note in the script header blurb, update copyright.
Matti Hamalainen <ccr@tnsp.org>
parents: 482
diff changeset
30 set qdb_message "$qdb_name v$qdb_version (C) 2003-2020 ccr/TNSP"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 putlog "$qdb_message"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
33 ### Require packages
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
34 package require sqlite3
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
35
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
36 ### SQLite database initialization
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
37 if {[catch {sqlite3 qdb_handle $qdb_file} uerrmsg]} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
38 putlog " Could not open SQLite3 database '$qdb_file': $uerrmsg"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39 exit 2
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
40 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
41
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
42
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
43 #-------------------------------------------------------------------------
530
a7e44605c930 quotedb: Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 529
diff changeset
44 proc qdb_log {arg} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
45 global qdb_logmsg qdb_name
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
46 if {$qdb_logmsg != 0} {
530
a7e44605c930 quotedb: Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 529
diff changeset
47 putlog "$qdb_name: $arg"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
48 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
49 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
50
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
51
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
52 proc qdb_qm {utable uid} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
53 global qdb_messages
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
54 set qid "${utable}_${uid}"
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
55
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
56 if {[info exists qdb_messages($qid)]} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
57 return $qdb_messages($qid)
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
58 } elseif {[info exists qdb_messages($uid)]} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
59 return $qdb_messages($uid)
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
60 } else {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
61 return $uid
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
62 }
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
63 }
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
64
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
65
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
66 proc qdb_msg {acmd atable apublic anick achan aid {aargs {}}} {
529
3046ee0e574d quotedb: Use utillib version of the function.
Matti Hamalainen <ccr@tnsp.org>
parents: 519
diff changeset
67 global qdb_preferredmsg
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
68
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
69 # Get message
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
70 set amsg [qdb_qm $atable $aid]
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
71 set aname [qdb_qm $atable "name"]
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
72
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
73 # Map constant tokens
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
74 set amsg [string map [list "@cmd@" $acmd] $amsg]
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
75 set amsg [string map [list "@name@" $aname] $amsg]
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
76
529
3046ee0e574d quotedb: Use utillib version of the function.
Matti Hamalainen <ccr@tnsp.org>
parents: 519
diff changeset
77 utl_msg_args $qdb_preferredmsg $apublic $anick $achan $amsg $aargs
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
78 }
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
79
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
80
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
81 proc qdb_sql_exec {ucmd utable upublic unick uchan usql} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
82 global qdb_handle
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
83 if {[catch {qdb_handle eval $usql} uerrmsg]} {
37
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
84 qdb_log "$uerrmsg on SQL:\n$usql"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
85 qdb_msg $ucmd $utable $upublic $unick $uchan "sql_error"
37
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
86 return 0
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
87 }
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
88 return 1
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
89 }
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
90
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
91
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
92 proc qdb_valid_user {ucmd utable upublic unick uchan uhand} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
93 if {$uhand == "" || $uhand == {}} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
94 qdb_msg $ucmd $utable $upublic $unick $uchan "invalid_user"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
95 return 0
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
96 }
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
97 return 1
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
98 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
99
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
100
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
101 proc qdb_get_rating_for_id {utable uid} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
102 set usql "SELECT total(${utable}_votes.vote) AS qrating FROM ${utable}_votes WHERE urlid=${uid}"
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
103 set qrating 0
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
104 qdb_handle eval $usql { set urating $qrating }
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
105 return $qrating
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
106 }
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
107
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
108
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
109 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
110 proc qdb_add {ucmd utable upublic unick uhost uhand uchan utext} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
111 global qdb_handle
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
112
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
113 if {![qdb_valid_user $ucmd $utable $upublic $unick $uchan $uhand]} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
114 return 0
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
115 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
116
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
117 if {$utext == "" || $utext == {}} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
118 qdb_msg $ucmd $utable $upublic $unick $uchan "help_add"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
119 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
120 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
121
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
122 set usql "INSERT INTO $utable (utime,utext,user,host,chan) VALUES ([unixtime], '[utl_escape $utext]', '[utl_escape $uhand]', '[utl_escape $uhost]', '[utl_escape $uchan]')"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
123 if {![qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
124 return 0
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
125 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
126
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
127 set quoteID [qdb_handle last_insert_rowid]
58
0da3461eb871 quotedb: Retrieving total number of quotes in the table does not seem to be working, so commenting out the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 56
diff changeset
128 # set numQuotes 0
0da3461eb871 quotedb: Retrieving total number of quotes in the table does not seem to be working, so commenting out the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 56
diff changeset
129 # set usql "SELECT count(*) AS numQuotes FROM $utable"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
130 # if {![qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} { return 0 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
131
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
132 ### Log some data
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
133 qdb_log "Added $utable #$quoteID ($unick/$uhand@$uchan): $utext"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
134
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
135 ### Report success to user
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
136 qdb_msg $ucmd $utable $upublic $unick $uchan "add_success" [list $quoteID]
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
137 return 1
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
138 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
139
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
140
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
141 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
142 proc qdb_delete {ucmd utable upublic unick uhost uhand uchan utext} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
143 global qdb_handle qdb_max_deltime
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
144
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
145 set maxdiff [expr $qdb_max_deltime * 60]
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
146
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
147 if {![qdb_valid_user $ucmd $utable $upublic $unick $uchan $uhand]} {
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
148 return 0
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
149 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
150
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
151 if {![regexp {^\s*([0-9]+)$} $utext umatch unum]} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
152 qdb_msg $ucmd $utable $upublic $unick $uchan "help_delete"
27
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
153 return 0
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
154 }
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
155
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
156 set qoverride [matchattr $uhand n]
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
157 set usql "SELECT utime AS utime FROM $utable WHERE id=$unum"
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
158 if {$qoverride == 0} {
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
159 append usql " AND user='[utl_escape $uhand]'"
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
160 set qextra ""
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
161 } else {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
162 set qextra [qdb_qm $utable "update_override"]
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
163 }
424
825cac46b1cb Cosmetic / stray trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 422
diff changeset
164
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
165 qdb_handle eval $usql {
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
166 set udiff [expr [unixtime] - $utime]
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
167 if {$udiff < $maxdiff || $qoverride} {
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
168 set usql "DELETE FROM $utable WHERE id=$unum"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
169 if {![qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
170 return 0
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
171 } else {
59
415c47fcc518 quotedb: Cleanups. We do not need to SELECT quoteID for these operations, we already know what it is.
Matti Hamalainen <ccr@tnsp.org>
parents: 58
diff changeset
172 set usql "DELETE FROM ${utable}_votes WHERE urlid=$unum"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
173 if {![qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} {
43
965b728c2a9d Delete the votes/ratings too, when deleting a quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 41
diff changeset
174 return 0
965b728c2a9d Delete the votes/ratings too, when deleting a quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 41
diff changeset
175 }
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
176 qdb_msg $ucmd $utable $upublic $unick $uchan "quote_deleted" [list $unum $qextra]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
177 return 1
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
178 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
179 } else {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
180 qdb_msg $ucmd $utable $upublic $unick $uchan "quote_too_old" [list $unum $qdb_max_deltime]
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
181 return 0
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
182 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
183 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
184
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
185 qdb_msg $ucmd $utable $upublic $unick $uchan "quote_not_found" [list $unum $uhand]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
186 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
187 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
188
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
189
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
190 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
191 proc qdb_update {ucmd utable upublic unick uhost uhand uchan utext} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
192 global qdb_handle qdb_max_modtime
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
193
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
194 set maxdiff [expr $qdb_max_modtime * 60]
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
195
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
196 if {![qdb_valid_user $ucmd $utable $upublic $unick $uchan $uhand]} {
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
197 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
198 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
199
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
200 if {![regexp {^\s*([0-9]+)\s+(.+)$} $utext umatch unum uquote]} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
201 qdb_msg $ucmd $utable $upublic $unick $uchan "help_update"
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
202 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
203 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
204
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
205 set qoverride [matchattr $uhand n]
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
206 set usql "SELECT utime AS utime FROM $utable WHERE id=$unum"
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
207 if {$qoverride == 0} {
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
208 append usql " AND user='[utl_escape $uhand]'"
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
209 set qextra ""
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
210 } else {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
211 set qextra [qdb_qm $utable "update_override"]
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
212 }
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
213
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
214 qdb_handle eval $usql {
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
215 set udiff [expr [unixtime] - $utime]
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
216 if {$udiff < $maxdiff || $qoverride} {
459
6acd372d36da quotedb: Do not update quote creation timestamp field when updating quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 439
diff changeset
217 set usql "UPDATE $utable SET utext='[utl_escape $uquote]' WHERE id=$unum"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
218 if {![qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} {
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
219 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
220 } else {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
221 qdb_msg $ucmd $utable $upublic $unick $uchan "update_ok" [list $unum $qextra]
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
222 return 1
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
223 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
224 } else {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
225 qdb_msg $ucmd $utable $upublic $unick $uchan "update_too_old" [list $unum $qdb_max_modtime]
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
226 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
227 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
228 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
229
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
230 qdb_msg $ucmd $utable $upublic $unick $uchan "quote_not_found" [list $unum $uhand]
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
231 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
232 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
233
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
234
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
235 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
236 proc qdb_toplist {ucmd utable upublic unick uhost uhand uchan utext unum} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
237 global qdb_handle
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
238 global qdb_toplist_min qdb_toplist_max
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
239
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
240 if {$unum == {} || $unum == ""} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
241 set unum $qdb_toplist_min
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
242 }
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
243
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
244 if {$unum < $qdb_toplist_min || $unum > $qdb_toplist_max} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
245 qdb_msg $ucmd $utable $upublic $unick $uchan "toplist_limit" [list $qdb_toplist_min $qdb_toplist_max]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
246 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
247 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
248
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
249 set uresults 0
44
f0694e61ae45 Change one local variable name.
Matti Hamalainen <ccr@tnsp.org>
parents: 43
diff changeset
250 set usql "SELECT total(${utable}_votes.vote) AS rating, ${utable}.id AS quoteID, ${utable}.utext AS utext, ${utable}.utime AS utime,${utable}.user AS uuser, ${utable}.id AS uid FROM ${utable}_votes INNER JOIN $utable ON ${utable}_votes.urlid = ${utable}.id GROUP BY ${utable}.id ORDER BY rating DESC LIMIT $unum"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
251 qdb_handle eval $usql {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
252 incr uresults
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
253 qdb_msg $ucmd $utable $upublic $unick $uchan "fmt_toplist" [list $uresults $quoteID $utext $uuser $rating]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
254 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
255
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
256 return 0
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
257 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
258
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
259
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
260 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
261 proc qdb_vote {ucmd utable upublic unick uhost uhand uchan utext} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
262 global qdb_handle
439
ac66900fd066 quotedb: Add display of current quote rating when voting for it.
Matti Hamalainen <ccr@tnsp.org>
parents: 427
diff changeset
263
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
264 if {![qdb_valid_user $ucmd $utable $upublic $unick $uchan $uhand]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
265 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
266 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
267
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
268 set uvote 1
510
794ecdfe6ac0 quotedb: Fix handling of 'vote' command parameters in case of '!xxx vote <1|-1>' to vote for the latest added quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 509
diff changeset
269 if {$utext == "" || [regexp {^\s*(-?1)\s*$} $utext umatch uvote]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
270 set usql "SELECT max(id) AS qid FROM ${utable}"
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
271 set uid 0
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
272 qdb_handle eval $usql { set uid $qid }
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
273 } elseif {[regexp {^\s*([0-9]+)$} $utext umatch uid]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
274 } elseif {![regexp {^\s*([0-9]+)\s+(-1|1)$} $utext umatch uid uvote]} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
275 qdb_msg $ucmd $utable $upublic $unick $uchan "help_vote"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
276 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
277 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
278
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
279 # Check if given quote ID exists.
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
280 set uresults 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
281 set usql "SELECT id AS qid FROM ${utable} WHERE id=$uid"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
282 qdb_handle eval $usql { incr uresults }
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
283 if {$uresults == 0} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
284 qdb_msg $ucmd $utable $upublic $unick $uchan "quote_does_not_exist" [list $uid]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
285 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
286 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
287
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
288 # Check if user has previously voted this item
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
289 set usql "SELECT id AS qid FROM ${utable}_votes WHERE user='[utl_escape $uhand]' AND urlid=$uid"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
290 qdb_handle eval $usql {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
291 # Yes, update the previous vote
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
292 set usql "UPDATE ${utable}_votes SET vote=$uvote WHERE id=$qid"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
293 if {[qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} {
439
ac66900fd066 quotedb: Add display of current quote rating when voting for it.
Matti Hamalainen <ccr@tnsp.org>
parents: 427
diff changeset
294 set urating [qdb_get_rating_for_id $utable $uid]
ac66900fd066 quotedb: Add display of current quote rating when voting for it.
Matti Hamalainen <ccr@tnsp.org>
parents: 427
diff changeset
295 qdb_log "$uhand changed vote to $uvote on #$uid / $utable, total $urating"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
296 qdb_msg $ucmd $utable $upublic $unick $uchan "vote_updated" [list $uid $uvote $urating]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
297 return 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
298 } else {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
299 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
300 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
301 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
302
148
2f0c823386b0 quotedb: Simplify a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 114
diff changeset
303 # No previous votes, insert new
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
304 set usql "INSERT INTO ${utable}_votes (user,urlid,vote) VALUES ('[utl_escape $uhand]',$uid,$uvote)"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
305 if {[qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} {
439
ac66900fd066 quotedb: Add display of current quote rating when voting for it.
Matti Hamalainen <ccr@tnsp.org>
parents: 427
diff changeset
306 set urating [qdb_get_rating_for_id $utable $uid]
ac66900fd066 quotedb: Add display of current quote rating when voting for it.
Matti Hamalainen <ccr@tnsp.org>
parents: 427
diff changeset
307 qdb_log "$uhand voted $uvote on #$uid / $utable, total $urating"
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
308 qdb_msg $ucmd $utable $upublic $unick $uchan "you_voted" [list $uid $uvote $urating]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
309 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
310 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
311
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
312
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
313 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
314 proc qdb_get {ucmd utable upublic unick uhost uhand uchan utext uindex} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
315 global qdb_handle
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
316
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
317 set usql "SELECT total(${utable}_votes.vote) AS uvote, ${utable}.id AS quoteID, ${utable}.utext AS uquote, ${utable}.utime AS utime, ${utable}.user AS uuser FROM ${utable} LEFT JOIN ${utable}_votes ON ${utable}_votes.urlid = ${utable}.id"
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
318
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
319 if {$uindex >= 0} {
66
140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents: 64
diff changeset
320 append usql " WHERE ${utable}.id=$uindex GROUP BY ${utable}.id"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
321 qdb_log "$unick searched $utable #$uindex"
465
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
322 } elseif {$uindex == -1} {
66
140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents: 64
diff changeset
323 append usql " GROUP BY ${utable}.id ORDER BY RANDOM() LIMIT 1"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
324 qdb_log "$unick get random $utable"
465
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
325 } elseif {$uindex == -2} {
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
326 append usql " GROUP BY ${utable}.id ORDER BY ${utable}.id DESC LIMIT 1"
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
327 qdb_log "$unick get latest $utable"
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
328 } else {
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
329 qdb_log "$unick invalid qdb_get $utable index value."
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
330 return 0
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
331 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
332
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
333 set urlprefix [qdb_qm $utable "urlprefix"]
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
334
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
335 qdb_handle eval $usql {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
336 if {[string range $uquote 0 3] == "img:"} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
337 set uquote "$urlprefix[string range $uquote 4 end]"
482
0e50c8440ea2 quotedb: Add img: image URL support.
Matti Hamalainen <ccr@tnsp.org>
parents: 478
diff changeset
338 }
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
339 qdb_msg $ucmd $utable $upublic $unick $uchan "fmt_get" [list $quoteID $uquote $uuser [utl_ctime $utime] $uvote]
48
506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents: 47
diff changeset
340 return 1
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
341 }
48
506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents: 47
diff changeset
342
516
4995ee3a95db quotedb: Adjust some messages.
Matti Hamalainen <ccr@tnsp.org>
parents: 514
diff changeset
343 qdb_msg $ucmd $utable $upublic $unick $uchan "quote_does_not_exist" [list $uindex]
48
506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents: 47
diff changeset
344 return 0
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
345 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
346
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
347
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
348 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
349 proc qdb_stats {ucmd utable upublic unick uhost uhand uchan utext} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
350 global qdb_handle
466
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
351
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
352 set usql "SELECT count(*) AS nvotes FROM ${utable}_votes"
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
353 qdb_handle eval $usql {}
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
354
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
355 set usql "SELECT count(*) AS nquotes FROM ${utable}"
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
356 qdb_handle eval $usql {}
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
357
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
358 set nmaxtop 5
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
359
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
360 set usql "SELECT user,count(*) AS uquotes FROM ${utable} GROUP BY user ORDER BY uquotes DESC LIMIT ${nmaxtop}"
519
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
361 set ltopusers {}
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
362 set ntopusers 0
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
363 qdb_handle eval $usql {
519
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
364 incr ntopusers
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
365 lappend ltopusers "${user} (${uquotes})"
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
366 }
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
367
519
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
368 set nmaxtop 3
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
369
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
370 set usql "SELECT count(*) AS uquotes,CAST(strftime('%Y',utime,'unixepoch') AS integer) AS uyear FROM ${utable} GROUP BY uyear ORDER BY uyear DESC LIMIT ${nmaxtop}"
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
371 set llatestyears {}
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
372 set nlatestyears 0
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
373 qdb_handle eval $usql {
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
374 incr nlatestyears
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
375 lappend llatestyears "${uquotes} (${uyear})"
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
376 }
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
377
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
378 set usql "SELECT count(*) AS uquotes,CAST(strftime('%Y',utime,'unixepoch') AS integer) AS uyear FROM ${utable} GROUP BY uyear ORDER BY uquotes DESC LIMIT ${nmaxtop}"
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
379 set ltopeyears {}
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
380 set ntopyears 0
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
381 qdb_handle eval $usql {
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
382 incr ntopyears
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
383 lappend ltopeyears "${uquotes} (${uyear})"
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
384 }
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
385
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
386 qdb_msg $ucmd $utable $upublic $unick $uchan "stats" [list $nquotes $nvotes]
1cfa567f9500 quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents: 518
diff changeset
387 qdb_msg $ucmd $utable $upublic $unick $uchan "stats2" [list $ntopusers [join $ltopusers ", "] $nlatestyears [join $llatestyears ", "] $ntopyears [join $ltopeyears ", "]]
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
388
466
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
389 return 0
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
390 }
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
391
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
392
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
393 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
394 proc qdb_find {ucmd utable upublic unick uhost uhand uchan utext} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
395 global qdb_handle qdb_showmax_pub qdb_showmax_priv
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
396
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
397 # Limit results based on public/private
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
398 if {$upublic == 0} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
399 set ulimit $qdb_showmax_priv
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
400 } else {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
401 set ulimit $qdb_showmax_pub
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
402 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
403
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
404 ### Parse the given command
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
405 qdb_log "$unick/$uhand/$uchan searched $utable: $utext"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
406
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
407 set ftokens [split $utext " "]
508
3fc74204dd8b quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents: 500
diff changeset
408 set fpatlist {}
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
409 foreach ftoken $ftokens {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
410 set fprefix [string range $ftoken 0 0]
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
411 set fpattern [string range $ftoken 1 end]
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
412
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
413 if {$fprefix == "-"} {
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
414 lappend fpatlist "utext NOT LIKE '%[utl_escape $fpattern]%'"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
415 } elseif {$fprefix == "%"} {
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
416 lappend fpatlist "user LIKE '[utl_escape $fpattern]'"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
417 } elseif {$fprefix == "@"} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
418 # foo
109
74cb254dbf09 urllog and quotedb: Handle "+"-prefix in searches as it is documented.
Matti Hamalainen <ccr@tnsp.org>
parents: 85
diff changeset
419 } elseif {$fprefix == "+"} {
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
420 lappend fpatlist "utext LIKE '%[utl_escape $fpattern]%'"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
421 } else {
295
141bb4a2b76f utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
422 lappend fpatlist "utext LIKE '%[utl_escape $ftoken]%'"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
423 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
424 }
517
894bc9632ece quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents: 516
diff changeset
425
894bc9632ece quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents: 516
diff changeset
426 # Check if any arguments exist
894bc9632ece quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents: 516
diff changeset
427 if {[llength $fpatlist] == 0} {
518
7fdc069840cc quotedb: Show help instead.
Matti Hamalainen <ccr@tnsp.org>
parents: 517
diff changeset
428 qdb_msg $ucmd $utable $upublic $unick $uchan "help_find"
517
894bc9632ece quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents: 516
diff changeset
429 return 0
27
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
430 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
431
517
894bc9632ece quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents: 516
diff changeset
432 set fquery "WHERE [join $fpatlist " AND "]"
894bc9632ece quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents: 516
diff changeset
433
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
434 ### Query the database and output results
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
435 set uresults 0
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
436 set usql "SELECT id AS quoteID, utime AS utime, utext AS utext, user AS uuser FROM $utable $fquery ORDER BY utime DESC LIMIT $ulimit"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
437 qdb_handle eval $usql {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
438 incr uresults
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
439 qdb_msg $ucmd $utable $upublic $unick $uchan "fmt_search" [list $quoteID $utext $uuser [utl_ctime $utime]]
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
440 }
424
825cac46b1cb Cosmetic / stray trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 422
diff changeset
441
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
442 if {$uresults == 0} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
443 qdb_msg $ucmd $utable $upublic $unick $uchan "no_matches"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
444 return 0
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
445 }
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
446 return 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
447 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
448
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
449
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
450 #-------------------------------------------------------------------------
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
451 proc qdb_command {ucmd utable unick uhost uhand uchan utext upublic} {
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
452 global qdb_channels
346
329ceff76d0c qdb: Add support for enabled channels.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
453
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
454 # Check if command comes from allowed channel or is private
346
329ceff76d0c qdb: Add support for enabled channels.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
455 if {$upublic && ![utl_match_delim_list $qdb_channels $uchan]} {
329ceff76d0c qdb: Add support for enabled channels.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
456 return 0
329ceff76d0c qdb: Add support for enabled channels.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
457 }
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
458
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
459 # Trim argument text
54
301df7d15861 quotedb: Using [join utext " "] on command input string is harmful. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 48
diff changeset
460 set utext [string trim $utext]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
461
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
462 if {$utext == "" || $utext == {}} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
463 # No arguments, assume random query
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
464 qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext -1
466
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
465 } elseif {[regexp {^(stat|stats|tilasto|tilastot)$} $utext umatch]} {
a8eb80bbffa5 quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents: 465
diff changeset
466 # Statistics
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
467 qdb_stats $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext
465
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
468 } elseif {[regexp {^(last|latest|uusin|viimeisin)$} $utext umatch]} {
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
469 # Latest added
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
470 qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext -2
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
471 } elseif {[regexp {^([0-9]+)$} $utext umatch unum]} {
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
472 # Numeric argument, assume id query
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
473 qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext $unum
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
474 } elseif {[regexp {^top\s*([0-9]+)?$} $utext umatch uargs]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
475 # Toplist of quotes
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
476 qdb_toplist $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext $uargs
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
477 } elseif {[regexp {^add\s*(.*)$} $utext umatch uargs]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
478 # Add quote
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
479 qdb_add $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
480 } elseif {[regexp {^del\s*([0-9]*)$} $utext umatch uargs]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
481 # Delete quote
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
482 qdb_delete $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
483 } elseif {[regexp {^update\s*(.*)$} $utext umatch uargs]} {
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
484 # Modify/update quote
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
485 qdb_update $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
486 } elseif {[regexp {^find\s*(.*)$} $utext umatch uargs]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
487 # Find quote(s)
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
488 qdb_find $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
489 } elseif {[regexp {^vote\s*(.*)$} $utext umatch uargs]} {
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
490 # Vote
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
491 qdb_vote $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
492 } else {
465
ba7ed8f6d2ab quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents: 459
diff changeset
493 # Help/usage
513
8abb0e8d54a2 quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents: 510
diff changeset
494 qdb_msg $ucmd $utable $upublic $unick $uchan "help"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
495 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
496 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
497
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
498 #-------------------------------------------------------------------------
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
499 # end of script