From: joy <>
Date: Sat, 7 Oct 2000 05:49:57 +0000 (-0800)
Subject: [project @ 2000-10-06 22:49:57 by joy]
X-Git-Tag: release/2.6.0~1239
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=75e40cf10185c8b7d69ee0e01727655a2965250f;p=debbugs.git

[project @ 2000-10-06 22:49:57 by joy]
handle case where Reply-To: header exists but contains only whitespace or nothing
---

diff --git a/scripts/service.in b/scripts/service.in
index 931cc283..87576fe1 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.17 2000/10/06 20:31:46 joy Exp $
+# $Id: service.in,v 1.18 2000/10/06 22:49:57 joy Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -55,7 +55,12 @@ for ($i=0; $i<=$#msg; $i++)
 }
 
 defined($header{'from'}) || &quit("no From header");
-$replyto= defined($header{'reply-to'}) ? $header{'reply-to'} : $header{'from'};
+delete $header{'reply-to'} if ( defined($header{'reply-to'}) && $header{'reply-to'} =~ m/^\s*$/ );
+if ( defined($header{'reply-to'}) && $header{'reply-to'} ne "" ) {
+    $replyto = $header{'reply-to'};
+} else {
+    $replyto = $header{'from'};
+}
 
 $controlrequestaddr= $control ? "control\@$gEmailDomain" : "request\@$gEmailDomain";
 $transcript='';