egg-tcls: quotedb.tcl annotate

annotate quotedb.tcl @ 510:794ecdfe6ac0

quotedb: Fix handling of 'vote' command parameters in case of '!xxx vote <1|-1>' to vote for the latest added quote.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 01 May 2020 13:17:21 +0300
parents	0e3d24e02239
children	8abb0e8d54a2

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 #
509 0e3d24e02239 quotedb: Bump version. Matti Hamalainen <ccr@tnsp.org> parents: 508 diff changeset	3 # QuoteDB v2.6 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"
509 0e3d24e02239 quotedb: Bump version. Matti Hamalainen <ccr@tnsp.org> parents: 508 diff changeset	26 set qdb_version "2.6"
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
426 84d3d7abeb8a Add utl_msg_do() function into utillib and refactor out similar things in quotedb and weather scripts. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	53 proc qdb_msg {apublic anick achan amsg {aargs {}}} {
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	54 global qdb_preferredmsg
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	55 set narg 1
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	56 foreach marg $aargs {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	57 set amsg [string map [list "%$narg" $marg] $amsg]
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	58 incr narg
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	59 }
426 84d3d7abeb8a Add utl_msg_do() function into utillib and refactor out similar things in quotedb and weather scripts. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	60 utl_msg_do $qdb_preferredmsg $apublic $anick $achan $amsg
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	61 }
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	62
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	63
37 c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	64 proc qdb_sql_exec { upublic unick uchan usql } {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	65 global qdb_handle qdb_msg_sql_error
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	66 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	67 qdb_log "$uerrmsg on SQL:\n$usql"
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	68 qdb_msg $upublic $unick $uchan $qdb_msg_sql_error
37 c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	69 return 0
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	70 }
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	71 return 1
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	72 }
c3c597cac4b6 Add helper function qdb_sql_exec for simplifying certain SQL operations. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	73
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	74 proc qdb_valid_user {upublic unick uchan uhand} {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	75 global qdb_msg_invalid_user
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	76 if {$uhand == "" \|\| $uhand == {}} {
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	77 qdb_msg $upublic $unick $uchan $qdb_msg_invalid_user
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	78 return 0
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 return 1
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	81 }
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	83 #-------------------------------------------------------------------------
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	84 proc qdb_add {ucmd utable unick uhost uhand uchan utext upublic} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	85 global qdb_handle qdb_msg_add_success
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	86
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	87 if {![qdb_valid_user $upublic $unick $uchan $uhand]} {
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	88 return 0
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	90
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	91 if {$utext == "" \|\| $utext == {}} {
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	92 qdb_msg $upublic $unick $uchan "$ucmd add <teksti>"
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	93 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	94 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	95
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	96 set usql "INSERT INTO $utable (utime,utext,user,host,chan) VALUES ([unixtime], '[utl_escape $utext]', '[utl_escape $uhand]', '[utl_escape $uhost]', '[utl_escape $uchan]')"
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	97 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	98 return 0
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	99 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	100
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	101 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	102 # 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	103 # set usql "SELECT count(*) AS numQuotes FROM $utable"
0da3461eb871 quotedb: Retrieving total number of quotes in the table does not seem to be working, so commenting out the code. Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	104 # if {![qdb_sql_exec $upublic $unick $uchan $usql]} { return 0 }
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	105
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	106 ### 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	107 qdb_log "Added $utable #$quoteID ($unick/$uhand@$uchan): $utext"
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	108
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	109 ### Report success to user
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	110 qdb_msg $upublic $unick $uchan $qdb_msg_add_success [list $utable $quoteID]
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	111 return 1
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	112 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	113
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	114
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	115 #-------------------------------------------------------------------------
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	116 proc qdb_delete {ucmd utable unick uhand uchan utext upublic} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	117 global qdb_handle qdb_max_deltime qdb_msg_not_found
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	118
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	119 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	120
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	121 if {![qdb_valid_user $upublic $unick $uchan $uhand]} {
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	122 return 0
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	123 }
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	124
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	125 if {![regexp {^\s*([0-9]+)$} $utext umatch unum]} {
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	126 qdb_msg $upublic $unick $uchan "$ucmd del <id>"
27 6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	127 return 0
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	128 }
64 cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	129
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	130 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	131 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	132 if {$qoverride == 0} {
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	133 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	134 set qextra ""
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	135 } else {
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	136 set qextra " (owner/time override)"
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	137 }
424 825cac46b1cb Cosmetic / stray trailing whitespace cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	138
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	139 qdb_handle eval $usql {
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	140 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	141 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	142 set usql "DELETE FROM $utable WHERE id=$unum"
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	143 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	144 return 0
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	145 } 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	146 set usql "DELETE FROM ${utable}_votes WHERE urlid=$unum"
43 965b728c2a9d Delete the votes/ratings too, when deleting a quote. Matti Hamalainen <ccr@tnsp.org> parents: 41 diff changeset	147 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
965b728c2a9d Delete the votes/ratings too, when deleting a quote. Matti Hamalainen <ccr@tnsp.org> parents: 41 diff changeset	148 return 0
965b728c2a9d Delete the votes/ratings too, when deleting a quote. Matti Hamalainen <ccr@tnsp.org> parents: 41 diff changeset	149 }
64 cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	150 qdb_msg $upublic $unick $uchan "$utable #$unum poistettu$qextra."
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	151 return 1
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	152 }
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	153 } 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	154 qdb_msg $upublic $unick $uchan "$utable quote #$unum vanhempi kuin $qdb_max_deltime minuuttia, ei poisteta."
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	155 return 0
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	156 }
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	157 }
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	158
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	159 qdb_msg $upublic $unick $uchan $qdb_msg_not_found [list $utable $unum $uhand]
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	160 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	161 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	162
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	163
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	164 #-------------------------------------------------------------------------
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	165 proc qdb_update {ucmd utable unick uhand uchan utext upublic} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	166 global qdb_handle qdb_max_modtime qdb_msg_update_override
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	167 global qdb_msg_update_ok qdb_msg_update_too_old qdb_msg_not_found
5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	168
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	169 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	170
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	171 if {![qdb_valid_user $upublic $unick $uchan $uhand]} {
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	172 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	173 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	174
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	175 if {![regexp {^\s*([0-9]+)\s+(.+)$} $utext umatch unum uquote]} {
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	176 qdb_msg $upublic $unick $uchan "$ucmd update <id> <teksti>"
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	177 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	178 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	179
64 cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	180 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	181 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	182 if {$qoverride == 0} {
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	183 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	184 set qextra ""
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	185 } else {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	186 set qextra $qdb_msg_update_override
64 cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	187 }
cd9fd4ec82a9 quotedb: Add in +n flag override for deleting and updating quotes. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	188
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	189 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	190 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	191 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	192 set usql "UPDATE $utable SET utext='[utl_escape $uquote]' WHERE id=$unum"
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	193 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	194 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	195 } else {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	196 qdb_msg $upublic $unick $uchan $qdb_msg_update_ok [list $utable $unum $qextra]
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	197 return 1
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 } else {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	200 qdb_msg $upublic $unick $uchan $qdb_msg_update_too_old [list $utable $unum $qdb_max_modtime]
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	201 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	202 }
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
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	205 qdb_msg $upublic $unick $uchan $qdb_msg_not_found [list $utable $unum $uhand]
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	206 return 0
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	207 }
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	208
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	209
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	210 #-------------------------------------------------------------------------
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	211 proc qdb_toplist {utable unick uchan unum upublic} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	212 global qdb_handle qdb_msg_toplist_limit qdb_msg_toplist_fmt
508 3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	213 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	214
508 3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	215 if {$unum < $qdb_toplist_min \|\| $unum > $qdb_toplist_max} {
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	216 qdb_msg $upublic $unick $uchan $qdb_msg_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	217 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	218 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	219
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	220 set uresults 0
44 f0694e61ae45 Change one local variable name. Matti Hamalainen <ccr@tnsp.org> parents: 43 diff changeset	221 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	222 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	223 incr uresults
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	224 qdb_msg $upublic $unick $uchan $qdb_msg_toplist_fmt [list $uresults $quoteID $utext $uuser $rating]
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	225 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	226
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	227 return 0
26 3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	228 }
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	229
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	230
3f999371de82 Actually fix the quotedb script to work. Matti Hamalainen <ccr@tnsp.org> parents: 25 diff changeset	231 #-------------------------------------------------------------------------
439 ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	232 proc 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	233 set usql "SELECT total(${utable}_votes.vote) AS qrating FROM ${utable}_votes WHERE urlid=${uid}"
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	234 set qrating 0
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	235 qdb_handle eval $usql { set urating $qrating }
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	236 return $qrating
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	237 }
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	238
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	239
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	240 #-------------------------------------------------------------------------
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	241 proc qdb_vote {ucmd utable unick uhand uchan utext upublic} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	242 global qdb_handle qdb_msg_you_voted qdb_msg_quote_does_not_exist qdb_msg_vote_updated
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	243
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	244 if {![qdb_valid_user $upublic $unick $uchan $uhand]} {
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	245 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	246 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	247
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	248 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	249 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	250 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	251 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	252 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	253 } 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	254 } elseif {![regexp {^\s*([0-9]+)\s+(-1\|1)$} $utext umatch uid uvote]} {
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	255 qdb_msg $upublic $unick $uchan "$ucmd vote \[<id> \[1\|-1\]\]"
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	256 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	257 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	258
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	259 # 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	260 set uresults 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	261 set usql "SELECT 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	262 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	263 if {$uresults == 0} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	264 qdb_msg $upublic $unick $uchan $qdb_msg_quote_does_not_exist [list $uid]
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	265 return 0
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	266 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	267
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	268 # Check if 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	269 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	270 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	271 # 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	272 set usql "UPDATE ${utable}_votes SET vote=$uvote WHERE id=$qid"
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	273 if {[qdb_sql_exec $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	274 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	275 qdb_log "$uhand changed vote to $uvote on #$uid / $utable, total $urating"
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	276 qdb_msg $upublic $unick $uchan $qdb_msg_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	277 return 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	278 } else {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	279 return 0
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 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	282
148 2f0c823386b0 quotedb: Simplify a bit. Matti Hamalainen <ccr@tnsp.org> parents: 114 diff changeset	283 # No previous votes, insert new
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	284 set usql "INSERT INTO ${utable}_votes (user,urlid,vote) VALUES ('[utl_escape $uhand]',$uid,$uvote)"
148 2f0c823386b0 quotedb: Simplify a bit. Matti Hamalainen <ccr@tnsp.org> parents: 114 diff changeset	285 if {[qdb_sql_exec $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	286 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	287 qdb_log "$uhand voted $uvote on #$uid / $utable, total $urating"
ac66900fd066 quotedb: Add display of current quote rating when voting for it. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	288 qdb_msg $upublic $unick $uchan $qdb_msg_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	289 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	290 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	291
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	292
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	293 #-------------------------------------------------------------------------
482 0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	294 proc qdb_get {ufmt utable unick uchan uindex upublic urlprefix} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	295 global qdb_handle qdb_msg_no_matches
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	296
149 fc2654064339 quotedb: Show quote addition date. Matti Hamalainen <ccr@tnsp.org> parents: 148 diff changeset	297 set usql "SELECT total(${utable}_votes.vote) AS uvote, ${utable}.id AS quoteID, ${utable}.utext AS utext, ${utable}.utime AS utime, ${utable}.user AS uuser FROM ${utable} LEFT JOIN ${utable}_votes ON ${utable}_votes.urlid = ${utable}.id"
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	298 if {$uindex >= 0} {
66 140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..." Matti Hamalainen <ccr@tnsp.org> parents: 64 diff changeset	299 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	300 qdb_log "$unick searched $utable #$uindex"
465 ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	301 } elseif {$uindex == -1} {
66 140f0492dcd3 quotedb: Use TCL function append instead of set foo "$foo..." Matti Hamalainen <ccr@tnsp.org> parents: 64 diff changeset	302 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	303 qdb_log "$unick get random $utable"
465 ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	304 } elseif {$uindex == -2} {
ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	305 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	306 qdb_log "$unick get latest $utable"
ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	307 } else {
ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	308 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	309 return 0
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	311
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	312 qdb_handle eval $usql {
482 0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	313 if {[string range $utext 0 3] == "img:"} {
0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	314 set utext "${urlprefix}[string range $utext 4 end]"
0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	315 }
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	316 if {$ufmt != ""} {
32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	317 qdb_msg $upublic $unick $uchan $ufmt [list $quoteID $utext $uuser [utl_ctime $utime] $uvote]
32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	318 } else {
32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	319 qdb_msg $upublic $unick $uchan "#${quoteID}: $utext ($uuser@[utl_ctime $utime], $uvote)"
32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	320 }
48 506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests. Matti Hamalainen <ccr@tnsp.org> parents: 47 diff changeset	321 return 1
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	322 }
48 506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests. Matti Hamalainen <ccr@tnsp.org> parents: 47 diff changeset	323
288 135e6c628164 quotedb: Add nick to parameters. Matti Hamalainen <ccr@tnsp.org> parents: 283 diff changeset	324 qdb_msg $upublic $unick $uchan $qdb_msg_no_matches [list $unick]
48 506ce7f074e4 Cleanups. Add "not found" message for certain quote lookup requests. Matti Hamalainen <ccr@tnsp.org> parents: 47 diff changeset	325 return 0
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	326 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	327
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	328
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	329 #-------------------------------------------------------------------------
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	330 proc qdb_stats {utable unick uchan upublic} {
32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	331 global qdb_handle qdb_msg_stats
466 a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	332
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	333 set usql "SELECT count(*) AS nvotes FROM ${utable}_votes"
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	334 qdb_handle eval $usql {}
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	335
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	336 set usql "SELECT count(*) AS nquotes FROM ${utable}"
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	337 qdb_handle eval $usql {}
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	338
508 3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	339 set nmaxtop 5
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	340
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	341 set usql "SELECT user,count(*) AS uquotes FROM ${utable} GROUP BY user ORDER BY uquotes DESC LIMIT ${nmaxtop}"
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	342 set ntop {}
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	343 set nindex 0
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	344 qdb_handle eval $usql {
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	345 incr nindex
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	346 lappend ntop "${user} (${uquotes})"
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	347 }
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	348
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	349 qdb_msg $upublic $unick $uchan $qdb_msg_stats [list $utable $nquotes $nvotes $nindex [join $ntop ", "]]
3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	350
466 a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	351 return 0
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	352 }
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
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	355 #-------------------------------------------------------------------------
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	356 proc qdb_find {utable unick uhand uchan utext upublic} {
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	357 global qdb_handle qdb_showmax_pub qdb_showmax_priv qdb_msg_no_matches qdb_msg_search_fmt
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	358
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	359 if {$upublic == 0} {
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	360 set ulimit $qdb_showmax_priv
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	361 } else {
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	362 set ulimit $qdb_showmax_pub
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	363 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	364
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	365 ### Parse the given command
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	366 qdb_log "$unick/$uhand/$uchan searched $utable: $utext"
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	367
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	368 set ftokens [split $utext " "]
508 3fc74204dd8b quotedb: Add new information in statistics sub-command. Matti Hamalainen <ccr@tnsp.org> parents: 500 diff changeset	369 set fpatlist {}
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	370 foreach ftoken $ftokens {
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	371 set fprefix [string range $ftoken 0 0]
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	372 set fpattern [string range $ftoken 1 end]
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	373
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	374 if {$fprefix == "-"} {
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	375 lappend fpatlist "utext NOT LIKE '%[utl_escape $fpattern]%'"
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	376 } elseif {$fprefix == "%"} {
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	377 lappend fpatlist "user LIKE '[utl_escape $fpattern]'"
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	378 } elseif {$fprefix == "@"} {
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	379 # foo
109 74cb254dbf09 urllog and quotedb: Handle "+"-prefix in searches as it is documented. Matti Hamalainen <ccr@tnsp.org> parents: 85 diff changeset	380 } elseif {$fprefix == "+"} {
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	381 lappend fpatlist "utext LIKE '%[utl_escape $fpattern]%'"
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	382 } else {
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 293 diff changeset	383 lappend fpatlist "utext LIKE '%[utl_escape $ftoken]%'"
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	384 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	385 }
27 6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	386 if {[llength $fpatlist] > 0} {
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	387 set fquery "WHERE [join $fpatlist " AND "]"
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	388 } else {
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	389 set fquery ""
6e381916b016 Some fixes in the query mechanisms of QuoteDB and URLLog. Matti Hamalainen <ccr@tnsp.org> parents: 26 diff changeset	390 }
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	391
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	392 ### Query the database and output results
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	393 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	394 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	395 qdb_handle eval $usql {
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	396 incr uresults
422 880a07485275 Add utl_ctime() to utillib and use it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 347 diff changeset	397 qdb_msg $upublic $unick $uchan $qdb_msg_search_fmt [list $quoteID $utext $uuser $utime [utl_ctime $utime]]
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	398 }
424 825cac46b1cb Cosmetic / stray trailing whitespace cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	399
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	400 if {$uresults == 0} {
288 135e6c628164 quotedb: Add nick to parameters. Matti Hamalainen <ccr@tnsp.org> parents: 283 diff changeset	401 qdb_msg $upublic $unick $uchan $qdb_msg_no_matches [list $unick]
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	402 return 0
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	403 }
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	404 return 1
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	405 }
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	406
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	407
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	408 #-------------------------------------------------------------------------
482 0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	409 proc qdb_command {ucmd utable unick uhost uhand uchan utext upublic ufmt_get urlprefix} {
346 329ceff76d0c qdb: Add support for enabled channels. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	410 global qdb_msg_help qdb_channels
329ceff76d0c qdb: Add support for enabled channels. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	411
329ceff76d0c qdb: Add support for enabled channels. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	412 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	413 return 0
329ceff76d0c qdb: Add support for enabled channels. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	414 }
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	415
54 301df7d15861 quotedb: Using [join utext " "] on command input string is harmful. Fixed. Matti Hamalainen <ccr@tnsp.org> parents: 48 diff changeset	416 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	417
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	418 if {$utext == "" \|\| $utext == {}} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	419 # No arguments, assume random query
482 0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	420 qdb_get $ufmt_get $utable $unick $uchan -1 $upublic $urlprefix
466 a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	421 } elseif {[regexp {^(stat\|stats\|tilasto\|tilastot)$} $utext umatch]} {
a8eb80bbffa5 quotedb: Add 'stats' command. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	422 # Statistics
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	423 qdb_stats $utable $unick $uchan $upublic
465 ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	424 } elseif {[regexp {^(last\|latest\|uusin\|viimeisin)$} $utext umatch]} {
ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	425 # Latest added
482 0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	426 qdb_get $ufmt_get $utable $unick $uchan -2 $upublic $urlprefix
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	427 } elseif {[regexp {^([0-9]+)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	428 # Numeric argument, assume index query
482 0e50c8440ea2 quotedb: Add img: image URL support. Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	429 qdb_get $ufmt_get $utable $unick $uchan $unum $upublic $urlprefix
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	430 } elseif {[regexp {^top\s*([0-9]+)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	431 # Toplist of quotes
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	432 qdb_toplist $utable $unick $uchan $unum $upublic
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	433 } elseif {[regexp {^add\s(.)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	434 # Add quote
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	435 qdb_add $ucmd $utable $unick $uhost $uhand $uchan $unum $upublic
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	436 } elseif {[regexp {^del\s([0-9])$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	437 # Delete quote
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	438 qdb_delete $ucmd $utable $unick $uhand $uchan $unum $upublic
60 ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	439 } elseif {[regexp {^update\s(.)$} $utext umatch unum]} {
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	440 # Modify/update quote
ce327469582c quotedb: Add "update" sub-command for modifying/updating recently added quotes. Matti Hamalainen <ccr@tnsp.org> parents: 59 diff changeset	441 qdb_update $ucmd $utable $unick $uhand $uchan $unum $upublic
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	442 } elseif {[regexp {^find\s(.)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	443 # Find quote(s)
478 32f0aba3ab9b quotedb: Make more things configurable. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	444 qdb_find $utable $unick $uhand $uchan $unum $upublic
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	445 } elseif {[regexp {^vote\s(.)$} $utext umatch unum]} {
428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	446 # Vote
56 aff22ba168b0 quotedb: Show command name in the short helps. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	447 qdb_vote $ucmd $utable $unick $uhand $uchan $unum $upublic
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	448 } else {
465 ba7ed8f6d2ab quotedb: Add get latest quote feature. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	449 # Help/usage
283 5b997bee1745 quotedb: Move various message texts to configuration file. Not everything yet. Matti Hamalainen <ccr@tnsp.org> parents: 261 diff changeset	450 qdb_msg $upublic $unick $uchan $qdb_msg_help [list $ucmd]
39 428f498b6030 Refactor QuoteDB some more, for modularity. Bot commands are now aggregated Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	451 }
25 65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	452 }
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	453
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	454 #-------------------------------------------------------------------------
65f94adedc98 Import refactored QuoteDB script. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	455 # end of script

Mercurial > hg > egg-tcls

annotate quotedb.tcl @ 510:794ecdfe6ac0