Commit 8e1441fe authored by gerv%gerv.net's avatar gerv%gerv.net

Bug 143040 - Tidy up remove parameters message in checksetup.pl. Patch by gerv; r=justdave, ddk.

parent 74bcd6f1
...@@ -903,22 +903,27 @@ if (-e "data/params") { ...@@ -903,22 +903,27 @@ if (-e "data/params") {
require "data/params"; require "data/params";
require "defparams.pl"; require "defparams.pl";
use vars @::param_list; use vars @::param_list;
my @oldparams;
open(PARAMFILE, ">>old-params.txt") open(PARAMFILE, ">>old-params.txt")
|| die "$0: Can't open old-params.txt for writing: $!\n"; || die "$0: Can't open old-params.txt for writing: $!\n";
foreach my $item (keys %::param) { foreach my $item (keys %::param) {
if (!grep($_ eq $item, @::param_list) && $item ne "version") { if (!grep($_ eq $item, @::param_list) && $item ne "version") {
print "The $item parameter is no longer used in Bugzilla, push (@oldparams, $item);
so it has been removed from your parameters file and print PARAMFILE "\n\n$item:\n$::param{$item}\n";
written to old-params.txt.\n";
print PARAMFILE "\n\n$item:\n";
print PARAMFILE $::param{$item};
delete $::param{$item}; 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; close PARAMFILE;
WriteParams(); WriteParams();
} }
......
...@@ -54,16 +54,7 @@ sub WriteParams { ...@@ -54,16 +54,7 @@ sub WriteParams {
} }
} }
} }
# If Bugzilla has been upgraded since the last time parameters were edited,
# and some parameters have been removed in the new version of Bugzilla,
# remove them from the parameters file.
foreach my $item (keys %::param) {
if (!grep($_ eq $item, @::param_list) && $item ne "version") {
print "The <em>$item</em> parameter is no longer used in Bugzilla
and has been removed from your parameters file.<br>";
delete $::param{$item};
}
}
my $tmpname = "data/params.$$"; my $tmpname = "data/params.$$";
open(FID, ">$tmpname") || die "Can't create $tmpname"; open(FID, ">$tmpname") || die "Can't create $tmpname";
my $v = $::param{'version'}; my $v = $::param{'version'};
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment