egg-tcls: tj.tcl annotate

annotate tj.tcl @ 621:a1efc28ef5a4

tj: Require #-prefix for ids in 'delete' command.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 10 Feb 2021 15:26:10 +0200
parents	47b15186373f
children	84a30765baa1

rev	line source
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	1 ##########################################################################
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 #
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	3 # TJ v2.0 by ccr/TNSP <ccr@tnsp.org>
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	4 # (C) Copyright 2021 Tecnic Software productions (TNSP)
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5 #
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 # This script is freely distributable under GNU GPL (version 2) license.
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7 #
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	8 ##########################################################################
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	10 ### The configuration should be in config.tj in same directory
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	11 ### as this script. Or change the line below to point where ever
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	12 ### you wish. See "config.tj.example" for an example config file.
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	13 source [file dirname [info script]]/config.tj
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	14
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	15 ### Required utillib.tcl
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	16 source [file dirname [info script]]/utillib.tcl
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	17
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	18
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	19 ##########################################################################
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20 # No need to look below this line
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	21 ##########################################################################
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	22 package require sqlite3
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	23 package require textutil::split
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	24
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	25 set tj_name "TJ"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	26 set tj_message "$tj_name v2.0 (C) 2021 ccr/TNSP"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	27
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	28
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	29 # ------------------------------------------------------------------------
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	30 ### Utility functions
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	31 proc tj_log {umsg} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	32 global tj_log_enable tj_name
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	33 if {$tj_log_enable != 0} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	34 putlog "${tj_name}: $umsg"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	35 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	36 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	37
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	38
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	39 proc tj_qm {uid} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	40 global tj_messages
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	41
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	42 if {[info exists tj_messages($uid)]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	43 return $tj_messages($uid)
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	44 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	45 return $uid
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	46 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	47 }
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	49
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	50 proc tj_smsg {apublic anick achan amsg {aargs {}}} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	51 global tj_preferredmsg tj_cmd_name
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	52 set amsg [string map [list "@cmd@" $tj_cmd_name] $amsg]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	53 utl_msg_args $tj_preferredmsg $apublic $anick $achan $amsg $aargs
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	54 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	55
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	56
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	57 proc tj_msg {apublic anick achan aid {aargs {}}} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	58 tj_smsg $apublic $anick $achan [tj_qm $aid] $aargs
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	59 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	60
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	61
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	62 proc tj_correct_handle {uhand} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	63 set ulower [string tolower $uhand]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	64 foreach uuser [userlist] {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	65 if {[string tolower $uuser] == $ulower} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	66 return $uuser
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	67 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	68 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	69 return ""
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	70 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	71
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	72
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	73 proc tj_cmd_match {uid ustr} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	74 global tj_commands
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	75 return [utl_cmd_match tj_commands $uid $ustr]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	76 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	77
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	78
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	79 proc tj_arg_rest {rarglist rindex rstr} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	80 upvar $rstr dstr
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	81
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	82 if {$rindex < [llength $rarglist]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	83 set dstr [join [lrange $rarglist $rindex end] " "]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	84 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	85 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	86 return 0
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	87 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	88 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	89
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	90
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	91 proc tj_get_id {rstr rindex rid} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	92 global tj_default_id
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	93 upvar $rindex uindex
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	94 upvar $rid uid
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	95
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	96 if {[string index $rstr 0] == "#"} {
615 1dac9129eb0f tj: Change #id handling to be case-insensitive. Matti Hamalainen <ccr@tnsp.org> parents: 614 diff changeset	97 set uid [string range $rstr 1 end]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	98 incr uindex
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	99 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	100 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	101 set uid $tj_default_id
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	102 return 0
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	103 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	104 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	105
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	106
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	107 proc tj_ctime {ustamp} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	108 return [clock format $ustamp -format [tj_qm "datefmt"]]
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	109 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	110
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	111
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	112 # ------------------------------------------------------------------------
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	113 proc tj_str_append { qlist qvalue qsingular qplural } {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	114 upvar $qlist ulist
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	115 if {$qvalue > 0} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	116 if {$qvalue > 1} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	117 set qfmt $qplural
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	118 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	119 set qfmt $qsingular
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	120 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	121 lappend ulist [utl_str_map_values [tj_qm "tj_str_${qfmt}"] [list $qvalue]]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	122 }
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	123 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	124
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	125
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	126 # Return string describing how many years,days,hours,etc
8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	127 # the given number of seconds consists of
8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	128 proc tj_get_tj_str {useconds} {
505 4f2bf10ceaa2 tj: Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	129
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	130 set uyears [expr ($useconds / (3652460*60))]
8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	131 set urem [expr ($useconds % (3652460*60))]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	132 set udays [expr ($urem / (246060))]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	133 set urem [expr ($urem % (246060))]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	134 set uhours [expr ($urem / (60*60))]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	135 set urem [expr ($urem % (60*60))]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	136 set uminutes [expr ($urem / 60)]
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	137
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	138 set ulist {}
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	139 tj_str_append ulist $uyears "year" "years"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	140 tj_str_append ulist $udays "day" "days"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	141 tj_str_append ulist $uhours "hour" "hours"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	142 tj_str_append ulist $uminutes "minute" "minutes"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	143
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	144 set ustr [join [lrange $ulist 0 end-1] [tj_qm "tj_str_sep"]]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	145 if {[llength $ulist] > 1} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	146 append ustr [tj_qm "tj_str_sep_last"]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	147 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	148 append ustr [lindex $ulist end]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	149
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	150 return $ustr
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	151 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	152
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	153
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	154 proc tj_get_tj_str_delta { ustamp } {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	155 set udelta [expr $ustamp - [clock seconds]]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	156
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	157 if {$udelta < 0} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	158 set ufmt "tj_past"
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	159 set useconds [expr -$udelta]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	160 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	161 set ufmt "tj_remaining"
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	162 set useconds $udelta
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	163 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	164
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	165 # return [utl_str_map_values [tj_qm $ufmt] [list ]]
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	166 return [tj_get_tj_str $useconds]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	167 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	168
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	169
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	170 proc tj_display_tjs {upublic unick uchan uname uid} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	171 set uclock [clock seconds]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	172 set nresults 0
615 1dac9129eb0f tj: Change #id handling to be case-insensitive. Matti Hamalainen <ccr@tnsp.org> parents: 614 diff changeset	173 set usql "SELECT * FROM tj WHERE uuser='[utl_escape $uname]' AND utype=0 AND uid LIKE '[utl_escape $uid]'"
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	174 tj_dbh eval $usql {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	175 incr nresults
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	176 set ustamp [utl_sql_datetime_to_stamp $utarget]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	177 set udelta [expr $ustamp - $uclock]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	178
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	179 if {$udelta < 0} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	180 set ufmt "tj_past"
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	181 set useconds [expr -$udelta]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	182 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	183 set ufmt "tj_remaining"
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	184 set useconds $udelta
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	185 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	186
614 8c61b4032648 tj: Cleanup. Rename some variables to be more descriptive. Add a comment. Matti Hamalainen <ccr@tnsp.org> parents: 613 diff changeset	187 tj_msg $upublic $unick $uchan $ufmt [list $uname $uid [tj_get_tj_str $useconds] [tj_ctime $ustamp]]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	188 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	189
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	190 if {!$nresults} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	191 tj_msg $upublic $unick $uchan "tj_not_set" [list $uname $uid]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	192 }
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	193 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	194
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	195
70 15fc72bc3f3e More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	196 # ------------------------------------------------------------------------
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	197 proc tj_cmd {unick $uhost uhand uchan uargs upublic} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	198 global tj_messages tj_default_id tj_default_time tj_default_desc
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	199
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	200 # Check if we have a valid user
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	201 if {![utl_valid_user $uhand]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	202 tj_msg $upublic $unick $uchan "err_invalid_user" [list $uhand]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	203 return 1
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	206 set uhand [tj_correct_handle $uhand]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	207
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	208 # Check and handle arguments
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	209 set rarglist [::textutil::split::splitx $uargs {\s+}]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	210 set rcmd [lindex $rarglist 0]
617 ce7a666991e3 tj: Cleanup, set rindex only once. Matti Hamalainen <ccr@tnsp.org> parents: 616 diff changeset	211 set rindex 1
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	212
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	213 if {[tj_cmd_match "help" $rcmd]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	214 # Show help
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	215 foreach ukey $tj_messages(help_full) {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	216 tj_msg $upublic $unick $uchan $ukey
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	217 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	218 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	219 } elseif {[tj_cmd_match "set" $rcmd]} {
620 47b15186373f tj: Clarify some comments. Matti Hamalainen <ccr@tnsp.org> parents: 618 diff changeset	220 # !tj set [#<id>] <[-/+]days [[+/-]<hours>] \| dd.mm.yyyy [hh:mm]> [<desc>]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	221 if {![utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	222 tj_msg $upublic $unick $uchan "help_set"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	223 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	224 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	225
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	226 # Check for #id prefix
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	227 if {[tj_get_id $rarg rindex uid]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	228 set rdesc ""
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	229 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	230 set rdesc $tj_default_desc
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	231 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	232
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	233 if {![utl_arg_get $rarglist rindex rarg 1]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	234 tj_msg $upublic $unick $uchan "help_set"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	235 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	236 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	237
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	238 # Is it a time stamp?
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	239 if {[regexp {\d+\.\d+\.\d\d\d\d} $rarg rdate]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	240 # Seems so .. check for hours
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	241 set rtime $tj_default_time
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	242 if {[utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	243 if {[regexp {\d+:\d+} $rarg rtime]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	244 incr rindex
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	245 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	246 set rtime $tj_default_time
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	247 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	248 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	249
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	250 tj_arg_rest $rarglist $rindex rdesc
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	251
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	252 # Check the timestamp validity
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	253 if {[catch {set rstamp [clock scan "${rdate} ${rtime}" -format "%d.%m.%Y %H:%M"]} uerrmsg]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	254 tj_msg $upublic $unick $uchan "err_timestamp" [list $uerrmsg $rdate $rtime]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	255 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	256 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	257
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	258 } elseif {[regexp {(\+\|\-)?(\d+)} $rarg -> dsign rdays]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	259 # Check for days
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	260 if {$dsign == "-"} { set rdays [expr -$rdays] }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	261
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	262 set rhours 0
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	263 if {[utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	264 if {[regexp {(\+\|\-)?(\d+)} $rarg -> hsign rhours]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	265 if {$hsign == "-"} { set rhours [expr -$rhours] }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	266 incr rindex
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	267 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	268
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	269 tj_arg_rest $rarglist $rindex rdesc
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	270
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	271 if {$rhours < -24 \|\| $rhours > 24} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	272 tj_msg $upublic $unick $uchan "err_invalid_hours" [list $rhours]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	273 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	274 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	275 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	276
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	277 # Compute target timestamp
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	278 set rstamp [expr [clock seconds] + ($rdays * 24 * 60 * 60) + ($rhours * 60 * 60)]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	279 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	280 # Only description, if any
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	281 if {![tj_arg_rest $rarglist 1 rdesc]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	282 tj_msg $upublic $unick $uchan "err_invalid_format" [list]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	283 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	284 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	285 set rstamp "invalid"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	286 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	287
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	288 # Check if ID exists
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	289 set umode 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	290 set nres 0
615 1dac9129eb0f tj: Change #id handling to be case-insensitive. Matti Hamalainen <ccr@tnsp.org> parents: 614 diff changeset	291 set usql "SELECT * FROM tj WHERE uid LIKE '[utl_escape $uid]'"
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	292 tj_dbh eval $usql {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	293 set umode 0
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	294 set cid $id
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	295 set ctarget $utarget
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	296 incr nres
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	297 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	298
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	299 # Check for DB sanity
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	300 if {$nres > 1} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	301 tj_msg $upublic $unick $uchan "err_db_corrupt" [list $nres]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	302 tj_log "too many $nres fatal error piip"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	303 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	304 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	305
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	306 # Check if we are trying to add a new entry without valid timestamp
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	307 if {$rstamp == "invalid"} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	308 if {$umode} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	309 tj_msg $upublic $unick $uchan "err_missing_timestamp"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	310 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	311 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	312
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	313 set rdate $ctarget
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	314 set ustamp [utl_sql_datetime_to_stamp $ctarget]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	315 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	316 set rdate [utl_sql_stamp_to_datetime $rstamp]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	317 set ustamp $rstamp
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	318 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	319
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	320 set utjstr [tj_get_tj_str_delta $rstamp]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	321 set udate [tj_ctime $ustamp]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	322
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	323 # Max reminders ..
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	324 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	325 if {[catch {set nreminders [tj_dbh onecolumn $usql]} uerrmsg]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	326 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	327 tj_log "$uerrmsg on SQL:\n$usql"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	328 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	329 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	330
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	331 # Check for maximum reminders
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	332 if {$nreminders > 5} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	333 tj_msg $upublic $unick $uchan "err_too_many" [list $nreminders]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	334 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	335 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	336
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	337 if {$umode} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	338 # Insert new entry
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	339 set usql "INSERT INTO tj (uid,uuser,ucreated,udesc,utype,utarget) VALUES ('[utl_escape $uid]', '[utl_escape $uhand]', [unixtime], '[utl_escape $rdesc]', 0, '$rdate')"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	340 if {[catch {tj_dbh eval $usql} uerrmsg]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	341 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	342 tj_log "$uerrmsg on SQL:\n$usql"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	343 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	344 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	345
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	346 set cid [tj_dbh last_insert_rowid]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	347 tj_msg $upublic $unick $uchan "tj_set" [list $cid $uid $uhand $rdesc $udate $utjstr]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	348 tj_log "tj_set $cid:$uid:$uhand:$rdesc:$rdate:$udate"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	349 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	350 # Update existing entry
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	351 set usqlargs {}
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	352 if {[string length $rdesc] > 0} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	353 lappend usqlargs "udesc='[utl_escape $rdesc]'"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	354 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	355 if {$rstamp != "invalid"} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	356 lappend usqlargs "utarget='$rdate'"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	357 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	358
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	359 if {[llength $usqlargs] > 0} {
615 1dac9129eb0f tj: Change #id handling to be case-insensitive. Matti Hamalainen <ccr@tnsp.org> parents: 614 diff changeset	360 set usql "UPDATE tj SET [join $usqlargs ,] WHERE uid LIKE '[utl_escape $uid]'"
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	361 if {[catch {tj_dbh eval $usql} uerrmsg]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	362 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	363 tj_log "$uerrmsg on SQL:\n$usql"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	364 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	365 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	366 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	367
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	368 tj_msg $upublic $unick $uchan "tj_updated" [list $cid $uid $uhand $rdesc $udate $utjstr]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	369 tj_log "tj_updated $cid:$uid:$uhand:$rdesc:$rdate:$udate"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	370 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	371
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	372 } elseif {[tj_cmd_match "remind" $rcmd]} {
620 47b15186373f tj: Clarify some comments. Matti Hamalainen <ccr@tnsp.org> parents: 618 diff changeset	373 # !tj remind #<id> <<dd.mm.yyyy [hh:mm]>\|<message>>
47b15186373f tj: Clarify some comments. Matti Hamalainen <ccr@tnsp.org> parents: 618 diff changeset	374 # !tj remind #<id> <<dd.mm [hh:mm]>\|<message>>
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	375 if {[llength $rarglist] < 3} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	376 tj_msg $upublic $unick $uchan "help_add"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	377 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	378 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	379
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	380 } elseif {[tj_cmd_match "list" $rcmd]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	381 # !tj list
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	382 # List reminders
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	383 set uclock [clock seconds]
616 20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	384
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	385 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'"
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	386 if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} {
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	387 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	388 tj_log "$uerrmsg on SQL:\n$usql"
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	389 return 1
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	390 }
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	391
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	392 set nitem 0
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	393 set usql "SELECT * FROM tj WHERE uuser='[utl_escape $uhand]' ORDER BY ucreated"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	394 tj_dbh eval $usql {
616 20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	395 incr nitem
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	396 set ustamp [utl_sql_datetime_to_stamp $utarget]
20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	397 tj_msg $upublic $unick $uchan "list_item" [list $nitem $nitems [tj_ctime $ustamp] $uid $udesc]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	398 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	399
616 20dba2c757de tj: Improve output of 'list' command, and make it configurable. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	400 if {!$nitem} {
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	401 tj_msg $upublic $unick $uchan "no_results" [list $uname]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	402 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	403
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	404 } elseif {[tj_cmd_match "delete" $rcmd]} {
621 a1efc28ef5a4 tj: Require #-prefix for ids in 'delete' command. Matti Hamalainen <ccr@tnsp.org> parents: 620 diff changeset	405 # !tj delete #<id>
a1efc28ef5a4 tj: Require #-prefix for ids in 'delete' command. Matti Hamalainen <ccr@tnsp.org> parents: 620 diff changeset	406 if {![utl_arg_get $rarglist rindex rarg 0] \|\| ![tj_get_id $rarg rindex uid]} {
618 3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	407 tj_msg $upublic $unick $uchan "help_delete"
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	408 return 1
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	409 }
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	410
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	411 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]' AND uid LIKE '[utl_escape $uid]'"
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	412 if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} {
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	413 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	414 tj_log "$uerrmsg on SQL:\n$usql"
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	415 return 1
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	416 }
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	417
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	418 set usql "DELETE FROM tj WHERE uuser='[utl_escape $uhand]' AND uid LIKE '[utl_escape $uid]'"
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	419 if {[catch {set ndone [tj_dbh onecolumn $usql]} uerrmsg]} {
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	420 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	421 tj_log "$uerrmsg on SQL:\n$usql"
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	422 return 1
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	423 }
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	424
3b1fdba9a95c tj: Implement initial 'delete' command functionality. Matti Hamalainen <ccr@tnsp.org> parents: 617 diff changeset	425 tj_msg $upublic $unick $uchan "items_deleted" [list $uid $nitems]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	426 } elseif {[tj_cmd_match "show" $rcmd]} {
620 47b15186373f tj: Clarify some comments. Matti Hamalainen <ccr@tnsp.org> parents: 618 diff changeset	427 # !tj show [#<id>] <name>
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	428 # Check for #id prefix
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	429 if {[utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	430 tj_get_id $rarg rindex uid
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	431 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	432
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	433 if {![utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	434 tj_msg $upublic $unick $uchan "help_show"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	435 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	436 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	437
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	438 set uname [tj_correct_handle $rarg]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	439 if {$uname == ""} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	440 tj_msg $upublic $unick $uchan "err_unknown_user" [list $rcmd]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	441 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	442 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	443
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	444 tj_display_tjs $upublic $unick $uchan $uname $uid
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	445 } else {
620 47b15186373f tj: Clarify some comments. Matti Hamalainen <ccr@tnsp.org> parents: 618 diff changeset	446 # !tj [#<id>] [name]
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	447 set uname $uhand
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	448 set rindex 0
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	449 if {[utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	450 # Check for #id prefix
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	451 tj_get_id $rarg rindex uid
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	452
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	453 if {[utl_arg_get $rarglist rindex rarg 0]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	454 set uname [tj_correct_handle $rarg]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	455 if {$uname == ""} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	456 tj_msg $upublic $unick $uchan "err_unknown_user" [list $rcmd]
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	457 return 1
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	458 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	459 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	460 } else {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	461 set uid $tj_default_id
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	462 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	463
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	464 tj_display_tjs $upublic $unick $uchan $uname $uid
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	465 }
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	466
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	467 return 1
0 1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	468 }
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	469
1c4e2814cd41 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	470
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	471 #-------------------------------------------------------------------------
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	472 # Script initialization
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	473 #-------------------------------------------------------------------------
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	474 putlog "$tj_message"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	475
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	476 if {[catch {sqlite3 tj_dbh $tj_db_file} uerrmsg]} {
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	477 putlog "Could not open SQLite3 database '${tj_db_file}': ${uerrmsg}"
ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	478 exit 2
125 42cf6a768c46 tj: Add support for years in the output. Matti Hamalainen <ccr@tnsp.org> parents: 108 diff changeset	479 }
42cf6a768c46 tj: Add support for years in the output. Matti Hamalainen <ccr@tnsp.org> parents: 108 diff changeset	480
613 ea6ebcf42b47 TJ: Initial commit of the TJ2.0 refactoring effort. Instead of using Eggdrop Matti Hamalainen <ccr@tnsp.org> parents: 578 diff changeset	481 # end of script

Mercurial > hg > egg-tcls

annotate tj.tcl @ 621:a1efc28ef5a4