tclserv

commit 39f660a699c05e2510d424921b2695183efe8e5b
parent 1ac6a4c19f438b4b1f7822a18cb5200deeb6723a
Author: Ellenor Malik <ellenor@umbrellix.net>
Date:   Thu, 18 Mar 2021 10:04:06 -0700

I don't know

Diffstat:
M
core/0001-usefultools.tcl
 | 
3
++-
M
core/2003-ts6.tcl
 | 
3
++-
M
modules/debugserv.tcl
 | 
2
+-
M
modules/quoteserv.tcl
 | 
1
+

4 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/core/0001-usefultools.tcl b/core/0001-usefultools.tcl
@@ -7,6 +7,7 @@ proc miscellany.rehash {a} {
 #		unllbind - evnt - confloaded $::oldmiscellanyunbindrehash
 #	}
 	putlog [format "there are %s miscellany blocks" [set blocks [tnda get "openconf/[ndcenc misc]/blocks"]]]
+	if {$blocks == ""} {return}
 	for {set i 1} {$i < ($blocks + 1)} {incr i} {
 		set netname [string tolower [lindex [tnda get [format "openconf/%s/hdr%s" [ndcenc misc] $i]] 0]]
 		after 1000 [list miscellany.oneintro [tnda get [format "openconf/%s/hdr%s" [ndcenc misc] $i]] [tnda get [format "openconf/%s/n%s" [ndcenc misc] $i]]]
@@ -27,7 +28,7 @@ proc dictassign {dictValue args} {
 		if {[dict exists $dictValue {*}$i]} {
 			set jj [dict get $dictValue {*}$i]
 		} {
-			set jj ""
+			if {![info exists jj]} {set jj ""}
 		}
 	}
 }
diff --git a/core/2003-ts6.tcl b/core/2003-ts6.tcl
@@ -31,7 +31,7 @@ proc ::ts6::b64d {numb} {
 }
 
 proc putl {args} {
-#	puts stdout [join $args " "]
+	puts stdout [join $args " "]
 	puts {*}$args
 }
 
@@ -818,6 +818,7 @@ proc ::ts6::login {sck {osid "42"} {password "link"} {servname "net"} {servernam
 	set num [string repeat "0" [expr {3-[string length [::ts6::b64e $osid]]}]]
 	append num [::ts6::b64e $osid]
 	global netname sid sock nettype socksid snames
+    lassign [list 1 "Unconfigured"] useeuid gecos
 	dictassign $cfg euid useeuid gecos gecos
 	set snames($sck) $servername
 	set netname($sck) $servname
diff --git a/modules/debugserv.tcl b/modules/debugserv.tcl
@@ -59,9 +59,9 @@ proc debugserv.armdns {headline block} {
 proc debugserv.oneintro {headline block} {
 	set net [lindex $headline 0]
 	set nsock $::sock($net)
+	lassign [list debugserv DebugServ DebugServ services.invalid +oi "Default Realname - UNCONFIGURED!" "oper:admin" "oper:tcl"] dbname nick ident host modes realname rehashprivs tclprivs
 	dictassign $block logchan logchan nick nick ident ident host host modes modes realname realname rehashprivs rehashprivs idcommand nspass nickserv nickserv nsserv nsserv \
 	                  dnsconf dnsconf dbname dbname
-	if {$dbname == ""} {set dbname debugserv}
 	tnda set "debugserv/$net/rehashprivs" $rehashprivs
 	tnda set "debugserv/$net/tclprivs" $tclprivs
 	tnda set "debugserv/$net/logchan" $logchan
diff --git a/modules/quoteserv.tcl b/modules/quoteserv.tcl
@@ -136,6 +136,7 @@ proc quoteservdo {n from chan m} {
 		set targ $chan
 		set disabled 0
 	}
+	puts stdout $subcmd
 	switch -nocase -glob -- $subcmd {
 		"se*" {
 			if {$disabled} {