added ddesc for desc search

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@107 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 7936155435befdac844ca57b8c793788877fa031..35a9b3e9cd4a322afe18566e6940d6916db02714 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -136,6 +136,22 @@ sub Modules {
        return $noreply;
     }
 
+    # Debian Author Search.
+    if ($message =~ /^(d|search)desc(\s+(.*))?$/i) {
+       return $noreply unless (&hasParam("debian"));
+
+       my $query = $2;
+       if (!defined $query) {
+           &help("ddesc");
+           return $noreply;
+       }
+
+       &Forker("debian", sub { &Debian::searchDesc($query); } );
+
+       $cmdstats{'Debian Desc Search'}++;
+       return $noreply;
+    }
+
     # Debian Incoming Search.
     if ($message =~ /^dincoming$/i) {
        return $noreply unless (&hasParam("debian"));