2721919 - set Username

[infobot.git] / src / IRC / Irc.pl

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index f63d0fe25e37abfe94c46cb4b5f6b26ecafea92b..b3e5a90c7643180e59fe3a185512070ccc22652e 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -117,6 +117,7 @@ sub irc {
 "Connecting to port $port of server $server ($resolve) as $mynick ..."
         );
         $args{'Nick'} = $mynick;
+        $args{'Username'} = $mynick;
         $conns{$mynick} = $irc->newconn(%args);
         if ( !defined $conns{$mynick} ) {
             &ERROR('IRC: connection failed.');
@@ -522,6 +523,7 @@ sub joinchan {
     my ( $chan, $key ) = @_;
     $key ||= &getChanConf( 'chankey', $chan );
     $key ||= '';
+    my $mynick = $conn->nick();
 
     # forgot for about 2 years to implement channel keys when moving
     # over to Net::IRC...
@@ -532,7 +534,7 @@ sub joinchan {
     }
 
     #} else {
-    &status("joining $b_blue$chan $key$ob");
+    &status("$mynick joining $b_blue$chan $key$ob");
 
     return if ( $conn->join( $chan, $key ) );
     return if ( &validChan($chan) );