$soap->transport->env_proxy();
my $temp = $soap->get_status($bug_num);
use Data::Dumper;
- &::DEBUG(Dumper($temp));
+ # enabling this will cause amazing amounts of output
+ # &::DEBUG(Dumper($temp));
if ($temp->fault) {
return "Some failure (".$temp->fault->{faultstring}.")";
}
if (not defined $result) {
return "No such bug (or some kind of error)";
}
+ ($result) = values %{$result};
my $bug = {};
$bug->{num} = $result->{bug_num};
$bug->{title} = $result->{subject};
$bug->{severity} =~ s/^(.).+$/$1/;
$bug->{package} = $result->{package};
$bug->{reporter} = $result->{submitter};
- $bug->{date} = $result->{date};
+ use POSIX;
+ $bug->{date} = POSIX::strftime(q(%a, %d %b %Y %H:%M:%S UTC),gmtime($result->{date}));
$bug->{tags} = $result->{keywords};
$bug->{done} = defined $result->{done} && length($result->{done}) > 0;
$bug->{merged_with} = $result->{mergedwith};