officecfg/util/component-map.gen

   1 : # -*- perl -*-
   2 #*************************************************************************
   3 #
   4 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5 #
   6 # Copyright 2008 by Sun Microsystems, Inc.
   7 #
   8 # OpenOffice.org - a multi-platform office productivity suite
   9 #
  10 # $RCSfile: component-map.gen,v $
  11 #
  12 # $Revision: 1.3 $
  13 #
  14 # This file is part of OpenOffice.org.
  15 #
  16 # OpenOffice.org is free software: you can redistribute it and/or modify
  17 # it under the terms of the GNU Lesser General Public License version 3
  18 # only, as published by the Free Software Foundation.
  19 #
  20 # OpenOffice.org is distributed in the hope that it will be useful,
  21 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 # GNU Lesser General Public License version 3 for more details
  24 # (a copy is included in the LICENSE file that accompanied this code).
  25 #
  26 # You should have received a copy of the GNU Lesser General Public License
  27 # version 3 along with OpenOffice.org.  If not, see
  28 # <http://www.openoffice.org/license.html>
  29 # for a copy of the LGPLv3 License.
  30 #
  31 #*************************************************************************
  32
  33
  34 # generates of the component schema list mapping file, which
  35 # describes the mapping between OOR and LDAP
  36
  37 eval 'exec perl -wS $0 ${1+"$@"}'
  38         if 0;
  39
  40 #creating the output file
  41 open(OUTFILE, ">$ARGV[0]") or die "can't open >$ARGV[0]";
  42
  43 #open the makefile
  44 open(INFILE, "makefile.mk") or die "can't open makefile.mk";
  45
  46 $inxcs=0;
  47
  48 #search all schemas in the makefile except userprofile and format them as e.g org.openoffice.Inet
  49 while(<INFILE>) {
  50         tr/\r\n//d;
  51
  52         if (/^\s*XCSFILES/) {
  53                 $inxcs++;
  54         }
  55         next unless $inxcs;
  56
  57         if ($inxcs) {
  58
  59                 $inxcs=0 unless /\\$/;
  60
  61                 next if (/^\s*XCSFILES/);
  62                 next if (/UserProfile/);
  63
  64                 s/^\s+//;
  65                 s/\s*\\$//;
  66                 s/\.xcs.*$//;
  67                 s#\$/#.#g;
  68
  69                 push(@comp_names, $_);
  70         }
  71 }
  72 close(INFILE);
  73
  74 # create the properites file
  75
  76 print OUTFILE "# location of the component schema \n";
  77 print OUTFILE "component-schema=schema\n\n";
  78
  79 print OUTFILE "# location of the component data \n";
  80 print OUTFILE "component-data=data\n\n";
  81
  82 $comps=join (';',@comp_names);
  83 print OUTFILE "# installed components \n";
  84 print OUTFILE "components=$comps\n\n";
  85
  86 print OUTFILE "# component mapping \n";
  87 foreach (@comp_names) {
  88         $myCompName=$_;
  89
  90         s#org.openoffice.#oo-#g;
  91         s#\.#-#g;
  92
  93         $myLdapName=lc $_;
  94
  95         print OUTFILE "component/$myCompName/attribute=$myLdapName-attr\n";
  96         print OUTFILE "component/$myCompName/objectclass=$myLdapName-class\n\n";
  97 }
  98
  99 close(OUTFILE);
 100
 101 exit 0;