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