X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FCommandStubs.pl;h=32e1005733da8c0b3312cdd8d5ded63b4f465716;hb=b24caafaad5c48b4895f31132251c33fcae6b81f;hp=7f0681408a8ec6e931751aa53216e7f4f9d22cb9;hpb=db6d3b9745f9db69dd6c2312a68c820c1712c9e8;p=infobot.git

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 7f06814..32e1005 100644
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -5,7 +5,7 @@
 
 #use strict;
 
-$babel_lang_regex = "fr|sp|po|pt|it|ge|de|gr|en";
+$babel_lang_regex = "fr|sp|es|po|pt|it|ge|de|gr|en|zh|ja|jp|ko|kr|ru";
 
 ### COMMAND HOOK IMPLEMENTATION.
 # addCmdHook("SECTION", 'TEXT_HOOK',
@@ -208,6 +208,9 @@ sub parseCmdHook {
 &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', ) );
@@ -215,6 +218,21 @@ sub parseCmdHook {
 	'Identifier' => 'freshmeat', 'Cmdstats' => 'Freshmeat',
 	'Forker' => 1, 'Help' => 'freshmeat') );
 &addCmdHook("extra", 'verstats', ('CODEREF' => 'do_verstats' ) );
+&addCmdHook("extra", 'weather', ('CODEREF' => 'Weather::Weather',
+	'Identifier' => 'weather', 'Help' => 'weather',
+	'Cmdstats' => 'Weather') );
+&addCmdHook("extra", 'bzflist', ('CODEREF' => 'BZFlag::list',
+	'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
+	'Forker' => 1) );
+&addCmdHook("extra", 'bzfquery', ('CODEREF' => 'BZFlag::query',
+	'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
+	'Forker' => 1, 'Help' => 'bzflag') );
+&addCmdHook("extra", 'zfi', ('CODEREF' => 'zfi::query',
+	'Identifier' => 'zfi', 'Cmdstats' => 'zfi',
+	'Forker' => 1) );
+&addCmdHook("extra", 'zsi', ('CODEREF' => 'zsi::query',
+	'Identifier' => 'zsi', 'Cmdstats' => 'zsi',
+	'Forker' => 1) );
 
 ###
 ### END OF ADDING HOOKS.
@@ -232,9 +250,9 @@ sub Modules {
 		^\s*
 		(?:babel(?:fish)?|x|xlate|translate)
 		\s+
-		(to|from)		# direction of translation (through)
+		($babel_lang_regex)\w*	# from language?
 		\s+
-		($babel_lang_regex)\w*	# which language?
+		($babel_lang_regex)\w*	# to language?
 		\s*
 		(.+)			# The phrase to be translated
     }xoi) {
@@ -529,7 +547,7 @@ sub Modules {
 	    $reply .= ".  Started the scan ".&Time2String(time() - $wingaterun)." ago";
 	}
 
-	&performStrictReply("$reply.");
+	&pSReply("$reply.");
 
 	return;
     }
@@ -572,6 +590,11 @@ sub seen {
     my($person) = lc shift;
     $person =~ s/\?*$//;
 
+    if (&whatInterface() !~ /IRC/) {
+	&status("seen disabled in CLI.");
+	return;
+    }
+
     if (!defined $person or $person =~ /^$/) {
 	&help("seen");
 
@@ -745,7 +768,7 @@ sub lart {
 }
 
 sub DebianNew {
-    my $idx   = "debian/Packages-woody.idx";
+    my $idx   = "debian/Packages-sid.idx";
     my $error = 0;
     my %pkg;
     my @new;
@@ -754,7 +777,7 @@ sub DebianNew {
     $error++ unless ( -e "$idx-old");
 
     if ($error) {
-	$error = "no woody/woody-old index file found.";
+	$error = "no sid/sid-old index file found.";
 	&ERROR("Debian: $error");
 	&msg($who, $error);
 	return;
@@ -777,11 +800,11 @@ sub DebianNew {
 	next if (/^\*/);
 	next if (exists $pkg{$_});
 
-	push(@new);
+	push(@new, $_);
     }
     close IDX1;
 
-    &::performStrictReply( &::formListReply(0, "New debian packages:", @new) );
+    &::pSReply( &::formListReply(0, "New debian packages:", @new) );
 }
 
 sub do_verstats {