Trac Ticket 2 - If node entries are tombstone'd,

                subordinate entries fail to get the full DN.

https://fedorahosted.org/389/ticket/2

New file ldap/admin/src/scripts/91subtreereindex.pl was dropped
from the commit 681b22ba43a12b83e588f00f2c5ddffdacf0679b.
This patch is adding the file.

ldap/admin/src/scripts/91subtreereindex.pl

@@ -0,0 +1,141 @@
+use Mozilla::LDAP::Conn;
+use Mozilla::LDAP::Utils qw(normalizeDN);
+use Mozilla::LDAP::API qw(:constant ldap_url_parse ldap_explode_dn);
+
+sub runinst {
+    my ($inf, $inst, $dseldif, $conn) = @_;
+
+    my @errs = ();
+
+    my $config = $conn->search("cn=config", "base", "(objectclass=*)");
+    if (!$config) {
+        push @errs, ['error_finding_config_entry', 'cn=config',
+                     $conn->getErrorString()];
+        return @errs;
+    }
+    my $rundir = $config->getValues('nsslapd-rundir');
+
+    # Check if the server is up or not
+    my $pidfile = $rundir . "/" . $inst . ".pid";
+    if (-e $pidfile) {
+        return (); # server is running; do nothing.
+    }
+
+    my $dbconf = $conn->search("cn=config,cn=ldbm database,cn=plugins,cn=config", "base", "(objectclass=*)");
+    if (!$dbconf) {
+        push @errs, ['error_finding_config_entry',
+                     'cn=config,cn=ldbm database,cn=plugins,cn=config',
+                     $conn->getErrorString()];
+        return @errs;
+    }
+
+    # Get the value of nsslapd-subtree-rename-switch.
+    my $switch = $dbconf->getValues('nsslapd-subtree-rename-switch');
+    if ("" eq $switch) {
+        return (); # subtree-rename-switch does not exist; do nothing.
+    } elsif ("off" eq $switch || "OFF" eq $switch) {
+        return (); # subtree-rename-switch is OFF; do nothing.
+    }
+
+    my $dbdir = $dbconf->getValues('nsslapd-directory');
+    my $dbversion0 = $dbdir . "/DBVERSION";
+    my $is_rdn_format = 0;
+    my $dbversionstr = "";
+    if (!open(DBVERSION, "$dbversion0")) {
+        push @errs, ['error_opening_file', $dbversion0, $!];
+        return @errs;
+    } else {
+        while (<DBVERSION>) {
+            if ($_ =~ /rdn-format/) {
+                $is_rdn_format = 1;
+                $dbversionstr = $_;
+                if ($_ =~ /rdn-format-1/) {
+                    $is_rdn_format = 2;
+                }
+            }
+        }
+        close DBVERSION;
+
+        if (2 == $is_rdn_format) {
+            return (); # DB already has the new rdn format.
+        }
+
+        if (0 == $is_rdn_format) {
+            push @errs, ['error_format_error', 'database'];
+            return @errs;
+        }
+    }
+
+    my $instconf = $conn->search("cn=ldbm database,cn=plugins,cn=config", "onelevel", "(objectclass=*)");
+    if (!$instconf) {
+        push @errs, ['error_finding_config_entry',
+                     'cn=*,cn=ldbm database,cn=plugins,cn=config',
+                     $conn->getErrorString()];
+        return @errs;
+    }
+
+    my $instancedir = $config->getValues('nsslapd-instancedir');
+    my $reindex = $instancedir . "/db2index";
+
+    while ($instconf) {
+        my $backend= $instconf->getValues('cn');
+        if (($backend eq "config") || ($backend eq "monitor")) {
+            goto NEXT;
+        }
+        my $instdbdir = $instconf->getValues('nsslapd-directory');
+        my $dbversion1 = $instdbdir . "/DBVERSION";
+        if (!open(DBVERSION, "$dbversion1")) {
+            push @errs, ['error_opening_file', $dbversion1, $!];
+            goto NEXT;
+        } else {
+            my $versionstr = "";
+            while (<DBVERSION>) {
+                if ($_ =~ /rdn-format/) {
+                    $is_rdn_format = 1;
+                    $versionstr = $_;
+                    if ($_ =~ /rdn-format-1/) {
+                        $is_rdn_format = 2;
+                    }
+                }
+            }
+            close DBVERSION;
+    
+            if (2 == $is_rdn_format) {
+                # DB already has the new rdn format.
+                goto NEXT;
+            }
+    
+            if (0 == $is_rdn_format) {
+                push @errs, ['error_format_error', $instdbdir];
+                goto NEXT;
+            }
+
+            # reindex entryrdn
+            my $rc = system("$reindex -n $backend -t entryrdn");
+
+            # update instance DBVERSION file
+            if ($versionstr ne "") {
+                if (!open(DBVERSION, "> $dbversion1")) {
+                    push @errs, ['error_opening_file', $dbversion1, $!];
+                } else {
+                    $versionstr =~ y/rdn\-format/rdn\-format\-1/;
+                    print DBVERSION $versionstr . "\n";
+                    close DBVERSION;
+                }
+            }
+        }
+NEXT:
+        $instconf = $conn->nextEntry();
+    }
+
+    # update main DBVERSION file
+    if (!open(DBVERSION, "$dbversion0")) {
+        push @errs, ['error_opening_file', $dbversion0, $!];
+    } else {
+        $dbversionstr = y/rdn\-format/rdn\-format\-1/;
+        print DBVERSION $versionstr . "\n";
+        close DBVERSION;
+    }
+
+    return @errs;
+}