Allow editing of parameters via a web page.

1 files changed, 139 insertions, 0 deletions

diff --git a/defparams.tcl b/defparams.tcl
new file mode 100644
index 000000000..07046bc82
--- /dev/null
+++ b/defparams.tcl
@@ -0,0 +1,139 @@
+#! /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>
+
+
+# This file defines all the parameters that we have a GUI to edit within
+# Bugzilla.
+
+
+
+proc WriteParams {} {
+    global param param_list param_default
+    set tmpname "params.[id process]"
+    set fid [open $tmpname "w"]
+    foreach i $param_list {
+	if {![info exists param($i)]} {
+	    set param($i) $param_default($i)
+	}
+	puts $fid [list set param($i) $param($i)]
+    }
+    close $fid
+    frename $tmpname "params"
+    catch {chmod 0666 "params"}
+}
+    
+
+proc DefParam {id desc type default {checker {}}} {
+    global param_list param_desc param_type param_default param_checker
+    lappend param_list $id
+    set param_desc($id) $desc
+    set param_type($id) $type
+    set param_default($id) $default
+    set param_checker($id) $checker
+}
+
+
+proc check_numeric {value} {
+    if {[catch {incr value}]} {
+	return "must be a numeric value"
+    }
+    return ""
+}
+    
+
+
+set param_list {}
+
+
+
+# OK, here are the definitions themselves.
+#
+# The type of parameters (the third parameter to DefParam) can be one
+# of the following:
+#
+# t -- A short text entry field (suitable for a single line)
+# l -- A long text field (suitable for many lines)
+
+# This very first one is silly.  At some point, "superuserness" should be an
+# attribute of the person's profile entry, and not a single name like this.
+#
+# When first installing bugzilla, you need to either change this line to be
+# you, or (better) edit the initial "params" file and change the entry for
+# param(maintainer).
+
+DefParam maintainer {The email address of the person who maintains this installation of Bugzilla.} t terry@mozilla.org
+
+DefParam urlbase {The URL that is the common initial leading part of all Bugzilla URLs.} t {http://cvs-mirror.mozilla.org/webtools/bugzilla/} check_urlbase
+
+proc check_urlbase {url} {
+    if {![regexp {^http.*/$} $url]} {
+	return "must be a legal URL, that starts with http and ends with a slash."
+    }
+    return ""
+}
+
+
+DefParam whinedays {The number of days that we'll let a bug sit untouched in a NEW state before our cronjob will whine at the owner.} t 7 check_numeric
+
+
+DefParam whinemail {The email that gets sent to anyone who has a NEW bug that hasn't been touched for more than <b>whinedays</b>.  Within this text, %email% gets replaced by the offender's email address.  %<i>anythingelse</i>% gets replaced by the definition of that parameter (as defined on this page).<p> It is a good idea to make sure this message has a valid From: address, so that if the mail bounces, a real person can know that there are bugs assigned to an invalid address.} l {From: %maintainer%
+To: %email%
+Subject: Your Bugzilla buglist needs attention.
+
+[This e-mail has been automatically generated.]
+
+You have one or more bugs assigned to you in the Bugzilla 
+bugsystem (%urlbase%) that require
+attention.
+
+All of these bugs are in the NEW state, and have not been touched
+in %whinedays% days or more.  You need to take a look at them, and 
+decide on an initial action.
+
+Generally, this means one of three things:
+
+(1) You decide this bug is really quick to deal with (like, it's INVALID),
+    and so you get rid of it immediately.
+(2) You decide the bug doesn't belong to you, and you reassign it to someone
+    else.  (Hint: if you don't know who to reassign it to, make sure that
+    the Component field seems reasonable, and then use the "Reassign bug to
+    owner of selected component" option.)
+(3) You decide the bug belongs to you, but you can't solve it this moment.
+    Just use the "Accept bug" command.
+
+To get a list of all NEW bugs, you can use this URL (bookmark it if you like!):
+
+    %urlbase%buglist.cgi?bug_status=NEW&assigned_to=%email%
+
+Or, you can use the general query page, at
+%urlbase%query.cgi.
+
+Appended below are the individual URLs to get to all of your NEW bugs that 
+haven't been touched for a week or more.
+
+You will get this message once a day until you've dealt with these bugs!
+
+}
+
+
+DefParam defaultquery {This is the default query that initially comes up when you submit a bug.  It's in URL parameter format, which makes it hard to read.  Sorry!} t "bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&product=Mozilla&order=%22Importance%22"
+
+