1 files changed, 196 insertions, 0 deletions
diff --git a/ldap/admin/src/scripts/template-verify-db.pl b/ldap/admin/src/scripts/template-verify-db.pl
new file mode 100644
index 00000000..a6cd98ca
--- /dev/null
+++ b/ldap/admin/src/scripts/template-verify-db.pl
@@ -0,0 +1,196 @@
+#{{PERL-EXEC}}
+#
+# BEGIN COPYRIGHT BLOCK
+# Copyright (C) 2003-2004 AOL, Inc.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+sub getDbDir
+{
+    (my $here) = @_;
+    my @dbdirs = ();
+
+    opendir(DIR, $here) or die "can't opendir $here : $!";
+    while (defined($dir = readdir(DIR)))
+    {
+        my $thisdir;
+        if ("$here" eq ".")
+        {
+            $thisdir = $dir;
+        }
+        else
+        {
+            $thisdir = $here . "{{SEP}}" . $dir;
+        }
+        if (-d $thisdir)
+        {
+            if (!($thisdir =~ /\./))
+            {
+                opendir(SUBDIR, "$thisdir") or die "can't opendir $thisdir : $!";
+                while (defined($file = readdir(SUBDIR)))
+                {
+                    if ($file eq "DBVERSION")
+                    {
+                        $#dbdirs++;
+                        $dbdirs[$#dbdirs] = $thisdir;
+                    }
+                }
+                closedir(SUBDIR);
+            }
+        }
+    }
+    closedir(DIR);
+
+    return \@dbdirs;
+}
+
+sub getLastLogfile
+{
+    (my $here) = @_;
+    my $logfile = "";
+
+    opendir(DIR, $here) or die "can't opendir $here : $!";
+    while (defined($file = readdir(DIR)))
+    {
+        if ($file =~ /log./)
+        {
+            $logfile = $file;
+        }
+    }
+    closedir(DIR);
+
+    return \$logfile;
+}
+
+print("*****************************************************************\n");
+print("verify-db: This tool should only be run if recovery start fails\n" .
+      "and the server is down.  If you run this tool while the server is\n" .
+      "running, you may get false reports of corrupted files or other\n" .
+      "false errors.\n");
+print("*****************************************************************\n");
+
+# get dirs having DBVERSION
+my $dbdirs = getDbDir(".");
+
+for (my $i = 0; $i < @$dbdirs; $i++)
+{
+    # run ../bin/slapd/server/db_printlog -h <dbdir> for each <dbdir>
+    print "Verify log files in $$dbdirs[$i] ... ";
+    open(PRINTLOG, "..{{SEP}}bin{{SEP}}slapd{{SEP}}server{{SEP}}db_printlog -h $$dbdirs[$i] 2>&1 1> nul |");
+    sleep 1;
+    my $haserr = 0;
+    while ($l = <PRINTLOG>)
+    {
+        if ("$l" ne "")
+        {
+            if ($haserr == 0)
+            {
+                print "\n";
+            }
+            print "LOG ERROR: $l";
+            $haserr++;
+        }
+    }
+    close(PRINTLOG);
+    if ($haserr == 0 && $? == 0)
+    {
+        print "Good\n";
+    }
+    else
+    {
+        my $logfile = getLastLogfile($$dbdirs[$i]);
+        print "Log file(s) in $$dbdirs[$i] could be corrupted.\n";
+        print "Please delete a log file $$logfile, and try restarting the server.\n";
+    }
+}
+
+for (my $i = 0; $i < @$dbdirs; $i++)
+{
+    # changelog
+    opendir(DB, $$dbdirs[$i]) or die "can't opendir $$dbdirs[$i] : $!";
+    while (defined($db = readdir(DB)))
+    {
+        if ($db =~ /\.db/)
+        {
+            my $thisdb = $$dbdirs[$i] . "{{SEP}}" . $db;
+            print "Verify $thisdb ... ";
+            open(DBVERIFY, "..{{SEP}}bin{{SEP}}slapd{{SEP}}server{{SEP}}db_verify $thisdb 2>&1 1> nul |");
+            sleep 1;
+            my $haserr = 0;
+            while ($l = <DBVERIFY>)
+            {
+                if ($haserr == 0)
+                {
+                    print "\n";
+                }
+                if ("$l" ne "")
+                {
+                    $haserr++;
+                    print "DB ERROR: $l";
+                }
+            }
+            close(DBVERIFY);
+            if ($haserr == 0 && $? == 0)
+            {
+                print "Good\n";
+            }
+            else
+            {
+                print "changelog file $db in $$dbdirs[$i] is corrupted.\n";
+                print "Please restore your backup and recover the database.\n";
+            }
+        }
+    }
+    closedir(DB);
+
+    # backend: get instance dirs under <dbdir>
+    my $instdirs = getDbDir($$dbdirs[$i]);
+
+    for (my $j = 0; $j < @$instdirs; $j++)
+    {
+        opendir(DIR, $$instdirs[$j]) or die "can't opendir $here : $!";
+        while (defined($db = readdir(DIR)))
+        {
+            if ($db =~ /\.db/)
+            {
+                my $thisdb = $$instdirs[$j] . "{{SEP}}" . $db;
+                print "Verify $thisdb ... ";
+                open(DBVERIFY, "..{{SEP}}bin{{SEP}}slapd{{SEP}}server{{SEP}}db_verify $thisdb 2>&1 1> null |");
+                sleep 1;
+                my $haserr = 0;
+                while ($l = <DBVERIFY>)
+                {
+                    if ($haserr == 0)
+                    {
+                        print "\n";
+                    }
+                    if ("$l" ne "")
+                    {
+                        $haserr++;
+                        print "DB ERROR: $l";
+                    }
+                }
+                close(DBVERIFY);
+                if ($haserr == 0 && $? == 0)
+                {
+                    print "Good\n";
+                }
+                else
+                {
+                    if ("$db" =~ /id2entry.db/)
+                    {
+                        print "Primary db file $db in $$instdirs[$j] is corrupted.\n";
+                        print "Please restore your backup and recover the database.\n";
+                    }
+                    else
+                    {
+                        print "Secondary index file $db in $$instdirs[$j] is corrupted.\n";
+                        print "Please run db2index(.pl) for reindexing.\n";
+                    }
+                }
+            }
+        }
+        closedir(DIR);
+    }
+}