diff options
author | gerv%gerv.net <> | 2002-05-09 06:20:22 +0000 |
---|---|---|
committer | gerv%gerv.net <> | 2002-05-09 06:20:22 +0000 |
commit | 8e1441fe627acf8a38e442f17a03e3d65032ede7 (patch) | |
tree | 7e5814e02adb389ad0b24d06c314586513e87f0e /checksetup.pl | |
parent | 74bcd6f1f81aa9d6cc06de9e22ca4922a9e36b89 (diff) | |
download | bugs-8e1441fe627acf8a38e442f17a03e3d65032ede7.tar bugs-8e1441fe627acf8a38e442f17a03e3d65032ede7.tar.gz bugs-8e1441fe627acf8a38e442f17a03e3d65032ede7.tar.bz2 bugs-8e1441fe627acf8a38e442f17a03e3d65032ede7.tar.xz bugs-8e1441fe627acf8a38e442f17a03e3d65032ede7.zip |
Bug 143040 - Tidy up remove parameters message in checksetup.pl. Patch by gerv; r=justdave, ddk.
Diffstat (limited to 'checksetup.pl')
-rwxr-xr-x | checksetup.pl | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/checksetup.pl b/checksetup.pl index 1883a5324..62386fca6 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -903,22 +903,27 @@ if (-e "data/params") { require "data/params"; require "defparams.pl"; use vars @::param_list; + my @oldparams; + open(PARAMFILE, ">>old-params.txt") || die "$0: Can't open old-params.txt for writing: $!\n"; foreach my $item (keys %::param) { if (!grep($_ eq $item, @::param_list) && $item ne "version") { - print "The $item parameter is no longer used in Bugzilla, - so it has been removed from your parameters file and - written to old-params.txt.\n"; - - print PARAMFILE "\n\n$item:\n"; - print PARAMFILE $::param{$item}; + push (@oldparams, $item); + print PARAMFILE "\n\n$item:\n$::param{$item}\n"; delete $::param{$item}; } } + if (@oldparams) { + print "The following parameters are no longer used in Bugzilla, " . + "and so have been\nremoved from your parameters file and " . + "appended to old-params.txt:\n"; + print join(", ", @oldparams) . "\n\n"; + } + close PARAMFILE; WriteParams(); } |