[project @ 1999-09-16 07:16:47 by gecko]

[debbugs.git] / scripts / service.in

diff --git a/scripts/service.in b/scripts/service.in
index 4a82a51c55e4bd7614ed3615919a6b42cc1c587a..28a4f785a87e49b28b6daad47b0c2903f8e4798f 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.3 1999/09/14 02:08:31 gecko Exp $
+# $Id: service.in,v 1.4 1999/09/16 07:16:47 gecko Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -72,6 +72,15 @@ $mergelowstate= 'idle';
 $midix=0;    
 $extras="";
 
+while ( $i <= $#msg && !length( $msg[$i] ) ) { $fwd .= "\n"; $i++; }
+
+if ( $msg[$i] =~ /^--/ || $msg[$i] =~ /^\s*$/ )
+{
+       while ( $i <= $#msg && length( $msg[$i] ) ) { $fwd .= $msg[$i]; $i++; }
+       while ( $i <= $#msg && !length( $msg[$i] ) ) { $fwd .= "\n"; $i++; }
+}      
+
+
 for ($procline=$i; $procline<=$#msg; $procline++) {
     $state eq 'idle' || "$state ?";
     $lowstate eq 'idle' || "$lowstate ?";