X-Git-Url: https://git.donarmstrong.com/?p=infobot.git;a=blobdiff_plain;f=src%2FIRC%2FIrc.pl;h=51b35a9ff17a6c0774d1542ca9af579a373ff082;hp=21a31fe93bd097bdbe24e942bf5c36f39209941d;hb=d2f87ccd1d5f93afedc8f9f13b9f35260328614a;hpb=05e81bf3942d3d8283f6f184f8908c2f58cb049d diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl index 21a31fe..51b35a9 100644 --- a/src/IRC/Irc.pl +++ b/src/IRC/Irc.pl @@ -905,9 +905,9 @@ sub getJoinChans { # Display 'Chans:' only if more than $show seconds since last display if ( time() - $lastChansTime > $show ) { $lastChansTime = time(); - } - else { - $show = 0; # Don't display since < 15min since last + } else { + # Don't display since < 15min since last + $show = 0; } # can't join any if not connected @@ -930,28 +930,25 @@ sub getJoinChans { $chanconf{$_}{autojoin} = $val; } $skip++ if ( lc $val ne lc $nick ); - } - else { + } else { $skip++; } if ($skip) { push( @skip, $_ ); - } - else { + } else { if ( defined $channels{$_} or exists $channels{$_} ) { push( @in, $_ ); - } - else { + } else { push( @join, $_ ); } } } my $str; - $str .= ' in:' . join( ',', sort @in ) if scalar @in; - $str .= ' skip:' . join( ',', sort @skip ) if scalar @skip; $str .= ' join:' . join( ',', sort @join ) if scalar @join; + $str .= ' in:' . join( ',', sort @in ) if scalar @in; + $str .= ' skip:' . scalar @skip if scalar @skip; &status("Chans: ($nick)$str") if ($show);