From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 14 Feb 2002 01:58:32 +0000 (+0000)
Subject: Commas in msg delivery.  Actually do ident events
X-Git-Tag: merge-2001-10-09-tell~8
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/commitdiff_plain/c99281b8adb0927b496c8c103d66bd9f40324bcb?ds=sidebyside

Commas in msg delivery.  Actually do ident events
---

diff --git a/bot.tcl b/bot.tcl
index ad4de2c..8a10d05 100755
--- 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 {