my($num) = @_;
my $url = "http://bugs.debian.org/$num";
- if (1) {
+ if (1) { # FIXME
&::msg($::who, "do_id not supported yet.");
return;
}
my($email) = @_;
my $url = "http://bugs.debian.org/$email";
- if (1) {
+ if (1) { # FIXME
&::msg($::who, "do_email not supported yet.");
return;
}
my($pkg) = @_;
my $url = "http://bugs.debian.org/$pkg";
+ if (1) { # FIXME
+ &::msg($::who, "do_pkg not supported yet.");
+ return;
+ }
+
my @results = &::getURL($url);
foreach (@results) {
&::DEBUG("do_pkg: $_");