+proc nickdb__head {} {
+ uplevel 1 {
+ set nl [irctolower $n]
+ upvar #0 nickdb($nl) ndbe
+ binary scan $nl H* nh
+ set nfn users/$nh
+ if {![info exists ndbe] && [file exists $nfn]} {
+ set f [file open $nfn r]
+ try_except_finally { set newval [read $f] } {} { close $f }
+ if {[llength $newval] % 2} { error "invalid length" }
+ set ndbe $newval
+ }
+ }
+}
+
+proc def_nickdb {name arglist body} {
+ proc nickdb_$name $arglist "nickdb__head; $body"
+}
+
+def_nickdb exists {n} {
+ return [info exists ndbe]
+}
+
+def_nickdb delete {n} {
+ catch { unset ndbe }
+ file delete $nfn
+}
+
+set default_settings {timeformat ks}
+
+def_nickdb set {n args} {
+ global default_settings
+ if {![info exists ndbe]} { set ndbe $default_settings }
+ foreach {key value} [concat $ndbe $args] { set a($key) $value }
+ set newval {}
+ foreach {key value} [array get a] { lappend newval $key $value }
+ set f [open $nfn.new w]
+ try_except_finally {
+ puts $f $newval
+ close $f
+ file rename -force $nfn.new $nfn
+ } {
+ catch { close $f }
+ } {
+ }
+ set ndbe $newval
+}
+
+def_nickdb opt {n key} {
+ global default_settings
+ if {[info exists ndbe]} {
+ set l $ndbe
+ } else {
+ set l $default_settings
+ }
+ foreach {tkey value} $l {
+ if {"$tkey" == "$key"} { return $value }
+ }
+ error "unset setting $key"
+}
+
+proc check_notonchan {} {
+ upvar 1 dest dest
+ if {[ischan $dest]} { error "that command must be sent privately" }
+}
+
+proc nick_securitycheck {strict} {
+ upvar 1 n n
+ if {![nickdb_exists $n]} { error "you are unknown to me, use `register'." }
+ set wantu [nickdb_opt $n username]
+ if {![string length $wantu]} {
+ if {$strict} {
+ error "that feature is only available to secure users, sorry."
+ } else {
+ return
+ }
+ }
+ upvar #0 nick_username($n) nu
+ if {![info exists nu]} {
+ error "nick $n is secure, you must identify yourself first."
+ }
+ if {"$wantu" != "$nu"} {
+ error "you are the wrong user - the nick $n belongs to $wantu, not $nu"
+ }
+}
+
+def_ucmd register {
+ prefix_nick
+ check_notonchan
+ set old [nickdb_exists $n]
+ if {$old} { nick_securitycheck 0 }
+ switch -exact [string tolower [string trim $text]] {
+ {} {
+ upvar #0 nick_username($n) nu
+ if {![info exists nu]} {
+ ucmdr {} \
+ "You must identify yourself before using `register'. See `help identify'."
+ }
+ nickdb_set $n username $nu
+ ucmdr {} {} "makes a note of your username." {}
+ }
+ delete {
+ nickdb_delete $n
+ ucmdr {} {} "forgets your nickname." {}
+ }
+ insecure {
+ nickdb_set $n username {}
+ if {$old} {
+ ucmdr {} "Security is now disabled for your nickname !"
+ } else {
+ ucmdr {} "This is fine, but bear in mind that people will be able to mess with your settings. Channel management features need a secure registration." "makes an insecure registration for your nick."
+ }
+ }
+ }
+}
+