X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FIRC%2FIrc.pl;h=b3e5a90c7643180e59fe3a185512070ccc22652e;hb=2e4dac0c935be61cdf25bfd88ce01c3bc5845229;hp=f63d0fe25e37abfe94c46cb4b5f6b26ecafea92b;hpb=7c48b6390b68c68d4364f1f60685703ea7f1e639;p=infobot.git

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index f63d0fe..b3e5a90 100644
--- 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) );