log auth/deauth

diff --git a/g_ts6.tcl b/g_ts6.tcl
index 38c1d06f18b69df0eec6854a527ed71103d6765c..13b730ca57cdc0e4226e8f9169b1ddb25cdc97d6 100644 (file)
--- a/g_ts6.tcl
+++ b/g_ts6.tcl
@@ -524,7 +524,12 @@ proc ts6:handshake {idx input} {
                                        SU {
                                                set uid   [lindex $input 1]
                                                set login [lindex $input 2]
-                                               if {$login == ""} {set login "*"}
+                                               if {$login == ""} {
+                                                       set login "*"
+                                                       ts6:log "Auth: [ts6:uid2nick $uid]{$uid} deauthed by [ts6:sid2serv $prefix]{$prefix}"
+                                               } else {
+                                                       ts6:log "Auth: [ts6:uid2nick $uid]{$uid} authed as $login by [ts6:sid2serv $prefix]{$prefix}"
+                                               }
                                                uid:set $uid LOGIN $login
                                        }
                                        GCAP   { sid:set $prefix CAPS   [lindex $input 1] }