From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 29 Aug 2010 10:23:17 +0000 (+0200)
Subject: display server room and nick on startup
X-Git-Url: http://git.rot13.org/?p=MQR.git;a=commitdiff_plain;h=5c11b389b1f7a4bd942d5815096241973cd7c317

display server room and nick on startup
---

diff --git a/scripts/mqr-irc-client.pl b/scripts/mqr-irc-client.pl
index 22cea7d..251eda2 100755
--- a/scripts/mqr-irc-client.pl
+++ b/scripts/mqr-irc-client.pl
@@ -15,6 +15,8 @@ use Data::Dump qw(dump);
 my $nick = $ENV{IRC_NICK} || die "IRC_NICK";
 my $room = $ENV{IRC_ROOM} || die "IRC_ROOM";
 
+warn "# $ENV{IRC_SERVER}:$ENV{IRC_PORT} $room $nick\n";
+
 my $c = AnyEvent->condvar;
 my $stdout = AnyEvent::Handle->new (fh => \*STDOUT);
 my $con = new AnyEvent::IRC::Client;