#!/usr/bonsaitools/bin/perl -wT # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public # License Version 1.1 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or # implied. See the License for the specific language governing # rights and limitations under the License. # # The Original Code is the Bugzilla Bug Tracking System. # # The Initial Developer of the Original Code is Netscape Communications # Corporation. Portions created by Netscape are # Copyright (C) 1998 Netscape Communications Corporation. All # Rights Reserved. # # Contributor(s): Terry Weissman # J. Paul Reed use strict; use lib qw(.); use Bugzilla::Config qw(:DEFAULT :admin); require "CGI.pl"; use vars %::MFORM; ConnectToDatabase(); confirm_login(); print "Content-type: text/html\n\n"; if (!UserInGroup("tweakparams")) { print "

Sorry, you aren't a member of the 'tweakparams' group.

\n"; print "And so, you aren't allowed to edit the parameters.\n"; PutFooter(); exit; } PutHeader("Saving new parameters"); foreach my $i (GetParamList()) { my $name = $i->{'name'}; my $value = $::FORM{$name}; if (exists $::FORM{"reset-$name"}) { $value = $i->{'default'}; } else { if ($i->{'type'} eq 'm') { # This simplifies the code below $value = \@{$::MFORM{$name}}; } else { # Get rid of windows/mac-style line endings. $value =~ s/\r\n?/\n/g; # assume single linefeed is an empty string $value =~ s/^\n$//; } } my $changed; if ($i->{'type'} eq 'm') { my @old = sort @{Param($name)}; my @new = sort @$value; if (scalar(@old) != scalar(@new)) { $changed = 1; } else { $changed = 0; # Assume not changed... for (my $cnt = 0; $cnt < scalar(@old); ++$cnt) { if ($old[$cnt] ne $new[$cnt]) { # entry is different, therefore changed $changed = 1; last; } } } } else { $changed = ($value eq Param($name) ? 0 : 1); } if ($changed) { if (exists $i->{'checker'}) { my $ok = $i->{'checker'}->($value, $i); if ($ok ne "") { print "New value for " . html_quote($name) . " is invalid: $ok

\n"; print "Please hit Back and try again.\n"; PutFooter(); exit; } } print "Changed " . html_quote($name) . "
\n"; SetParam($name, $value); } } WriteParams(); unlink "data/versioncache"; if (Param("updateshadowdb")) { print "

";
    system("./syncshadowdb", "-v");
    print "
"; } print "OK, done.

\n"; print "Edit the params some more.

\n"; print "Go back to the query page.\n"; PutFooter();