Your message dated Thu, 09 Aug 2007 22:47:07 +0000
with message-id <[EMAIL PROTECTED]>
and subject line Bug#433169: fixed in devscripts 2.10.7
has caused the attached Bug report to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere.  Please contact me immediately.)

Debian bug tracking system administrator
(administrator, Debian Bugs database)

--- Begin Message ---
Package: devscripts
Version: 2.10.6
Severity: wishlist

Attached is a patch to add soap querying support.

I'll probably submit another patch in a bit to allow the following:

bts select submitter:[EMAIL PROTECTED] | bts submitter - [EMAIL PROTECTED] 

or similar non-insane control changes.


Don Armstrong

-- 
Frankly, if ignoring inane opinions and noisy people and not flaming
them to crisp is bad behaviour, I have not yet achieved a state of
nirvana.
 -- Manoj Srivastava in [EMAIL PROTECTED]

http://www.donarmstrong.com              http://rzlab.ucr.edu
Index: bts.pl
===================================================================
--- bts.pl	(revision 707)
+++ bts.pl	(working copy)
@@ -73,6 +73,26 @@
     return $lwp_broken ? 0 : 1;
 }
 
+my $soap_broken;
+sub have_soap {
+     return ($soap_broken ? 0 : 1) if defined $soap_broken;
+     eval {
+	  require SOAP::Lite;
+     };
+
+     if ($@) {
+	  if ($@ =~ m%^Can\'t locate/%) {
+	       $soap_broken="the libsoap-lite-perl package is not installed";
+	  } else {
+	       $soap_broken="couldn't load SOAP::Lite: $@";
+	  }
+     }
+     else {
+	  $soap_broken = 0;
+     }
+     return ($soap_broken ? 0 : 1);
+}
+
 # Constants
 sub MIRROR_ERROR      { 0; }
 sub MIRROR_DOWNLOADED { 1; }
@@ -758,6 +778,92 @@
     }
 }
 
+=item select [key:value] [key2:value2] ...
+
+Uses the soap interface to output a list of bugs which match the given
+selection requirements.
+
+The following keys are allowed, and may be given multiple times
+
+=over
+
+=item package -- name of the binary package
+
+=item src -- name of the source package
+
+=item maint -- address of the maintainer
+
+=item submitter -- address of the submitter
+
+=item severity -- severity of the bug
+
+=item status -- status of the bug
+
+=item tag -- bug tag
+
+=item owner -- owner of the bug
+
+=item bugs -- list of bugs to search within
+
+=item users -- users to use to look up usertags
+
+=item archive -- whether to search archived bugs or normal bugs;
+defaults to false. As a special case, if archive is 'both', but
+archived and unarchived bugs are returned.
+
+=back
+
+=cut
+
+sub bts_select {
+     die $soap_broken unless have_soap();
+     my @args = @_;
+     my %valid_keys = (package => 'package',
+		       pkg     => 'package',
+		       src     => 'src',
+		       source  => 'source',
+		       maint   => 'maint',
+		       maintainer => 'maint',
+		       submitter => 'submitter',
+		       status    => 'status',
+		       tag       => 'tag',
+		       owner     => 'owner',
+		       dist      => 'dist',
+		       distribution => 'dist',
+		       bugs       => 'bugs',
+		       archive    => 'archive',
+		      );
+     my %users;
+     my %search_parameters;
+     my $soap = SOAP::Lite->uri('Debbugs/SOAP/1')->proxy('http://bugs.debian.org/cgi-bin/soap.cgi');
+     for my $arg (@args) {
+	  my ($key,$value) = split /:/, $arg, 2;
+	  if (exists $valid_keys{$key}) {
+	       push @{$search_parameters{$valid_keys{$key}}},
+		    $value;
+	  }
+	  elsif ($key =~/users?/) {
+	       $users{$value} = 1;
+	  }
+     }
+     my %usertags;
+     for my $user (keys %users) {
+	  my $ut = $soap->get_usertag($user)->result();
+	  next unless defined $ut;
+	  for my $tag (keys %{$ut}) {
+	       push @{$usertags{$tag}},
+		    @{$ut->{$tag}};
+	  }
+     }
+     my $bugs = $soap->get_bugs(%search_parameters,
+				(keys %usertags)?(usertags=>\%usertags):()
+			       )->result();
+     if (not defined $bugs) {
+	  die "Error while retrieving bugs from soap server";
+     }
+     print map {qq($_\n)} @{$bugs};
+}
+
 =item clone <bug> [new IDs]
 
 The clone control command allows you to duplicate a bug report. It is useful

--- End Message ---
--- Begin Message ---
Source: devscripts
Source-Version: 2.10.7

We believe that the bug you reported is fixed in the latest version of
devscripts, which is due to be installed in the Debian FTP archive:

devscripts_2.10.7.dsc
  to pool/main/d/devscripts/devscripts_2.10.7.dsc
