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

[debbugs.git] / scripts / service.in

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++;