egg-tcls: quotedb.tcl annotate

annotate quotedb.tcl @ 653:96a659f66be9

quotedb: Use splitx instead of split.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 17 Feb 2021 11:09:50 +0200
parents	0f206ab6a0e4
children	88d0e2ba73ca

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

Mercurial > hg > egg-tcls

annotate quotedb.tcl @ 653:96a659f66be9