Mercurial > hg > egg-tcls

annotate quotedb.tcl @ 293:42ba48d54324

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Use utillib string splitting.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 26 Jan 2015 14:03:41 +0200
parents 135e6c628164
children 141bb4a2b76f
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 #
261
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
3 # QuoteDB v2.2 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
4 # (C) Copyright 2003-2015 Tecnic Software productions (TNSP)
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 #
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 # Not for public use or distribution. If you happen to find this,
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 # send your questions and/or problems to /dev/null, thank you.
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8 #
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9 ##########################################################################
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10
261
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
11 ### 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
12 ### 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
13 ### 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
14 source [file dirname [info script]]/config.quotedb
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15
293
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
16 ### Required utillib.tcl
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
17 source [file dirname [info script]]/utillib.tcl
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
18
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 ##########################################################################
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21 # No need to look below this line
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 set qdb_name "QuoteDB"
261
e82ae84408ca quotedb: Move settings/config into separate file.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
24 set qdb_version "2.2"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 #-------------------------------------------------------------------------
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27 ### Initialization messages
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 set qdb_message "$qdb_name v$qdb_version by ccr/TNSP"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 putlog "$qdb_message"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 ### Require packages
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32 package require sqlite3
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
33
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
34 ### 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
35 if {[catch {sqlite3 qdb_handle $qdb_file} uerrmsg]} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
36 putlog " Could not open SQLite3 database '$qdb_file': $uerrmsg"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
37 exit 2
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
38 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39
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 ### Utility functions
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
43 proc qdb_log {jarg} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
44 global qdb_logmsg qdb_name
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
45
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
46 if {$qdb_logmsg != 0} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
47 putlog "$qdb_name: $jarg"
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
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
51 proc qdb_ctime {utime} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
52 if {$utime == "" || $utime == "*"} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
53 set utime 0
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
54 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
55
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
56 return [clock format $utime -format "%d.%m.%Y %H:%M"]
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
57 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
58
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
59 proc qdb_msg_do {apublic anick achan amsg} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
60 global qdb_preferredmsg
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
61
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
62 if {$apublic == 0} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
63 putserv "$qdb_preferredmsg $anick :$amsg"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
64 } else {
40
3c118e1d1137 Don't use nickname in QuoteDB's public messages.
Matti Hamalainen <ccr@tnsp.org>
parents: 39
diff changeset
65 putserv "$qdb_preferredmsg $achan :$amsg"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
66 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
67 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
68
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
69 proc qdb_msg {apublic anick achan amsg {aargs {}}} {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
70 set narg 1
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
71 foreach marg $aargs {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
72 set amsg [string map [list "%$narg" $marg] $amsg]
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
73 incr narg
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
74 }
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
75 qdb_msg_do $apublic $anick $achan $amsg
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
76 }
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
77
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
78
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
79 proc qdb_escape {str} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
80 return [string map {' ''} $str]
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
81 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
82
37
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
83 proc qdb_sql_exec { upublic unick uchan usql } {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
84 global qdb_handle qdb_msg_sql_error
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
85 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
86 qdb_log "$uerrmsg on SQL:\n$usql"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
87 qdb_msg $upublic $unick $uchan $qdb_msg_sql_error
37
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
88 return 0
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 return 1
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
91 }
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents: 27
diff changeset
92
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
93 proc qdb_valid_user {upublic unick uchan uhand} {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
94 global qdb_msg_invalid_user
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
95 if {$uhand == "" || $uhand == {}} {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
96 qdb_msg $upublic $unick $uchan $qdb_msg_invalid_user
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
97 return 0
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
98 }
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
99 return 1
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
100 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
101
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
102 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
103 proc qdb_add {ucmd utable unick uhost uhand uchan utext upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
104 global qdb_handle qdb_msg_add_success
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
105
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
106 if {![qdb_valid_user $upublic $unick $uchan $uhand]} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
107 return 0
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
108 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
109
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
110 if {$utext == "" || $utext == {}} {
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
111 qdb_msg $upublic $unick $uchan "$ucmd add <teksti>"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
112 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
113 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
114
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
115 set usql "INSERT INTO $utable (utime,utext,user,host,chan) VALUES ([unixtime], '[qdb_escape $utext]', '[qdb_escape $uhand]', '[qdb_escape $uhost]', '[qdb_escape $uchan]')"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
116 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
117 return 0
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
118 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
119
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
120 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
121 # 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
122 # set usql "SELECT count(*) AS numQuotes FROM $utable"
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
123 # if {![qdb_sql_exec $upublic $unick $uchan $usql]} { return 0 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
124
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
125 ### 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
126 qdb_log "Added $utable #$quoteID ($unick/$uhand@$uchan): $utext"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
127
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
128 ### Report success to user
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
129 qdb_msg $upublic $unick $uchan $qdb_msg_add_success [list $utable $quoteID]
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
130 return 1
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
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
133
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
134 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
135 proc qdb_delete {ucmd utable unick uhand uchan utext upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
136 global qdb_handle qdb_max_deltime qdb_msg_not_found
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
137
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
138 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
139
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
140 if {![qdb_valid_user $upublic $unick $uchan $uhand]} {
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
141 return 0
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
142 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
143
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
144 if {![regexp {^\s*([0-9]+)$} $utext umatch unum]} {
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
145 qdb_msg $upublic $unick $uchan "$ucmd del <id>"
27
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
146 return 0
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
147 }
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
148
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
149 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
150 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
151 if {$qoverride == 0} {
66
140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents: 64
diff changeset
152 append usql " AND user='[qdb_escape $uhand]'"
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
153 set qextra ""
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
154 } else {
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
155 set qextra " (owner/time override)"
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
156 }
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
157
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
158 qdb_handle eval $usql {
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
159 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
160 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
161 set usql "DELETE FROM $utable WHERE id=$unum"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
162 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
163 return 0
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
164 } 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
165 set usql "DELETE FROM ${utable}_votes WHERE urlid=$unum"
43
965b728c2a9d Delete the votes/ratings too, when deleting a quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 41
diff changeset
166 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
965b728c2a9d Delete the votes/ratings too, when deleting a quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 41
diff changeset
167 return 0
965b728c2a9d Delete the votes/ratings too, when deleting a quote.
Matti Hamalainen <ccr@tnsp.org>
parents: 41
diff changeset
168 }
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
169 qdb_msg $upublic $unick $uchan "$utable #$unum poistettu$qextra."
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
170 return 1
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
171 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
172 } 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
173 qdb_msg $upublic $unick $uchan "$utable quote #$unum vanhempi kuin $qdb_max_deltime minuuttia, ei poisteta."
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
174 return 0
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
175 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
176 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
177
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
178 qdb_msg $upublic $unick $uchan $qdb_msg_not_found [list $utable $unum $uhand]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
179 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
180 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
181
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
182
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
183 #-------------------------------------------------------------------------
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
184 proc qdb_update {ucmd utable unick uhand uchan utext upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
185 global qdb_handle qdb_max_modtime qdb_msg_update_override
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
186 global qdb_msg_update_ok qdb_msg_update_too_old qdb_msg_not_found
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
187
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
188 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
189
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
190 if {![qdb_valid_user $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
191 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
192 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
193
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
194 if {![regexp {^\s*([0-9]+)\s+(.+)$} $utext umatch unum uquote]} {
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
195 qdb_msg $upublic $unick $uchan "$ucmd update <id> <teksti>"
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
196 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
197 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
198
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
199 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
200 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
201 if {$qoverride == 0} {
66
140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents: 64
diff changeset
202 append usql " AND user='[qdb_escape $uhand]'"
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
203 set qextra ""
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
204 } else {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
205 set qextra $qdb_msg_update_override
64
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
206 }
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
207
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
208 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
209 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
210 if {$udiff < $maxdiff || $qoverride} {
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
211 set usql "UPDATE $utable SET utext='[qdb_escape $uquote]', utime=[unixtime] WHERE id=$unum"
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
212 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
213 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
214 } else {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
215 qdb_msg $upublic $unick $uchan $qdb_msg_update_ok [list $utable $unum $qextra]
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
216 return 1
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
217 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
218 } else {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
219 qdb_msg $upublic $unick $uchan $qdb_msg_update_too_old [list $utable $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
220 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
221 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
222 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
223
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
224 qdb_msg $upublic $unick $uchan $qdb_msg_not_found [list $utable $unum $uhand]
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
225 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
226 }
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 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
230 proc qdb_toplist {ucmd utable unick uchan unum upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
231 global qdb_handle qdb_msg_toplist_limit qdb_msg_toplist_fmt
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
232
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
233 if {$unum < 2 || $unum > 5} {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
234 qdb_msg $upublic $unick $uchan $qdb_msg_toplist_limit [list 2 5]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
235 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
236 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
237
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
238 set uresults 0
44
f0694e61ae45 Change one local variable name.
Matti Hamalainen <ccr@tnsp.org>
parents: 43
diff changeset
239 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
240 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
241 incr uresults
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
242 qdb_msg $upublic $unick $uchan $qdb_msg_toplist_fmt [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
243 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
244
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
245 return 0
26
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
246 }
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
247
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
248
3f999371de82 Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents: 25
diff changeset
249 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
250 proc qdb_vote {ucmd utable unick uhand uchan utext upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
251 global qdb_handle qdb_msg_you_voted qdb_msg_quote_does_not_exist qdb_msg_vote_updated
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
252
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
253 if {![qdb_valid_user $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
254 return 0
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
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
257 set uvote 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
258 if {$utext == "" || [regexp {^\s*-1$} $utext umatch uvote]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
259 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
260 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
261 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
262 } 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
263 } elseif {![regexp {^\s*([0-9]+)\s+(-1|1)$} $utext umatch uid uvote]} {
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
264 qdb_msg $upublic $unick $uchan "$ucmd vote \[<id> \[1|-1\]\]"
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 # 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
269 set uresults 0
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 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
271 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
272 if {$uresults == 0} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
273 qdb_msg $upublic $unick $uchan $qdb_msg_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
274 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
275 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
276
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
277 # Check if user has previously voted this item
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
278 set usql "SELECT id AS qid FROM ${utable}_votes WHERE user='[qdb_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
279 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
280 # 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
281 set usql "UPDATE ${utable}_votes SET vote=$uvote WHERE id=$qid"
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
282 if {[qdb_sql_exec $upublic $unick $uchan $usql]} {
45
18eb2f6d6c3e Log voting of quotes in bot log.
Matti Hamalainen <ccr@tnsp.org>
parents: 44
diff changeset
283 qdb_log "$uhand changed vote to $uvote on #$uid / $utable"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
284 qdb_msg $upublic $unick $uchan $qdb_msg_vote_updated [list $uid $uvote]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
285 return 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
286 } else {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
287 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
288 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
289 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
290
148
2f0c823386b0 quotedb: Simplify a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 114
diff changeset
291 # No previous votes, insert new
2f0c823386b0 quotedb: Simplify a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 114
diff changeset
292 set usql "INSERT INTO ${utable}_votes (user,urlid,vote) VALUES ('[qdb_escape $uhand]',$uid,$uvote)"
2f0c823386b0 quotedb: Simplify a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 114
diff changeset
293 if {[qdb_sql_exec $upublic $unick $uchan $usql]} {
2f0c823386b0 quotedb: Simplify a bit.
Matti Hamalainen <ccr@tnsp.org>
parents: 114
diff changeset
294 qdb_log "$uhand voted $uvote on #$uid / $utable"
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
295 qdb_msg $upublic $unick $uchan $qdb_msg_you_voted [list $uid $uvote]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
296 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
297 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
298
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
299
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
300 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
301 proc qdb_get {ucmd utable unick uchan uindex upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
302 global qdb_handle qdb_msg_no_matches
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
303
149
fc2654064339 quotedb: Show quote addition date.
Matti Hamalainen <ccr@tnsp.org>
parents: 148
diff changeset
304 set usql "SELECT total(${utable}_votes.vote) AS uvote, ${utable}.id AS quoteID, ${utable}.utext AS utext, ${utable}.utime AS utime, ${utable}.user AS uuser FROM ${utable} LEFT JOIN ${utable}_votes ON ${utable}_votes.urlid = ${utable}.id"
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
305 if {$uindex >= 0} {
66
140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents: 64
diff changeset
306 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
307 qdb_log "$unick searched $utable #$uindex"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
308 } else {
66
140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents: 64
diff changeset
309 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
310 qdb_log "$unick get random $utable"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
311 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
312
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
313 qdb_handle eval $usql {
293
42ba48d54324 quotedb: Use utillib string splitting.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
314 set qtmp [utl_str_split "#${quoteID}: $utext ($uuser@[qdb_ctime $utime], $uvote)" 450]
55
f7ccab2a5811 quotedb: Add qdb_split function for splitting long strings nicely to substrings of specified length as a list. Use the function to send overly long quotes correctly to IRC.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
315 foreach qstr $qtmp {
f7ccab2a5811 quotedb: Add qdb_split function for splitting long strings nicely to substrings of specified length as a list. Use the function to send overly long quotes correctly to IRC.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
316 qdb_msg $upublic $unick $uchan $qstr
f7ccab2a5811 quotedb: Add qdb_split function for splitting long strings nicely to substrings of specified length as a list. Use the function to send overly long quotes correctly to IRC.
Matti Hamalainen <ccr@tnsp.org>
parents: 54
diff changeset
317 }
48
506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents: 47
diff changeset
318 return 1
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
319 }
48
506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents: 47
diff changeset
320
288
135e6c628164 quotedb: Add nick to parameters.
Matti Hamalainen <ccr@tnsp.org>
parents: 283
diff changeset
321 qdb_msg $upublic $unick $uchan $qdb_msg_no_matches [list $unick]
48
506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents: 47
diff changeset
322 return 0
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
323 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
324
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
325
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
326 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
327 proc qdb_find {ucmd utable unick uhand uchan utext upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
328 global qdb_handle qdb_showmax_pub qdb_showmax_priv qdb_msg_no_matches qdb_msg_search_fmt
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
329
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
330 if {$upublic == 0} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
331 set ulimit $qdb_showmax_priv
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
332 } else {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
333 set ulimit $qdb_showmax_pub
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
334 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
335
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
336 ### Parse the given command
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
337 qdb_log "$unick/$uhand/$uchan searched $utable: $utext"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
338
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
339 set ftokens [split $utext " "]
27
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
340 set fpatlist ""
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
341 foreach ftoken $ftokens {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
342 set fprefix [string range $ftoken 0 0]
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
343 set fpattern [string range $ftoken 1 end]
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
344
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
345 if {$fprefix == "-"} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
346 lappend fpatlist "utext NOT LIKE '%[qdb_escape $fpattern]%'"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
347 } elseif {$fprefix == "%"} {
110
4aa1e1d545ed urllog and quotedb: Use SQL LIKE operator for username search terms to avoid unnecessary case-sensitivity.
Matti Hamalainen <ccr@tnsp.org>
parents: 109
diff changeset
348 lappend fpatlist "user LIKE '[qdb_escape $fpattern]'"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
349 } elseif {$fprefix == "@"} {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
350 # foo
109
74cb254dbf09 urllog and quotedb: Handle "+"-prefix in searches as it is documented.
Matti Hamalainen <ccr@tnsp.org>
parents: 85
diff changeset
351 } elseif {$fprefix == "+"} {
74cb254dbf09 urllog and quotedb: Handle "+"-prefix in searches as it is documented.
Matti Hamalainen <ccr@tnsp.org>
parents: 85
diff changeset
352 lappend fpatlist "utext LIKE '%[qdb_escape $fpattern]%'"
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
353 } else {
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
354 lappend fpatlist "utext LIKE '%[qdb_escape $ftoken]%'"
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
355 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
356 }
27
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
357 if {[llength $fpatlist] > 0} {
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
358 set fquery "WHERE [join $fpatlist " AND "]"
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
359 } else {
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
360 set fquery ""
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
361 }
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
362
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
363 ### Query the database and output results
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
364 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
365 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
366 qdb_handle eval $usql {
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
367 incr uresults
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
368 qdb_msg $upublic $unick $uchan $qdb_msg_search_fmt [list $quoteID $utext $uuser $utime [qdb_ctime $utime]]
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
369 }
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
370
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
371 if {$uresults == 0} {
288
135e6c628164 quotedb: Add nick to parameters.
Matti Hamalainen <ccr@tnsp.org>
parents: 283
diff changeset
372 qdb_msg $upublic $unick $uchan $qdb_msg_no_matches [list $unick]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
373 return 0
25
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
374 }
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
375 return 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
376 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
377
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
378
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
379 #-------------------------------------------------------------------------
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
380 proc qdb_command {ucmd utable unick uhost uhand uchan utext upublic} {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
381 global qdb_msg_help
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
382
54
301df7d15861 quotedb: Using [join utext " "] on command input string is harmful. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 48
diff changeset
383 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
384
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
385 if {$utext == "" || $utext == {}} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
386 # No arguments, assume random query
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
387 qdb_get $ucmd $utable $unick $uchan -1 $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
388 } elseif {[regexp {^([0-9]+)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
389 # Numeric argument, assume index query
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
390 qdb_get $ucmd $utable $unick $uchan $unum $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
391 } elseif {[regexp {^top\s*([0-9]+)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
392 # Toplist of quotes
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
393 qdb_toplist $ucmd $utable $unick $uchan $unum $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
394 } elseif {[regexp {^add\s*(.*)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
395 # Add quote
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
396 qdb_add $ucmd $utable $unick $uhost $uhand $uchan $unum $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
397 } elseif {[regexp {^del\s*([0-9]*)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
398 # Delete quote
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
399 qdb_delete $ucmd $utable $unick $uhand $uchan $unum $upublic
60
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
400 } elseif {[regexp {^update\s*(.*)$} $utext umatch unum]} {
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
401 # Modify/update quote
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
402 qdb_update $ucmd $utable $unick $uhand $uchan $unum $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
403 } elseif {[regexp {^find\s*(.*)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
404 # Find quote(s)
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
405 qdb_find $ucmd $utable $unick $uhand $uchan $unum $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
406 } elseif {[regexp {^vote\s*(.*)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
407 # Vote
56
aff22ba168b0 quotedb: Show command name in the short helps.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
408 qdb_vote $ucmd $utable $unick $uhand $uchan $unum $upublic
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
409 } else {
283
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents: 261
diff changeset
410 qdb_msg $upublic $unick $uchan $qdb_msg_help [list $ucmd]
39
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents: 37
diff changeset
411 }
25
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
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
414 #-------------------------------------------------------------------------
65f94adedc98 Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
415 # end of script