[project @ 2000-10-06 06:21:54 by doogie]

Properly populate the keywords field in .status.  Previously, it was only
storing the first word after 'keyword: '.

diff --git a/scripts/process.in b/scripts/process.in
index 9b1dd20a64cd54ecf964144d19115ba4aaf152c7..3362ac75b166207e54adc31861af2048c9716d3c 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.14 2000/10/05 21:07:42 joy Exp $
+# $Id: process.in,v 1.15 2000/10/06 06:21:54 doogie Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -91,7 +91,7 @@ if ( $msg[$i] =~ /^--/ || $msg[$i] =~ /^\s*$/ )
 
 while (defined ($msg[$i] ) )
 {
-       last if ( $msg[$i] !~ m/^([\w]+):\s*(\S+)/ );
+       last if ( $msg[$i] !~ m/^([\w]+):\s*(\S+)(.*)/ );
        $i++;
        $fn = $1; $fv = $2;
        print DEBUG ">$fn|$'|\n";
@@ -99,6 +99,7 @@ while (defined ($msg[$i] ) )
     $fn =~ y/A-Z/a-z/;
     $fv =~ y/A-Z/a-z/;
     $pheader{$fn}= $fv;
+    $pfullheader{$fn}= $2.$3;
        print DEBUG ">$fn~$fv<\n";
 }
 
@@ -426,7 +427,7 @@ END
        &finish;
     } else { $s_package= $pheader{'package'}; }
     if (defined($pheader{'keywords'})) {
-        $s_keywords= $pheader{'keywords'};
+        $s_keywords= $pfullheader{'keywords'};
     }
     $s_severity= '';
        if (defined($pheader{'severity'}) || defined($pheader{'priority'}))