Bug#377520: One more SOAP module: retrieve status of bugs

[Raphael Hertzog]

Hi,

Arnaud needs to access to the status of the bug reports having a given
usertag (for his SoC project). Thus I wrote one more SOAP module. Please
find attached Status.pm which have to go in Debbugs/SOAP/ and an updated
cpi/soap.cgi (added: new module / require "./common.pl").

I'd appreciate if you could integrate that in bugs.donarmstrong.com
quickly so that he can test his project with your BTS.

For the future, maybe we can merge some SOAP modules... one function per
module looks like strange. :)

Cheers,
-- 
Raphaël Hertzog

Premier livre français sur Debian GNU/Linux :
http://www.ouaza.com/livre/admin-debian/

package Debbugs::SOAP::Status;

sub get_status {
    my ($class, @bugs) = @_;

    my %s;
    foreach (@bugs) {
	my $hash = debbugs::getbugstatus($_);
	if (scalar(%{$hash}) > 0) {
	    $s{$_} = $hash;
	}
    }
    
    return \%s;
}

1;

#!/usr/bin/perl -wT

package debbugs;

use SOAP::Transport::HTTP;

BEGIN {
    # Needed so that other modules have access to the variables
    # when included with use
    require '/etc/debbugs/config';
}

require './common.pl';

use Debbugs::SOAP::Usertag;
use Debbugs::SOAP::Status;

SOAP::Transport::HTTP::CGI
    -> dispatch_to('Debbugs::SOAP::Usertag', 'Debbugs::SOAP::Status')
    -> handle;