'Cmdstats' => 'Uptime') );
&addCmdHook("extra", 'nullski', ('CODEREF' => 'nullski', ) );
&addCmdHook("extra", 'verstats', ('CODEREF' => 'do_verstats' ) );
-&addCmdHook("extra", 'weather', ('CODEREF' => 'Weather::Weather',
- 'Identifier' => 'weather', 'Help' => 'weather',
- 'Cmdstats' => 'weather', 'Forker' => 1) );
+&addCmdHook("extra", 'Weather', ('CODEREF' => 'Weather::Weather',
+ 'Identifier' => 'Weather', 'Help' => 'weather',
+ 'Cmdstats' => 'Weather', 'Forker' => 1) );
&addCmdHook("extra", 'metar', ('CODEREF' => 'Weather::Metar',
- 'Identifier' => 'weather', 'Help' => 'weather',
- 'Cmdstats' => 'weather', 'Forker' => 1) );
+ 'Identifier' => 'Weather', 'Help' => 'weather',
+ 'Cmdstats' => 'Weather', 'Forker' => 1) );
&addCmdHook("extra", 'bzflist', ('CODEREF' => 'BZFlag::list',
'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag',
'Forker' => 1) );
# list{keys|values}. xk++. Idea taken from #linuxwarez@EFNET
if ($message =~ /^list(\S+)(\s+(.*))?$/i) {
- return unless (&hasParam("search"));
+ return unless (&hasParam('Search'));
my $thiscmd = lc $1;
my $args = $3 || "";
# wingate.
if ($message =~ /^wingate$/i) {
- return unless (&hasParam("wingate"));
+ return unless (&hasParam('Wingate'));
my $reply = "Wingate statistics: scanned \002"
.scalar(keys %wingate)."\002 hosts";