/389-ds-base-1.2.11.7/ldap/admin/src/scripts/template-ldif2db.pl.in
Autoconf | 241 lines | 190 code | 6 blank | 45 comment | 36 complexity | 10efe505e7c661f1026c0a495811cb96 MD5 | raw file
Possible License(s): AGPL-1.0, GPL-2.0
- #{{PERL-EXEC}}
- #
- # BEGIN COPYRIGHT BLOCK
- # This Program is free software; you can redistribute it and/or modify it under
- # the terms of the GNU General Public License as published by the Free Software
- # Foundation; version 2 of the License.
- #
- # This Program is distributed in the hope that it will be useful, but WITHOUT
- # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
- # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
- #
- # You should have received a copy of the GNU General Public License along with
- # this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
- # Place, Suite 330, Boston, MA 02111-1307 USA.
- #
- # In addition, as a special exception, Red Hat, Inc. gives You the additional
- # right to link the code of this Program with code not covered under the GNU
- # General Public License ("Non-GPL Code") and to distribute linked combinations
- # including the two, subject to the limitations in this paragraph. Non-GPL Code
- # permitted under this exception must only link to the code of this Program
- # through those well defined interfaces identified in the file named EXCEPTION
- # found in the source code files (the "Approved Interfaces"). The files of
- # Non-GPL Code may instantiate templates or use macros or inline functions from
- # the Approved Interfaces without causing the resulting work to be covered by
- # the GNU General Public License. Only Red Hat, Inc. may make changes or
- # additions to the list of Approved Interfaces. You must obey the GNU General
- # Public License in all respects for all of the Program code and other code used
- # in conjunction with the Program except the Non-GPL Code covered by this
- # exception. If you modify this file, you may extend this exception to your
- # version of the file, but you are not obligated to do so. If you do not wish to
- # provide this exception without modification, you must delete this exception
- # statement from your version and license this file solely under the GPL without
- # exception.
- #
- #
- # Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
- # Copyright (C) 2005 Red Hat, Inc.
- # All rights reserved.
- # END COPYRIGHT BLOCK
- #
- sub usage {
- print(STDERR "Usage: $0 [-v] -D rootdn { -w password | -w - | -j filename } \n");
- print(STDERR " -n instance | {-s include}* [{-x exclude}*] [-O] [-c]\n");
- print(STDERR " [-g [string]] [-G namespace_id] {-i filename}*\n");
- print(STDERR " Opts: -D rootdn - Directory Manager\n");
- print(STDERR " : -w password - Directory Manager's password\n");
- print(STDERR " : -w - - Prompt for Directory Manager's password\n");
- print(STDERR " : -j filename - Read Directory Manager's password from file\n");
- print(STDERR " : -n instance - instance to be imported to\n");
- print(STDERR " : -i filename - input ldif file(s)\n");
- print(STDERR " : -s include - included suffix\n");
- print(STDERR " : -x exclude - excluded suffix(es)\n");
- print(STDERR " : -O - only create core db, no attr indexes\n");
- print(STDERR " : -c size - merge chunk size\n");
- print(STDERR " : -g [string] - string is \"none\" or \"deterministic\"\n");
- print(STDERR " : none - unique id is not generated\n");
- print(STDERR " : deterministic - generate name based unique id (-G name)\n");
- print(STDERR " : by default - generate time based unique id\n");
- print(STDERR " : -G name - namespace id for name based uniqueid (-g deterministic)\n");
- print(STDERR " : -E - Encrypt data when importing\n");
- print(STDERR " : -v - verbose\n");
- }
- @ldiffiles = (
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- ""
- );
- @included = (
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- ""
- );
- @excluded = (
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- "", "", "", "", "", "", "", "", "", "",
- ""
- );
- $maxidx = 50;
- $instance = "";
- $noattrindexes = 0;
- $mergechunksiz = 0;
- $genuniqid = "time";
- $uniqidname = "";
- $taskname = "";
- $prefix = "{{DS-ROOT}}";
- $verbose = 0;
- $rootdn = "";
- $passwd = "";
- $passwdfile = "";
- $i = 0;
- $ldifi = 0;
- $incli = 0;
- $excli = 0;
- $encrypt_on_import = 0;
- while ($i <= $#ARGV) {
- if ( "$ARGV[$i]" eq "-i" ) { # ldiffiles
- $i++;
- if ($ldifi < $maxidx) {
- $ldiffiles[$ldifi] = $ARGV[$i]; $ldifi++;
- } else {
- &usage; exit(1);
- }
- } elsif ("$ARGV[$i]" eq "-s") { # included suffix
- $i++;
- if ($incli < $maxidx) {
- $included[$incli] = $ARGV[$i]; $incli++;
- } else {
- &usage; exit(1);
- }
- } elsif ("$ARGV[$i]" eq "-x") { # excluded suffix
- $i++;
- if ($excli < $maxidx) {
- $excluded[$excli] = $ARGV[$i]; $excli++;
- } else {
- &usage; exit(1);
- }
- } elsif ("$ARGV[$i]" eq "-n") { # instance
- $i++; $instance = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "-D") { # Directory Manager
- $i++; $rootdn = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "-w") { # Directory Manager's password
- $i++; $passwd = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "-j") { # Read Directory Manager's password from a file
- $i++; $passwdfile = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "-O") { # no attr indexes
- $noattrindexes = 1;
- } elsif ("$ARGV[$i]" eq "-c") { # merge chunk size
- $i++; $mergechunksiz = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "-g") { # generate uniqueid
- if (("$ARGV[$i+1]" ne "") && !("$ARGV[$i+1]" =~ /^-/)) {
- $i++;
- if ("$ARGV[$i]" eq "none") {
- $genuniqid = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "deterministic") {
- $genuniqid = $ARGV[$i];
- }
- }
- } elsif ("$ARGV[$i]" eq "-G") { # namespace id
- $i++; $uniqidname = $ARGV[$i];
- } elsif ("$ARGV[$i]" eq "-v") { # verbose
- $verbose = 1;
- } elsif ("$ARGV[$i]" eq "-E") { # encrypt on import
- $encrypt_on_import = 1;
- } else {
- &usage; exit(1);
- }
- $i++;
- }
- if ($passwdfile ne ""){
- # Open file and get the password
- unless (open (RPASS, $passwdfile)) {
- die "Error, cannot open password file $passwdfile\n";
- }
- $passwd = <RPASS>;
- chomp($passwd);
- close(RPASS);
- } elsif ($passwd eq "-"){
- # Read the password from terminal
- print "Bind Password: ";
- # Disable console echo
- system("@sttyexec@ -echo") if -t STDIN;
- # read the answer
- $passwd = <STDIN>;
- # Enable console echo
- system("@sttyexec@ echo") if -t STDIN;
- print "\n";
- chop($passwd); # trim trailing newline
- }
- if (($instance eq "" && $included[0] eq "") || $ldiffiles[0] eq "" || $rootdn eq "" || $passwd eq "") { &usage; exit(1); }
- ($s, $m, $h, $dy, $mn, $yr, $wdy, $ydy, $r) = localtime(time);
- $mn++; $yr += 1900;
- $taskname = "import_${yr}_${mn}_${dy}_${h}_${m}_${s}";
- $dn = "dn: cn=$taskname, cn=import, cn=tasks, cn=config\n";
- $misc = "changetype: add\nobjectclass: top\nobjectclass: extensibleObject\n";
- $cn = "cn: $taskname\n";
- if ($instance ne "") {
- $nsinstance = "nsInstance: ${instance}\n";
- }
- $i = 0;
- $nsldiffiles = "";
- while ("" ne "$ldiffiles[$i]") {
- $nsldiffiles = "${nsldiffiles}nsFilename: $ldiffiles[$i]\n";
- $i++;
- }
- $i = 0;
- $nsincluded = "";
- while ("" ne "$included[$i]") {
- $nsincluded = "${nsincluded}nsIncludeSuffix: $included[$i]\n";
- $i++;
- }
- $i = 0;
- $nsexcluded = "";
- while ("" ne "$excluded[$i]") {
- $nsexcluded = "${nsexcluded}nsExcludeSuffix: $excluded[$i]\n";
- $i++;
- }
- $nsnoattrindexes = "";
- if ($noattrindexes != 0) { $nsnoattrindexes = "nsImportIndexAttrs: false\n"; }
- $nsimportencrypt = "";
- if ($encrypt_on_import != 0) { $nsimportencrypt = "nsImportEncrypt: true\n"; }
- $nsmergechunksiz = "nsImportChunkSize: ${mergechunksiz}\n";
- $nsgenuniqid = "nsUniqueIdGenerator: ${genuniqid}\n";
- $nsuniqidname = "";
- if ($uniqidname ne "") { $nsuniqidname = "nsUniqueIdGeneratorNamespace: ${uniqidname}\n"; }
- $entry = "${dn}${misc}${cn}${nsinstance}${nsincluded}${nsexcluded}${nsldiffiles}${nsnoattrindexes}${nsimportencrypt}${nsmergechunksiz}${nsgenuniqid}${nsuniqidname}";
- $vstr = "";
- if ($verbose != 0) { $vstr = "-v"; }
- $ENV{'PATH'} = "$prefix@ldaptool_bindir@:$prefix/usr/bin:@ldaptool_bindir@:/usr/bin";
- libpath_add("$prefix@nss_libdir@");
- libpath_add("$prefix/usr/lib");
- libpath_add("@nss_libdir@");
- libpath_add("/usr/lib");
- $ENV{'SHLIB_PATH'} = "$ENV{'LD_LIBRARY_PATH'}";
- open(FOO, "| ldapmodify @ldaptool_opts@ $vstr -h {{SERVER-NAME}} -p {{SERVER-PORT}} -D \"$rootdn\" -w \"$passwd\" -a" );
- print(FOO "$entry");
- close(FOO);
- sub libpath_add {
- my $libpath = shift;
- if ($libpath) {
- if ($ENV{'LD_LIBRARY_PATH'}) {
- $ENV{'LD_LIBRARY_PATH'} = "$ENV{'LD_LIBRARY_PATH'}:$libpath";
- } else {
- $ENV{'LD_LIBRARY_PATH'} = "$libpath";
- }
- }
- }