Skip to content

C
core
Kaydet (Commit) 8509ba60 authored tarafından Jan Holesovsky's avatar Jan Holesovsky
Dosyalara gözat
Seçenekler

Get rid of the CWS tools, not necessary.

üst 33068609
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 751 deletions
solenv/bin/cws deleted 100755 → 0
Dosyayı görüntüle @ 33068609
#!/bin/sh
if [ x${SOLARENV}x = xx ]; then
echo No environment found, please use 'configure'
exit 1
fi
exec perl -w $SOLARENV/bin/cws.pl "$@"
solenv/bin/cws.btm deleted 100644 → 0
Dosyayı görüntüle @ 33068609
@echo off
iff "%SOLARENV%" == "" then
echo No environment found, please use 'configure' or 'setsolar'
goto end
endiff
iff "%PERL%" == "" then
call perl5 -I%SOLARENV%\bin\modules %SOLARENV%\bin\cws.pl %1&
else
call %PERL% -I%SOLARENV%\bin\modules %SOLARENV%\bin\cws.pl %1&
endiff
:end
solenv/bin/cws.pl deleted 100644 → 0
Dosyayı görüntüle @ 33068609
This diff is collapsed.
solenv/bin/cwsattach deleted 100755 → 0
Dosyayı görüntüle @ 33068609
#!/bin/sh
if [ x${SOLARENV}x = xx ]; then
echo No environment found, please use 'configure' or 'setsolar'
exit 1
fi
exec perl -w $SOLARENV/bin/cwsattach.pl "$@"
solenv/bin/cwsattach.btm deleted 100644 → 0
Dosyayı görüntüle @ 33068609
@echo off
iff "%SOLARENV%" == "" then
echo No environment found, please use 'configure' or 'setsolar'
goto end
endiff
iff "%PERL%" == "" then
call perl5 -I%SOLARENV%\bin\modules %SOLARENV%\bin\cwsattach.pl %1&
else
call %PERL% -I%SOLARENV%\bin\modules %SOLARENV%\bin\cwsattach.pl %1&
endiff
:end
solenv/bin/cwsattach.pl deleted 100644 → 0
Dosyayı görüntüle @ 33068609
:
eval 'exec perl -wS $0 ${1+"$@"}'
if 0;
#*************************************************************************
#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org. If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#*************************************************************************
#
# cwsattach.pl - attach files to CWS
#
use strict;
use Getopt::Long;
use Cwd;
#### module lookup
my @lib_dirs;
BEGIN {
if ( !defined($ENV{SOLARENV}) ) {
die "No environment found (environment variable SOLARENV is undefined)";
}
push(@lib_dirs, "$ENV{SOLARENV}/bin/modules");
push(@lib_dirs, "$ENV{COMMON_ENV_TOOLS}/modules") if defined($ENV{COMMON_ENV_TOOLS});
}
use lib (@lib_dirs);
use Cws;
#### script id #####
( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
my $script_rev;
my $id_str = ' $Revision: 1.3 $ ';
$id_str =~ /Revision:\s+(\S+)\s+\$/
? ($script_rev = $1) : ($script_rev = "-");
print STDERR "$script_name -- version: $script_rev\n";
#### global #####
my $is_debug = 1; # enable debug
my $opt_master = ''; # option: master workspace
my $opt_child = ''; # option: child workspace
my $opt_mime_type = ''; # option: mime type
#### main #####
my $arg_file = parse_options();
attach_cws($arg_file);
exit(0);
#### subroutines ####
sub attach_cws
{
my $filename = shift;
# get master and child workspace
my $masterws = $opt_master ? uc($opt_master) : $ENV{WORK_STAMP};
my $childws = $opt_child ? $opt_child : $ENV{CWS_WORK_STAMP};
if ( !defined($masterws) ) {
print_error("Can't determine master workspace environment.\n"
. "Please initialize environment with setsolar ...", 1);
}
if ( !defined($childws) ) {
print_error("Can't determine child workspace environment.\n"
. "Please initialize environment with setsolar ...", 1);
}
my $cws = Cws->new();
$cws->child($childws);
$cws->master($masterws);
my $mime_type = $opt_mime_type ? $opt_mime_type : find_mime_type($filename);
no strict;
if ( is_valid_cws($cws) ) {
#print "CWS is valid filename=" . $filename . " mime_type=" . $mime_type . "\n";
open(DATA,"<$filename") || die "can't open filename";
$data="";
while(<DATA>) {
$data.=$_;
}
my $result=$cws->save_attachment($filename,$mime_type,$data);
} else {
print STDERR "cws is not valid";
}
exit(0)
}
sub find_mime_type
{
my $filename = shift;
$filename=~/(.*)\.(.*$)/;
my $ext=$2;
my $fmime='';
if ( defined($ext) ) {
open(MIME,"< $ENV{SOLARENV}/inc/mime.types")|| die "can not open mimetype file";
while (<MIME>) {
my @a=split();
my $iscomment=0;
if ( /(\s*\#).*/ ) {
$iscomment=1;
} else {
$iscomment=0;
}
if ( $iscomment eq 0 && $#a >= 1 && $fmime eq '' ) {
my $i=1;
for ($i=1; $i<=$#a; $i++) {
if ( $a[$i] eq $ext ) {
$fmime=$a[0];
}
}
}
}
}
if ( $fmime eq '' ) {
$fmime="application/octet-stream";
}
return $fmime;
}
sub is_valid_cws
{
my $cws = shift;
my $masterws = $cws->master();
my $childws = $cws->child();
# check if we got a valid child workspace
my $id = $cws->eis_id();
if ( !$id ) {
print_error("Child workspace '$childws' for master workspace '$masterws' not found in EIS database.", 2);
}
print_message("Master workspace '$masterws', child workspace '$childws':");
return 1;
}
sub parse_options
{
# parse options and do some sanity checks
my $help = 0;
my $success = GetOptions('h' => \$help, 'm=s' => \$opt_master, 'c=s'=> \$opt_child, 't=s'=> \$opt_mime_type);
if ( $help || !$success || $#ARGV < 0 ) {
usage();
exit(1);
}
return $ARGV[0];
}
sub print_message
{
my $message = shift;
print STDERR "$script_name: ";
print STDERR "$message\n";
return;
}
sub print_error
{
my $message = shift;
my $error_code = shift;
print STDERR "$script_name: ";
print STDERR "ERROR: $message\n";
if ( $error_code ) {
print STDERR "\nFAILURE: $script_name aborted.\n";
exit($error_code);
}
return;
}
sub usage
{
print STDERR "Usage: cwsattach [-h] [-m master] [-c child] [-t mimetype] filename\n";
print STDERR "\n";
print STDERR "Attach files to CWS in EIS database\n";
print STDERR "\n";
print STDERR "Options:\n";
print STDERR "\t-h\t\thelp\n";
print STDERR "\t-m master\toverride MWS specified in environment\n";
print STDERR "\t-c child\toverride CWS specified in environment\n";
print STDERR "\t-t mimetype\texplicitly set mime type\n";
print STDERR "Examples:\n";
print STDERR "\tcwsattach barfoo.html\n";
print STDERR "\tcwsattach -t text bar.cxx\n";
print STDERR "\tcwsattach -t text/rtf foo.rtf\n";
}
solenv/bin/cwscreate deleted 100755 → 0
Dosyayı görüntüle @ 33068609
#!/bin/sh
if [ x${SOLARENV}x = xx ]; then
echo No environment found, please use 'configure' or 'setsolar'
exit 1
fi
echo "Please use the 'cws create' command for creating new child workspaces!"
solenv/bin/cwstestresult deleted 100755 → 0
Dosyayı görüntüle @ 33068609
#!/bin/sh
if [ x${SOLARENV}x = xx ]; then
echo No environment found, please use 'configure' or 'setsolar'
exit 1
fi
exec perl -w $SOLARENV/bin/cwstestresult.pl "$@"
solenv/bin/cwstestresult.btm deleted 100644 → 0
Dosyayı görüntüle @ 33068609
@echo off
iff "%SOLARENV%" == "" then
echo No environment found, please use 'configure' or 'setsolar'
goto end
endiff
iff "%PERL%" == "" then
call perl5 -I%SOLARENV%\bin\modules %SOLARENV%\bin\cwstestresult.pl %1&
else
call %PERL% -I%SOLARENV%\bin\modules %SOLARENV%\bin\cwstestresult.pl %1&
endiff
:end
solenv/bin/cwstestresult.pl deleted 100644 → 0
Dosyayı görüntüle @ 33068609
:
eval 'exec perl -wS $0 ${1+"$@"}'
if 0;
#*************************************************************************
#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org. If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#*************************************************************************
#
# cwstestresult.pl - publish results of CWS tests to EIS
#
use strict;
use Getopt::Long;
use Cwd;
#### module lookup
my @lib_dirs;
BEGIN {
if ( !defined($ENV{SOLARENV}) ) {
die "No environment found (environment variable SOLARENV is undefined)";
}
push(@lib_dirs, "$ENV{SOLARENV}/bin/modules");
push(@lib_dirs, "$ENV{COMMON_ENV_TOOLS}/modules") if defined($ENV{COMMON_ENV_TOOLS});
}
use lib (@lib_dirs);
use Cws;
#### global #####
( my $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
my $is_debug = 1; # enable debug
my $opt_master; # option: master workspace
my $opt_child; # option: child workspace
my $opt_milestone; # option: milestone
my $opt_testrunName; # option: testrunName
my $opt_testrunPlatform; # option: testrunPlatfrom
my $opt_resultPage; # option: resultPage
#### main #####
my $arg_status= parse_options();
testresult($arg_status);
exit(0);
#### subroutines ####
sub testresult
{
my $status = shift;
# get master and child workspace
my $masterws = $opt_master ? uc($opt_master) : $ENV{WORK_STAMP};
my $milestone = $opt_milestone ? $opt_milestone : $ENV{UPDMINOR};
my $childws = $opt_milestone ? undef : ( $opt_child ? $opt_child : $ENV{CWS_WORK_STAMP} );
if ( !defined($masterws) ) {
print_error("Can't determine master workspace environment.\n"
. "Please initialize environment with setsolar ...", 1);
}
if ( !defined($childws) && !defined($milestone) ) {
print_error("Can't determine child workspace environment or milestone.\n"
. "Please initialize environment with setsolar ...", 1);
}
if ( !defined($opt_resultPage) ) {
$opt_resultPage="";
}
my $cws = Cws->new();
if ( defined($childws) ) {
$cws->child($childws);
}
$cws->master($masterws);
my $eis = $cws->eis();
no strict;
my $result='';
if ( defined($childws) ) {
$opt_resultPage=SOAP::Data->type(string => $opt_resultPage);
my $id = $cws->eis_id();
if ( is_valid_cws($cws) ) {
$result=$eis->submitTestResult($id,$opt_testrunName,$opt_testrunPlatform, $opt_resultPage, $status);
} else {
print STDERR "cws is not valid";
}
} else {
$opt_resultPage=SOAP::Data->type(string => $opt_resultPage);
$result=$eis->submitTestResultMWS($masterws,$milestone,$opt_testrunName,$opt_testrunPlatform, $opt_resultPage, $status);
}
exit(0)
}
sub is_valid_cws
{
my $cws = shift;
my $masterws = $cws->master();
my $childws = $cws->child();
# check if we got a valid child workspace
my $id = $cws->eis_id();
if ( !$id ) {
print_error("Child workspace '$childws' for master workspace '$masterws' not found in EIS database.", 2);
}
return 1;
}
sub parse_options
{
# parse options and do some sanity checks
Getopt::Long::Configure("no_ignore_case");
my $help = 0;
my $success = GetOptions('h' => \$help, 'M=s' => \$opt_master, 'm=s' => \$opt_milestone, 'c=s' => \$opt_child, 'n=s' => \$opt_testrunName, 'p=s' => \$opt_testrunPlatform , 'r=s' => \$opt_resultPage );
if ( $help || !$success || $#ARGV < 0 || (!defined($opt_testrunName)) || ( !defined($opt_testrunPlatform)) ) {
usage();
exit(1);
}
if ( defined($opt_milestone) && defined($opt_child) ) {
print_error("-m and -c are mutually exclusive options",1);
}
return $ARGV[0];
}
sub print_message
{
my $message = shift;
print STDERR "$script_name: ";
print STDERR "$message\n";
return;
}
sub print_error
{
my $message = shift;
my $error_code = shift;
print STDERR "$script_name: ";
print STDERR "ERROR: $message\n";
if ( $error_code ) {
print STDERR "\nFAILURE: $script_name aborted.\n";
exit($error_code);
}
return;
}
sub usage
{
print STDERR "Usage: cwstestresult[-h] [-m masterws] [-m milestone|-c childws] <-n testrunName> <-p testrunPlatform> <-r resultPage> statusName\n";
print STDERR "\n";
print STDERR "Publish result of CWS- or milestone-test to EIS\n";
print STDERR "\n";
print STDERR "Options:\n";
print STDERR "\t-h\t\t\thelp\n";
print STDERR "\t-M master\t\toverride MWS specified in environment\n";
print STDERR "\t-m milestone\t\toverride milestone specified in environment\n";
print STDERR "\t-c child\t\toverride CWS specified in environment\n";
print STDERR "\t-n testrunName\t\tspecifiy name of the test\n";
print STDERR "\t-p testrunPlatform\tspecify platform where the test ran on\n";
print STDERR "\t-r resultPage\t\tspecify name of attachment or hyperlink\n";
print STDERR "\t\t\t\tfor resultPage\n";
print STDERR "\nExample:\n";
print STDERR "\tcwstestresult -c mycws -n Performance -p Windows -r PerfomanceTestWindows.html ok\n";
}
solenv/bin/cwstouched deleted 100755 → 0
Dosyayı görüntüle @ 33068609
#!/bin/sh
if [ x${SOLARENV}x = xx ]; then
echo No environment found, please use 'configure' or 'setsolar'
exit 1
fi
exec perl -w $SOLARENV/bin/cwstouched.pl
solenv/bin/cwstouched.btm deleted 100755 → 0
Dosyayı görüntüle @ 33068609
@echo off
iff "%SOLARENV%" == "" then
echo No environment found, please use 'configure' or 'setsolar'
goto end
endiff
iff "%PERL%" == "" then
call perl5 -I%SOLARENV%\bin\modules %SOLARENV%\bin\cwstouched.pl %1&
else
call %PERL% -I%SOLARENV%\bin\modules %SOLARENV%\bin\cwstouched.pl %1&
endiff
:end
solenv/bin/cwstouched.pl deleted 100755 → 0
Dosyayı görüntüle @ 33068609
:
eval 'exec perl -wS $0 ${1+"$@"}'
if 0;
#*************************************************************************
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org. If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#***********************************************************************/
use strict;
use Cwd;
#### module lookup
my @lib_dirs;
BEGIN {
if ( !defined($ENV{SOLARENV}) ) {
die "No environment found (environment variable SOLARENV is undefined)";
}
push(@lib_dirs, "$ENV{SOLARENV}/bin/modules");
}
use lib (@lib_dirs);
use Cws;
# Prototypes
sub getMinor($);
sub getCwsWorkStamp();
my $workstamp = $ENV{'WORK_STAMP'};
my $solenv= $ENV{'SOLARENV'};
my $cwsWorkStamp = getCwsWorkStamp();
my $minor = getMinor($cwsWorkStamp);
my $oldWorkStamp = $workstamp."_".$minor;
my $svndiff="svn diff --summarize --old=svn://svn.services.openoffice.org/ooo/tags/".$oldWorkStamp." --new=svn://svn.services.openoffice.org/ooo/cws/".$cwsWorkStamp;
my @diff = `$svndiff`;
my @modules;
foreach(@diff)
{
if (/.*svn:\/\/svn.services.openoffice.org.*/)
{
$_ =~ /.*$oldWorkStamp\/(\w*)/;
my $newModule=$1;
if (defined($newModule))
{
if ( ! grep(/$newModule/,@modules))
{
push(@modules, $newModule);
}
}
}
}
foreach(@modules)
{
print "$_\n";
}
exit(0);
sub getMinor($)
{
my $workst = shift;
my $min="";
if ( ! defined($ENV{'UPDMINOR'}))
{
my $cws = Cws->new();
$cws->child($workst);
$cws->master($ENV{'WORK_STAMP'});
my $masterws = $cws->master();
my $childws = $cws->child();
# check if we got a valid child workspace
my $id = $cws->eis_id();
if ( !$id )
{
print("Child workspace '$childws' for master workspace '$masterws' not found in EIS database.\n");
exit(1);
}
my @milestones = $cws->milestone();
foreach (@milestones) {
if ( defined($_) )
{
$min=$_;
}
}
}
else
{
$min = $ENV{'UPDMINOR'};
}
chomp($min);
return $min;
}
sub getCwsWorkStamp()
{
my $cwsWorkSt="";
if ( ! defined($ENV{'CWS_WORK_STAMP'}))
{
my $currPath= cwd;
chdir($ENV{'SOLARENV'});
my @info = `svn info`;
foreach(@info)
{
if ( /URL:.*/ )
{
# URL: svn+ssh://svn@svn.services.openoffice.org/ooo/cws/qadev37/solenv
$_ =~ /.*svn.services.openoffice.org(.*\/(.*))\/\w*/;
$cwsWorkSt=$2; #qadev37
}
}
}
else
{
$cwsWorkSt = $ENV{'CWS_WORK_STAMP'};
}
return $cwsWorkSt
}
solenv/bin/cwstouched.py deleted 100755 → 0
Dosyayı görüntüle @ 33068609
#!/usr/bin/python
#*************************************************************************
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org. If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#***********************************************************************/
import os
import sys
import string
from os import path
def getCurrPath():
currPath = sys.path[0] or os.getcwd()
currPath = path.abspath(currPath)
return currPath
def getCwsWorkStamp():
cwsWorkStamp=os.getenv('CWS_WORK_STAMP')
if not cwsWorkStamp:
currPath=getCurrPath()
os.chdir(os.getenv('SOLARENV'))
(input, output) = os.popen4("svn info")
for outline in output.readlines():
if outline.startswith("URL:"):
cwsWorkStamp = outline[outline.index("svn.services"):outline.index("solenv")-1]
cwsWorkStamp = cwsWorkStamp[cwsWorkStamp.rfind("/")+1:len(cwsWorkStamp)]
break
os.putenv("CWS_WORK_STAMP",cwsWorkStamp);
os.chdir(currPath)
return string.strip(cwsWorkStamp)
def getMinor(cwsWorkStamp):
minor = os.getenv('UPDMINOR')
if not minor:
if (os.getenv('OSTYPE') == "cygwin"):
bash=os.getenv("SHELL")
(input, output) = os.popen4("cygpath -w "+bash)
winbash=string.strip(output.readlines()[0])
cws=winbash+" -c 'cws query -c "+cwsWorkStamp+" current'"
else:
cws="cws query -c "+cwsWorkStamp+" current"
(input, output) = os.popen4(cws)
found=0
for outline in output.readlines():
if found:
minor=outline
break
elif outline.find("Current milestone:") != -1:
found=1
return string.strip(minor)
workstamp = os.getenv('WORK_STAMP')
solenv= os.getenv('SOLARENV')
cwsWorkStamp=getCwsWorkStamp()
minor = getMinor(cwsWorkStamp)
oldWorkStamp = workstamp + "_" + minor
diff="svn diff --summarize --old=svn://svn.services.openoffice.org/ooo/tags/"+oldWorkStamp+" --new=svn://svn.services.openoffice.org/ooo/cws/"+cwsWorkStamp
modules=[]
(input, output) = os.popen4(diff)
for outline in output.readlines():
if outline.find("svn://svn.services.openoffice.org"):
index = outline.index(oldWorkStamp)+len(oldWorkStamp)+1
newModule=""
if outline.find("/",index) != -1:
# seems to be a file
newModule=string.strip(outline[index:outline.index("/",index)])
else:
#seems to be a folder
if len(outline[index:]) > 0:
newModule=string.strip(outline[index:])
if newModule != "" and not modules.count(newModule):
modules.append(newModule)
for module in modules:
print module
\ No newline at end of file
solenv/bin/modules/Cws.pm deleted 100755 → 0
Dosyayı görüntüle @ 33068609
This diff is collapsed.
solenv/bin/modules/CwsConfig.pm deleted 100644 → 0
Dosyayı görüntüle @ 33068609
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment