1*cdf0e10cSrcweir: # -*- perl -*- 2*cdf0e10cSrcweir#************************************************************************* 3*cdf0e10cSrcweir# 4*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 5*cdf0e10cSrcweir# 6*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 7*cdf0e10cSrcweir# 8*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 9*cdf0e10cSrcweir# 10*cdf0e10cSrcweir# This file is part of OpenOffice.org. 11*cdf0e10cSrcweir# 12*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 13*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 14*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 15*cdf0e10cSrcweir# 16*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 17*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 18*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 20*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 21*cdf0e10cSrcweir# 22*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 23*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 24*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 25*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 26*cdf0e10cSrcweir# 27*cdf0e10cSrcweir#************************************************************************* 28*cdf0e10cSrcweir 29*cdf0e10cSrcweir# generates of the component schema list an ldap schema in ldif format 30*cdf0e10cSrcweir 31*cdf0e10cSrcweireval 'exec perl -wS $0 ${1+"$@"}' 32*cdf0e10cSrcweir if 0; 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir#creating the output file 35*cdf0e10cSrcweiropen(OUTFILE, ">$ARGV[0]") or die "can't open >$ARGV[0]"; 36*cdf0e10cSrcweir 37*cdf0e10cSrcweir#open the makefile 38*cdf0e10cSrcweiropen(INFILE, "makefile.mk") or die "can't open makefile.mk"; 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir$inxcs=0; 41*cdf0e10cSrcweir 42*cdf0e10cSrcweir#search all schemas in the makefile except userprofile and format them as e.g org.openoffice.Inet 43*cdf0e10cSrcweirwhile(<INFILE>) { 44*cdf0e10cSrcweir tr/\r\n//d; 45*cdf0e10cSrcweir 46*cdf0e10cSrcweir if (/^\s*XCSFILES/) { 47*cdf0e10cSrcweir $inxcs++; 48*cdf0e10cSrcweir } 49*cdf0e10cSrcweir next unless $inxcs; 50*cdf0e10cSrcweir 51*cdf0e10cSrcweir if ($inxcs) { 52*cdf0e10cSrcweir 53*cdf0e10cSrcweir $inxcs=0 unless /\\$/; 54*cdf0e10cSrcweir 55*cdf0e10cSrcweir next if (/^\s*XCSFILES/); 56*cdf0e10cSrcweir next if (/UserProfile/); 57*cdf0e10cSrcweir 58*cdf0e10cSrcweir s/^\s+//; 59*cdf0e10cSrcweir s/\s*\\$//; 60*cdf0e10cSrcweir s/\.xcs.*$//; 61*cdf0e10cSrcweir s#\$/#.#g; 62*cdf0e10cSrcweir 63*cdf0e10cSrcweir push(@comp_names, $_); 64*cdf0e10cSrcweir } 65*cdf0e10cSrcweir} 66*cdf0e10cSrcweirclose(INFILE); 67*cdf0e10cSrcweir 68*cdf0e10cSrcweir# generate the schema in ldif format 69*cdf0e10cSrcweirforeach (@comp_names) { 70*cdf0e10cSrcweir 71*cdf0e10cSrcweir s#org.openoffice.#oo-#g; 72*cdf0e10cSrcweir s#\.#-#g; 73*cdf0e10cSrcweir 74*cdf0e10cSrcweir $myLdapName=lc $_; 75*cdf0e10cSrcweir 76*cdf0e10cSrcweir print OUTFILE "dn: cn=schema\n"; 77*cdf0e10cSrcweir 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"; 78*cdf0e10cSrcweir 79*cdf0e10cSrcweir print OUTFILE "dn: cn=schema\n"; 80*cdf0e10cSrcweir print OUTFILE "objectclasses: ($myLdapName-class-oid NAME '$myLdapName-class' DESC '$myLdapName objclass' SUP 'top' MAY ($myLdapName-attr \$ ))\n\n"; 81*cdf0e10cSrcweir} 82*cdf0e10cSrcweir 83*cdf0e10cSrcweirclose(OUTFILE); 84*cdf0e10cSrcweir 85*cdf0e10cSrcweirexit 0; 86