diff options
author | gerv%gerv.net <> | 2002-05-08 11:40:33 +0000 |
---|---|---|
committer | gerv%gerv.net <> | 2002-05-08 11:40:33 +0000 |
commit | e9d127328584062a35806bdeecb3faba6527a5dd (patch) | |
tree | 0612f56623100dcc819b879bb11ef28983715679 /checksetup.pl | |
parent | 339ddd36d3f4c601d57a5e5ce201613e355a49c7 (diff) | |
download | bugs-e9d127328584062a35806bdeecb3faba6527a5dd.tar bugs-e9d127328584062a35806bdeecb3faba6527a5dd.tar.gz bugs-e9d127328584062a35806bdeecb3faba6527a5dd.tar.bz2 bugs-e9d127328584062a35806bdeecb3faba6527a5dd.tar.xz bugs-e9d127328584062a35806bdeecb3faba6527a5dd.zip |
Bug 140437 - clean up parameters. Patch by gerv; 2xr=justdave.
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(); } |