[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

diff --git a/scripts/service.in b/scripts/service.in
index a00ff027d9c9fb464dd2d0b3c524509d277a9d38..37fe70495dcbf0a63ce6ea6a7ba6f8c306c32081 100755 (executable)
--- 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");
 }