Author: adam-guest
Date: 2008-02-26 22:05:41 +0000 (Tue, 26 Feb 2008)
New Revision: 1063
Modified:
trunk/Devscripts/Debbugs.pm
trunk/debian/changelog
Log:
Debbugs.pm: Add usertags() and modify select() to use it
Modified: trunk/Devscripts/Debbugs.pm
===================================================================
--- trunk/Devscripts/Debbugs.pm 2008-02-26 21:52:41 UTC (rev 1062)
+++ trunk/Devscripts/Debbugs.pm 2008-02-26 22:05:41 UTC (rev 1063)
@@ -109,6 +109,17 @@
return ($soap_broken ? 0 : 1);
}
+sub usertags {
+ die "Couldn't run usertags: $soap_broken\n" unless have_soap();
+
+ my @args = @_;
+
+ my $soap = SOAP::Lite->uri($soapurl)->proxy($soapproxyurl);
+ my $usertags = $soap->get_usertag(@_)->result();
+
+ return $usertags;
+}
+
sub select {
die "Couldn't run select: $soap_broken\n" unless have_soap();
my @args = @_;
@@ -143,7 +154,7 @@
}
my %usertags;
for my $user (keys %users) {
- my $ut = $soap->get_usertag($user)->result();
+ my $ut = usertags($user);
next unless defined $ut;
for my $tag (keys %{$ut}) {
push @{$usertags{$tag}},
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-02-26 21:52:41 UTC (rev 1062)
+++ trunk/debian/changelog 2008-02-26 22:05:41 UTC (rev 1063)
@@ -6,7 +6,8 @@
+ Add detection for <<<, $(OS|MACH)TYPE, $HOST(TYPE|NAME), $EUID,
$DIRSTACK, $SECONDS and /dev/(tcp|udp) (Closes: #465386)
+ Enhance heredoc detection to not trigger on <<<
- * Debbugs.pm: Add status(), versions() and versions_with_arch()
+ * Debbugs.pm: Add status(), usertags() versions() and
+ versions_with_arch()
* tagpending:
+ Rewrite in perl using Debbugs.pm
+ Optionally (and by default) include the changelog header line and
--
To unsubscribe, send mail to [EMAIL PROTECTED]
