"regenerate" was busted.

6f9e2eb8 · terry%netscape.com · 5517743f · 6f9e2eb8
Commit 6f9e2eb8 authored Mar 04, 1999 by terry%netscape.com
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

processmail processmail +3 -2

No files found.
--- a/processmail
+++ b/processmail
@@ -222,14 +222,15 @@ if (open(FID, "<data/nomail")) {

 my $regenerate = 0;

-if (($#ARGV >= 1) && ($ARGV[0] eq "regenerate")) {
+if ($ARGV[0] eq "regenerate") {
    $regenerate = 1;
-    $#ARGV = -1;
+    shift @ARGV;
    SendSQL("select bug_id from bugs order by bug_id");
    my @row;
    while (@row = FetchSQLData()) {
        push @ARGV, $row[0];
    }
+    print "$#ARGV bugs to be regenerated.\n";
 }

 foreach my $i (@ARGV) {