pjs/webtools/litmus/single_result.cgi

128 строки
3.3 KiB
Perl
Executable File

#!/usr/bin/perl -w
# -*- mode: cperl; c-basic-offset: 8; indent-tabs-mode: nil; -*-
# ***** BEGIN LICENSE BLOCK *****
# Version: MPL 1.1
#
# 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 Litmus.
#
# The Initial Developer of the Original Code is
# the Mozilla Corporation.
# Portions created by the Initial Developer are Copyright (C) 2005
# the Initial Developer. All Rights Reserved.
#
# Contributor(s):
# Chris Cooper <ccooper@deadsquid.com>
# Zach Lipton <zach@zachlipton.com>
#
# ***** END LICENSE BLOCK *****
use strict;
# Litmus homepage
use Litmus;
use Litmus::Auth;
use Litmus::Error;
use Litmus::DB::Testresult;
use Litmus::DB::Resultbug;
use CGI;
use Date::Manip;
my $c = new CGI;
print $c->header();
if ($c->param && $c->param('id')) {
my $result = Litmus::DB::Testresult->retrieve($c->param('id'));
if (!$result) {
internalError("There is no test result corresponding to id#: " . $c->param('id') . ".");
exit 1;
}
my $time = &Date::Manip::UnixDate("now","%q");
my $cookie = Litmus::Auth::getCookie();
my $user;
if ($cookie) {
$user = $cookie->userid();
if ($user and
$c->param('new_bugs') and
$c->param('new_bugs') ne '') {
my @new_bugs = split(/,/,$c->param('new_bugs'));
foreach my $new_bug (@new_bugs) {
if (!Litmus::DB::Resultbug->search(test_result_id =>$c->param('id'),
bug_id => $new_bug)) {
my $bug = Litmus::DB::Resultbug->create({
testresult => $result,
last_updated => $time,
submission_time => $time,
user => $user,
bug_id => $new_bug,
});
}
}
}
if ($user and
$c->param('new_comment') and
$c->param('new_comment') ne '') {
my $comment = Litmus::DB::Comment->create({
testresult => $result,
last_updated => $time,
submission_time => $time,
user => $user,
comment => $c->param('new_comment'),
});
}
}
my $title = 'Test Result #' . $c->param('id') . ' - Details';
my $vars = {
title => $title,
result => $result,
};
$vars->{"defaultemail"} = Litmus::Auth::getCookie();
Litmus->template()->process("reporting/single_result.tmpl", $vars) ||
internalError("Error loading template.");
} else {
internalError("You must provide a test result id#.");
exit 1;
}
exit 0;