[project @ 2005-07-29 17:16:56 by cjwatson]

Implement 'notfound' command, to fix up mistakes in found version lists.

diff --git a/html/server-control.html.in b/html/server-control.html.in
index 2683d8a536133a28ab9657b44081f4a67cdac750..d46c2670d0a530ad727a185acbcb9f4e923ace27 100644 (file)
--- a/html/server-control.html.in
+++ b/html/server-control.html.in
@@ -95,6 +95,16 @@ mailservers is available via the WWW, in
   because it was difficult to add a <var>version</var> to that command's
   syntax without suffering ambiguity.
 
+<dt><code>notfound</code> <var>bugnumber</var> <var>version</var>
+
+  <dd>Remove the record that #<var>bugnumber</var> was encountered in the
+  given <var>version</var> of the package to which it is assigned.
+
+  <p>This differs from closing the $gBug at that version in that the $gBug
+  is not listed as fixed in that version either; no information about that
+  version will be known. It is intended for fixing mistakes in the record of
+  when a $gBug was found.
+
 <dt><code>submitter</code> <var>bugnumber</var>
 <var>originator-address</var> | <code>!</code>
 

diff --git a/html/server-refcard.html.in b/html/server-refcard.html.in
index 3fcd49bbc037144eabc0f9374d1ef5925d91ffbf..082e19570ea843429ad486e32fd246dc512df67e 100644 (file)
--- a/html/server-refcard.html.in
+++ b/html/server-refcard.html.in
@@ -62,6 +62,7 @@ sending the word <code>help</code> to each mailserver.
   <li><code>reopen</code> <var>bugnumber</var>
       [ <var>originator-address</var> | <code>=</code> | <code>!</code> ]
   <li><code>found</code> <var>bugnumber</var> [ <var>version</var> ]
+  <li><code>notfound</code> <var>bugnumber</var> <var>version</var>
   <li><code>submitter</code> <var>bugnumber</var>
       <var>originator-address</var> | <code>!</code>
   <li><code>forwarded</code> <var>bugnumber</var> <var>address</var>

diff --git a/scripts/service.in b/scripts/service.in
index af361b0a23e528ebea358b75b2df2b96875395a4..292e20faac0ebb2bcc8a79dcb31368c542714552 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.108 2005/07/29 04:34:11 don Exp $
+# $Id: service.in,v 1.109 2005/07/29 17:16:56 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -392,6 +392,20 @@ END
                 } while (&getnextbug);
             }
         }
+    } elsif (m/^notfound\s+\#?(-?\d+)\s+(\d.*)$/i) {
+        $ok++;
+        $ref= $1;
+        $version= $2;
+        if (&setbug) {
+            $action= "$gBug marked as not found in version $version.";
+            if (length($data->{done})) {
+                $extramessage= "(By the way, this $gBug is currently marked as done.)\n";
+            }
+            do {
+                &addmaintainers($data);
+                removefoundversions($data, $data->{package}, $version, 'binary');
+            } 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++;