converted %{$blah{$blah}} to %{ $blah{$blah} }

[infobot.git] / src / Modules / DebianExtra.pl

diff --git a/src/Modules/DebianExtra.pl b/src/Modules/DebianExtra.pl
index 52733e694fbae83c57f0b5ec84b213d829d45538..f6179344bbfa4f7c766c0c9beb1e04476f300c72 100644 (file)
--- a/src/Modules/DebianExtra.pl
+++ b/src/Modules/DebianExtra.pl
@@ -7,10 +7,35 @@
 
 use strict;
 
-my $bugs_url = "http://master.debian.org/~wakkerma/bugs";
+package DBugs;
+
+sub Parse {
+    my($args) = @_;
+
+    if (!defined $args or $args =~ /^$/) {
+       &debianBugs();
+    }
+
+    if ($args =~ /^(\d+)$/) {
+       # package number:
+       &do_id($args);
+
+    } elsif ($args =~ /^(\S+\@\S+)$/) {
+       # package email maintainer.
+       &do_email($args);
+
+    } elsif ($args =~ /^(\S+)$/) {
+       # package name.
+       &do_pkg($args);
+
+    } else {
+       # invalid.
+       &::msg($::who, "error: could not parse $args");
+    }
+}
 
 sub debianBugs {
-    my @results = &::getURL($bugs_url);
+    my @results = &::getURL("http://master.debian.org/~wakkerma/bugs");
     my ($date, $rcbugs, $remove);
     my ($bugs_closed, $bugs_opened) = (0,0);
 
@@ -40,4 +65,44 @@ sub debianBugs {
     }
 }
 
+sub do_id {
+    my($num)   = @_;
+    my $url    = "http://bugs.debian.org/$num";
+
+    if (1) {
+       &::msg($::who, "do_id not supported yet.");
+       return;
+    }
+
+    my @results = &::getURL($url);
+    foreach (@results) {
+       &::DEBUG("do_id: $_");
+    }
+}
+
+sub do_email {
+    my($email) = @_;
+    my $url    = "http://bugs.debian.org/$email";
+
+    if (1) {
+       &::msg($::who, "do_email not supported yet.");
+       return;
+    }
+
+    my @results = &::getURL($url);
+    foreach (@results) {
+       &::DEBUG("do_email: $_");
+    }
+}
+
+sub do_pkg {
+    my($pkg)   = @_;
+    my $url    = "http://bugs.debian.org/$pkg";
+
+    my @results = &::getURL($url);
+    foreach (@results) {
+       &::DEBUG("do_pkg: $_");
+    }
+}
+
 1;