diff options
Diffstat (limited to 'checksetup.pl')
-rwxr-xr-x | checksetup.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/checksetup.pl b/checksetup.pl index a3aee4a7d..59d1dc14c 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -903,13 +903,23 @@ if (-e "data/params") { require "data/params"; require "defparams.pl"; use vars @::param_list; + open(PARAMFILE, ">>old-params.txt") + || die "$0: Can't open param-$item.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\n" . - "and has been removed from your parameters file.\n"; + 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}; + delete $::param{$item}; } } + + close PARAMFILE; WriteParams(); } |