devscripts_2.10.7.tar.gz
  to pool/main/d/devscripts/devscripts_2.10.7.tar.gz
devscripts_2.10.7_i386.deb
  to pool/main/d/devscripts/devscripts_2.10.7_i386.deb



A summary of the changes between this version and the previous one is
attached.

Thank you for reporting the bug, which will now be closed.  If you
have further comments please address them to [EMAIL PROTECTED],
and the maintainer will reopen the bug report if appropriate.

Debian distribution maintenance software
pp.
Mohammed Adnène Trojette <[EMAIL PROTECTED]> (supplier of updated devscripts 
package)

(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing [EMAIL PROTECTED])


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Format: 1.7
Date: Fri, 10 Aug 2007 00:35:06 +0200
Source: devscripts
Binary: devscripts
Architecture: source i386
Version: 2.10.7
Distribution: unstable
Urgency: low
Maintainer: Devscripts Devel Team <[EMAIL PROTECTED]>
Changed-By: Mohammed Adnène Trojette <[EMAIL PROTECTED]>
Description: 
 devscripts - Scripts to make the life of a Debian Package maintainer easier
Closes: 315409 402539 417609 419657 423669 426584 427429 428827 431303 431840 
433081 433169 433385 433419 433492 434145 434183 435011
Changes: 
 devscripts (2.10.7) unstable; urgency=low
 .
   [ Adam D. Barratt ]
   * debian/control: Add libsoap-lite-perl to the Suggests and
     description for bts
   * README
     + Add libcrypt-ssleay-perl to the description for uscan
     + Add libsoap-lite-perl to the description for bts
     + Mention the SOAP interface in the description for bts
   * debchange: Fix NMU versioning for Debian native packages
   * dd-list: Sort developer names case-insensitively. Thanks to Steinar H.
     Gunderson for the suggestion
   * bts
     + Fix test for libwww-perl not being installed
     + Only pass -c to mail(1) if there are Cc: addresses
       (Closes: #433385)
     + Add support for selecting bug lists via the SOAP interface. This
       requires libsoap-lite-perl. Thanks to Don Armstrong for the patch
       (Closes: #433169)
   * deb-reversion: Apply patch from Adeodato Simó to ensure -v is
     honoured (Closes: #433492)
   * debcommit: When using git, allow either all files or only those in
     the index to be committed. Thanks to Martin F Krafft and Junichi
     Uekawa for the patch. (Closes: #402539, #427429, #433081)
   * uscan
     + Allow a user agent string to be specified (Closes: #433419)
     + Fix https support (Closes: #423669)
     + Correctly set exit status after downloading (Closes: #431840)
   * licensecheck
     + Allow directories to be passed as arguments
     + Allow a pattern to be specified indicating files / directories
       which should be excluded from checking. The default is the same
       as dpkg-source's -i option
     + Allow the set of files to be checked to be specified via a
       regular expression
     + Optionally attempt to find copyright statements
 .
   [ Christoph Berg ]
   * rmadison: Support ubuntu and querying multiple archives, suggested by
     Loïc Minier. (Closes: #431303)
   * dget: Downloading multiple binaries was broken. (Closes: #428827)
 .
   [ Stefano Zacchiroli ]
   * dd-list: list Uploaders per default, added --nouploaders option to
     force the old behaviour
 .
   [ Mohammed Adnène Trojette ]
   * debi: add svn-buildpackage support. Thanks to Raphaël Hertzog for
     the patch. (Closes: #315409, #417609)
   * dch: add --bpo support. (Closes: #434183)
   * debcommit: add debian/changelog to the list of files to commit. Thanks
     Damyan Ivanov for the patch. (Closes: #419657)
   * bts: add file:// to local urls. (Closes: #435011)
   * checkbashims: add a -n/--newline option (disabled by default) to
     also check "echo -n" as Debian Policy 10.4 requires /bin/sh to support
     it. (Closes: #426584)
   * tagpending: add a -t/--to option that adds a -v option to the
     dpkg-parsechangelog call. (Closes: #434145)
   * debian/rules: use [ ! -f Makefile ] || $(MAKE) clean instead of -$(MAKE)
     clean.
Files: 
 594232ecafd6bbcfc99245c8efedc16b 1089 devel optional devscripts_2.10.7.dsc
 e02552323b796d9d2b05dd51efea2f6e 464869 devel optional devscripts_2.10.7.tar.gz
 f1672a113e113ec5e28a3c4a421da5dc 400912 devel optional 
devscripts_2.10.7_i386.deb

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)

iD8DBQFGu5dyOU3FkQ7XBOoRAtCVAKDbjajwrQhXg3Xg8mWyNXosPfkGOQCgpskR
BzBGEvLxKbQHWdcp9m/dI4I=
=QbNt
-----END PGP SIGNATURE-----


--- End Message ---

Reply via email to