summaryrefslogtreecommitdiff
path: root/solenv/bin/makemani.pl
diff options
context:
space:
mode:
authorXisco Fauli <anistenis@gmail.com>2011-08-21 21:50:13 +0200
committerXisco Fauli <anistenis@gmail.com>2011-08-21 21:50:13 +0200
commit6c76e4db034fd2c43884698b1a30225fd00b3bfd (patch)
tree1937cb9be81cd2b9f3d0ad27adcc7a7531b8f29d /solenv/bin/makemani.pl
parente9440fb5a0579096423c081b0f0a2185b628e896 (diff)
parent36703ca1de68cd62782d0d425123521a5bc6732b (diff)
Merge branch 'master' into feature/gsoc2011_wizards
Conflicts: automation/source/inc/cmdbasestream.hxx automation/source/server/cmdbasestream.cxx automation/source/server/retstrm.hxx automation/source/testtool/cmdstrm.cxx automation/source/testtool/cmdstrm.hxx automation/source/testtool/tcommuni.cxx basctl/prj/d.lst basctl/uiconfig/basicide/toolbar/findbar.xml cui/source/dialogs/about.cxx cui/source/dialogs/about.src cui/source/inc/about.hxx extensions/source/abpilot/abpservices.cxx extensions/source/dbpilots/dbpservices.cxx extensions/source/propctrlr/pcrservices.cxx extensions/source/svg/makefile.mk forms/Library_frm.mk lingucomponent/source/hyphenator/altlinuxhyph/hyphen/hyphenimp.cxx lingucomponent/source/spellcheck/spell/sspellimp.cxx package/prj/d.lst package/source/zipapi/XMemoryStream.cxx package/source/zipapi/XMemoryStream.hxx setup_native/prj/d.lst setup_native/source/win32/customactions/relnotes/makefile.mk tools/test/export.map wizards/com/sun/star/wizards/common/ConfigGroup.py wizards/com/sun/star/wizards/common/ConfigNode.py wizards/com/sun/star/wizards/common/Configuration.py wizards/com/sun/star/wizards/common/Desktop.py wizards/com/sun/star/wizards/common/FileAccess.py wizards/com/sun/star/wizards/common/Helper.py wizards/com/sun/star/wizards/common/SystemDialog.py wizards/com/sun/star/wizards/document/OfficeDocument.py wizards/com/sun/star/wizards/fax/FaxDocument.py wizards/com/sun/star/wizards/fax/FaxWizardDialog.py wizards/com/sun/star/wizards/fax/FaxWizardDialogConst.py wizards/com/sun/star/wizards/fax/FaxWizardDialogImpl.py wizards/com/sun/star/wizards/fax/FaxWizardDialogResources.py wizards/com/sun/star/wizards/letter/LetterDocument.py wizards/com/sun/star/wizards/letter/LetterWizardDialog.py wizards/com/sun/star/wizards/letter/LetterWizardDialogConst.py wizards/com/sun/star/wizards/letter/LetterWizardDialogImpl.py wizards/com/sun/star/wizards/letter/LetterWizardDialogResources.py wizards/com/sun/star/wizards/text/TextDocument.py wizards/com/sun/star/wizards/text/TextFieldHandler.py wizards/com/sun/star/wizards/text/TextSectionHandler.py wizards/com/sun/star/wizards/text/ViewHandler.py wizards/com/sun/star/wizards/ui/UnoDialog.py wizards/com/sun/star/wizards/ui/UnoDialog2.py wizards/com/sun/star/wizards/ui/WizardDialog.py wizards/com/sun/star/wizards/ui/event/CommonListener.py wizards/com/sun/star/wizards/ui/event/DataAware.py wizards/com/sun/star/wizards/ui/event/RadioDataAware.py wizards/com/sun/star/wizards/ui/event/UnoDataAware.py wizards/util/helpids.h wizards/util/hidother.src xmlsecurity/prj/build.lst xmlsecurity/prj/d.lst xmlsecurity/qa/certext/SanCertExt.cxx
Diffstat (limited to 'solenv/bin/makemani.pl')
-rw-r--r--solenv/bin/makemani.pl111
1 files changed, 111 insertions, 0 deletions
diff --git a/solenv/bin/makemani.pl b/solenv/bin/makemani.pl
new file mode 100644
index 000000000000..7575d07e688b
--- /dev/null
+++ b/solenv/bin/makemani.pl
@@ -0,0 +1,111 @@
+#! /usr/bin/perl -w
+ eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
+ if 0; #$running_under_some_shell
+#*************************************************************************
+#
+# 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 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 {
+ /^.*\.xc(s|u)\z/s
+ && ( push @findlist, $name );
+}
+
+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 " static 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) {
+ if ($i =~ m/^.*\.xcu\z/s) {
+ push @bodylines, " <manifest:file-entry manifest:media-type=\"application/vnd.sun.star.configuration-data\"";
+ } else {
+ push @bodylines, " <manifest:file-entry manifest:media-type=\"application/vnd.sun.star.configuration-schema\"";
+ }
+ 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;
+