aboutsummaryrefslogtreecommitdiffstats
path: root/editparams.cgi
diff options
context:
space:
mode:
authorterry%netscape.com <>1998-09-01 11:21:44 +0000
committerterry%netscape.com <>1998-09-01 11:21:44 +0000
commit7fa78eee115a50354911bc11bc8047c2e4b7d4ca (patch)
tree6df662bacb2b57f96b2804289bbaa1a0154dff40 /editparams.cgi
parentfa3443b1e248960d9182d03f412fbcb229c9ae3d (diff)
downloadbugs-7fa78eee115a50354911bc11bc8047c2e4b7d4ca.tar
bugs-7fa78eee115a50354911bc11bc8047c2e4b7d4ca.tar.gz
bugs-7fa78eee115a50354911bc11bc8047c2e4b7d4ca.tar.bz2
bugs-7fa78eee115a50354911bc11bc8047c2e4b7d4ca.tar.xz
bugs-7fa78eee115a50354911bc11bc8047c2e4b7d4ca.zip
Allow editing of parameters via a web page.
Diffstat (limited to 'editparams.cgi')
-rwxr-xr-xeditparams.cgi71
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>"