Changeable ident string.

[ircbot] / irccore.tcl

diff --git a/irccore.tcl b/irccore.tcl
index 7a6f1574edac633aefb6023909430408911efd9c..3ff0bd1e895c062a5e80e69bb0467a9aca3852d7 100644 (file)
--- a/irccore.tcl
+++ b/irccore.tcl
@@ -7,6 +7,7 @@ proc defset {varname val} {
 defset port 6667
 
 defset nick testbot
 defset port 6667
 
 defset nick testbot

+defset ident blight

 defset ownfullname "testing bot"
 defset ownmailaddr test-irc-bot@example.com
 
 defset ownfullname "testing bot"
 defset ownmailaddr test-irc-bot@example.com
 


@@ -284,7 +285,7 @@ proc fail {msg} {
 }
 
 proc ensure_connecting {} {
 }
 
 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
     global musthaveping_ms musthaveping_after
 
     ensure_outqueue


@@ -294,7 +295,7 @@ proc ensure_connecting {} {
     fconfigure $sock -buffering line
     fconfigure $sock -translation crlf
 
     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
 
     sendout NICK $nick
     fileevent $sock readable onread