From 9e738c1dc975490d376b75e863ee79735ca5d921 Mon Sep 17 00:00:00 2001
Message-Id: <9e738c1dc975490d376b75e863ee79735ca5d921.1717189128.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 10 Jun 2001 16:31:12 +0000
Subject: [PATCH] Changeable ident string.
Organization: Straylight/Edgeware

From: Ian Jackson <ijackson@chiark.greenend.org.uk>

---
 irccore.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/irccore.tcl b/irccore.tcl
index 7a6f157..3ff0bd1 100644
--- a/irccore.tcl
+++ b/irccore.tcl
@@ -7,6 +7,7 @@ proc defset {varname val} {
 defset port 6667
 
 defset nick testbot
+defset ident blight
 defset ownfullname "testing bot"
 defset ownmailaddr test-irc-bot@example.com
 
@@ -284,7 +285,7 @@ proc fail {msg} {
 }
 
 proc ensure_connecting {} {
-    global sock ownfullname host port nick socketargs
+    global sock ownfullname host port nick ident socketargs
     global musthaveping_ms musthaveping_after
 
     ensure_outqueue
@@ -294,7 +295,7 @@ proc ensure_connecting {} {
     fconfigure $sock -buffering line
     fconfigure $sock -translation crlf
 
-    sendout USER blight 0 * $ownfullname
+    sendout USER $ident 0 * $ownfullname
     sendout NICK $nick
     fileevent $sock readable onread
 
-- 
[mdw]