officecfg/util/component-ldif.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 ldif 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 ldif format
  60 foreach (@comp_names) {
  61
  62         s#org.openoffice.#oo-#g;
  63         s#\.#-#g;
  64
  65         $myLdapName=lc $_;
  66
  67         print OUTFILE "dn: cn=schema\n";
  68         print OUTFILE "attributetypes: ($myLdapName-attr-oid NAME '$myLdapName-attr' DESC '$myLdapName attribute' SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE_VALUE )\n\n";
  69
  70         print OUTFILE "dn: cn=schema\n";
  71         print OUTFILE "objectclasses: ($myLdapName-class-oid NAME '$myLdapName-class' DESC '$myLdapName objclass' SUP 'top' MAY ($myLdapName-attr \$ ))\n\n";
  72 }
  73
  74 close(OUTFILE);
  75
  76 exit 0;