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