From d3a09e475d68f3cd305505b7514309f05e8d486f Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Fri, 29 Jul 2005 16:16:56 -0800
Subject: [PATCH] [project @ 2005-07-29 17:16:56 by cjwatson] Implement
 'notfound' command, to fix up mistakes in found version lists.

---
 html/server-control.html.in | 10 ++++++++++
 html/server-refcard.html.in |  1 +
 scripts/service.in          | 16 +++++++++++++++-
 3 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/html/server-control.html.in b/html/server-control.html.in
index 2683d8a..d46c267 100644
--- 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 3fcd49b..082e195 100644
--- 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 af361b0..292e20f 100755
--- 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++;
-- 
2.39.2