From d362ebc1d938b783e70d63c7e26c4a30e24be464 Mon Sep 17 00:00:00 2001
From: joy <>
Date: Sat, 14 Oct 2000 10:30:35 -0800
Subject: [PATCH] [project @ 2000-10-14 11:30:35 by joy] empty reasonstring
 variable if it's undefined, to quiet perl warning messages; removed unused
 wwwbase variable

---
 scripts/service.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/service.in b/scripts/service.in
index a00ff027..37fe7049 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.22 2000/10/10 21:44:01 joy Exp $
+# $Id: service.in,v 1.23 2000/10/14 11:30:35 joy Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -12,7 +12,6 @@ chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 # open(DEBUG,">&4");
 $debug = 0;
-$wwwbase= "$gWebDir";
 
 $_=shift;
 m/^[RC]\.\d+$/ || &quit("bad argument");
@@ -502,6 +501,7 @@ for $maint (keys %maintccreasons) {
         $reasonstring.= $p.' ' if length($p);
         $reasonstring.= join(' ',map("#$_",sort keys %{$$reasonsref{$p}}));
     }
+    $reasonstring = "" if undefined($reasonstring);
     push(@maintccs,"$maint ($reasonstring)");
     push(@maintccaddrs,"$maint");
 }
-- 
2.39.5