my $count = 1;
&msg( $who, "- Uptime for $ident -" );
&msg( $who,
- "Now: " . &Time2String( &uptimeNow() ) . " running $bot_version" );
+ 'Now: ' . &Time2String( &uptimeNow() ) . " running $bot_version" );
foreach ( &uptimeGetInfo() ) {
/^(\d+)\.\d+ (.*)/;
my %sorted;
my $unknown = $total - $vtotal;
- my $perc = sprintf( "%.1f", $unknown * 100 / $total );
+ my $perc = sprintf( '%.1f', $unknown * 100 / $total );
$perc =~ s/.0$//;
$sorted{$perc}{'unknown/cloak'} = "$unknown ($perc%)" if ($unknown);
foreach ( keys %ver ) {
my $count = scalar keys %{ $ver{$_} };
- $perc = sprintf( "%.01f", $count * 100 / $total );
+ $perc = sprintf( '%.01f', $count * 100 / $total );
$perc =~ s/.0$//; # lame compression.
$sorted{$perc}{$_} = "$count ($perc%)";
my $tp = 0;
foreach $i ( sort { $b <=> $a } keys %hash ) {
foreach ( keys %{ $hash{$i} } ) {
- my $p = sprintf( "%.01f", 100 * $i / $sum );
+ my $p = sprintf( '%.01f', 100 * $i / $sum );
$tp += $p;
push( @top, "\002$_\002 -- $i ($p%)" );
}
my $xtra;
if ( $total and $rank ) {
- my $pct = sprintf( "%.01f", 100 * ($rank) / $total );
+ my $pct = sprintf( '%.01f', 100 * ($rank) / $total );
$xtra =
", ranked $rank\002/\002$total (percentile: \002$pct\002 %)";
}
- my $pct1 = sprintf( "%.01f", 100 * $x / $sum );
+ my $pct1 = sprintf( '%.01f', 100 * $x / $sum );
&performStrictReply(
"\002$arg\002 has said \037$type\037 \002$x\002 times (\002$pct1\002 %)$xtra"
);