} else {
if (exists $hash{'Module'}) {
- &loadMyModule($myModules{ $hash{'Module'} });
+ &loadMyModule($hash{'Module'});
}
# check if CODEREF exists.
###
### START ADDING HOOKS.
###
-&addCmdHook("extra", 'd?bugs', ('CODEREF' => 'DBugs::Parse',
+&addCmdHook("extra", 'd?bugs', ('CODEREF' => 'DebianExtra::Parse',
'Forker' => 1, 'Identifier' => 'DebianExtra',
'Cmdstats' => 'Debian Bugs') );
&addCmdHook("extra", 'dauthor', ('CODEREF' => 'Debian::searchAuthor',
'Identifier' => 'zfi', 'Cmdstats' => 'zfi',
'Forker' => 1) );
&addCmdHook("extra", '(zippy|yow)', ('CODEREF' => 'zippy::get',
- 'Identifier' => 'zippy', 'Cmdstats' => 'zippy',
+ 'Identifier' => 'Zippy', 'Cmdstats' => 'Zippy',
'Forker' => 1) );
&addCmdHook("extra", 'zsi', ('CODEREF' => 'zsi::query',
'Identifier' => 'zsi', 'Cmdstats' => 'zsi',
&addCmdHook("extra", 'page', ('CODEREF' => 'pager::page',
'Identifier' => 'pager', 'Cmdstats' => 'pager',
'Forker' => 1, 'Help' => 'page') );
-&addCmdHook("extra", 'babel(fish)?|x|xlate|translate', ('CODEREF' => 'babelfish::babelfish',
+&addCmdHook("extra", '(babel(fish)?|x|xlate|translate)', ('CODEREF' => 'babelfish::babelfish',
'Identifier' => 'babelfish', 'Cmdstats' => 'babelfish',
'Forker' => 1, 'Help' => 'babelfish') );
###
$debiancmd .= '|recommends?|suggests?|maint|maintainer';
if ($message =~ /^($debiancmd)(\s+(.*))?$/i) {
- return unless (&hasParam("debian"));
+ return unless (&hasParam('Debian'));
my $package = lc $3;
if (defined $package) {
- &Forker("debian", sub { &Debian::infoPackages($1, $package); } );
+ &Forker('Debian', sub { &Debian::infoPackages($1, $package); } );
} else {
&help($1);
}
# google searching. Simon++
if ($message =~ /^(?:search\s+)?($w3search_regex)\s+(?:for\s+)?['"]?(.*?)["']?\s*\?*$/i) {
- return unless (&hasParam("wwwsearch"));
+ return unless (&hasParam('W3Search'));
- &Forker("wwwsearch", sub { &W3Search::W3Search($1,$2); } );
+ &Forker('W3Search', sub { &W3Search::W3Search($1,$2); } );
- $cmdstats{'WWWSearch'}++;
+ $cmdstats{'W3Search'}++;
return;
}
my $term = (lc $1 eq 'me') ? $who : $1;
- &loadMyModule($myModules{'nickometer'});
+ &loadMyModule('nickometer');
if ($term =~ /^$mask{chan}$/) {
&status("Doing nickometer for chan $term.");
}
# now lets do it.
- &loadMyModule($myModules{'Topic'});
+ &loadMyModule('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";