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 (executable)
--- 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;