pjs/webtools/testopia/tr_show_plan.cgi

352 строки
12 KiB
Plaintext
Исходник Обычный вид История

2006-06-13 19:09:54 +04:00
#!/usr/bin/perl -wT
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (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 Test Runner System.
#
# The Initial Developer of the Original Code is Maciej Maczynski.
# Portions created by Maciej Maczynski are Copyright (C) 2001
# Maciej Maczynski. All Rights Reserved.
#
# Contributor(s): Maciej Maczynski <macmac@xdsnet.pl>
# Ed Fuentetaja <efuentetaja@acm.org>
# Greg Hendricks <ghendricks@novell.com>
use strict;
use lib ".";
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Util;
use Bugzilla::Testopia::Util;
use Bugzilla::Testopia::Table;
use Bugzilla::Testopia::TestPlan;
use Bugzilla::Testopia::Category;
use Bugzilla::Testopia::Attachment;
use Bugzilla::Testopia::Search;
use Bugzilla::Testopia::Table;
require "globals.pl";
use vars qw($template $vars);
2006-07-29 02:32:36 +04:00
my $template = Bugzilla->template;
2006-06-13 19:09:54 +04:00
Bugzilla->login();
print Bugzilla->cgi->header();
my $dbh = Bugzilla->dbh;
my $cgi = Bugzilla->cgi;
my $plan_id = trim(Bugzilla->cgi->param('plan_id') || '');
unless ($plan_id){
$vars->{'form_action'} = 'tr_show_plan.cgi';
$template->process("testopia/plan/choose.html.tmpl", $vars)
|| ThrowTemplateError($template->error());
exit;
}
validate_test_id($plan_id, 'plan');
push @{$::vars->{'style_urls'}}, 'testopia/css/default.css';
my $action = $cgi->param('action') || '';
$vars->{'action'} = "Commit";
$vars->{'form_action'} = "tr_show_plan.cgi";
####################
### Edit Actions ###
####################
### Archive or Unarchive ###
if ($action eq 'Archive' || $action eq 'Unarchive'){
Bugzilla->login(LOGIN_REQUIRED);
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-read-only", {'object' => 'plan'}) unless $plan->canedit;
do_update($plan);
$vars->{'plan'} = $plan;
$plan->toggle_archive(Bugzilla->user->id);
$vars->{'tr_message'} =
$plan->isactive == 0 ? "Plan archived":"Plan Unarchived";
display($plan);
}
#############
### Clone ###
#############
elsif ($action eq 'Clone'){
Bugzilla->login(LOGIN_REQUIRED);
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-read-only", {'object' => 'plan'}) unless $plan->canedit;
do_update($plan);
$vars->{'plan'} = $plan;
$template->process("testopia/plan/clone.html.tmpl", $vars)
|| ThrowTemplateError($template->error());
}
elsif ($action eq 'do_clone'){
Bugzilla->login(LOGIN_REQUIRED);
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-read-only", {'object' => 'plan'}) unless $plan->canedit;
my $plan_name = $cgi->param('plan_name');
# All DB actions use place holders so we are OK doing this
trick_taint($plan_name);
my $newplanid = $plan->clone($plan_name, $cgi->param('copy_doc'));
my $newplan = Bugzilla::Testopia::TestPlan->new($newplanid);
if($cgi->param('copy_tags')){
foreach my $tag (@{$plan->tags}){
my $newtag = Bugzilla::Testopia::TestTag->new({
tag_name => $tag->name
});
my $newtagid = $newtag->store;
$newplan->add_tag($newtagid);
}
}
if ($cgi->param('copy_cases')){
my @caseids;
#TODO: Copy case to the new category
foreach my $id ($cgi->param('clone_categories')){
my $cat = Bugzilla::Testopia::Category->new($id);
push @caseids, @{$cat->case_ids};
}
foreach my $case (@{$plan->test_cases}){
if (lsearch(\@caseids, $case->category->id)){
if ($cgi->param('copy_cases') == 2 ){
my $caseid = $case->copy($newplan->id, 1);
$case->link_plan($newplan->id, $caseid);
}
else {
$case->link_plan($newplan->id);
}
}
}
}
$vars->{'tr_message'} = "Plan ". $plan->name ." cloned as " . $newplan->name .".";
$cgi->param('plan_id', $newplan->id);
display($newplan);
}
### Changes to Plan Attributes or Doc ###
elsif ($action eq 'Commit'){
Bugzilla->login(LOGIN_REQUIRED);
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-read-only", {'object' => 'plan'}) unless $plan->canedit;
do_update($plan);
$vars->{'tr_message'} = "Test plan updated";
display($plan);
}
elsif ($action eq 'Print'){
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-permission-denied", {'object' => 'plan'}) unless $plan->canview;
$vars->{'plan'} = $plan;
$template->process("testopia/plan/show-document.html.tmpl", $vars)
|| ThrowTemplateError($template->error());
}
elsif ($action eq 'History'){
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-permission-denied", {'object' => 'plan'}) unless $plan->canview;
$vars->{'plan'} = $plan;
$vars->{'diff'} = $plan->diff_plan_doc($cgi->param('new'),$cgi->param('old'));
$vars->{'new'} = $cgi->param('new');
$vars->{'old'} = $cgi->param('old');
$template->process("testopia/plan/history.html.tmpl", $vars)
|| ThrowTemplateError($template->error());
}
#######################
### Add attachments ###
#######################
elsif ($action eq 'Attach'){
Bugzilla->login(LOGIN_REQUIRED);
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-read-only", {'object' => 'plan'}) unless $plan->canedit;
defined $cgi->upload('data')
|| ThrowUserError("file_not_specified");
my $filename = $cgi->upload('data');
$cgi->param('description')
|| ThrowUserError("missing_attachment_description");
my $description = $cgi->param('description');
my $contenttype = $cgi->uploadInfo($cgi->param('data'))->{'Content-Type'};
trick_taint($description);
#trick_taint($contenttype);
my $fh = $cgi->upload('data');
my $data;
# enable 'slurp' mode
local $/;
$data = <$fh>;
$data || ThrowUserError("zero_length_file");
my $attachment = Bugzilla::Testopia::Attachment->new({
plan_id => $plan_id,
submitter_id => Bugzilla->user->id,
description => $description,
filename => $filename,
mime_type => $contenttype,
contents => $data
});
$attachment->store;
$vars->{'tr_message'} = "Attachment added successfully";
do_update($plan);
display(Bugzilla::Testopia::TestPlan->new($plan_id));
}
#TODO: Import plans
elsif ($action eq 'import'){
}
####################
### Ajax Actions ###
####################
elsif ($action eq 'getversions'){
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-permission-denied", {'object' => 'plan'}) unless $plan->canview;
my $prod_id = $cgi->param("product_id");
detaint_natural($prod_id);
my $versions = $plan->get_product_versions($prod_id);
2006-06-13 19:09:54 +04:00
my $ret;
if ($cgi->param("product_id") == -1){
# For update multiple from tr_list_plans
$ret = "--Do Not Change--";
}
else{
foreach my $v (@{$versions}){
$ret .= $v->{'id'} . "|";
}
chop($ret);
}
print $ret;
}
elsif ($action eq 'caselist'){
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-permission-denied", {'object' => 'plan'}) unless $plan->canview;
2006-06-13 19:09:54 +04:00
my $table = Bugzilla::Testopia::Table->new('case', 'tr_list_cases.cgi', $cgi, $plan->test_cases);
$table->{'ajax'} = 1;
$vars->{'table'} = $table;
2006-06-13 19:09:54 +04:00
$template->process("testopia/case/table.html.tmpl", $vars)
|| ThrowTemplateError($template->error());
2006-06-13 19:09:54 +04:00
}
####################
### Just show it ###
####################
else{
my $plan = Bugzilla::Testopia::TestPlan->new($plan_id);
ThrowUserError("testopia-permission-denied", {'object' => 'plan'}) unless $plan->canview;
display($plan);
}
###################
### Helper Subs ###
###################
sub do_update {
my ($plan) = @_;
my $newdoc = $cgi->param("plandoc");
my $plan_name = trim($cgi->param('plan_name')) || '';
my $product = $cgi->param('product_id') || '';
2006-06-13 19:09:54 +04:00
my $prodver = $cgi->param('prod_version') || '';
my $type = $cgi->param('type');
ThrowUserError('testopia-missing-required-field',
{'field' => 'name'}) if ($plan_name eq '');
ThrowUserError('testopia-missing-required-field',
{'field' => 'product'}) if ($product eq '');
ThrowUserError('testopia-missing-required-field',
{'field' => 'product version'}) if ($prodver eq '');
trick_taint($plan_name);
trick_taint($prodver);
detaint_natural($product);
detaint_natural($type);
validate_selection($type, 'type_id', 'test_plan_types');
#TODO: 2.22 use Bugzilla::Product
validate_selection($product, 'id', 'products');
my $check = validate_version($prodver, $plan->product_id);
if ($check ne '1'){
$vars->{'tr_error'} = "Version mismatch. Please update the product version";
$prodver = $check;
}
if($plan->diff_plan_doc($newdoc) ne ''){
$plan->store_text($plan->id, Bugzilla->user->id, $newdoc);
}
my %newvalues = (
'name' => $plan_name,
'product_id' => $product,
'default_product_version' => $prodver,
'type_id' => $type
);
$plan->update(\%newvalues);
$cgi->delete_all;
$cgi->param('plan_id', $plan->id);
}
sub display {
my $plan = shift;
my $casequery = new Bugzilla::CGI($cgi);
my $runquery = new Bugzilla::CGI($cgi);
if (($cgi->param('order') || $cgi->param('page') || $cgi->param('viewall')) && $cgi->param('current_tab') eq 'case'){
2006-06-13 19:09:54 +04:00
my $search = Bugzilla::Testopia::Search->new($cgi);
my $table = Bugzilla::Testopia::Table->new('case', 'tr_show_plan.cgi', $cgi, undef, $search->query);
$vars->{'case_table'} = $table;
$runquery->delete('order');
$runquery->delete('page');
$runquery->delete('viewall');
2006-06-13 19:09:54 +04:00
$runquery->param('current_tab', 'run');
$search = Bugzilla::Testopia::Search->new($runquery);
$table = Bugzilla::Testopia::Table->new('run', 'tr_show_plan.cgi', $runquery, undef, $search->query);
$vars->{'run_table'} = $table;
}
elsif (($cgi->param('order') || $cgi->param('page') || $cgi->param('viewall')) && $cgi->param('current_tab') eq 'run'){
2006-06-13 19:09:54 +04:00
my $search = Bugzilla::Testopia::Search->new($cgi);
my $table = Bugzilla::Testopia::Table->new('run', 'tr_show_plan.cgi', $cgi, undef, $search->query);
$vars->{'run_table'} = $table;
$casequery->delete('order');
$casequery->delete('page');
$casequery->delete('viewall');
2006-06-13 19:09:54 +04:00
$casequery->param('current_tab', 'case');
$search = Bugzilla::Testopia::Search->new($casequery);
$table = Bugzilla::Testopia::Table->new('case', 'tr_show_plan.cgi', $casequery, undef, $search->query);
$vars->{'case_table'} = $table;
}
else {
$casequery->param('current_tab', 'case');
my $search = Bugzilla::Testopia::Search->new($casequery);
my $table = Bugzilla::Testopia::Table->new('case', 'tr_show_plan.cgi', $casequery, undef, $search->query);
$vars->{'case_table'} = $table;
$runquery->param('current_tab', 'run');
$search = Bugzilla::Testopia::Search->new($runquery);
$table = Bugzilla::Testopia::Table->new('run', 'tr_show_plan.cgi', $runquery, undef, $search->query);
$vars->{'run_table'} = $table;
}
$vars->{'plan'} = $plan;
$template->process("testopia/plan/show.html.tmpl", $vars) ||
ThrowTemplateError($template->error());
}