: # -*- perl -*- # # This file is part of the LibreOffice project. # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # # This file incorporates work covered by the following license notice: # # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed # with this work for additional information regarding copyright # ownership. The ASF licenses this file to you under the Apache # License, Version 2.0 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.apache.org/licenses/LICENSE-2.0 . # # generates of the component schema list an ldap schema in ldif format eval 'exec perl -wS $0 ${1+"$@"}' if 0; #creating the output file open(OUTFILE, ">$ARGV[0]") or die "can't open >$ARGV[0]"; #open the makefile open(INFILE, "makefile.mk") or die "can't open makefile.mk"; $inxcs=0; #search all schemas in the makefile except userprofile and format them as e.g org.openoffice.Inet while() { tr/\r\n//d; if (/^\s*XCSFILES/) { $inxcs++; } next unless $inxcs; if ($inxcs) { $inxcs=0 unless /\\$/; next if (/^\s*XCSFILES/); next if (/UserProfile/); s/^\s+//; s/\s*\\$//; s/\.xcs.*$//; s#\$/#.#g; push(@comp_names, $_); } } close(INFILE); # generate the schema in ldif format foreach (@comp_names) { s#org.openoffice.#oo-#g; s#\.#-#g; $myLdapName=lc $_; print OUTFILE "dn: cn=schema\n"; 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"; print OUTFILE "dn: cn=schema\n"; print OUTFILE "objectclasses: ($myLdapName-class-oid NAME '$myLdapName-class' DESC '$myLdapName objclass' SUP 'top' MAY ($myLdapName-attr \$ ))\n\n"; } close(OUTFILE); exit 0;