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"
);
return 1;
}
-sub nullski {
- my ($arg) = @_;
- return unless ( defined $arg );
-
- # big security hole
- #foreach (`$arg`) { &msg($who,$_); }
-}
-
%cmdhooks=();
###
### START ADDING HOOKS.
&addCmdHook('metar', ('CODEREF' => 'Weather::Metar', 'Identifier' => 'Weather', 'Help' => 'weather', 'Cmdstats' => 'Weather', 'Forker' => 1) );
&addCmdHook('News', ('CODEREF' => 'News::Parse', Module => 'News', 'Cmdstats' => 'News', 'Identifier' => 'News' ) );
&addCmdHook('(?:nick|lame)ometer(?: for)?', ('CODEREF' => 'nickometer::query', 'Identifier' => 'nickometer', 'Cmdstats' => 'nickometer', 'Forker' => 1) );
-&addCmdHook('nullski', ('CODEREF' => 'nullski', ) );
&addCmdHook('OnJoin', ('CODEREF' => 'Cmdonjoin', 'Identifier' => 'OnJoin', 'Module' => 'OnJoin') );
&addCmdHook('page', ('CODEREF' => 'pager::page', 'Identifier' => 'pager', 'Cmdstats' => 'pager', 'Forker' => 1, 'Help' => 'page') );
&addCmdHook('piglatin', ('CODEREF' => 'piglatin::piglatin', 'Identifier' => 'piglatin', 'Cmdstats' => 'piglatin', 'Forker' => 1) );
&addCmdHook('slashdot', ('CODEREF' => 'Slashdot::Slashdot', 'Identifier' => 'slashdot', 'Forker' => 1, 'Cmdstats' => 'slashdot') );
&addCmdHook('tell|explain', ('CODEREF' => 'tell', Help => 'tell', Identifier => 'allowTelling', Cmdstats => 'Tell') );
&addCmdHook('uc', ('CODEREF' => 'case::upper', 'Identifier' => 'case', 'Cmdstats' => 'case', 'Forker' => 1, 'Module' => 'case') );
+&addCmdHook('upsidedown', ('CODEREF' => 'upsidedown::upsidedown', 'Identifier' => 'upsidedown', 'Cmdstats' => 'upsidedown', 'Forker' => 1, 'Module' => 'upsidedown') );
&addCmdHook('Uptime', ('CODEREF' => 'uptime', 'Identifier' => 'Uptime', 'Cmdstats' => 'Uptime') );
&addCmdHook('u(ser)?info', ('CODEREF' => 'userinfo', 'Identifier' => 'UserInfo', 'Help' => 'userinfo', 'Module' => 'UserInfo') );
&addCmdHook('verstats', ('CODEREF' => 'do_verstats' ) );