Mercurial > hg > egg-tcls
annotate quotedb.tcl @ 636:c3911a8c28e5
tj: Oops, in 'set' command UPDATE clause we had forgotten to specify
uuser constraint when we converted to using uids instead of unique row ids.
Fixed.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 16 Feb 2021 12:29:17 +0200 |
parents | 56f204df1323 |
children | 0f206ab6a0e4 |
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 | 3 # QuoteDB v2.7 by Matti 'ccr' Hamalainen <ccr@tnsp.org> |
578 | 4 # (C) Copyright 2003-2021 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 package require sqlite3 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
26 |
559 | 27 set qdb_name "QuoteDB" |
578 | 28 set qdb_message "$qdb_name v2.7 (C) 2003-2021 ccr/TNSP" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
29 |
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 #------------------------------------------------------------------------- |
556
e310d223dd12
quotedb: Rename a function argument.
Matti Hamalainen <ccr@tnsp.org>
parents:
550
diff
changeset
|
32 proc qdb_log {umsg} { |
550
85fe3bc36307
Rename *_logmsg settings to *_log_enable.
Matti Hamalainen <ccr@tnsp.org>
parents:
547
diff
changeset
|
33 global qdb_log_enable qdb_name |
85fe3bc36307
Rename *_logmsg settings to *_log_enable.
Matti Hamalainen <ccr@tnsp.org>
parents:
547
diff
changeset
|
34 if {$qdb_log_enable != 0} { |
595 | 35 putlog "${qdb_name}: $umsg" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
36 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
37 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
38 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
39 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
40 proc qdb_qm {utable uid} { |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
41 global qdb_messages |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
42 set qid "${utable}_${uid}" |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
43 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
44 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
|
45 return $qdb_messages($qid) |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
46 } 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
|
47 return $qdb_messages($uid) |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
48 } else { |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
49 return $uid |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
50 } |
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 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
53 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
54 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
|
55 global qdb_preferredmsg |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
56 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
57 # Get message |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
58 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
|
59 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
|
60 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
61 # Map constant tokens |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
62 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
|
63 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
|
64 |
529
3046ee0e574d
quotedb: Use utillib version of the function.
Matti Hamalainen <ccr@tnsp.org>
parents:
519
diff
changeset
|
65 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
|
66 } |
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
67 |
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
68 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
69 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
|
70 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
|
71 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
|
72 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
|
73 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
|
74 return 0 |
c3c597cac4b6
Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
75 } |
c3c597cac4b6
Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
76 return 1 |
c3c597cac4b6
Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
77 } |
c3c597cac4b6
Add helper function qdb_sql_exec for simplifying certain SQL operations.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
78 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
79 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
80 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
|
81 if {$uhand == "" || $uhand == {}} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
82 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
|
83 return 0 |
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
84 } |
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
85 return 1 |
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
86 } |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
87 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
88 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
89 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
|
90 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
|
91 set qrating 0 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
92 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
|
93 return $qrating |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
94 } |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
95 |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
96 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
97 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
98 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
|
99 global qdb_handle |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
100 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
101 if {![qdb_valid_user $ucmd $utable $upublic $unick $uchan $uhand]} { |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
102 return 0 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
103 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
104 |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
105 if {$utext == "" || $utext == {}} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
106 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
|
107 return 0 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
108 } |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
109 |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
110 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
|
111 if {![qdb_sql_exec $ucmd $utable $upublic $unick $uchan $usql]} { |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
112 return 0 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
113 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
114 |
283
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
115 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
|
116 # 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
|
117 # 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
|
118 # 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
|
119 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
120 ### 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
|
121 qdb_log "Added $utable #$quoteID ($unick/$uhand@$uchan): $utext" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
122 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
123 ### Report success to user |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
124 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
|
125 return 1 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
126 } |
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 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
129 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
130 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
|
131 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
|
132 |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
133 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
|
134 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
135 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
|
136 return 0 |
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
137 } |
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
138 |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
139 if {![regexp {^\s*([0-9]+)$} $utext -> unum]} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
140 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
|
141 return 0 |
26
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
142 } |
64
cd9fd4ec82a9
quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
143 |
cd9fd4ec82a9
quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
144 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
|
145 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
|
146 if {$qoverride == 0} { |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
147 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
|
148 set qextra "" |
cd9fd4ec82a9
quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
149 } else { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
150 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
|
151 } |
424
825cac46b1cb
Cosmetic / stray trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents:
422
diff
changeset
|
152 |
283
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
153 qdb_handle eval $usql { |
26
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
154 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
|
155 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
|
156 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
|
157 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
|
158 return 0 |
26
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
159 } 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
|
160 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
|
161 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
|
162 return 0 |
965b728c2a9d
Delete the votes/ratings too, when deleting a quote.
Matti Hamalainen <ccr@tnsp.org>
parents:
41
diff
changeset
|
163 } |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
164 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
|
165 return 1 |
26
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
166 } |
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
167 } else { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
168 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
|
169 return 0 |
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
170 } |
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 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
173 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
|
174 return 0 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
175 } |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
176 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
177 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
178 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
179 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
|
180 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
|
181 |
60
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
182 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
|
183 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
184 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
|
185 return 0 |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
186 } |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
187 |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
188 if {![regexp {^\s*([0-9]+)\s+(.+)$} $utext -> unum uquote]} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
189 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
|
190 return 0 |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
191 } |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
192 |
64
cd9fd4ec82a9
quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
193 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
|
194 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
|
195 if {$qoverride == 0} { |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
196 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
|
197 set qextra "" |
cd9fd4ec82a9
quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
198 } else { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
199 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
|
200 } |
cd9fd4ec82a9
quotedb: Add in +n flag override for deleting and updating quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
201 |
283
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
202 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
|
203 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
|
204 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
|
205 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
|
206 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
|
207 return 0 |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
208 } else { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
209 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
|
210 return 1 |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
211 } |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
212 } else { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
213 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
|
214 return 0 |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
215 } |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
216 } |
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
217 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
218 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
|
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 } |
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 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
224 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
|
225 global qdb_handle |
508
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
226 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
|
227 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
228 if {$unum == {} || $unum == ""} { |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
229 set unum $qdb_toplist_min |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
230 } |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
231 |
508
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
232 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
|
233 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
|
234 return 0 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
235 } |
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 set uresults 0 |
44
f0694e61ae45
Change one local variable name.
Matti Hamalainen <ccr@tnsp.org>
parents:
43
diff
changeset
|
238 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
|
239 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
|
240 incr uresults |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
241 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
|
242 } |
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 return 0 |
26
3f999371de82
Actually fix the quotedb script to work.
Matti Hamalainen <ccr@tnsp.org>
parents:
25
diff
changeset
|
245 } |
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 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
249 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
|
250 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
|
251 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
252 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
|
253 return 0 |
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 set uvote 1 |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
257 if {$utext == "" || [regexp {^\s*(-?1)\s*$} $utext -> uvote]} { |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
258 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
|
259 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
|
260 qdb_handle eval $usql { set uid $qid } |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
261 } elseif {[regexp {^\s*([0-9]+)$} $utext -> uid]} { |
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
262 } elseif {![regexp {^\s*([0-9]+)\s+(-1|1)$} $utext -> uid uvote]} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
263 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
|
264 return 0 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
265 } |
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 # 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
|
268 set uresults 0 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
269 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
|
270 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
|
271 if {$uresults == 0} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
272 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
|
273 return 0 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
274 } |
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 # 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
|
277 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
|
278 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
|
279 # 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
|
280 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
|
281 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
|
282 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
|
283 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
|
284 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
|
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 | 291 # No previous votes, insert new |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
292 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
|
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 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
|
296 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
|
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 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
301 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
302 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
|
303 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
|
304 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
305 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
|
306 |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
307 if {$uindex >= 0} { |
66
140f0492dcd3
quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents:
64
diff
changeset
|
308 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
|
309 qdb_log "$unick searched $utable #$uindex" |
465
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
310 } elseif {$uindex == -1} { |
66
140f0492dcd3
quotedb: Use TCL function append instead of set foo "$foo..."
Matti Hamalainen <ccr@tnsp.org>
parents:
64
diff
changeset
|
311 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
|
312 qdb_log "$unick get random $utable" |
465
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
313 } elseif {$uindex == -2} { |
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
314 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
|
315 qdb_log "$unick get latest $utable" |
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
316 } else { |
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
317 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
|
318 return 0 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
319 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
320 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
321 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
|
322 |
283
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
323 qdb_handle eval $usql { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
324 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
|
325 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
|
326 } |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
327 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
|
328 return 1 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
329 } |
48
506ce7f074e4
Cleanups. Add "not found" message for certain quote lookup requests.
Matti Hamalainen <ccr@tnsp.org>
parents:
47
diff
changeset
|
330 |
516
4995ee3a95db
quotedb: Adjust some messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
514
diff
changeset
|
331 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
|
332 return 0 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
333 } |
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 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
337 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
|
338 global qdb_handle |
466
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
339 |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
340 set usql "SELECT count(*) AS nvotes FROM ${utable}_votes" |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
341 qdb_handle eval $usql {} |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
342 |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
343 set usql "SELECT count(*) AS nquotes FROM ${utable}" |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
344 qdb_handle eval $usql {} |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
345 |
508
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
346 set nmaxtop 5 |
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
347 |
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
348 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
|
349 set ltopusers {} |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
350 set ntopusers 0 |
508
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
351 qdb_handle eval $usql { |
519
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
352 incr ntopusers |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
353 lappend ltopusers "${user} (${uquotes})" |
508
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
354 } |
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
355 |
519
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
356 set nmaxtop 3 |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
357 |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
358 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
|
359 set llatestyears {} |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
360 set nlatestyears 0 |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
361 qdb_handle eval $usql { |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
362 incr nlatestyears |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
363 lappend llatestyears "${uquotes} (${uyear})" |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
364 } |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
365 |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
366 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
|
367 set ltopeyears {} |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
368 set ntopyears 0 |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
369 qdb_handle eval $usql { |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
370 incr ntopyears |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
371 lappend ltopeyears "${uquotes} (${uyear})" |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
372 } |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
373 |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
374 qdb_msg $ucmd $utable $upublic $unick $uchan "stats" [list $nquotes $nvotes] |
1cfa567f9500
quotedb: Improve statistics.
Matti Hamalainen <ccr@tnsp.org>
parents:
518
diff
changeset
|
375 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
|
376 |
466
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
377 return 0 |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
378 } |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
379 |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
380 |
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
381 #------------------------------------------------------------------------- |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
382 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
|
383 global qdb_handle qdb_showmax_pub qdb_showmax_priv |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
384 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
385 # Limit results based on public/private |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
386 if {$upublic == 0} { |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
387 set ulimit $qdb_showmax_priv |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
388 } else { |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
389 set ulimit $qdb_showmax_pub |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
390 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
391 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
392 ### Parse the given command |
601 | 393 qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: ${utext}" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
394 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
395 set ftokens [split $utext " "] |
508
3fc74204dd8b
quotedb: Add new information in statistics sub-command.
Matti Hamalainen <ccr@tnsp.org>
parents:
500
diff
changeset
|
396 set fpatlist {} |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
397 foreach ftoken $ftokens { |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
398 set fprefix [string range $ftoken 0 0] |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
399 set fpattern [string range $ftoken 1 end] |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
400 |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
401 if {$fprefix == "-"} { |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
402 lappend fpatlist "utext NOT LIKE '%[utl_escape $fpattern]%'" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
403 } elseif {$fprefix == "%"} { |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
404 lappend fpatlist "user LIKE '[utl_escape $fpattern]'" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
405 } elseif {$fprefix == "@"} { |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
406 # foo |
109
74cb254dbf09
urllog and quotedb: Handle "+"-prefix in searches as it is documented.
Matti Hamalainen <ccr@tnsp.org>
parents:
85
diff
changeset
|
407 } elseif {$fprefix == "+"} { |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
408 lappend fpatlist "utext LIKE '%[utl_escape $fpattern]%'" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
409 } else { |
295
141bb4a2b76f
utillib: utl_escape (which will be deprecated soon).
Matti Hamalainen <ccr@tnsp.org>
parents:
293
diff
changeset
|
410 lappend fpatlist "utext LIKE '%[utl_escape $ftoken]%'" |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
411 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
412 } |
517
894bc9632ece
quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
413 |
894bc9632ece
quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
414 # 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
|
415 if {[llength $fpatlist] == 0} { |
518
7fdc069840cc
quotedb: Show help instead.
Matti Hamalainen <ccr@tnsp.org>
parents:
517
diff
changeset
|
416 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
|
417 return 0 |
27
6e381916b016
Some fixes in the query mechanisms of QuoteDB and URLLog.
Matti Hamalainen <ccr@tnsp.org>
parents:
26
diff
changeset
|
418 } |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
419 |
517
894bc9632ece
quotedb: Check if any search parameters have been given, error out if not.
Matti Hamalainen <ccr@tnsp.org>
parents:
516
diff
changeset
|
420 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
|
421 |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
422 ### Query the database and output results |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
423 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
|
424 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
|
425 qdb_handle eval $usql { |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
426 incr uresults |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
427 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
|
428 } |
424
825cac46b1cb
Cosmetic / stray trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents:
422
diff
changeset
|
429 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
430 if {$uresults == 0} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
431 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
|
432 return 0 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
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 return 1 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
435 } |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
436 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
437 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
438 #------------------------------------------------------------------------- |
547
717a1c84df4c
quotedb: Rename qdb_command() to qdb_cmd()
Matti Hamalainen <ccr@tnsp.org>
parents:
530
diff
changeset
|
439 proc qdb_cmd {ucmd utable unick uhost uhand uchan utext upublic} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
440 global qdb_channels |
346
329ceff76d0c
qdb: Add support for enabled channels.
Matti Hamalainen <ccr@tnsp.org>
parents:
309
diff
changeset
|
441 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
442 # 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
|
443 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
|
444 return 0 |
329ceff76d0c
qdb: Add support for enabled channels.
Matti Hamalainen <ccr@tnsp.org>
parents:
309
diff
changeset
|
445 } |
283
5b997bee1745
quotedb: Move various message texts to configuration file. Not everything yet.
Matti Hamalainen <ccr@tnsp.org>
parents:
261
diff
changeset
|
446 |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
447 # 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
|
448 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
|
449 |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
450 if {$utext == "" || $utext == {}} { |
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
451 # 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
|
452 qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext -1 |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
453 } elseif {[regexp {^(stat|stats|tilasto|tilastot)$} $utext]} { |
466
a8eb80bbffa5
quotedb: Add 'stats' command.
Matti Hamalainen <ccr@tnsp.org>
parents:
465
diff
changeset
|
454 # Statistics |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
455 qdb_stats $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
456 } elseif {[regexp {^(last|latest|uusin|viimeisin)$} $utext]} { |
465
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
457 # Latest added |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
458 qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext -2 |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
459 } elseif {[regexp {^([0-9]+)$} $utext -> unum]} { |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
460 # Numeric argument, assume id query |
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
461 qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext $unum |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
462 } elseif {[regexp {^top\s*([0-9]+)?$} $utext -> uargs]} { |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
463 # Toplist of quotes |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
464 qdb_toplist $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext $uargs |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
465 } elseif {[regexp {^add\s*(.*)$} $utext -> uargs]} { |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
466 # Add quote |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
467 qdb_add $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
468 } elseif {[regexp {^del\s*([0-9]*)$} $utext -> uargs]} { |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
469 # Delete quote |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
470 qdb_delete $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
471 } elseif {[regexp {^update\s*(.*)$} $utext -> uargs]} { |
60
ce327469582c
quotedb: Add "update" sub-command for modifying/updating recently added quotes.
Matti Hamalainen <ccr@tnsp.org>
parents:
59
diff
changeset
|
472 # Modify/update quote |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
473 qdb_update $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
474 } elseif {[regexp {^find\s*(.*)$} $utext -> uargs]} { |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
475 # Find quote(s) |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
476 qdb_find $ucmd $utable $upublic $unick $uhost $uhand $uchan $uargs |
597
6997201c7b71
quotedb: Clean up regexp statements.
Matti Hamalainen <ccr@tnsp.org>
parents:
595
diff
changeset
|
477 } elseif {[regexp {^vote\s*(.*)$} $utext -> uargs]} { |
39
428f498b6030
Refactor QuoteDB some more, for modularity. Bot commands are now aggregated
Matti Hamalainen <ccr@tnsp.org>
parents:
37
diff
changeset
|
478 # Vote |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
479 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
|
480 } else { |
465
ba7ed8f6d2ab
quotedb: Add get latest quote feature.
Matti Hamalainen <ccr@tnsp.org>
parents:
459
diff
changeset
|
481 # Help/usage |
513
8abb0e8d54a2
quotedb: Refactor qdb_msg and message handling in general.
Matti Hamalainen <ccr@tnsp.org>
parents:
510
diff
changeset
|
482 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
|
483 } |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
484 } |
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
485 |
559 | 486 |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
487 #------------------------------------------------------------------------- |
559 | 488 # Script initialization |
489 #------------------------------------------------------------------------- | |
490 putlog "$qdb_message" | |
491 | |
606
56f204df1323
quotedb: Rename SQLite3 database filename configuration variable.
Matti Hamalainen <ccr@tnsp.org>
parents:
601
diff
changeset
|
492 if {[catch {sqlite3 qdb_handle $qdb_db_file} uerrmsg]} { |
56f204df1323
quotedb: Rename SQLite3 database filename configuration variable.
Matti Hamalainen <ccr@tnsp.org>
parents:
601
diff
changeset
|
493 putlog "Could not open SQLite3 database '${qdb_db_file}': ${uerrmsg}" |
559 | 494 exit 2 |
495 } | |
496 | |
25
65f94adedc98
Import refactored QuoteDB script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
497 # end of script |