#!/usr/bin/perl

use lib '/home/rhertzog-deb/partages/debian/bzr/debbugs/';

use SOAP::Lite;
use Data::Dumper;

my $soap = SOAP::Lite
    -> uri('/Usertag')
    -> proxy('http://debbugs:8080/cgi-bin/soap.cgi');

my $result = $soap->get_usertag("debian-python\@lists.debian.org", "policy");

unless ($result->fault) {
    print Data::Dumper->Dump([$result->result()]);
} else {
    print join ', ', 
      $result->faultcode, 
      $result->faultstring;
}