#!/usr/bonsaitools/bin/perl -w # -*- 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 use diagnostics; use strict; require "CGI.pl"; require "defparams.pl"; # Shut up misguided -w warnings about "used only once": use vars %::param, %::param_default, @::param_list; 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", undef, undef, undef, 1); foreach my $i (@::param_list) { # print "Processing $i...
\n"; if (exists $::FORM{"reset-$i"}) { $::FORM{$i} = $::param_default{$i}; } $::FORM{$i} =~ s/\r\n/\n/g; # Get rid of windows-style line endings. $::FORM{$i} =~ s/^\n$//; # assume single linefeed is an empty string if ($::FORM{$i} ne Param($i)) { if (defined $::param_checker{$i}) { my $ref = $::param_checker{$i}; my $ok = &$ref($::FORM{$i}); if ($ok ne "") { print "New value for $i is invalid: $ok

\n"; print "Please hit Back and try again.\n"; PutFooter(); exit; } } print "Changed $i.
\n"; # print "Old: '" . url_quote(Param($i)) . "'
\n"; # print "New: '" . url_quote($::FORM{$i}) . "'
\n"; $::param{$i} = $::FORM{$i}; # If the useqacontact Param is changing, update the mailheader if ($i eq 'useqacontact') { print "   - Updating mailhead information
\n"; SendSQL("UPDATE fielddefs SET mailhead = " . SqlQuote($::param{$i}) . "WHERE name = 'qa_contact'"); } } } WriteParams(); unlink "data/versioncache"; 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();