X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FCommandStubs.pl;h=e7affa9bb0eb9b841af71bce9366438aa84feefa;hb=1676c56374de2fa4a9cc5ae608a5e70870426247;hp=7bf0fce0a933f5fdcca28192870a2e3a53967f21;hpb=da7fd06d82047c17f137afd1984d84dd480153ae;p=infobot.git diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl index 7bf0fce..e7affa9 100644 --- a/src/CommandStubs.pl +++ b/src/CommandStubs.pl @@ -3,21 +3,20 @@ # WARN: this file does not reload on HUP. # -# TODO: -# use strict; +#use strict; # TODO: sub { \&{ $hash{'CODEREF'} }($flatarg) }; use vars qw($who $msgType $conn $chan $message $ident $talkchannel $bot_version $bot_data_dir); use vars qw(@vernick @vernicktodo); use vars qw(%channels %cache %mask %userstats %myModules %cmdstats - %hooks_extra %lang %ver); -# FIX THE FOLLOWING: -use vars qw($total $x $type $i $good); + %cmdhooks %lang %ver); +# TODO: FIX THE FOLLOWING: +use vars qw($total $x $type $i $good %wingateToDo); -$w3search_regex = "google"; +my $w3search_regex = "google"; ### COMMAND HOOK IMPLEMENTATION. -# addCmdHook("SECTION", 'TEXT_HOOK', +# addCmdHook('TEXT_HOOK', # (CODEREF => 'Blah', # Forker => 1, # Module => 'blah.pl' # preload module. @@ -28,21 +27,21 @@ $w3search_regex = "google"; ### sub addCmdHook { - my ($hashname, $ident, %hash) = @_; + my ($ident, %hash) = @_; - if (exists ${"hooks_$hashname"}{$ident}) { -### &WARN("aCH: cmd hooks \%$hashname{$ident} already exists."); + if (exists $cmdhooks{$ident}) { + &WARN("aCH: \$cmdhooks{$ident} already exists."); return; } &VERB("aCH: added $ident",2); # use $hash{'Identifier'}? ### hrm... prevent warnings? - ${"hooks_$hashname"}{$ident} = \%hash; + $cmdhooks{$ident} = \%hash; } # RUN IF ADDRESSED. sub parseCmdHook { - my ($hashname, $line) = @_; + my ($line) = @_; $line =~ s/^\s+|\s+$//g; # again. $line =~ /^(\S+)(\s+(.*))?$/; my $cmd = $1; # command name is whitespaceless. @@ -52,8 +51,8 @@ sub parseCmdHook { &shmFlush(); - if (!defined %{"hooks_$hashname"}) { - &WARN("cmd hooks \%$hashname does not exist."); + if (!defined %cmdhooks) { + &WARN('%cmdhooks does not exist.'); return 0; } @@ -62,7 +61,7 @@ sub parseCmdHook { return 0; } - foreach (keys %{"hooks_$hashname"}) { + foreach (keys %cmdhooks) { # rename to something else! like $id or $label? my $ident = $_; @@ -73,8 +72,8 @@ sub parseCmdHook { next; } - &status("hooks($hashname): $cmd matched '$ident' '$flatarg'"); - my %hash = %{ ${"hooks_$hashname"}{$ident} }; + &status("cmdhooks: $cmd matched '$ident' '$flatarg'"); + my %hash = %{ $cmdhooks{$ident} }; if (!scalar keys %hash) { &WARN("CmdHook: hash is NULL?"); @@ -104,7 +103,7 @@ sub parseCmdHook { ### IDENTIFIER. if (exists $hash{'Identifier'}) { - return 1 unless (&hasParam($hash{'Identifier'})); + return 1 unless (&IsChanConfOrWarn($hash{'Identifier'})); } ### USER FLAGS. @@ -113,7 +112,7 @@ sub parseCmdHook { } ### FORKER,IDENTIFIER,CODEREF. - if (exists $hash{'Forker'}) { + if (($$ == $bot_pid) && exists $hash{'Forker'}) { $hash{'Identifier'} .= "-" if ($hash{'Forker'} eq "NULL"); if (exists $hash{'ArrayArgs'}) { @@ -124,7 +123,7 @@ sub parseCmdHook { } else { if (exists $hash{'Module'}) { - &loadMyModule($myModules{ $hash{'Module'} }); + &loadMyModule($hash{'Module'}); } # check if CODEREF exists. @@ -158,121 +157,6 @@ sub parseCmdHook { return 0; } -### -### START ADDING HOOKS. -### -&addCmdHook("extra", 'd?bugs', ('CODEREF' => 'DBugs::Parse', - 'Forker' => 1, 'Identifier' => 'DebianExtra', - 'Cmdstats' => 'Debian Bugs') ); -&addCmdHook("extra", 'dauthor', ('CODEREF' => 'Debian::searchAuthor', - 'Forker' => 1, 'Identifier' => 'Debian', - 'Cmdstats' => 'Debian Author Search', 'Help' => "dauthor" ) ); -&addCmdHook("extra", '(d|search)desc', ('CODEREF' => 'Debian::searchDescFE', - 'Forker' => 1, 'Identifier' => 'Debian', - 'Cmdstats' => 'Debian Desc Search', 'Help' => "ddesc" ) ); -&addCmdHook("extra", 'dnew', ('CODEREF' => 'DebianNew', - 'Identifier' => 'Debian' ) ); -&addCmdHook("extra", 'dincoming', ('CODEREF' => 'Debian::generateIncoming', - 'Forker' => 1, 'Identifier' => 'Debian' ) ); -&addCmdHook("extra", 'dstats', ('CODEREF' => 'Debian::infoStats', - 'Forker' => 1, 'Identifier' => 'Debian', - 'Cmdstats' => 'Debian Statistics' ) ); -&addCmdHook("extra", 'd?contents', ('CODEREF' => 'Debian::searchContents', - 'Forker' => 1, 'Identifier' => 'Debian', - 'Cmdstats' => 'Debian Contents Search', 'Help' => "contents" ) ); -&addCmdHook("extra", 'd?find', ('CODEREF' => 'Debian::DebianFind', - 'Forker' => 1, 'Identifier' => 'Debian', - 'Cmdstats' => 'Debian Search', 'Help' => "find" ) ); -&addCmdHook("extra", 'insult', ('CODEREF' => 'Insult::Insult', - 'Forker' => 1, 'Identifier' => 'insult', 'Help' => "insult" ) ); -&addCmdHook("extra", 'kernel', ('CODEREF' => 'Kernel::Kernel', - 'Forker' => 1, 'Identifier' => 'Kernel', - 'Cmdstats' => 'Kernel', 'NoArgs' => 1) ); -&addCmdHook("extra", 'listauth', ('CODEREF' => 'CmdListAuth', - 'Identifier' => 'Search', Module => 'Factoids', - 'Help' => 'listauth') ); -&addCmdHook("extra", 'quote', ('CODEREF' => 'Quote::Quote', - 'Forker' => 1, 'Identifier' => 'Quote', - 'Help' => 'quote', 'Cmdstats' => 'Quote') ); -&addCmdHook("extra", 'countdown', ('CODEREF' => 'countdown', - 'Module' => 'countdown', 'Identifier' => 'countdown', - 'Cmdstats' => 'countdown') ); -&addCmdHook("extra", 'lart', ('CODEREF' => 'lart', - 'Identifier' => 'lart', 'Help' => 'lart') ); -&addCmdHook("extra", 'convert', ('CODEREF' => 'convert', - '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') ); -&addCmdHook("extra", 'RootWarn', ('CODEREF' => 'CmdrootWarn', - 'Identifier' => 'RootWarn', 'Module' => 'RootWarn') ); -&addCmdHook("extra", 'seen', ('CODEREF' => 'seen', 'Identifier' => - 'seen') ); -&addCmdHook("extra", 'Dict', ('CODEREF' => 'Dict::Dict', - 'Identifier' => 'Dict', 'Help' => 'dict', - 'Forker' => 1, 'Cmdstats' => 'Dict') ); -&addCmdHook("extra", 'slashdot', ('CODEREF' => 'Slashdot::Slashdot', - 'Identifier' => 'slashdot', 'Forker' => 1, - 'Cmdstats' => 'slashdot') ); -&addCmdHook("extra", 'Plug', ('CODEREF' => 'Plug::Plug', - 'Identifier' => 'Plug', 'Forker' => 1, - 'Cmdstats' => 'Plug') ); -&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", 'metar', ('CODEREF' => 'Weather::Metar', - 'Identifier' => 'weather', 'Help' => 'weather', - 'Cmdstats' => 'weather', 'Forker' => 1) ); -&addCmdHook("extra", 'bzflist', ('CODEREF' => 'BZFlag::list', - 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag', - 'Forker' => 1) ); -&addCmdHook("extra", 'bzflist17', ('CODEREF' => 'BZFlag::list17', - 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag', - 'Forker' => 1) ); -&addCmdHook("extra", 'bzfquery', ('CODEREF' => 'BZFlag::query', - 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag', - 'Forker' => 1) ); -&addCmdHook("extra", 'zfi', ('CODEREF' => 'zfi::query', - 'Identifier' => 'zfi', 'Cmdstats' => 'zfi', - 'Forker' => 1) ); -&addCmdHook("extra", '(zippy|yow)', ('CODEREF' => 'zippy::get', - 'Identifier' => 'zippy', 'Cmdstats' => 'zippy', - 'Forker' => 1) ); -&addCmdHook("extra", 'zsi', ('CODEREF' => 'zsi::query', - 'Identifier' => 'zsi', 'Cmdstats' => 'zsi', - 'Forker' => 1) ); -&addCmdHook("extra", '(ex)?change', ('CODEREF' => 'Exchange::query', - 'Identifier' => 'Exchange', 'Cmdstats' => 'Exchange', - 'Forker' => 1) ); -&addCmdHook("extra", '(botmail|message)', ('CODEREF' => 'botmail::parse', - 'Identifier' => 'botmail', 'Cmdstats' => 'botmail') ); -&addCmdHook("extra", 'HTTPDtype', ('CODEREF' => 'HTTPDtype::HTTPDtype', - 'Identifier' => 'HTTPDtype', 'Cmdstats' => 'HTTPDtype', - 'Forker' => 1) ); -&addCmdHook("extra", 'Rss', ('CODEREF' => 'Rss::Rss', - 'Identifier' => 'Rss', 'Cmdstats' => 'Rss', - 'Forker' => 1, 'Help' => 'rss') ); -&addCmdHook("extra", 'wiki(pedia)?', ('CODEREF' => 'wikipedia::wikipedia', - 'Identifier' => 'wikipedia', 'Cmdstats' => 'wikipedia', - 'Forker' => 1, 'Help' => 'wikipedia') ); -&addCmdHook("extra", 'page', ('CODEREF' => 'pager::page', - 'Identifier' => 'pager', 'Cmdstats' => 'pager', - 'Forker' => 1, 'Help' => 'page') ); -&addCmdHook("extra", 'babel(fish)?|x|xlate|translate', ('CODEREF' => 'babelfish::babelfish', - 'Identifier' => 'babelfish', 'Cmdstats' => 'babelfish', - 'Forker' => 1, 'Help' => 'babelfish') ); -### -### END OF ADDING HOOKS. -### -&status("CMD: loaded ".scalar(keys %hooks_extra)." EXTRA command hooks."); - sub Modules { if (!defined $message) { &WARN("Modules: message is undefined. should never happen."); @@ -283,11 +167,11 @@ sub Modules { $debiancmd .= '|recommends?|suggests?|maint|maintainer'; if ($message =~ /^($debiancmd)(\s+(.*))?$/i) { - return unless (&hasParam("debian")); + return unless (&IsChanConfOrWarn('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); } @@ -297,11 +181,11 @@ sub Modules { # google searching. Simon++ if ($message =~ /^(?:search\s+)?($w3search_regex)\s+(?:for\s+)?['"]?(.*?)["']?\s*\?*$/i) { - return unless (&hasParam("wwwsearch")); + return unless (&IsChanConfOrWarn('W3Search')); - &Forker("wwwsearch", sub { &W3Search::W3Search($1,$2); } ); + &Forker('W3Search', sub { &W3Search::W3Search($1,$2); } ); - $cmdstats{'WWWSearch'}++; + $cmdstats{'W3Search'}++; return; } @@ -314,7 +198,7 @@ sub Modules { # list{keys|values}. xk++. Idea taken from #linuxwarez@EFNET if ($message =~ /^list(\S+)(\s+(.*))?$/i) { - return unless (&hasParam("search")); + return unless (&IsChanConfOrWarn('Search')); my $thiscmd = lc $1; my $args = $3 || ""; @@ -347,11 +231,11 @@ sub Modules { # Nickometer. Adam Spiers++ if ($message =~ /^(?:lame|nick)ometer(?: for)? (\S+)/i) { - return unless (&hasParam("nickometer")); + return unless (&IsChanConfOrWarn("nickometer")); my $term = (lc $1 eq 'me') ? $who : $1; - &loadMyModule($myModules{'nickometer'}); + &loadMyModule('nickometer'); if ($term =~ /^$mask{chan}$/) { &status("Doing nickometer for chan $term."); @@ -382,7 +266,7 @@ sub Modules { push(@list, "$str ($_%)"); } - &pSReply( &formListReply(0, "Nickometer list for $term ", @list) ); + &performStrictReply( &formListReply(0, "Nickometer list for $term ", @list) ); &DEBUG("test."); return; @@ -410,7 +294,7 @@ sub Modules { # Topic management. xk++ # may want to add a userflags for topic. -xk if ($message =~ /^topic(\s+(.*))?$/i) { - return unless (&hasParam('Topic')); + return unless (&IsChanConfOrWarn('Topic')); my $chan = $talkchannel; my @args = split / /, $2 || ""; @@ -449,7 +333,7 @@ sub Modules { } # now lets do it. - &loadMyModule($myModules{'Topic'}); + &loadMyModule('Topic'); &Topic($chan, $thiscmd, join(' ', @args)); $cmdstats{'Topic'}++; return; @@ -457,17 +341,17 @@ sub Modules { # wingate. if ($message =~ /^wingate$/i) { - return unless (&hasParam("wingate")); + return unless (&IsChanConfOrWarn('Wingate')); my $reply = "Wingate statistics: scanned \002" - .scalar(keys %wingate)."\002 hosts"; + .scalar(keys %wingateToDo)."\002 hosts"; my $queue = scalar(keys %wingateToDo); if ($queue) { $reply .= ". I have \002$queue\002 hosts in the queue"; $reply .= ". Started the scan ".&Time2String(time() - $wingaterun)." ago"; } - &pSReply("$reply."); + &performStrictReply("$reply."); return; } @@ -556,7 +440,7 @@ sub seen { "saying\002:\002 '$seen[4]'."; } - &pSReply($reply); + &performStrictReply($reply); return; } @@ -567,7 +451,7 @@ sub userinfo { if ($arg =~ /^set(\s+(.*))?$/i) { $arg = $2; if (!defined $arg) { - &help("userinfo set"); + &help('userinfo set'); return; } @@ -575,11 +459,11 @@ sub userinfo { } elsif ($arg =~ /^unset(\s+(.*))?$/i) { $arg = $2; if (!defined $arg) { - &help("userinfo unset"); + &help('userinfo unset'); return; } - &UserInfoSet($arg, ""); + &UserInfoSet($arg, ''); } else { &UserInfoGet($arg); } @@ -640,7 +524,7 @@ sub convert { sub lart { my ($target) = &fixString($_[0]); - my $extra = 0; + my $extra = 0; my $chan = $talkchannel; my ($for); @@ -713,7 +597,7 @@ sub DebianNew { } close IDX1; - &::pSReply( &::formListReply(0, "New debian packages:", @new) ); + &::performStrictReply( &::formListReply(0, "New debian packages:", @new) ); } sub do_verstats { @@ -790,7 +674,7 @@ sub do_verstats { # hack. this is one major downside to scheduling. $chan = $c; - &pSReply( &formListReply(0, "IRC Client versions for $c ", @list) ); + &performStrictReply( &formListReply(0, "IRC Client versions for $c ", @list) ); # clean up not-needed data structures. undef %ver; @@ -851,7 +735,7 @@ sub do_text_counters { ." WHERE ".$where ))[0]; if (!defined $arg or $arg =~ /^\s*$/) { - # this is way fucking ugly. + # this is way ugly. # TODO: convert $where to hash my %hash = &sqlSelectColHash("stats", "nick,counter", @@ -876,9 +760,9 @@ sub do_text_counters { } if (defined $sum) { - &pSReply("total count of \037$type\037 on \002$c\002: $sum$topstr"); + &performStrictReply("total count of \037$type\037 on \002$c\002: $sum$topstr"); } else { - &pSReply("zero counter for \037$type\037."); + &performStrictReply("zero counter for \037$type\037."); } } else { # TODO: convert $where to hash and use a sqlSelect @@ -886,7 +770,7 @@ sub do_text_counters { " WHERE $where AND nick=".&sqlQuote($arg) ))[0]; if (!defined $x) { # !defined. - &pSReply("$arg has not said $type yet."); + &performStrictReply("$arg has not said $type yet."); return 1; } @@ -912,7 +796,7 @@ sub do_text_counters { } my $pct1 = sprintf("%.01f", 100*$x/$sum); - &pSReply("\002$arg\002 has said \037$type\037 \002$x\002 times (\002$pct1\002 %)$xtra"); + &performStrictReply("\002$arg\002 has said \037$type\037 \002$x\002 times (\002$pct1\002 %)$xtra"); } return 1; @@ -931,7 +815,7 @@ sub textstats_main { my $sum = &sqlSelect("stats", "SUM(counter)", $where_href); if (!defined $arg or $arg =~ /^\s*$/) { - # this is way fucking ugly. + # this is way ugly. &DEBUG("_stats: !arg"); my %hash = &sqlSelectColHash("stats", "nick,counter", @@ -957,9 +841,9 @@ sub textstats_main { } if (defined $sum) { - &pSReply("total count of \037$type\037 on \002$c\002: $sum$topstr"); + &performStrictReply("total count of \037$type\037 on \002$c\002: $sum$topstr"); } else { - &pSReply("zero counter for \037$type\037."); + &performStrictReply("zero counter for \037$type\037."); } return; @@ -969,7 +853,8 @@ sub textstats_main { my %hash = &sqlSelectColHash("stats", "type,counter", $where_href, " AND nick=".&sqlQuote($arg) ); - # this is totally fucked... needs to be fixed... and cleaned up. + + # this is totally messed up... needs to be fixed... and cleaned up. my $total; my $good; my $ii; @@ -979,8 +864,8 @@ sub textstats_main { &DEBUG("_stats: hash{$_} => $hash{$_}"); # ranking. # TODO: convert $where to hash - my @array = &sqlSelect("stats", "nick", undef, - $where." ORDER BY counter", 1); + my $where = ''; + my @array = &sqlSelect("stats", "nick", undef, $where." ORDER BY counter", 1); $good = 0; $ii = 0; for(my $i=0; $i 'chaninfo', ) ); +&addCmdHook('cmd(stats|info)', ('CODEREF' => 'cmdstats', ) ); +&addCmdHook('sched(stats|info)', ('CODEREF' => 'scheduleList', ) ); +&addCmdHook('factinfo', ('CODEREF' => 'factinfo', + 'Cmdstats' => 'Factoid Info', Module => 'Factoids', ) ); +&addCmdHook('factstats?', ('CODEREF' => 'factstats', + 'Cmdstats' => 'Factoid Stats', Help => "factstats", + Forker => 1, 'Identifier' => 'Factoids', ) ); +&addCmdHook('help', ('CODEREF' => 'help', + 'Cmdstats' => 'Help', ) ); +&addCmdHook('karma', ('CODEREF' => 'karma', ) ); +&addCmdHook('tell|explain', ('CODEREF' => 'tell', + Help => 'tell', Identifier => 'allowTelling', + Cmdstats => 'Tell') ); +&addCmdHook('News', ('CODEREF' => 'News::Parse', + Module => 'News', 'Cmdstats' => 'News' ) ); +&addCmdHook('countrystats', ('CODEREF' => 'countryStats', +# Forker => "NULL", + ) ); + +&addCmdHook('d?bugs', ('CODEREF' => 'DebianExtra::Parse', + 'Forker' => 1, 'Identifier' => 'DebianExtra', + 'Cmdstats' => 'Debian Bugs') ); +&addCmdHook('dauthor', ('CODEREF' => 'Debian::searchAuthor', + 'Forker' => 1, 'Identifier' => 'Debian', + 'Cmdstats' => 'Debian Author Search', 'Help' => "dauthor" ) ); +&addCmdHook('(d|search)desc', ('CODEREF' => 'Debian::searchDescFE', + 'Forker' => 1, 'Identifier' => 'Debian', + 'Cmdstats' => 'Debian Desc Search', 'Help' => "ddesc" ) ); +&addCmdHook('dnew', ('CODEREF' => 'DebianNew', + 'Identifier' => 'Debian' ) ); +&addCmdHook('dincoming', ('CODEREF' => 'Debian::generateIncoming', + 'Forker' => 1, 'Identifier' => 'Debian' ) ); +&addCmdHook('dstats', ('CODEREF' => 'Debian::infoStats', + 'Forker' => 1, 'Identifier' => 'Debian', + 'Cmdstats' => 'Debian Statistics' ) ); +&addCmdHook('d?contents', ('CODEREF' => 'Debian::searchContents', + 'Forker' => 1, 'Identifier' => 'Debian', + 'Cmdstats' => 'Debian Contents Search', 'Help' => "contents" ) ); +&addCmdHook('d?find', ('CODEREF' => 'Debian::DebianFind', + 'Forker' => 1, 'Identifier' => 'Debian', + 'Cmdstats' => 'Debian Search', 'Help' => "find" ) ); +&addCmdHook('insult', ('CODEREF' => 'Insult::Insult', + 'Forker' => 1, 'Identifier' => 'insult', 'Help' => "insult" ) ); +&addCmdHook('kernel', ('CODEREF' => 'Kernel::Kernel', + 'Forker' => 1, 'Identifier' => 'Kernel', + 'Cmdstats' => 'Kernel', 'NoArgs' => 1) ); +&addCmdHook('listauth', ('CODEREF' => 'CmdListAuth', + 'Identifier' => 'Search', Module => 'Factoids', + 'Help' => 'listauth') ); +&addCmdHook('quote', ('CODEREF' => 'Quote::Quote', + 'Forker' => 1, 'Identifier' => 'Quote', + 'Help' => 'quote', 'Cmdstats' => 'Quote') ); +&addCmdHook('countdown', ('CODEREF' => 'countdown', + 'Module' => 'countdown', 'Identifier' => 'countdown', + 'Cmdstats' => 'countdown') ); +&addCmdHook('lart', ('CODEREF' => 'lart', + 'Identifier' => 'lart', 'Help' => 'lart') ); +&addCmdHook('convert', ('CODEREF' => 'convert', + 'Forker' => 1, 'Identifier' => 'Units', + 'Help' => 'convert') ); +&addCmdHook('(cookie|random)', ('CODEREF' => 'cookie', + 'Forker' => 1, 'Identifier' => 'Factoids') ); +&addCmdHook('u(ser)?info', ('CODEREF' => 'userinfo', + 'Identifier' => 'UserInfo', 'Help' => 'userinfo', + 'Module' => 'UserInfo') ); +&addCmdHook('RootWarn', ('CODEREF' => 'CmdrootWarn', + 'Identifier' => 'RootWarn', 'Module' => 'RootWarn') ); +&addCmdHook('seen', ('CODEREF' => 'seen', 'Identifier' => + 'seen') ); +&addCmdHook('Dict', ('CODEREF' => 'Dict::Dict', + 'Identifier' => 'Dict', 'Help' => 'dict', + 'Forker' => 1, 'Cmdstats' => 'Dict') ); +&addCmdHook('slashdot', ('CODEREF' => 'Slashdot::Slashdot', + 'Identifier' => 'slashdot', 'Forker' => 1, + 'Cmdstats' => 'slashdot') ); +&addCmdHook('Plug', ('CODEREF' => 'Plug::Plug', + 'Identifier' => 'Plug', 'Forker' => 1, + 'Cmdstats' => 'Plug') ); +&addCmdHook('Uptime', ('CODEREF' => 'uptime', 'Identifier' => 'Uptime', + 'Cmdstats' => 'Uptime') ); +&addCmdHook('nullski', ('CODEREF' => 'nullski', ) ); +&addCmdHook('verstats', ('CODEREF' => 'do_verstats' ) ); +&addCmdHook('Weather', ('CODEREF' => 'Weather::Weather', + 'Identifier' => 'Weather', 'Help' => 'weather', + 'Cmdstats' => 'Weather', 'Forker' => 1) ); +&addCmdHook('metar', ('CODEREF' => 'Weather::Metar', + 'Identifier' => 'Weather', 'Help' => 'weather', + 'Cmdstats' => 'Weather', 'Forker' => 1) ); +&addCmdHook('bzflist', ('CODEREF' => 'BZFlag::list', + 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag', + 'Forker' => 1) ); +&addCmdHook('bzflist17', ('CODEREF' => 'BZFlag::list17', + 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag', + 'Forker' => 1) ); +&addCmdHook('bzfquery', ('CODEREF' => 'BZFlag::query', + 'Identifier' => 'BZFlag', 'Cmdstats' => 'BZFlag', + 'Forker' => 1) ); +&addCmdHook('zfi', ('CODEREF' => 'zfi::query', + 'Identifier' => 'zfi', 'Cmdstats' => 'zfi', + 'Forker' => 1) ); +&addCmdHook('(zippy|yow)', ('CODEREF' => 'zippy::get', + 'Identifier' => 'Zippy', 'Cmdstats' => 'Zippy', + 'Forker' => 1) ); +&addCmdHook('zsi', ('CODEREF' => 'zsi::query', + 'Identifier' => 'zsi', 'Cmdstats' => 'zsi', + 'Forker' => 1) ); +&addCmdHook('(ex)?change', ('CODEREF' => 'Exchange::query', + 'Identifier' => 'Exchange', 'Cmdstats' => 'Exchange', + 'Forker' => 1) ); +&addCmdHook('(botmail|message)', ('CODEREF' => 'botmail::parse', + 'Identifier' => 'botmail', 'Cmdstats' => 'botmail') ); +&addCmdHook('HTTPDtype', ('CODEREF' => 'HTTPDtype::HTTPDtype', + 'Identifier' => 'HTTPDtype', 'Cmdstats' => 'HTTPDtype', + 'Forker' => 1) ); +&addCmdHook('scramble', ('CODEREF' => 'scramble::scramble', + 'Identifier' => 'scramble', 'Cmdstats' => 'scramble', + 'Forker' => 1, 'Module' => 'scramble') ); +&addCmdHook('md5(sum)?', ('CODEREF' => 'md5::md5', + 'Identifier' => 'md5', 'Cmdstats' => 'md5', + 'Forker' => 1) ); +&addCmdHook('Rss', ('CODEREF' => 'Rss::Rss', + 'Identifier' => 'Rss', 'Cmdstats' => 'Rss', + 'Forker' => 1, 'Help' => 'rss') ); +&addCmdHook('wiki(pedia)?', ('CODEREF' => 'wikipedia::wikipedia', + 'Identifier' => 'wikipedia', 'Cmdstats' => 'wikipedia', + 'Forker' => 1, 'Help' => 'wikipedia') ); +&addCmdHook('page', ('CODEREF' => 'pager::page', + 'Identifier' => 'pager', 'Cmdstats' => 'pager', + 'Forker' => 1, 'Help' => 'page') ); +&addCmdHook('(babel(fish)?|x|xlate|translate)', ('CODEREF' => 'babelfish::babelfish', + 'Identifier' => 'babelfish', 'Cmdstats' => 'babelfish', + 'Forker' => 1, 'Help' => 'babelfish', 'Module' => 'babelfish') ); +&addCmdHook('wtf', ('CODEREF' => 'wtf::query', + 'Identifier' => 'wtf', 'Cmdstats' => 'wtf', + 'Forker' => 1, 'Help' => 'wtf') ); +&addCmdHook('[ia]?spell', ('CODEREF' => 'spell::query', + 'Identifier' => 'spell', 'Cmdstats' => 'spell', + 'Forker' => 1, 'Help' => 'spell') ); +&addCmdHook('dns|d?nslookup', ('CODEREF' => 'dns::query', + 'Identifier' => 'dns', 'Cmdstats' => 'dns', + 'Forker' => 1, 'Help' => 'dns') ); +&addCmdHook('piglatin', ('CODEREF' => 'piglatin::piglatin', + 'Identifier' => 'piglatin', 'Cmdstats' => 'piglatin', + 'Forker' => 1) ); +### +### END OF ADDING HOOKS. +### +&status("CMD: loaded ".scalar(keys %cmdhooks)." command hooks."); 1;