office-gobmx/solenv/bin/licinserter.pl

134 lines
4.4 KiB
Perl
Raw Normal View History

:
eval 'exec perl -wS $0 ${1+"$@"}'
if 0;
#*************************************************************************
#
# OpenOffice.org - a multi-platform office productivity suite
#
# $RCSfile: licinserter.pl,v $
#
# $Revision: 1.2 $
#
# last change: $Author: kz $ $Date: 2007-10-10 15:30:30 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
#
#
# GNU Lesser General Public License Version 2.1
# =============================================
# Copyright 2005 by Sun Microsystems, Inc.
# 901 San Antonio Road, Palo Alto, CA 94303, USA
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License version 2.1, as published by the Free Software Foundation.
#
# This library 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 for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA
#
#*************************************************************************
#
# licinserter.pl - create license entries in extension description.xml
#
use File::Basename;
my $langswitch;
sub usage()
{
print STDERR "\nCreate extension descriptions with license-text entries\n";
print STDERR "matching the language activated.\n";
print STDERR "\nUsage:\n";
print STDERR "\t$0 [--langsplit] infile \"naming pattern\" destination\n\n";
print STDERR "\nExample:\n\n";
print STDERR "$0 description.xml dir/license_xxx.txt outdir/description.xml\n\n";
print STDERR "Creates \"someoutdir/description.xml\" with the license file entries like\n\"dir/license_en.US.txt\" ";
print STDERR "for all languages found in the WITH_LANG environment\nvariable\n\n\n";
print STDERR "Example2:\n\n";
print STDERR "$0 --langsplit description.xml dir/license_xxx.txt someoutdir\n\n";
print STDERR "Creates \"someoutdir/<language>/description.xml\" with one license file entry\n\"somedir/license_<language>.txt\" ";
print STDERR "for all languages found in the WITH_LANG\nenvironment variable.\n\nNOTE: when using --langsplit \"destination\" needs to be a directory\n";
}
if ( $ARGV[0] =~ /^-/ ) {
$langswitch = shift @ARGV;
if ( $langswitch ne "--langsplit" ) {
usage();
exit 1;
}
if ( ! -d $ARGV[2] ) {
print STDERR "\nERROR - $ARGV[2] is not directory\n";
usage();
exit 2;
}
}
if ( $#ARGV != 2 ) {
print "zzz\n";
usage();
exit 1;
}
open INFILE,$ARGV[0] or die "oops - no such file $ARGV[0]!\n";
my @inlines = <INFILE>;
close INFILE;
chomp @inlines;
if ( $langswitch eq "" ) {
my @outlines;
foreach my $i (@inlines) {
if ( $i =~ /license-text/ ) {
my $ii;
my $name;
foreach my $code ( split(/\s+/,$ENV{WITH_LANG}) ) {
$ii = $i;
$name = $ARGV[1];
$name =~ s/xxx/$code/;
$ii =~ s/isocode/$code/;
$ii =~ s?licensefile?$name?;
push @outlines, "$ii\n";
}
} else {
push @outlines, "$i\n";
}
}
open OUTFILE, ">$ARGV[2]" or die "ooops - can't open $ARGV[2] for writing\n";
print OUTFILE @outlines;
close OUTFILE or die "ooops - can't write to $ARGV[2]\n";
} else {
my @outlines;
my $outname = basename($ARGV[0],());
foreach my $code ( split(/\s+/,$ENV{WITH_LANG}) ) {
@outlines=();
foreach my $i (@inlines) {
if ( $i =~ /license-text/ ) {
my $name;
my $ii = $i;
$name = $ARGV[1];
$name =~ s/xxx/$code/;
$ii =~ s/isocode/$code/;
$ii =~ s?licensefile?$name?;
push @outlines, "$ii\n";
} else {
push @outlines, "$i\n";
}
}
mkdir "$ARGV[2]/$code";
open OUTFILE, ">$ARGV[2]/$code/$outname" or die "ooops - can't open $ARGV[2]/$code/$outname for writing\n";
print OUTFILE @outlines;
close OUTFILE or die "ooops - can't write to $ARGV[2]/$code/$outname\n";
}
}