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;
|
2006-07-18 21:38:13 +04:00
|
|
|
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'){
|
2006-07-18 21:38:13 +04:00
|
|
|
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);
|
2006-07-18 21:38:13 +04:00
|
|
|
$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-07-18 21:38:13 +04:00
|
|
|
|
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')) || '';
|
2006-07-18 21:38:13 +04:00
|
|
|
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);
|
|
|
|
|
2006-07-18 21:38:13 +04:00
|
|
|
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');
|
2006-07-18 21:38:13 +04:00
|
|
|
$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;
|
|
|
|
|
|
|
|
}
|
2006-07-18 21:38:13 +04:00
|
|
|
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');
|
2006-07-18 21:38:13 +04:00
|
|
|
$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());
|
|
|
|
}
|