Attachment 320093 Details for Bug 541819

Simple schema to LDIF tool

schema2ldif.pl (text/plain), 1.49 KB, created by Ralf Haferkamp on 2009-09-28 13:06:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Ralf Haferkamp

Created: 2009-09-28 13:06:28 UTC

Size: 1.49 KB

patch

obsolete

>#!/usr/bin/perl -w
>#
># This is a simple tool to convert OpenLDAP Schema files to
># LDIF suitable for usage with OpenLDAP's dynamic configuration
># backend (cn=config)
>#
># usage:
># schema2ldif.pl <input file>
>#
># The generated LDIF is printed to stdout.
>#
>
>use strict;
>use File::Basename;
>use Text::Wrap;
>
>my $infile = $ARGV[0] || print_usage();
>
>sub print_usage
>{
>    print STDERR "usage: schema2ldif.pl <input file>\n";
>    exit(1);
>}
>
>open( SCHEMA, "< $infile");
>
>my $schemaline = "";
>$Text::Wrap::columns=78;
>$Text::Wrap::separator="\n ";
>
>my $cn = basename($infile, ".schema");
>print STDOUT "dn: cn=$cn,cn=schema,cn=config\n";
>print STDOUT "objectClass: olcSchemaConfig\n"; 
>print STDOUT "cn: $cn\n"; 
>while ( <SCHEMA> )
>{
>    my $line = $_;
>    if ( ( $line =~ /^#/ ) || ( $line =~ /^\s*$/ ))
>    {
>        next;
>    }
>    if ( $line =~ /^(objectclass|attributetype|objectidentifier)\s+(.+)$/i )
>    {
>        if ( $schemaline ne "" )
>        {
>            print STDOUT wrap(""," ", $schemaline);
>            print STDOUT "\n";
>            $schemaline = "";
>        }
>        if ( lc($1) eq "objectidentifier" )
>        {
>            $schemaline .= "olcObjectIdentifier: ";
>        }
>        elsif ( lc($1) eq "objectclass" )
>        {
>            $schemaline .= "olcObjectClasses: ";
>        }
>        elsif ( lc($1) eq "attributetype" )
>        {
>            $schemaline .= "olcAttributeTypes: ";
>        }
>        $schemaline .= $2;
>    }
>    if ( $line =~ /^\s+(.+)$/ )
>    {
>        $schemaline .= " $1";
>    }
>}
>

Actions: View

Attachments on bug 541819: 320093