officecfg/util/component-conf.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
  20 # generates of the component schema list an ldap schema in slapd format
  21
  22 eval 'exec perl -wS $0 ${1+"$@"}'
  23         if 0;
  24
  25 #creating the output file
  26 open(OUTFILE, ">$ARGV[0]") or die "can't open >$ARGV[0]";
  27
  28 #open the makefile
  29 open(INFILE, "makefile.mk") or die "can't open makefile.mk";
  30
  31 $inxcs=0;
  32
  33 #search all schemas in the makefile except userprofile and format them as e.g org.openoffice.Inet
  34 while(<INFILE>) {
  35         tr/\r\n//d;
  36
  37         if (/^\s*XCSFILES/) {
  38                 $inxcs++;
  39         }
  40         next unless $inxcs;
  41
  42         if ($inxcs) {
  43
  44                 $inxcs=0 unless /\\$/;
  45
  46                 next if (/^\s*XCSFILES/);
  47                 next if (/UserProfile/);
  48
  49                 s/^\s+//;
  50                 s/\s*\\$//;
  51                 s/\.xcs.*$//;
  52                 s#\$/#.#g;
  53
  54                 push(@comp_names, $_);
  55         }
  56 }
  57 close(INFILE);
  58
  59 # generate the schema in slapd format
  60
  61 foreach (@comp_names) {
  62
  63         s#org.openoffice.#oo-#g;
  64         s#\.#-#g;
  65
  66         $myLdapName=lc $_;
  67
  68         print OUTFILE "attribute $myLdapName-attr $myLdapName-attr-oid cis single\n";
  69         print OUTFILE "objectclass $myLdapName-class\n";
  70         print OUTFILE "\toid\n";
  71         print OUTFILE "\t\t$myLdapName-class-oid\n";
  72         print OUTFILE "\tsuperior top\n";
  73         print OUTFILE "\tallows\n";
  74         print OUTFILE "\t$myLdapName-attr\n";
  75 }
  76
  77 close(OUTFILE);
  78
  79 exit 0;