convert
changeset 4 5b0accae98a7
parent 3 51ab3dd0fd5c
child 5 b6923b230915
--- a/convert	Mon Oct 21 22:24:17 2013 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,44 +0,0 @@
-#! /usr/bin/perl
-# according
-# http://www.zytrax.com/books/ldap/ch6/slapd-config.html#use-schemas
-use 5.010;
-use strict;
-use warnings;
-use File::Temp;
-
-my $CORE = '/etc/ldap/schema/core.schema';
-
-die "$0: $CORE: $!\n" if not -r $CORE;
-
-my $cf = File::Temp->new();
-my $cd = File::Temp->newdir();
-
-$cf->print(<<_EOF);
-include $CORE
-include ./exim.schema
-_EOF
-
-close $cf;
-
-system slaptest => ( -f => $cf ),
-		   ( -F => $cd );
-
-my $ldif;
-open($ldif, '<', $_ = "$cd/cn=config/cn=schema/cn={1}exim.ldif")
-    or die "Can't open $_: $!\n";
-
-$_ = do { local $/ = undef; <$ldif> };
-
-s/\n\s+//gms;
-s/^(?!(olc|dn|objectClass|cn)).*?\n//msg;
-s/(?<=^dn: cn=){\d+}(\w+)/$1,cn=schema,cn=config/ms;
-s/(?<=^cn: ){\d+}//msg;
-
-open($ldif, '>', 'exim.ldif') 
-    or die "Can't open > exim.ldif: $!\n";
-$ldif->print(<<__);
-# autogenerated by $0
-# do not edit, edit exim.schema instead
-__
-$ldif->print($_);
-close $ldif;