Author: adsb
Date: 2009-01-02 18:09:23 +0000 (Fri, 02 Jan 2009)
New Revision: 1770
Modified:
trunk/debian/changelog
trunk/scripts/bts.pl
Log:
+ Don't issue repeated "user foo" commands for the same user.
+ Remove excess whitespace from usertag commands.
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2009-01-02 17:32:13 UTC (rev 1769)
+++ trunk/debian/changelog 2009-01-02 18:09:23 UTC (rev 1770)
@@ -5,6 +5,8 @@
+ Allow an alternative debbugs server to be specified. (Closes: #508676)
+ Modify "bts status" to request source package information, so that we
don't always return "unknown".
+ + Don't issue repeated "user foo" commands for the same user.
+ + Remove excess whitespace from usertag commands.
* checkbashisms: Rework the comment detection code to avoid matching "$#"
and to avoid a number of similar issues. (Closes: #510343)
* Debbugs.pm: Allow the address of the debbugs server to be specified
Modified: trunk/scripts/bts.pl
===================================================================
--- trunk/scripts/bts.pl 2009-01-02 17:32:13 UTC (rev 1769)
+++ trunk/scripts/bts.pl 2009-01-02 18:09:23 UTC (rev 1770)
@@ -53,6 +53,7 @@
$SIG{'__WARN__'} = sub { warn $_[0] unless $_[0] =~ /^Parsing of undecoded
UTF-8 will give garbage when decoding entities/; };
my $it = undef;
+my $last_user = '';
my $lwp_broken = undef;
my $smtp_ssl_broken = undef;
my $ua;
@@ -1491,7 +1492,10 @@
die "bts user: set user to what email address?\n";
}
opts_done(@_);
- mailbts("user $email", "user $email");
+ if ($email ne $last_user) {
+ mailbts("user $email", "user $email");
+ }
+ $last_user = $email;
}
=item usertag <bug> [+|-|=] tag [tag ..]
@@ -1556,7 +1560,7 @@
}
$claim=extractemail($claim);
bts_user("[email protected]");
- bts_usertags("$bug" , " + $claim");
+ bts_usertags("$bug" , "+$claim");
}
=item unclaim <bug> [<claim>]
@@ -1576,7 +1580,7 @@
}
$claim=extractemail($claim);
bts_user("[email protected]");
- bts_usertags("$bug" , " - $claim");
+ bts_usertags("$bug" , "-$claim");
}
=item severity <bug> <severity>
--
To unsubscribe, send mail to [email protected].
