1*cdf0e10cSrcweir: 2*cdf0e10cSrcweireval 'exec perl -wS $0 ${1+"$@"}' 3*cdf0e10cSrcweir if 0; 4*cdf0e10cSrcweir 5*cdf0e10cSrcweir#************************************************************************* 6*cdf0e10cSrcweir# 7*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 8*cdf0e10cSrcweir# 9*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 10*cdf0e10cSrcweir# 11*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 12*cdf0e10cSrcweir# 13*cdf0e10cSrcweir# This file is part of OpenOffice.org. 14*cdf0e10cSrcweir# 15*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 16*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 17*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 18*cdf0e10cSrcweir# 19*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 20*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 21*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 23*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 24*cdf0e10cSrcweir# 25*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 26*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 27*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 28*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 29*cdf0e10cSrcweir# 30*cdf0e10cSrcweir#************************************************************************* 31*cdf0e10cSrcweir 32*cdf0e10cSrcweirwhile (<>) { 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir if( /<prop/ ) { 35*cdf0e10cSrcweir $prop = $_; 36*cdf0e10cSrcweir next if( /Text/ || /Bubble/ ); 37*cdf0e10cSrcweir } 38*cdf0e10cSrcweir 39*cdf0e10cSrcweir if( /<\/prop>/ ) { 40*cdf0e10cSrcweir next if( $prop =~ /Text/ || $prop =~ /Bubble/ ); 41*cdf0e10cSrcweir } 42*cdf0e10cSrcweir 43*cdf0e10cSrcweir if( /xml:lang/ ) { 44*cdf0e10cSrcweir $lang = $_; 45*cdf0e10cSrcweir $lang =~ s/.*xml:lang=\"//; 46*cdf0e10cSrcweir $lang =~ s/\".*//; 47*cdf0e10cSrcweir chomp $lang; 48*cdf0e10cSrcweir $line = $prop; 49*cdf0e10cSrcweir $line =~ s/\" oor:type/_$lang\" oor:type/; 50*cdf0e10cSrcweir print $line; 51*cdf0e10cSrcweir $line = $_; 52*cdf0e10cSrcweir $line =~ s/ xml:lang=\".*\"//; 53*cdf0e10cSrcweir print $line; 54*cdf0e10cSrcweir $line = $prop; 55*cdf0e10cSrcweir $line =~ s/<prop.*/<\/prop>/; 56*cdf0e10cSrcweir print $line; 57*cdf0e10cSrcweir next; 58*cdf0e10cSrcweir } 59*cdf0e10cSrcweir 60*cdf0e10cSrcweir print; 61*cdf0e10cSrcweir}