Commas in msg delivery. Actually do ident events

diff --git a/bot.tcl b/bot.tcl
index ad4de2c35d40443b92d1e15a12286a95af3b6ae7..8a10d05b3a3db152dc38f9100864269e0086d884 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -315,7 +315,7 @@ proc tell_event_core1 {nl event} {
            if {[llength $iml] == 3} {
                manyset $iml sender sentwhen msg
                sendprivmsg $nl \
- "$sender asked me [showinterval [expr {$now-$sentwhen}]]\
+ "$sender asked me, [showinterval [expr {$now-$sentwhen}]],\
  to tell you: $msg"
             } else {
                sendprivmsg $nl \
@@ -1815,8 +1815,8 @@ def_ucmd identpass {
            irc-identpass $n
     upvar #0 nick_username($luser) rec_username
     set rec_username $username
-    ucmdr "Pleased to see you, $username." {}
     tell_event $luser ident
+    ucmdr "Pleased to see you, $username." {}
 }
 
 def_ucmd summon {