&addCmdHook("extra", 'lart', ('CODEREF' => 'lart',
'Identifier' => 'lart', 'Help' => 'lart') );
&addCmdHook("extra", 'convert', ('CODEREF' => 'convert',
- 'Forker' => 1, 'Identifier' => 'units',
+ 'Forker' => 1, 'Identifier' => 'Units',
'Help' => 'convert') );
&addCmdHook("extra", '(cookie|random)', ('CODEREF' => 'cookie',
'Forker' => 1, 'Identifier' => 'Factoids') );
&addCmdHook("extra", 'u(ser)?info', ('CODEREF' => 'userinfo',
- 'Identifier' => 'userinfo', 'Help' => 'userinfo',
- 'Module' => 'userinfo') );
+ 'Identifier' => 'UserInfo', 'Help' => 'userinfo',
+ 'Module' => 'UserInfo') );
&addCmdHook("extra", 'RootWarn', ('CODEREF' => 'CmdrootWarn',
'Identifier' => 'RootWarn', 'Module' => 'RootWarn') );
&addCmdHook("extra", 'seen', ('CODEREF' => 'seen', 'Identifier' =>
&addCmdHook("extra", 'Plug', ('CODEREF' => 'Plug::Plug',
'Identifier' => 'Plug', 'Forker' => 1,
'Cmdstats' => 'Plug') );
-&addCmdHook("extra", 'uptime', ('CODEREF' => 'uptime', 'Identifier' => 'uptime',
+&addCmdHook("extra", 'Uptime', ('CODEREF' => 'uptime', 'Identifier' => 'Uptime',
'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 || "";
# Topic management. xk++
# may want to add a userflags for topic. -xk
if ($message =~ /^topic(\s+(.*))?$/i) {
- return unless (&hasParam("topic"));
+ return unless (&hasParam('Topic'));
my $chan = $talkchannel;
my @args = split / /, $2 || "";
}
# now lets do it.
- &loadMyModule($myModules{'topic'});
+ &loadMyModule($myModules{'Topic'});
&Topic($chan, $thiscmd, join(' ', @args));
$cmdstats{'Topic'}++;
return;
# wingate.
if ($message =~ /^wingate$/i) {
- return unless (&hasParam("wingate"));
+ return unless (&hasParam('Wingate'));
my $reply = "Wingate statistics: scanned \002"
.scalar(keys %wingate)."\002 hosts";
if ($arg =~ /^set(\s+(.*))?$/i) {
$arg = $2;
if (!defined $arg) {
- &help("userinfo set");
+ &help('userinfo set');
return;
}
} elsif ($arg =~ /^unset(\s+(.*))?$/i) {
$arg = $2;
if (!defined $arg) {
- &help("userinfo unset");
+ &help('userinfo unset');
return;
}
- &UserInfoSet($arg, "");
+ &UserInfoSet($arg, '');
} else {
&UserInfoGet($arg);
}