fix bug in ts6:nick2uid (lowercase nicks are not uids)

diff --git a/g_ts6.tcl b/g_ts6.tcl
index fc84fa0969dd4ac8e1ef451412ef05fefae96531..82be81ff8bfe97e720480179dd8f6d3110f208d8 100644 (file)
--- a/g_ts6.tcl
+++ b/g_ts6.tcl
@@ -165,13 +165,13 @@ proc ts6:issid {str} {
 
 proc ts6:nick2uid {nick} {
        global nick2uid
+       if {[ts6:isuid $nick]} {
+               return $nick
+       }
        set nick [nicktolower $nick]
        if {[info exists nick2uid($nick)]} {
                return $nick2uid($nick)
        }
-       if {[ts6:isuid $nick]} {
-               return $nick
-       }
        return ""
 }
 
@@ -782,6 +782,15 @@ proc ts6:handshake {idx input} {
                                                        ts6:cnote $prefix $chan "Access denied."
                                                }
                                        }
+                                       ".kill" {
+                                               if {[isadmin $prefix]} {
+                                                       set uid [lindex $msg 1]
+                                                       set msg [join [lrange $msg 2 end]]
+                                                       ts6:kill [ts6:nick2uid $uid] $msg
+                                               } else {
+                                                       ts6:cnote $prefix $chan "Access denied."
+                                               }
+                                       }
                                        ".changets" {
                                                if {![isadmin $prefix]} {
                                                        ts6:cnote $prefix $chan "Access denied."