summaryrefslogtreecommitdiff
path: root/solenv/bin/cwstouched.pl
diff options
context:
space:
mode:
authorRob Weir <robweir@apache.org>2011-08-16 16:05:51 +0000
committerRob Weir <robweir@apache.org>2011-08-16 16:05:51 +0000
commit1a5baf5ce78676385d35209eb311ed2a35cdf063 (patch)
treed22d47418b0ec5a9a94ed70508d44baef23a2a5d /solenv/bin/cwstouched.pl
parente97f122464adca8d2face11be647666b9441af0c (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-xsolenv/bin/cwstouched.pl151
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
-}