diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2007-07-06 11:25:12 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2007-07-06 11:25:12 +0000 |
| commit | 33e86f7370908c2b511c6432678658ecce068445 (patch) | |
| tree | f89f63adb0440352d28ac307969e4d490d9ddaaf | |
| parent | c749945da628886bd8992027df665da193c0b683 (diff) | |
INTEGRATION: CWS c09tosrc (1.1.4); FILE ADDED
2007/06/20 07:54:10 rt 1.1.4.2: #148085# Bring manifest builder to SRC680 code line.
2007/02/14 16:35:21 rt 1.1.4.1: file makemani.pl was added on branch cws_src680_c09tosrc on 2007-06-20 07:54:10 +0000
| -rw-r--r-- | solenv/bin/makemani.pl | 116 |
1 files changed, 116 insertions, 0 deletions
diff --git a/solenv/bin/makemani.pl b/solenv/bin/makemani.pl new file mode 100644 index 000000000000..1ee2b52e6eff --- /dev/null +++ b/solenv/bin/makemani.pl @@ -0,0 +1,116 @@ +#! /usr/bin/perl -w + eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' + if 0; #$running_under_some_shell +#************************************************************************* +# +# OpenOffice.org - a multi-platform office productivity suite +# +# $RCSfile: makemani.pl,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: rt $ $Date: 2007-07-06 12:25:12 $ +# +# 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 +# +#************************************************************************* + +use strict; +use File::Find (); +use Cwd qw (cwd); + +my @findlist; + +# Set the variable $File::Find::dont_use_nlink if you're using AFS, +# since AFS cheats. + +# for the convenience of &wanted calls, including -eval statements: +use vars qw/*name *dir *prune/; +*name = *File::Find::name; +*dir = *File::Find::dir; +*prune = *File::Find::prune; + +sub wanted; + + + +sub wanted { + /^.*\.xcu\z/s + && ( push @findlist, $name ); +# && ( push @findlist, $name ) && print("$name\n"); +} + +sub usage +{ + print STDERR "\n$0 - append *.xcu file entries to .oxt manifest.xml\n\n"; + print STDERR "usage: $0 <static_part> <start dir> <search dir> <destination dir>\n\n"; + print STDERR " staic part - file containig all other content for mainfest.xml\n"; + print STDERR " start dir - directory to change to before starting search\n"; + print STDERR " out dir - destination directory to write manifes.xml to\n\n"; + exit 1; +} + +if ( $#ARGV != 3 ) { usage(); }; + +my $manifest_head = $ARGV[0]; +my $start_dir = $ARGV[1]; +my $dynamic_dir = $ARGV[2]; +my $out_dir = $ARGV[3]; + +print "################################################\n"; +print "# #\n"; +print "# just a prototype - for testing purpose only! #\n"; +print "# #\n"; +print "################################################\n\n"; + + +# Traverse desired filesystems +my $work_dir = cwd(); +chdir $start_dir or die "$0: ERROR - cannot change directory to \"$start_dir\"\n"; +File::Find::find({wanted => \&wanted}, $dynamic_dir); +chdir $work_dir or die "$0: ERROR - oops... cannot change dir to where i came from!\n"; + +open (HEAD, "$manifest_head") or die "$0: ERROR - Cannot open $manifest_head\n"; +my @headlines = <HEAD>; +close HEAD; +chomp @headlines; +chomp @findlist; + +my @bodylines; +my @taillines = ("</manifest:manifest>"); + +foreach my $i (@findlist) { + push @bodylines, " <manifest:file-entry manifest:media-type=\"application/vnd.sun.star.configuration-data\""; + push @bodylines, " manifest:full-path=\"$i\"/>"; +} + +open (MANIOUT,">$out_dir/manifest.xml") or die "$0: ERROR - cannot open \"$out_dir/manifest.xml\" for writing.\n"; +binmode MANIOUT; + +foreach my $j (@headlines, @bodylines, @taillines) { + print MANIOUT "$j\n"; +} + +close MANIOUT; + |