diff options
Diffstat (limited to 'solenv/bin/cwstouched.pl')
| -rwxr-xr-x | solenv/bin/cwstouched.pl | 151 |
1 files changed, 0 insertions, 151 deletions
diff --git a/solenv/bin/cwstouched.pl b/solenv/bin/cwstouched.pl deleted file mode 100755 index eb306277580c..000000000000 --- a/solenv/bin/cwstouched.pl +++ /dev/null @@ -1,151 +0,0 @@ -: -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 -} |