commit 54048ccf518957653ed64aa7ac9c6191fda7ac37 parent 08069e7cced0e7563101a1a7c4adb867caa51613 Author: Ellenor Malik <ellenor@umbrellix.net> Date: Mon, 7 Oct 2019 22:56:33 -0700 need to merge this thing 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]