#!/usr/bin/perl
# Copyright (c) 2009 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
# Mike Kinghan, mikek@symbian.org
#
# Contributors:
#
# Description:
# This is a tool for sending an ATS testdrop to an ATS server.
use strict;
use Getopt::Long;
use File::Copy;
use File::Spec;
my $username = "admin"; # ATS server user name
my $password = "admin"; # ATS server password
my $host; # ATS server hostname
my $schedule; # Schedule string for test drop, if any
my $host_drop_path; # Directory path on the ATS server where the test drop will be placed.
# This must be physically the same path as $local_drop_path, via drive mapping.
my $local_drop_path; # Local directory path where the test drop will be placed.
# This must be physically the same path as $host_drop_path, via drive mapping.
my $local_test_pkg; # Local pathname of the test drop (zip or xml file). The test drop will be
# copied from here to $local_drop_path to make it accessible on the server,
# unless $local_test_pkg begins with "...". This indicates the test drop is already
# present in $local_drop_path and does need to be copied there. The remainder
# following "..." is the filename of the test drop.
my $help;
my $dev_null = $^O =~ /^MSWin/ ? "nul" : "/dev/null";
sub usage($);
sub help();
sub usage_error();
my %optmap = ( 'host' => \$host,
'local-test-pkg' => \$local_test_pkg,
'host-drop-path' => \$host_drop_path,
'local-drop-path' =>\$local_drop_path,
'username' => \$username,
'password' => \$password,
'schedule' => \$schedule,
'help' => \$help);
GetOptions(\%optmap,
'host=s',
'local-test-pkg=s',
'host-drop-path=s',
'local-drop-path=s',
'username=s',
'password=s',
'schedule=s',
'help!')
or usage_error();
if ($help) {
help();
}
usage_error(), unless (defined($host) && defined($local_test_pkg) && defined($local_drop_path) && defined($host_drop_path));
my $curl_version = `curl --version 1> $dev_null 2>&1`;
die("Need program \"curl\". Not found"), if ($?);
die("Test drop path \"$local_drop_path\" not found"), unless ( -d "$local_drop_path");
$host .= ":8080", unless ($host =~ /:\d+$/);
my ($vol,$dir,$pkg);
my $local_test_drop;
my $host_test_drop;
if ($local_test_pkg =~ /^\.\.\.(.+)/ ) { # Local test package name begins with "...". No need to copy.
$pkg = $1; # Get the filename of the test package.
# Compose the full name of the test drop within the local drop path.
$local_test_drop = File::Spec->catfile($local_drop_path,$pkg);
die("Test package file \"$local_test_drop\" not found"), unless ( -f "$local_test_drop");
}
else { # Local test package must be copied to local drop path.
die("Test package file \"$local_test_pkg\" not found"), unless ( -f "$local_test_pkg");
# Compose the full name of the test drop within the local drop path.
($vol,$dir,$pkg) = File::Spec->splitpath($local_test_pkg);
$local_test_drop = File::Spec->catfile($local_drop_path,$pkg);
if ( -f "$local_test_drop") {
# A state test drop of the same name exists. Delete.
unlink($local_test_drop) or die("Can't delete stale test drop \"$local_test_drop\". $!");
print("A stale test drop \"$local_test_drop\" existed. Deleted\n");
}
# Copy the test drop to the local drop path.
copy("$local_test_pkg","$local_test_drop")
or die("Cannot copy \"$local_test_pkg\" -> \"$local_test_drop\". $!");
}
# Compose the full name of the test drop within the host drop path.
$host_test_drop = File::Spec->catfile($host_drop_path,$pkg);
# Compose URL to notify server of test drop, requesting run.
my $url ="http://$host/ats3/XTestRunExecute.do?username=$username&password=$password&testrunpath=$host_test_drop";
$url .= "&schedule=$schedule", if (defined($schedule));
# Post URL to server with cURL.
my $curl_cmd = "curl \"$url\"";
my $curl_response = `$curl_cmd 2>&1`;
die("\nTest drop failed: $!\n"), if ($?);
if ($curl_response =~ /(TEST_RUN_REF_ID=\d+)/) {
#extract test run id from cURL response.
print "$1\n";
}
else {
print "$curl_response\n";
die("Test drop failed\n");
}
print("Test drop done\n");
exit 0;
sub usage($)
{
my $error = shift;
my $fh = $error == 0 ? *STDOUT : *STDERR;
print $fh "ats3_testdrop.pl\n" .
"Send a test drop to an ATS3 server for execution\n" .
"usage:\n" .
" ats3_testdrop.pl --help\n" .
" ats3_testdrop.pl --host=HOSTNAME --local-test-pkg=PKGFILE --local-drop-path=LOCALPATH " .
" --host-drop-path=HOSTPATH " .
"[--username=ATS3USERNAME] [--password=ATS3PASSWORD] [--schedule=DD.MM.YYYY-HH:MM]\n" .
"options:\n" .
" --help Display this help and exit\n" .
" --host=HOSTAME HOSTNAME is ATS3 server\n" .
" --local-test-pkg=PKGFILE PKGFILE is the test package.\n" .
" If PKGFILE begins \"...\" a filename in LOCALPATH is assumed\n" .
" --local-drop-path=LOCALPATH Path to local directory where PKGFILE will be dropped\n" .
" --host-drop-path=HOSTPATH Host directory that is mapped to LOCALPATH.\n" .
" Must agree with the properties of the registered device that the test package nominates\n" .
" --username=ATS3USERNAME ATS3 user to whome the test will belong. Default=admin\n" .
" --password=ATS3PASSWORD Password of ATS3 user. Default=admin\n" .
" --schedule=DD.MM.YYYY-HH:MM Date-time at which test is to run. Default=as soon as possible\n";
exit $error;
}
sub help()
{
usage(0);
}
sub usage_error()
{
usage(1);
}
# EOF