#!/usr/bonsaitools/bin/perl -w # -*- Mode: perl; 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): Sam Ziegler # Terry Weissman # Code derived from editparams.cgi, editowners.cgi use diagnostics; use strict; require "CGI.pl"; # Shut up misguided -w warnings about "used only once": use vars @::legal_product; confirm_login(); print "Content-type: text/html\n\n"; if (!UserInGroup("editcomponents")) { print "

Sorry, you aren't a member of the 'editcomponents' group.

\n"; print "And so, you aren't allowed to edit the owners.\n"; exit; } PutHeader("Edit Components"); print "This lets you edit the program components of bugzilla.\n"; print "
\n"; my $rowbreak = "
"; unlink "data/versioncache"; GetVersionTable(); my $prodcode = "P0"; foreach my $product (@::legal_product) { SendSQL("select description, milestoneurl, disallownew from products where product='$product'"); my @row = FetchSQLData(); if (!@row) { next; } my ($description, $milestoneurl, $disallownew) = (@row); $prodcode++; print "\n"; print "\n"; print "\n"; print "\n"; if (Param('usetargetmilestone')) { print "\n"; print "\n"; } my $check0 = !$disallownew ? " SELECTED" : ""; my $check1 = $disallownew ? " SELECTED" : ""; print "\n"; print "
$product
Description:
MilestoneURL:
Components:
\n"; print "\n"; SendSQL("select value, initialowner, initialqacontact, description from components where program=" . SqlQuote($product) . " order by value"); my $c = 0; while (my @row = FetchSQLData()) { my ($component, $initialowner, $initialqacontact, $description) = (@row); $c++; my $compcode = $prodcode . "-" . "C$c"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if (Param('useqacontact')) { print "\n"; print "\n"; } } print "
$componentDescription:
Initial owner:
Initial QA contact:

\n"; } print "\n"; print "
\n"; print "

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