7b2964448e
2009-06-26 14:00:27 +0200 lla r273410 : #i102248# cleanups 2009-06-26 13:36:44 +0200 lla r273407 : #i102248# fix problem with too long sleeps and waits 2009-06-26 08:34:17 +0200 lla r273393 : #i102248# cleanups 2009-06-26 08:28:43 +0200 lla r273392 : #i102248# cleanups 2009-06-25 13:17:19 +0200 lla r273379 : #i102248# add prototypes 2009-06-25 11:31:02 +0200 lla r273371 : #i102248# cleanups 2009-06-25 11:15:18 +0200 lla r273370 : #i102248# add a selftest for demonstration. 2009-06-25 10:53:35 +0200 lla r273369 : #i102248# add a selftest for demonstration. 2009-06-25 10:38:10 +0200 lla r273368 : #i102248# add a selftest for demonstration. 2009-06-23 11:09:35 +0200 lla r273266 : #i102248# cleanup 2009-06-23 11:00:15 +0200 lla r273265 : #i10i108248# add cwstestresult to cwscheckapi 2009-06-23 10:59:50 +0200 lla r273264 : #i10i108248# add cwstestresult to cwscheckapi 2009-06-23 10:58:47 +0200 lla r273263 : #i102248# add selftest
150 lines
3.5 KiB
Perl
Executable file
150 lines
3.5 KiB
Perl
Executable file
:
|
|
eval 'exec perl -wS $0 ${1+"$@"}'
|
|
if 0;
|
|
|
|
#*************************************************************************
|
|
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
|
#
|
|
# Copyright 2008 by Sun Microsystems, Inc.
|
|
#
|
|
# 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
|
|
}
|