* remove useless bug =>

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

diff --git a/src/Modules/DebianExtra.pl b/src/Modules/DebianExtra.pl
index 07cd9515eda228dfb2028c0a745ddc0516ec742f..abdce2b5065bf023249a55056712ad09b5642f09 100644 (file)
--- a/src/Modules/DebianExtra.pl
+++ b/src/Modules/DebianExtra.pl
@@ -86,10 +86,17 @@ sub do_id($) {
         return "Bug is not a number!";
     }
     $bug_num =~ s/^\#//;
-    my $soap = SOAP::Lite->uri->('Debbugs/SOAP/1')->
+    my $soap = SOAP::Lite->uri('Debbugs/SOAP/1')->
        proxy('http://bugs.debian.org/cgi-bin/soap.cgi');
     $soap->transport->env_proxy();
-    my $result = $soap->get_status(bug => $bug_num)->result();
+    my $temp = $soap->get_status($bug_num);
+    use Data::Dumper;
+    &::DEBUG(Dumper($temp));
+    if ($temp->fault) {
+       return "Some failure (".$temp->fault->{faultstring}.")";
+    }
+    my $result = $temp->result();
+    &::DEBUG(Dumper($result));
     if (not defined $result) {
        return "No such bug (or some kind of error)";
     }
@@ -103,7 +110,7 @@ sub do_id($) {
     $bug->{reporter} = $result->{submitter};
     $bug->{date} = $result->{date};
     $bug->{tags} = $result->{keywords};
-    $bug->{done} = defined $result->{done} and length $result->{done};
+    $bug->{done} = defined $result->{done} && length($result->{done}) > 0;
     $bug->{merged_with} = $result->{mergedwith};
     # report bug