diff options
Diffstat (limited to 'scripts/update_localconfig.pl')
| -rwxr-xr-x | scripts/update_localconfig.pl | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/scripts/update_localconfig.pl b/scripts/update_localconfig.pl index ca3329022..8ced925d5 100755 --- a/scripts/update_localconfig.pl +++ b/scripts/update_localconfig.pl @@ -21,25 +21,27 @@ use File::Slurp; Bugzilla->usage_mode(USAGE_MODE_CMDLINE); -my $localconfig = Bugzilla::Install::Localconfig::read_localconfig(); +my $localconfig = Bugzilla::Install::Localconfig::read_localconfig(); my ($param_name, $param_value) = @ARGV; die "Syntax: $0 param_name param_value\n" unless defined($param_value); -die "Invalid param name: $param_name\n" unless exists $localconfig->{$param_name}; +die "Invalid param name: $param_name\n" + unless exists $localconfig->{$param_name}; if ($localconfig->{$param_name} ne $param_value) { - my @file = read_file('localconfig'); - my $updated = 0; - foreach my $line (@file) { - next unless $line =~ /^\s*\$([\w_]+)\s*=\s*'([^']*)'/; - my ($name, $value) = ($1, $2); - if ($name eq $param_name && $value ne $param_value) { - print "setting '$name' to '$param_value'\n"; - $line = "\$$name = '$param_value';\n"; - $updated = 1; - } + my @file = read_file('localconfig'); + my $updated = 0; + foreach my $line (@file) { + next unless $line =~ /^\s*\$([\w_]+)\s*=\s*'([^']*)'/; + my ($name, $value) = ($1, $2); + if ($name eq $param_name && $value ne $param_value) { + print "setting '$name' to '$param_value'\n"; + $line = "\$$name = '$param_value';\n"; + $updated = 1; } - write_file('localconfig', @file) if $updated; -} else { - print "'$param_name' is already '$param_value'\n"; + } + write_file('localconfig', @file) if $updated; +} +else { + print "'$param_name' is already '$param_value'\n"; } |