#! /usr/bin/perl -w eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; #$running_under_some_shell # # This file is part of the LibreOffice project. # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # # This file incorporates work covered by the following license notice: # # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed # with this work for additional information regarding copyright # ownership. The ASF licenses this file to you under the Apache # License, Version 2.0 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.apache.org/licenses/LICENSE-2.0 . # 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 \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]; # 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 = ; close HEAD; chomp @headlines; chomp @findlist; my @bodylines; my @taillines = (""); foreach my $i (@findlist) { if ($i =~ m/^.*\.xcu\z/s) { push @bodylines, " "; } 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;