- if ($message =~ /^d?bugs$/i) {
- return $noreply unless (&hasParam("debianExtra"));
-
- &Forker("debianExtra", sub { &debianBugs(); } );
-
- $cmdstats{'Debian Bugs'}++;
- return $noreply;
- }
-
- # Debian Author Search.
- if ($message =~ /^dauthor(\s+(.*))?$/i) {
- return $noreply unless (&hasParam("debian"));
-
- my $query = $2;
- if (!defined $query) {
- &help("dauthor");
- return $noreply;
- }
-
- &Forker("debian", sub { &Debian::searchAuthor($query); } );
-
- $cmdstats{'Debian Author Search'}++;
- 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"));
-
- &Forker("debian", sub { &Debian::generateIncoming(); } );
-
- $cmdstats{'Debian Incoming Search'}++;
- return $noreply;
- }
-
- # Debian Distro(Package) Stats
- if ($message =~ /^dstats(\s+(.*))?$/i) {
- return $noreply unless (&hasParam("debian"));
- my $dist = $2 || $Debian::defaultdist;
-
- &Forker("debian", sub { &Debian::infoStats($dist); } );
-
- $cmdstats{'Debian Statistics'}++;
- return $noreply;
- }
-
- # Debian Contents search.
- if ($message =~ /^d?contents(\s+(.*))?$/i) {
- return $noreply unless (&hasParam("debian"));
-
- my $query = $2;
- if (!defined $query) {
- &help("contents");
- return $noreply;
- }
-
- &Forker("debian", sub { &Debian::searchContents($query); } );
-
- $cmdstats{'Debian Contents Search'}++;
- return $noreply;
- }
-
- # Debian Package info.
- if ($message =~ /^d?find(\s+(.*))?$/i and &IsParam("debian")) {
- my $string = $2;
-
- if (!defined $string) {
- &help("find");
- return $noreply;
- }
-
- &Forker("debian", sub { &Debian::DebianFind($string); } );
- return $noreply;
- }
-