if ( $chan eq '' ) { # all channels.
my $i = keys %channels;
- my $reply = "I'm on \002$i\002 " . &fixPlural( 'channel', $i );
my $tucount = 0; # total user count.
my $uucount = 0; # unique user count.
my %chans;
next if (/^_default$/);
$chans{$_} = scalar( keys %{ $channels{$_}{''} } );
+ ### total user count.
+ $tucount += scalar( keys %{ $channels{$_}{''} } );
}
foreach $chan ( sort { $chans{$b} <=> $chans{$a} } keys %chans ) {
push( @array, "$chan/" . $chans{$chan} );
}
- &performStrictReply( $reply . ': ' . join( ', ', @array ) );
-
- ### total user count.
- foreach $chan ( keys %channels ) {
- $tucount += scalar( keys %{ $channels{$chan}{''} } );
- }
### unique user count.
my %nicks = ();
}
$uucount = scalar( keys %nicks );
- my $chans = scalar( keys %channels );
- &performStrictReply( "i've cached \002$tucount\002 "
- . &fixPlural( 'user', $tucount )
- . ", \002$uucount\002 unique "
- . &fixPlural( 'user', $uucount )
- . ", distributed over \002$chans\002 "
- . &fixPlural( 'channel', $chans )
- . '.' );
- &ircCheck();
+ my $chans = scalar( keys %chans );
+ my $join = &ircCheck();
+ &performStrictReply(
+ "\002$chans/".($chans+$join)."\002 " . &fixPlural('channel', $chans)
+ . ", \002$tucount\002 " . &fixPlural('user', $tucount)
+ . ", \002$uucount\002 unique: "
+ . join(', ', @array));
return;
}
my $key;
foreach $key ( sort keys %::conns ) {
my $myconn = $::conns{$key};
- $reply .= " $key/";
- next if (!defined $myconn);
+ $reply .= " $key/";
+ next if (!defined $myconn);
my $mynick = $myconn->nick();
- $reply .= "$mynick";
+ $reply .= "$mynick";
}
&performStrictReply( "conninfo: $reply.");
}
# 'intrusive'.
# if ($target !~ /^$mask{chan}$/ and !&IsNickInAnyChan($target)) {
- # &msg($who, "No, $target is not in any of my chans.");
- # return;
+ # &msg($who, "No, $target is not in any of my chans.");
+ # return;
# }
# self.
foreach ( sort { $b <=> $a } keys %count ) {
my $str = join( ', ', sort keys %{ $count{$_} } );
- # push(@list, "$str ($_)");
+ #push(@list, "$str ($_)");
my $perc = sprintf( '%.01f', 100 * $_ / $total );
$perc =~ s/\.0+$//;
push( @list, "$str ($_, $perc %)" );
&msg( $chan, "I'm coming back. (courtesy of $who)" );
&part($chan);
-### &ScheduleThis(5, 'getNickInUse') if (@_);
+ #&ScheduleThis(5, 'getNickInUse') if (@_);
&status("Schedule rejoin in 5secs to $chan by $who.");
$conn->schedule( 5, sub { &joinchan($chan); } );
&status("USER reload $who");
&performStrictReply('reloading...');
+ &readUserFile();
+ &readChanFile();
my $modules = &reloadAllModules();
&performStrictReply("reloaded:$modules");
return;