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