Allow editing of parameters via a web page.

1 files changed, 71 insertions, 0 deletions

diff --git a/editparams.cgi b/editparams.cgi
new file mode 100755
index 000000000..a0a400419
--- /dev/null
+++ b/editparams.cgi
@@ -0,0 +1,71 @@
+#! /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 <terry@mozilla.org>
+
+
+source "CGI.tcl"
+source "defparams.tcl"
+
+confirm_login
+
+puts "Content-type: text/html\n"
+
+if {![cequal [Param "maintainer"] $COOKIE(Bugzilla_login)]} {
+    puts "<H1>Sorry, you aren't the maintainer of this system.</H1>"
+    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 "<p>"
+puts "Any item you check Reset on will get reset to its default value."
+
+puts "<form method=get action=doeditparams.cgi><table>"
+
+set rowbreak "<tr><td colspan=2><hr></td></tr>"
+puts $rowbreak
+
+foreach i $param_list {
+    puts "<tr><th align=right valign=top>$i:</th><td>$param_desc($i)</td></tr>"
+    puts "<tr><td valign=top><input type=checkbox name=reset-$i>Reset</td><td>"
+    set value [Param $i]
+    switch $param_type($i) {
+	t {
+	    puts "<input size=80 name=$i value=\"[value_quote $value]\">"
+	}
+	l {
+	    puts "<textarea wrap=hard name=$i rows=10 cols=80>[value_quote $value]</textarea>"
+	}
+    }
+    puts "</td></tr>"
+    puts $rowbreak
+}
+
+puts "</table>"
+
+puts "<input type=reset value=\"Reset form\"><br>"
+puts "<input type=submit value=\"Submit changes\">"
+
+puts "</form>"
+
+puts "<p><a href=query.cgi>Skip all this, and go back to the query page</a>"