#! /usr/bonsaitools/bin/mysqltcl # -*- Mode: tcl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public License # Version 1.0 (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 source "CGI.tcl" source "defparams.tcl" confirm_login puts "Content-type: text/html\n" if {![cequal [Param "maintainer"] $COOKIE(Bugzilla_login)]} { puts "

Sorry, you aren't the maintainer of this system.

" puts "And so, you aren't allowed to edit the parameters of it." exit } PutHeader "Edit parameters" "Edit parameters" puts "This lets you edit the basic operating parameters of bugzilla. Be careful!" puts "

" puts "Any item you check Reset on will get reset to its default value." puts "

" set rowbreak "" puts $rowbreak foreach i $param_list { puts "" puts "" puts $rowbreak } puts "

$i:$param_desc($i)
Reset" set value [Param $i] switch $param_type($i) { t { puts "" } l { puts "" } } puts "
" puts "
" puts "" puts "
" puts "

Skip all this, and go back to the query page"