Author: adsb
Date: 2009-07-29 13:36:08 +0000 (Wed, 29 Jul 2009)
New Revision: 1945
Modified:
trunk/debian/changelog
trunk/scripts/bts.pl
Log:
Temporarily disable bts done
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2009-07-29 11:55:35 UTC (rev 1944)
+++ trunk/debian/changelog 2009-07-29 13:36:08 UTC (rev 1945)
@@ -52,10 +52,6 @@
* bts:
+ Implement a --mutt parameter, which allows mails to be sended
using mutt.
- + Implement a 'Done' command which creates a mail to
- nnn-d...@bugs.debian.org and defaults to sending the mail
- interactive to encourage writing explanations, why the bug
- was closed. (Closes: #482751)
* debchange: Implement a dist indication mechanism that parses
an 'Upload to $DIST' line and sets the distribution accordingly, when
the --release parameter is used. (Closes: #515346)
Modified: trunk/scripts/bts.pl
===================================================================
--- trunk/scripts/bts.pl 2009-07-29 11:55:35 UTC (rev 1944)
+++ trunk/scripts/bts.pl 2009-07-29 13:36:08 UTC (rev 1945)
@@ -1162,47 +1162,47 @@
EOT
}
-=item done <bug> <version>
+# =item done <bug> <version>
+#
+# # Mark a bug as Done. Defaults to implying interactive mode,
+# because you should edit the message and provide explanations,
+# why the bug is beeing closed.
+# You should specify which version of the package closed the bug, if
+# possible.
+# =cut
+#
+# sub bts_done {
+# my $bug=checkbug(shift) or die "bts done: close what bug?\n";
+# my $version=shift;
+# my $subject="Closing $bug";
+# $version="" unless defined $version;
+# opts_done(@_);
+#
+# # TODO: Evaluate if we want to do this by default
+# my $bug_status = Devscripts::Debbugs::status( map {[bug => $_,
indicatesource => 1]} ($bug) );
+# if ($bug_status) {
+# $subject = "Re: $bug_status->{$bug}->{subject}";
+# }
+#
+# # This command defaults to using interactive mode, because
+# # mails shouldn't be sent without an explanation
+# if (not $use_mutt) {
+# $interactive = 1;
+# }
+#
+# # Workaround (?) - We need to set the btsemail to nnn-d...@b.d.o
+# # to close a bug.
+# # TODO: Evaluate other possbilities to do that more "beauty"
+# $btsemail = $bug . '-d...@bugs.debian.org';
+#
+# my $message = "";
+# if ($version) {
+# $message .= "Version: $version";
+# }
+# $message .= "\n<Explanation for closing the bug should go here>";
+# mailbts($subject, $message);
+# }
-Mark a bug as Done. Defaults to implying interactive mode,
-because you should edit the message and provide explanations,
-why the bug is beeing closed.
-You should specify which version of the package closed the bug, if
-possible.
-=cut
-
-sub bts_done {
- my $bug=checkbug(shift) or die "bts done: close what bug?\n";
- my $version=shift;
- my $subject="Closing $bug";
- $version="" unless defined $version;
- opts_done(@_);
-
- # TODO: Evaluate if we want to do this by default
- my $bug_status = Devscripts::Debbugs::status( map {[bug => $_,
indicatesource => 1]} ($bug) );
- if ($bug_status) {
- $subject = "Re: $bug_status->{$bug}->{subject}";
- }
-
- # This command defaults to using interactive mode, because
- # mails shouldn't be sent without an explanation
- if (not $use_mutt) {
- $interactive = 1;
- }
-
- # Workaround (?) - We need to set the btsemail to nnn-d...@b.d.o
- # to close a bug.
- # TODO: Evaluate other possbilities to do that more "beauty"
- $btsemail = $bug . '-d...@bugs.debian.org';
-
- my $message = "";
- if ($version) {
- $message .= "Version: $version";
- }
- $message .= "\n<Explanation for closing the bug should go here>";
- mailbts($subject, $message);
-}
-
=item reopen <bug> [<submitter>]
Reopen a bug, with optional submitter.
--
To unsubscribe, send mail to pkg-devscripts-unsubscr...@teams.debian.net.
