officecfg/util/template.gen

   1 : # -*- perl -*-
   2 #
   3 # This file is part of the LibreOffice project.
   4 #
   5 # This Source Code Form is subject to the terms of the Mozilla Public
   6 # License, v. 2.0. If a copy of the MPL was not distributed with this
   7 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8 #
   9 # This file incorporates work covered by the following license notice:
  10 #
  11 #   Licensed to the Apache Software Foundation (ASF) under one or more
  12 #   contributor license agreements. See the NOTICE file distributed
  13 #   with this work for additional information regarding copyright
  14 #   ownership. The ASF licenses this file to you under the Apache
  15 #   License, Version 2.0 (the "License"); you may not use this file
  16 #   except in compliance with the License. You may obtain a copy of
  17 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18 #
  19 eval 'exec perl -wS $0 ${1+"$@"}'
  20         if 0;
  21
  22 open(OUTFILE, ">$ARGV[1]");
  23
  24 print OUTFILE "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
  25 print OUTFILE "<org.openoffice.Templates>\n";
  26
  27
  28 chdir($ARGV[0]) or die "can't chdir() to $ARGV[0]";
  29
  30 opendir(DIR, ".");
  31
  32 @files=readdir(DIR);
  33
  34 foreach $file (@files) {
  35         if ( $file =~ /\w*\.tpl/ ) {
  36                 open(INFILE, "<$file") or die "can't open file $file";
  37                 while(<INFILE>) {
  38                         if ( /xml version=/ ) {
  39                                 next;
  40                         }
  41                         print OUTFILE;
  42                 }
  43                 close(INFILE);
  44         }
  45 }
  46
  47 print OUTFILE "</org.openoffice.Templates>\n";
  48
  49 closedir(DIR);
  50
  51 close(OUTFILE);