commit 14063471f9749f858fd60267fca8fcc1f8aa8226 parent 0bb530e8ee32a9a8b72f1a801f82b6321474d3d8 Author: Ellenor Malik <ellenor@umbrellix.net> Date: Mon, 7 Oct 2019 22:58:31 -0700 Merge branch 'master' of github.com:asterIRC/tclserv Diffstat:
| M | modules/chanserv.tcl | | | 3 | ++- |
| M | nda.tcl | | | 10 | ++++++++++ |
2 files changed, 12 insertions(+), 1 deletion(-)
diff --git a/modules/chanserv.tcl b/modules/chanserv.tcl @@ -41,7 +41,8 @@ proc cs.confighandler {servicename defdbname headline block} { proc chanserv.oneintro {headline block} { cs.confighandler chanserv chanserv $headline $block - dictassign $block config eggconf nick nick + dictassign $headline net network + dictassign $block config eggconf nick nick ident username host my-hostname bind time -|- "?0 * * * *" checkchannels bind time -|- "?5 * * * *" checkchannels diff --git a/nda.tcl b/nda.tcl @@ -81,6 +81,16 @@ namespace eval dbase { return [dict set nd {*}$args] } + proc ::dbase::lappend {args} { + global nd + if {[lindex $args 1] == ""} { + return "" + } + ::set orig [::dbase::get {*}[lrange $args 0 end-1]] + ::lappend orig [lindex $args end] + return [dict set nd {*}[lrange $args 0 end-1] $orig] + } + proc ::dbase::unset {args} { global nd return [dict unset nd {*}$args]