X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FDebianExtra.pl;h=e01f85744de6f52de2066a74b63d6a505ace3357;hb=43529f83fbc0c351af37f10b5b8b8a4025596f93;hp=ef77477c65f267d1dd9d6d11a31f24f0be5596ee;hpb=ded110cd6520755ed4a6f173c55f92cb18a8b0c0;p=infobot.git

diff --git a/src/Modules/DebianExtra.pl b/src/Modules/DebianExtra.pl
index ef77477..e01f857 100644
--- a/src/Modules/DebianExtra.pl
+++ b/src/Modules/DebianExtra.pl
@@ -86,10 +86,18 @@ sub do_id($) {
         return "Bug is not a number!";
     }
     $bug_num =~ s/^\#//;
-    my $soap = SOAP::Lite->url->('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;
+    # enabling this will cause amazing amounts of output
+    # &::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 +111,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