INTEGRATION: CWS pppopt02 (1.1.2); FILE ADDED

2007/05/16 15:31:32 sj 1.1.2.1: initial version

1 files changed, 133 insertions, 0 deletions

diff --git a/solenv/bin/licinserter.pl b/solenv/bin/licinserter.pl
new file mode 100644
index 000000000000..921bb4c7b5ce
--- /dev/null
+++ b/solenv/bin/licinserter.pl
@@ -0,0 +1,133 @@
+:
+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";
+    }
+}