From 7fa78eee115a50354911bc11bc8047c2e4b7d4ca Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Tue, 1 Sep 1998 11:21:44 +0000 Subject: Allow editing of parameters via a web page. --- defparams.tcl | 139 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 139 insertions(+) create mode 100644 defparams.tcl (limited to 'defparams.tcl') 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 + + +# 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 whinedays. Within this text, %email% gets replaced by the offender's email address. %anythingelse% gets replaced by the definition of that parameter (as defined on this page).

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" + + -- cgit v1.2.3-24-g4f1b