pjs/webtools/litmus/process_test.cgi

#!/usr/bin/perl -w
# -*- 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 Litmus.
#
# 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): Zach Lipton <zach@zachlipton.com>

use strict;

use Litmus;
use Litmus::Error;
use Litmus::DB::Product;
use Litmus::UserAgentDetect;
use Litmus::SysConfig;
use Litmus::Auth;
use Litmus::Utils;

use CGI;
use Time::Piece::MySQL;

my $c = new CGI; 


my $user;
my $sysconfig;
if ($c->param("isSysConfig")) {
    $sysconfig = Litmus::SysConfig->processForm($c);
    my $email = $c->param("email");
    $user = Litmus::DB::User->find_or_create(email => $email);
    print $c->header(-cookie => [$sysconfig->setCookie(), Litmus::Auth::setCookie($user)]);
} else {
    print $c->header();
}

my @names = $c->param();

# find all the test numbers contained in this result submission
my @tests;
foreach my $curname (@names) {
    if ($curname =~ /testresult_(\d*)/) {
        push(@tests, $1);
    }
}

# don't get to use the simple test interface if you really 
# have more than one test (i.e. you cheated and changed the 
# hidden input)
if (scalar @tests > 1 && $c->param("isSimpleTest")) {
    invalidInputError("Cannot use simpletest interface with more than one test");
}

my $testcount;
my %resultcounts;
foreach my $curtestid (@tests) {
    unless ($c->param("testresult_".$curtestid)) {
        # user didn't submit a result for this test so just skip 
        # it and move on...
        next; 
    }
    
    my $curtest = Litmus::DB::Test->retrieve($curtestid);
    unless ($curtest) {
        # oddly enough, the test doesn't exist
        next;
    }
    
    $testcount++;
    
    my $ua = Litmus::UserAgentDetect->new();
    # for simpletest, build a temporary sysconfig based on the 
    # UA string and product of this test:
    if ($c->param("isSimpleTest")) {
        $sysconfig = Litmus::SysConfig->new(
                                $curtest->product(), 
                                $ua->platform($curtest->product()), 
                                "NULL", # no way to autodetect the opsys
                                $ua->branch($curtest->product()), 
                                $ua->buildid(),
                            );
    }
    
    # get system configuration. If there is no 
    # configuration and we're not doing the 
    # simpletest interface, then we make you enter it
    $sysconfig = $sysconfig || Litmus::SysConfig->getCookie(
        Litmus::DB::Product->retrieve($c->param("product_$curtestid")));
    if (! $sysconfig && ! $c->param("isSimpleTest")) {
        # users who don't have a sysconfig for this product
        # should go configure themselves first:
        Litmus::SysConfig->displayForm(
            Litmus::DB::Product->retrieve($c->param("product_$curtestid")), 
                "process_test.cgi", $c);
        exit;
    }
    
    my $result = Litmus::DB::Result->retrieve($c->param("testresult_".$curtestid));
    $resultcounts{$result->name()}++;
    
    my $note = $c->param("testnote_".$curtestid);
    
    my $time = localtime;
    
    # normally, the user comes with a cookie, but for simpletest
    # users, we just use the web-user@mozilla.org user:
    
    if ($c->param("isSimpleTest")) {
        $user = $user || Litmus::DB::User->search(email => 'web-tester@mozilla.org')->next();
    } else {
        $user = $user || Litmus::Auth::getCookie()->userid();
    } 
    
    my $tr = Litmus::DB::Testresult->create({
        user      => $user,
        testid    => $curtest,
        timestamp => $time,
        useragent => $ua,
        result    => $result,
        platform  => $sysconfig->platform(),
        opsys     => $sysconfig->opsys(),
        branch    => $sysconfig->branch(),
        buildid   => $sysconfig->buildid(),
    });
    
    # if there's a note, create an entry in the comments table for it
    Litmus::DB::Comment->create({
    	testresult      => $tr,
    	submission_time => $time,
    	user			=> $user,
    	comment			=> $note
    });
}

# process changes to testcases:
my @changed;
if ($c->param("editingTestcases") && Litmus::Auth::canEdit(Litmus::Auth::getCookie())) {
    # only users with canedit can edit testcases, duh!
    
    # the editingTestcases param contains a comma-separated list of 
    # testids that the user has made changes to (well, has clicked 
    # the edit button for). 
    @changed = split(',' => $c->param("editingTestcases"));
    foreach my $editid (@changed) {
        my $edittest = Litmus::DB::Test->retrieve($editid);
        if (! $edittest) {invalidInputError("Test $editid does not exist")}
        
        $edittest->summary($c->param("summary_edit_$editid"));
        if ($c->param("communityenabled_$editid")) {
            $edittest->communityenabled(1);
        } else {
            $edittest->communityenabled(0);
        }
        my $product = Litmus::DB::Product->retrieve($c->param("product_$editid"));
        my $group = Litmus::DB::Testgroup->retrieve($c->param("testgroup_$editid"));
        my $subgroup = Litmus::DB::Subgroup->retrieve($c->param("subgroup_$editid"));
        requireField("product", $product);
        requireField("group", $group);
        requireField("subgroup", $subgroup);
        $edittest->product($product);
        $edittest->testgroup($group);
        $edittest->subgroup($subgroup);
        
        # now set the format fields: 
        my $format = $edittest->format();
        foreach my $curfield ($format->fields()) {
            warn($curfield."_edit_editid");
            $edittest->set($format->getColumnMapping($curfield), 
                           $c->param($curfield."_edit_$editid"));
        }

        
        $edittest->update();
    }
} elsif ($c->param("editingTestcases") && 
    ! Litmus::Auth::canEdit(Litmus::Auth::getCookie())) {
        invalidInputError("You do not have permissions to edit testcases. ");
}

my $testgroup;
if ($c->param("testgroup")) {
    $testgroup = Litmus::DB::Testgroup->retrieve($c->param("testgroup")),
} 

# show the normal thank you page unless we're in simpletest mode where 
# we should show a special page:
if ($c->param("isSimpleTest")) {
    Litmus->template()->process("simpletest/resultssubmitted.html.tmpl") ||
        internalError(Litmus->template()->error());    
} else {
    my $vars = {
        testcount => $testcount,
        product   => $c->param("product") || undef,
        resultcounts => \%resultcounts || undef,
        changedlist => \@changed || undef,
        testgroup => $testgroup || undef,
        "return" => $c->param("return") || undef,
    };
    Litmus->template()->process("process/process.html.tmpl", $vars) ||
        internalError(Litmus->template()->error());    
}