From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 27 Mar 2004 21:22:37 +0000 (+0000)
Subject: connect info
X-Git-Url: https://git.donarmstrong.com/?p=infobot.git;a=commitdiff_plain;h=f28fe54dc4bcca208435e46b3538bce6a0d1775d

connect info


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@924 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 2fcad8c..cc5216c 100644
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -72,9 +72,9 @@ sub irc {
     my $proto = getprotobyname('tcp');
 
     select STDOUT;
-    &status("Connecting to port $port of server $server ...");
 
     # host->ip.
+    my $resolve;
     if ($server =~ /\D$/) {
 	my $packed = scalar(gethostbyname($server));
 
@@ -83,11 +83,11 @@ sub irc {
 	    return 0;
 	}
 
-	my $resolve = inet_ntoa($packed);
-	&status("  resolved to $resolve.");
+	$resolve = inet_ntoa($packed);
 	### warning in Sys/Hostname line 78???
 	### caused inside Net::IRC?
     }
+    &status("Connecting to port $port of server $server ($resolve) as $param{'ircNick'} ...");
 
     $irc = new Net::IRC;
 
@@ -115,6 +115,7 @@ sub irc {
     if ($param{'ircNick2'}) {
 	# prep for real multiple nick/server connects
 	# FIXME: all code should get nick/server out of self, not config
+        &status("Connecting to port $port of server $server ($resolve) as $param{'ircNick2'} ...");
 	$args{'Nick'} = $param{'ircNick2'};
 	my $conn = $irc->newconn(%args);
 	$conn->maxlinelen($maxlinelen);