1: # -*- perl -*- 2############################################################### 3# 4# Licensed to the Apache Software Foundation (ASF) under one 5# or more contributor license agreements. See the NOTICE file 6# distributed with this work for additional information 7# regarding copyright ownership. The ASF licenses this file 8# to you under the Apache License, Version 2.0 (the 9# "License"); you may not use this file except in compliance 10# with the License. You may obtain a copy of the License at 11# 12# http://www.apache.org/licenses/LICENSE-2.0 13# 14# Unless required by applicable law or agreed to in writing, 15# software distributed under the License is distributed on an 16# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 17# KIND, either express or implied. See the License for the 18# specific language governing permissions and limitations 19# under the License. 20# 21############################################################### 22eval 'exec perl -wS $0 ${1+"$@"}' 23 if 0; 24 25open(OUTFILE, ">$ARGV[1]"); 26 27print OUTFILE "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"; 28print OUTFILE "<org.openoffice.Templates>\n"; 29 30 31chdir($ARGV[0]) or die "can't chdir() to $ARGV[0]"; 32 33opendir(DIR, "."); 34 35@files=readdir(DIR); 36 37foreach $file (@files) { 38 if ( $file =~ /\w*\.tpl/ ) { 39 open(INFILE, "<$file") or die "can't open file $file"; 40 while(<INFILE>) { 41 if ( /xml version=/ ) { 42 next; 43 } 44 print OUTFILE; 45 } 46 close(INFILE); 47 } 48} 49 50print OUTFILE "</org.openoffice.Templates>\n"; 51 52closedir(DIR); 53 54close(OUTFILE); 55