1*cdf0e10cSrcweir: 2*cdf0e10cSrcweireval 'exec perl -wS $0 ${1+"$@"}' 3*cdf0e10cSrcweir if 0; 4*cdf0e10cSrcweir 5*cdf0e10cSrcweir#************************************************************************* 6*cdf0e10cSrcweir# 7*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 8*cdf0e10cSrcweir# 9*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 10*cdf0e10cSrcweir# 11*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 12*cdf0e10cSrcweir# 13*cdf0e10cSrcweir# This file is part of OpenOffice.org. 14*cdf0e10cSrcweir# 15*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 16*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 17*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 18*cdf0e10cSrcweir# 19*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 20*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 21*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 23*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 24*cdf0e10cSrcweir# 25*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 26*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 27*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 28*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 29*cdf0e10cSrcweir# 30*cdf0e10cSrcweir#************************************************************************* 31*cdf0e10cSrcweir 32*cdf0e10cSrcweir# 33*cdf0e10cSrcweir# cwstestresult.pl - publish results of CWS tests to EIS 34*cdf0e10cSrcweir# 35*cdf0e10cSrcweir 36*cdf0e10cSrcweiruse strict; 37*cdf0e10cSrcweiruse Getopt::Long; 38*cdf0e10cSrcweiruse Cwd; 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir#### module lookup 41*cdf0e10cSrcweirmy @lib_dirs; 42*cdf0e10cSrcweirBEGIN { 43*cdf0e10cSrcweir if ( !defined($ENV{SOLARENV}) ) { 44*cdf0e10cSrcweir die "No environment found (environment variable SOLARENV is undefined)"; 45*cdf0e10cSrcweir } 46*cdf0e10cSrcweir push(@lib_dirs, "$ENV{SOLARENV}/bin/modules"); 47*cdf0e10cSrcweir push(@lib_dirs, "$ENV{COMMON_ENV_TOOLS}/modules") if defined($ENV{COMMON_ENV_TOOLS}); 48*cdf0e10cSrcweir} 49*cdf0e10cSrcweiruse lib (@lib_dirs); 50*cdf0e10cSrcweir 51*cdf0e10cSrcweiruse Cws; 52*cdf0e10cSrcweir 53*cdf0e10cSrcweir#### global ##### 54*cdf0e10cSrcweir( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; 55*cdf0e10cSrcweir 56*cdf0e10cSrcweirmy $is_debug = 1; # enable debug 57*cdf0e10cSrcweirmy $opt_master; # option: master workspace 58*cdf0e10cSrcweirmy $opt_child; # option: child workspace 59*cdf0e10cSrcweirmy $opt_milestone; # option: milestone 60*cdf0e10cSrcweirmy $opt_testrunName; # option: testrunName 61*cdf0e10cSrcweirmy $opt_testrunPlatform; # option: testrunPlatfrom 62*cdf0e10cSrcweirmy $opt_resultPage; # option: resultPage 63*cdf0e10cSrcweir 64*cdf0e10cSrcweir 65*cdf0e10cSrcweir#### main ##### 66*cdf0e10cSrcweir 67*cdf0e10cSrcweirmy $arg_status= parse_options(); 68*cdf0e10cSrcweirtestresult($arg_status); 69*cdf0e10cSrcweirexit(0); 70*cdf0e10cSrcweir 71*cdf0e10cSrcweir#### subroutines #### 72*cdf0e10cSrcweir 73*cdf0e10cSrcweirsub testresult 74*cdf0e10cSrcweir{ 75*cdf0e10cSrcweir my $status = shift; 76*cdf0e10cSrcweir # get master and child workspace 77*cdf0e10cSrcweir my $masterws = $opt_master ? uc($opt_master) : $ENV{WORK_STAMP}; 78*cdf0e10cSrcweir my $milestone = $opt_milestone ? $opt_milestone : $ENV{UPDMINOR}; 79*cdf0e10cSrcweir my $childws = $opt_milestone ? undef : ( $opt_child ? $opt_child : $ENV{CWS_WORK_STAMP} ); 80*cdf0e10cSrcweir 81*cdf0e10cSrcweir if ( !defined($masterws) ) { 82*cdf0e10cSrcweir print_error("Can't determine master workspace environment.\n" 83*cdf0e10cSrcweir . "Please initialize environment with setsolar ...", 1); 84*cdf0e10cSrcweir } 85*cdf0e10cSrcweir 86*cdf0e10cSrcweir if ( !defined($childws) && !defined($milestone) ) { 87*cdf0e10cSrcweir print_error("Can't determine child workspace environment or milestone.\n" 88*cdf0e10cSrcweir . "Please initialize environment with setsolar ...", 1); 89*cdf0e10cSrcweir } 90*cdf0e10cSrcweir if ( !defined($opt_resultPage) ) { 91*cdf0e10cSrcweir $opt_resultPage=""; 92*cdf0e10cSrcweir } 93*cdf0e10cSrcweir my $cws = Cws->new(); 94*cdf0e10cSrcweir if ( defined($childws) ) { 95*cdf0e10cSrcweir $cws->child($childws); 96*cdf0e10cSrcweir } 97*cdf0e10cSrcweir $cws->master($masterws); 98*cdf0e10cSrcweir my $eis = $cws->eis(); 99*cdf0e10cSrcweir 100*cdf0e10cSrcweir no strict; 101*cdf0e10cSrcweir my $result=''; 102*cdf0e10cSrcweir 103*cdf0e10cSrcweir if ( defined($childws) ) { 104*cdf0e10cSrcweir $opt_resultPage=SOAP::Data->type(string => $opt_resultPage); 105*cdf0e10cSrcweir my $id = $cws->eis_id(); 106*cdf0e10cSrcweir if ( is_valid_cws($cws) ) { 107*cdf0e10cSrcweir $result=$eis->submitTestResult($id,$opt_testrunName,$opt_testrunPlatform, $opt_resultPage, $status); 108*cdf0e10cSrcweir } else { 109*cdf0e10cSrcweir print STDERR "cws is not valid"; 110*cdf0e10cSrcweir } 111*cdf0e10cSrcweir } else { 112*cdf0e10cSrcweir $opt_resultPage=SOAP::Data->type(string => $opt_resultPage); 113*cdf0e10cSrcweir $result=$eis->submitTestResultMWS($masterws,$milestone,$opt_testrunName,$opt_testrunPlatform, $opt_resultPage, $status); 114*cdf0e10cSrcweir } 115*cdf0e10cSrcweir 116*cdf0e10cSrcweir exit(0) 117*cdf0e10cSrcweir} 118*cdf0e10cSrcweir 119*cdf0e10cSrcweir 120*cdf0e10cSrcweirsub is_valid_cws 121*cdf0e10cSrcweir{ 122*cdf0e10cSrcweir my $cws = shift; 123*cdf0e10cSrcweir 124*cdf0e10cSrcweir my $masterws = $cws->master(); 125*cdf0e10cSrcweir my $childws = $cws->child(); 126*cdf0e10cSrcweir # check if we got a valid child workspace 127*cdf0e10cSrcweir my $id = $cws->eis_id(); 128*cdf0e10cSrcweir if ( !$id ) { 129*cdf0e10cSrcweir print_error("Child workspace '$childws' for master workspace '$masterws' not found in EIS database.", 2); 130*cdf0e10cSrcweir } 131*cdf0e10cSrcweir return 1; 132*cdf0e10cSrcweir} 133*cdf0e10cSrcweir 134*cdf0e10cSrcweirsub parse_options 135*cdf0e10cSrcweir{ 136*cdf0e10cSrcweir # parse options and do some sanity checks 137*cdf0e10cSrcweir Getopt::Long::Configure("no_ignore_case"); 138*cdf0e10cSrcweir my $help = 0; 139*cdf0e10cSrcweir my $success = GetOptions('h' => \$help, 140*cdf0e10cSrcweir 'M=s' => \$opt_master, 141*cdf0e10cSrcweir 'm=s' => \$opt_milestone, 142*cdf0e10cSrcweir 'c=s' => \$opt_child, 143*cdf0e10cSrcweir 'n=s' => \$opt_testrunName, 144*cdf0e10cSrcweir 'p=s' => \$opt_testrunPlatform , 145*cdf0e10cSrcweir 'r=s' => \$opt_resultPage ); 146*cdf0e10cSrcweir if ( $help || !$success || $#ARGV < 0 || (!defined($opt_testrunName)) || ( !defined($opt_testrunPlatform)) ) { 147*cdf0e10cSrcweir usage(); 148*cdf0e10cSrcweir exit(1); 149*cdf0e10cSrcweir } 150*cdf0e10cSrcweir 151*cdf0e10cSrcweir print "$opt_master\n"; 152*cdf0e10cSrcweir print "$opt_milestone\n"; 153*cdf0e10cSrcweir print "$opt_child\n"; 154*cdf0e10cSrcweir print "$opt_testrunName\n"; 155*cdf0e10cSrcweir print "$opt_testrunPlatform\n"; 156*cdf0e10cSrcweir print "$opt_resultPage\n"; 157*cdf0e10cSrcweir 158*cdf0e10cSrcweir if ( defined($opt_milestone) && defined($opt_child) ) { 159*cdf0e10cSrcweir print_error("-m and -c are mutually exclusive options",1); 160*cdf0e10cSrcweir } 161*cdf0e10cSrcweir 162*cdf0e10cSrcweir return $ARGV[0]; 163*cdf0e10cSrcweir} 164*cdf0e10cSrcweir 165*cdf0e10cSrcweir# sub print_message 166*cdf0e10cSrcweir# { 167*cdf0e10cSrcweir# my $message = shift; 168*cdf0e10cSrcweir# 169*cdf0e10cSrcweir# print STDERR "$script_name: "; 170*cdf0e10cSrcweir# print STDERR "$message\n"; 171*cdf0e10cSrcweir# return; 172*cdf0e10cSrcweir# } 173*cdf0e10cSrcweir 174*cdf0e10cSrcweirsub print_error 175*cdf0e10cSrcweir{ 176*cdf0e10cSrcweir my $message = shift; 177*cdf0e10cSrcweir my $error_code = shift; 178*cdf0e10cSrcweir 179*cdf0e10cSrcweir print STDERR "$script_name: "; 180*cdf0e10cSrcweir print STDERR "ERROR: $message\n"; 181*cdf0e10cSrcweir 182*cdf0e10cSrcweir if ( $error_code ) { 183*cdf0e10cSrcweir print STDERR "\nFAILURE: $script_name aborted.\n"; 184*cdf0e10cSrcweir exit($error_code); 185*cdf0e10cSrcweir } 186*cdf0e10cSrcweir return; 187*cdf0e10cSrcweir} 188*cdf0e10cSrcweir 189*cdf0e10cSrcweirsub usage 190*cdf0e10cSrcweir{ 191*cdf0e10cSrcweir print STDERR "Usage: cwstestresult[-h] [-M masterws] [-m milestone|-c childws] <-n testrunName> <-p testrunPlatform> <-r resultPage> statusName\n"; 192*cdf0e10cSrcweir print STDERR "\n"; 193*cdf0e10cSrcweir print STDERR "Publish result of CWS- or milestone-test to EIS\n"; 194*cdf0e10cSrcweir print STDERR "\n"; 195*cdf0e10cSrcweir print STDERR "Options:\n"; 196*cdf0e10cSrcweir print STDERR "\t-h\t\t\thelp\n"; 197*cdf0e10cSrcweir print STDERR "\t-M master\t\toverride MWS specified in environment\n"; 198*cdf0e10cSrcweir print STDERR "\t-m milestone\t\toverride milestone specified in environment\n"; 199*cdf0e10cSrcweir print STDERR "\t-c child\t\toverride CWS specified in environment\n"; 200*cdf0e10cSrcweir print STDERR "\t-n testrunName\t\tspecifiy name of the test\n"; 201*cdf0e10cSrcweir print STDERR "\t-p testrunPlatform\tspecify platform where the test ran on\n"; 202*cdf0e10cSrcweir print STDERR "\t-r resultPage\t\tspecify name of attachment or hyperlink\n"; 203*cdf0e10cSrcweir print STDERR "\t\t\t\tfor resultPage\n"; 204*cdf0e10cSrcweir 205*cdf0e10cSrcweir 206*cdf0e10cSrcweir print STDERR "\nExample:\n"; 207*cdf0e10cSrcweir print STDERR "\tcwstestresult -c mycws -n Performance -p Windows -r PerfomanceTestWindows.html ok\n"; 208*cdf0e10cSrcweir} 209