&addCmdHook("extra", 'dns|d?nslookup|host', ('CODEREF' => 'dns::query',
'Identifier' => 'dns', 'Cmdstats' => 'dns',
'Forker' => 1, 'Help' => 'dns') );
&addCmdHook("extra", 'dns|d?nslookup|host', ('CODEREF' => 'dns::query',
'Identifier' => 'dns', 'Cmdstats' => 'dns',
'Forker' => 1, 'Help' => 'dns') );
+&addCmdHook("extra", 'piglatin', ('CODEREF' => 'piglatin::piglatin',
+ 'Identifier' => 'piglatin', 'Cmdstats' => 'piglatin',
+ 'Forker' => 1) );
$debiancmd .= '|recommends?|suggests?|maint|maintainer';
if ($message =~ /^($debiancmd)(\s+(.*))?$/i) {
$debiancmd .= '|recommends?|suggests?|maint|maintainer';
if ($message =~ /^($debiancmd)(\s+(.*))?$/i) {
# google searching. Simon++
if ($message =~ /^(?:search\s+)?($w3search_regex)\s+(?:for\s+)?['"]?(.*?)["']?\s*\?*$/i) {
# google searching. Simon++
if ($message =~ /^(?:search\s+)?($w3search_regex)\s+(?:for\s+)?['"]?(.*?)["']?\s*\?*$/i) {
# list{keys|values}. xk++. Idea taken from #linuxwarez@EFNET
if ($message =~ /^list(\S+)(\s+(.*))?$/i) {
# list{keys|values}. xk++. Idea taken from #linuxwarez@EFNET
if ($message =~ /^list(\S+)(\s+(.*))?$/i) {