[project @ 2002-11-26 04:21:06 by cjwatson]

Add a 'submitter' command to service, based on a patch by Matt Kraai.

diff --git a/debian/changelog b/debian/changelog
index 49b5bbb9bf3ada94734585958b638c3d04591671..5b76bbcb34b03cf51a828a498727a31c80bc1b78 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,6 +7,8 @@ debbugs (2.4.1) UNRELEASED; urgency=low
   * Add a man page for debbugsconfig. [Colin]
   * Report original tags when changing them, closes: #170630. [Colin]
   * Add missing <ul></ul> tags to db2html's output, closes: #50746. [Colin]
+  * Add a 'submitter' command to service, based on a patch by Matt Kraai.
+    [Colin]
 
  -- Colin Watson <cjwatson@debian.org>  Mon, 25 Nov 2002 03:50:20 +0000
 

diff --git a/html/server-control.html.in b/html/server-control.html.in
index 64a4bb69840a49fd011e992f7f24300afa848b69..0fa02dd7214238b9857871cc09af87042be5b7ad 100644 (file)
--- a/html/server-control.html.in
+++ b/html/server-control.html.in
@@ -64,10 +64,22 @@ mailservers is available via the WWW, in
   again.
 
   <p>If the $gBug is not closed then reopen won't do anything, not even
-  change the originator.  There is no way to change the originator of an
-  open $gBug report (this is deliberate, so that you can't have a $gBug be
-  closed and then deleted $gRemoveAge days later without someone being told about
-  it).
+  change the originator.  To change the originator of an open $gBug report,
+  use the <code>submitter</code> command; note that this will inform the
+  original submitter of the change.
+
+<dt><code>submitter</code> <var>bugnumber</var>
+<var>originator-address</var> | <code>!</code>
+
+  <dd>Changes the originator of #<var>bugnumber</var> to
+  <var>originator-address</var>.
+
+  <p>If you wish to become the new originator of the report you can use
+  the <code>!</code> shorthand or specify your own email address.</p>
+
+  <p>While the <code>reopen</code> command changes the originator of other
+  bugs merged with the one being reopened, <code>submitter</code> does not
+  affect merged bugs.</p>
 
 <dt><code>forwarded</code> <var>bugnumber</var> <var>address</var>
 

diff --git a/html/server-refcard.html.in b/html/server-refcard.html.in
index 4cb3e4ebc3e7ba4d2ed308af48c4fe884c0b53cd..776af95fe2f5bc7bafe88686bc25c6d37326b84d 100644 (file)
--- a/html/server-refcard.html.in
+++ b/html/server-refcard.html.in
@@ -60,6 +60,8 @@ sending the word <code>help</code> to each mailserver.
   <li><code>severity</code> <var>bugnumber</var> <var>severity</var>
   <li><code>reopen</code> <var>bugnumber</var>
       [ <var>originator-address</var> | <code>=</code> | <code>!</code> ]
+  <li><code>submitter</code> <var>bugnumber</var>
+      <var>originator-address</var> | <code>!</code>
   <li><code>forwarded</code> <var>bugnumber</var> <var>address</var>
   <li><code>notforwarded</code> <var>bugnumber</var>
   <li><code>retitle</code> <var>bugnumber</var> <var>new-title</var>

diff --git a/scripts/service.in b/scripts/service.in
index aab9a90d97fd8c5443517972237573f6d712931d..ccb16ac6ccf0daddc6c3becb47e33276e2bc79b1 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.63 2002/11/25 12:44:19 cjwatson Exp $
+# $Id: service.in,v 1.64 2002/11/26 04:21:06 cjwatson Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -324,6 +324,54 @@ END
                 } while (&getnextbug);
             }
         }
+    } elsif (m/^submitter\s+\#?(-?\d+)\s+\!$/i ? ($newsubmitter=$replyto, 1) :
+             m/^submitter\s+\#?(-?\d+)\s+(\S.*\S)$/i ? ($newsubmitter=$2, 1) : 0) {
+        $ok++;
+        $ref= $1;
+        if ($ref =~ m/^-\d+$/ && defined $clonebugs{$ref}) {
+            $ref = $clonebugs{$ref};
+        }
+        if (&getbug) {
+            &foundbug;
+            &addmaintainers($s_package);
+            $oldsubmitter= $s_originator;
+            $s_originator= $newsubmitter;
+            $action= "Changed $gBug submitter.";
+            &savebug;
+            &transcript("$action\n");
+            if (length($s_done)) {
+                &transcript("(By the way, that $gBug is currently marked as done.)\n");
+            }
+            &transcript("\n");
+            $message= <<END;
+From: $gMaintainerEmail ($gProject $gBug Tracking System)
+To: $oldsubmitter
+Subject: $gBug#$ref submitter address changed
+         ($header{'subject'})
+References: $header{'message-id'} $s_msgid
+In-Reply-To: $s_msgid
+Message-ID: <handler.$ref.$nn.newsubmitter.$midix\@$gEmailDomain>
+Reply-To: $ref\@$gEmailDomain
+
+The submitter address recorded for your $gBug report
+#$ref: $s_subject
+has been changed.
+
+The new submitter address for this report is
+$newsubmitter.
+
+This change was made by
+$replyto.
+If it was incorrect, please contact them directly.
+
+$gMaintainer
+(administrator, $gProject $gBugs database)
+
+END
+            &sendmailmessage($message,$oldsubmitter);
+        } else {
+            &notfoundbug;
+        }
     } elsif (m/^forwarded\s+\#?(-?\d+)\s+(\S.*\S)$/i) {
         $ok++;
         $ref= $1; $whereto= $2;