From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 22 Oct 2003 17:57:17 +0000 (+0000)
Subject: dinfo
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4ab339bb0715b4876ec501f0efbc8a8fcbed37b5;p=infobot.git

dinfo


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

diff --git a/blootbot/src/CommandStubs.pl b/blootbot/src/CommandStubs.pl
index 3a2814c..c37729a 100644
--- a/blootbot/src/CommandStubs.pl
+++ b/blootbot/src/CommandStubs.pl
@@ -279,7 +279,7 @@ sub Modules {
 	return;
     }
 
-    my $debiancmd	 = 'conflicts?|depends?|desc|file|d?info|provides?';
+    my $debiancmd	 = 'conflicts?|depends?|desc|file|(?:d)?info|provides?';
     $debiancmd		.= '|recommends?|suggests?|maint|maintainer';
 
     if ($message =~ /^($debiancmd)(\s+(.*))?$/i) {
diff --git a/blootbot/src/Modules/Debian.pl b/blootbot/src/Modules/Debian.pl
index 8afaa86..45d7834 100644
--- a/blootbot/src/Modules/Debian.pl
+++ b/blootbot/src/Modules/Debian.pl
@@ -710,6 +710,8 @@ sub infoPackages {
     }
     my %pkg = &getPackageInfo($package, $file);
 
+    $query = "info" if ($query eq "dinfo");
+
     # 'fm'-like output.
     if ($query eq "info") {
 	if (scalar keys %pkg <= 5) {