diff options
author | Rob Weir <robweir@apache.org> | 2011-08-16 16:05:51 +0000 |
---|---|---|
committer | Rob Weir <robweir@apache.org> | 2011-08-16 16:05:51 +0000 |
commit | 1a5baf5ce78676385d35209eb311ed2a35cdf063 (patch) | |
tree | d22d47418b0ec5a9a94ed70508d44baef23a2a5d /solenv/bin/cwstouched.pl | |
parent | e97f122464adca8d2face11be647666b9441af0c (diff) |
Initial import of the old OOo hg repository tip revision.
.../trunk/main is a copy of (currently tip-most)
http://hg.services.openoffice.org/OOO340/rev/c904c1944462
.../trunk/extras/l10n is a copy of (currently tip-most)
http://hg.services.openoffice.org/master_l10n/OOO340/rev/af6bc9467af5
Note that the following files with line-end and/or encoding anomalies were left out (they will need to be to be checked in separately):
/ooo/trunk/core/dictionaries/de_DE/README_hyph_de_DE.txt
/ooo/trunk/core/dictionaries/de_CH/README_hyph_de_CH.txt
/ooo/trunk/core/dictionaries/de_AT/README_hyph_de_AT.txt
/ooo/trunk/core/gettext/gettext-0.18.1.1.patch
/ooo/trunk/core/apache-commons/patches/codec.patch
/ooo/trunk/core/libcroco/libcroco-0.6.2.patch
/ooo/trunk/core/testautomation/writer/optional/input/import/mactext.txt
/ooo/trunk/core/graphite/graphite-2.3.1.patch
/ooo/trunk/core/hwpfilter/source/hwpeq.cpp
/ooo/trunk/core/solenv/bin/cwstouched.pl
/ooo/trunk/core/readlicense_oo/html/THIRDPARTYLICENSEREADME.html
/ooo/trunk/core/writerfilter/source/doctok/escher.html
/ooo/trunk/core/writerfilter/source/odiapi/qname/resource/office2003/WordprocessingML Schemas/xsdlib.xsd
/ooo/trunk/core/writerfilter/source/odiapi/qname/resource/office2003/WordprocessingML Schemas/wordnetaux.xsd
/ooo/trunk/core/filter/source/xslt/odf2xhtml/export/common/body.xsl
/ooo/trunk/core/filter/source/xslt/odf2xhtml/export/common/styles/style_mapping_css.xsl
Also: Repository.mk from the l10n toplevel
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 -} |