xref: /trunk/main/officecfg/util/template.gen (revision 45ef6fe1)
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