From 6526d38da7f46e016e63c4212cb837f3d3bcd944 Mon Sep 17 00:00:00 2001
From: ijackson <ijackson>
Date: Wed, 31 Jan 2001 16:56:01 +0000
Subject: [PATCH] Allow differing local addresses.

---
 blight.tcl | 2 ++
 bot.tcl    | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/blight.tcl b/blight.tcl
index 4825da3..6092f9b 100644
--- a/blight.tcl
+++ b/blight.tcl
@@ -4,5 +4,7 @@ set host chiark
 set nick Blight
 set ownfullname "here to Help"
 set ownmailaddr blight@chiark.greenend.org.uk
+#set socketargs {-myaddr permutation-city.greenend.org.uk}
+set socketargs {}
 
 source bot.tcl
diff --git a/bot.tcl b/bot.tcl
index 876a238..ad5c908 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -1505,11 +1505,11 @@ proc fail {msg} {
 }
 
 proc ensure_connecting {} {
-    global sock ownfullname host port nick
+    global sock ownfullname host port nick socketargs
     global musthaveping_ms musthaveping_after
     
     if {[info exists sock]} return
-    set sock [socket $host $port]
+    set sock [eval socket $socketargs [list $host $port]]
     fconfigure $sock -buffering line
     fconfigure $sock -translation crlf
 
-- 
2.30.2