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