#!/usr/bin/perl
#---------------------------------------------------------------------------------------------------
# Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies).
# Contact: http://www.qt-project.org/legal
#
# You may use this file under the terms of the 3-clause BSD license.
# See the file LICENSE from this package for details.
#
# Following Perl modules are needed
# CGI::FormBuilder
# CGI::FormBuilder::Source::File
# CGI::FormBuilder::Mail::FormatMultiPart
#---------------------------------------------------------------------------------------------------
# Add current dir to be able to load our own custom mailer 'reltestmailer'
use Cwd;
push @INC, cwd;
use POSIX qw(strftime);
use CGI::FormBuilder;
use Data::Dumper;
sub meaning
{
my ($form, $field_name) = @_;
my $val = $form->field->{$field_name};
return $val if (!defined $form->{'fieldopts'}->{$field_name}->{'options'});
my $result = "Not tested";
$result = "Yes" if ($val = 2);
$result = "No" if ($val = 1);
return $result;
}
my $toptext = "Sanity Test Guidelines can be found here: \
\
http://qt-project.org/wiki/Sanity-Test-Guidelines
\
Feel free to update them during your test to make them reusable \
and helpful for other testers.";
# First create our form
my $form = CGI::FormBuilder->new(source => 'reltest-form.conf',
text => $toptext);
# Check to see if we're submitted and valid
if ($form->submitted && $form->validate) {
our $field = $form->fields;
# Translate options over to values
our %result;
for my $val (keys %{$field}) {
$result{$val} = meaning($form, $val);
}
# Show confirmation screen
print $form->confirm(header => 1);
# Mail off a copy to the mailing list
$form->mailresults(plugin => 'reltestmailer',
from => $field->{'report_name'} . '',
to => 'Releases Mailing List ',
smtp => 'mx.qt-project.org',
subject => "Testing: $field->{'package_date'} + $field->{'mkspec_used'} " .
($field->{'releasable'} == 2 ? '[success!]' : '[fail]')
);
} else {
# Auto-fill with today's date
my $now = strftime("%Y-%m-%d", localtime);
$form->field(name => 'report_date',
value => $now);
$form->field(name => 'package_date',
value => $now);
# Print out the form
print $form->render(header => 1);
}