Bugzilla Bug #440141: Provide a tool which removes DS instances.

git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@29 c9f7a03b-bd48-0410-a16d-cbbf54688b0b

3 files changed, 712 insertions, 0 deletions

diff --git a/pki/linux/scripts/ds_remove_cgi_32 b/pki/linux/scripts/ds_remove_cgi_32
new file mode 100755
index 000000000..8759499d0
--- /dev/null
+++ b/pki/linux/scripts/ds_remove_cgi_32
@@ -0,0 +1,278 @@
+#!/usr/bin/env perl
+# 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.
+# 
+# Copyright (C) 2007 Red Hat, Inc.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+use lib qw(/usr/lib/dirsrv/perl);
+
+use strict;
+
+use File::Basename;
+use File::Path;
+use CGI qw(:cgi :oldstyle_urls);
+use Inf;
+###use AdminUtil;
+use Util;
+use FileConn;
+use Resource;
+
+# remove_tree($centry, $key, $instname, [$isparent, [$dontremove]])
+#     $centry: entry to look for the path to be removed
+#     $key: key to look for the path in the entry
+#     $instname: instance name "slapd-<ID>" to check the path
+#     $isparent: specify 1 to remove from the parent dir
+#     $dontremove: pattern not to be removed (e.g., ".db$")
+sub remove_tree
+{
+    my $centry = shift;
+    my $key = shift;
+    my $instname = shift;
+    my $isparent = shift;
+    my $dontremove = shift;
+
+    foreach my $path ( @{$centry->{$key}} )
+    {
+        my $rmdir = "";
+        my $rc = 0;
+        if ( 1 == $isparent )
+        {
+            $rmdir = dirname($path);
+        }
+        else
+        {
+            $rmdir = $path;
+        }
+        if ( -d $rmdir && $rmdir =~ /$instname/ )
+        {
+            if ( "" eq "$dontremove" )
+            {
+                $rc = rmtree($rmdir);
+                if ( 0 == $rc )
+                {
+                    print "Content-type: text/plain\n\n";
+                    print "NMC_ErrInfo: $rmdir was not removed.\n";
+                    print STDERR "Warning: $rmdir was not removed.\n";
+                }
+            }
+            else
+            {
+                # Skip the dontremove files
+                $rc = opendir(DIR, $rmdir);
+                if ($rc)
+                {
+                    while (defined(my $file = readdir(DIR)))
+                    {
+                        next if ( "$file" =~ /$dontremove/ );
+                        next if ( "$file" eq "." );
+                        next if ( "$file" eq ".." );
+                        my $rmfile = $rmdir . "/" . $file;
+                        my $rc0 = rmtree($rmfile);
+                        if ( 0 == $rc0 )
+                        {
+                            print "Content-type: text/plain\n\n";
+                            print "NMC_ErrInfo: $rmfile was not removed.\n";
+                            print STDERR "Warning: $rmfile was not removed.\n";
+                        }
+                    }
+                    closedir(DIR);
+                }
+                my $newrmdir = $rmdir . ".removed";
+                my $rc1 = 1;
+                if ( -d $newrmdir )
+                {
+                    $rc1 = rmtree($newrmdir);
+                    if ( 0 == $rc1 )
+                    {
+                        print "Content-type: text/plain\n\n";
+                        print "NMC_ErrInfo: $newrmdir was not removed.\n";
+                        print STDERR "Warning: $newrmdir was not removed.\n";
+                    }
+                }
+                if ( 0 < $rc1 )
+                {
+                    rename($rmdir, $newrmdir);
+                }
+            }
+        }
+    }
+}
+
+sub remove_pidfile
+{
+    my ($type, $instdir, $instname) = @_;
+
+    my $pattern = "^" . $type . ".*=";
+    my $pidline = `grep $pattern $instdir/start-slapd`;
+    chomp($pidline);
+    my ($key, $pidfile) = split(/=/, $pidline);
+    if ( -e $pidfile && $pidfile =~ /$instname/ )
+    {
+        unlink($pidfile);
+    }
+}
+
+###my $res = new Resource("/usr/share/dirsrv/properties/ds_remove.res",
+###                       "/usr/share/dirsrv/properties/setup-ds-admin.res",
+###                       "/usr/share/dirsrv/properties/setup-ds.res");
+
+# parse the input parameters
+my $query = new CGI;
+
+# call ds_newinst as a GET (GET or POST works, GET is simpler)
+$ENV{REQUEST_METHOD} = "GET";
+$ENV{QUERY_STRING} = $query->query_string();
+
+my $instname = $query->param('InstanceName');
+my ($slapd, $inst) = split(/-/, $instname, 2);
+my $configdir = "/etc/dirsrv/slapd-$inst";
+if ( ! -d $configdir )
+{
+    print "Content-type: text/plain\n\n";
+    print "NMC_ErrInfo: $configdir does not exist\n";
+    print "NMC_Status: 1\n";
+    print STDERR "Error: $configdir does not exist\n";
+    exit 1;
+}
+###my @errs;
+###my $inf = createInfFromConfig($configdir, $inst, \@errs);
+###if (@errs)
+###{
+###    print "Content-type: text/plain\n\n";
+###    print "NMC_ErrInfo: ", $res->getText(@errs), "\n";
+###    print "NMC_Status: 1\n";
+###    print STDERR "Error: ", $res->getText(@errs), "\n";
+###    exit 1;
+###}
+
+### add the parmeters necessary to configure this DS to be managed
+### by the console and to be registered with the config DS - these
+### are usually passed in via the CGI params, or use reasonable
+### default values
+###my $admConf = getAdmConf("/etc/dirsrv/admin-serv");
+###$inf->{General}->{ConfigDirectoryLdapURL} = $query->param('ldap_url') ||
+###    $admConf->{ldapurl};
+###$inf->{General}->{AdminDomain} = $query->param('admin_domain') ||
+###    $admConf->{AdminDomain};
+
+# read the config file to find out the paths
+my $dseldif = "/etc/dirsrv/$instname/dse.ldif";
+my $conn = new FileConn($dseldif);
+
+my $dn = "cn=config";
+my $entry = $conn->search($dn, "base", "(cn=*)", 0);
+if (!$entry)
+{
+    print "Content-type: text/plain\n\n";
+    print "NMC_ErrInfo: Search $dn in $dseldif failed: $entry\n";
+    print "NMC_Status: 1\n";
+    print STDERR "Error: Search $dn in $dseldif failed: $entry\n";
+    exit 1;
+}
+
+### Unregister the server from the configuration ds
+### get config ds url from input or admconf
+### get admin id from input or admconf
+### must get admin password from input (PASSWORD_PIPE?)
+### get admin domain
+### config ds info
+###if (!unregisterDSWithConfigDS($inst, \@errs, $inf))
+###{
+###    print "Content-type: text/plain\n\n";
+###    print "NMC_ErrInfo: ", $res->getText(@errs), "\n";
+###    print "NMC_Status: 1\n";
+###    print STDERR "Error:", $res->getText(@errs), "\n";
+###    exit 1;
+###}
+
+$dn = "cn=config,cn=ldbm database,cn=plugins,cn=config";
+my $dbentry = $conn->search($dn, "base", "(cn=*)", 0);
+if (!$dbentry)
+{
+    print "Content-type: text/plain\n\n";
+    print "NMC_ErrInfo: Search $dn in $dseldif failed: $dbentry\n";
+    print "NMC_Status: 1\n";
+    print "Error: Search $dn in $dseldif failed: $dbentry\n";
+    exit 1;
+}
+$conn->close();
+
+# stop the server
+my $instdir = "";
+foreach my $path ( @{$entry->{"nsslapd-instancedir"}} )
+{
+    if ( -d $path )
+    {
+        my $prog = $path . "/stop-slapd";
+        if (-x $prog) {
+            $? = 0;
+            # run the CGI
+            my $output = `$prog 2>&1`;
+            my $status = $?;
+            if ($status) {
+                # Ignore the stop failure
+                print "Content-type: text/plain\n\n";
+                print "NMC_ErrInfo: Could not stop directory server: $output\n";
+                print STDERR "Warning: Could not stop directory server: $output\n";
+            }
+            $instdir = $path;    # need to use it later...
+        } else {
+            print "Content-type: text/plain\n\n";
+            print "NMC_ErrInfo: The program $prog does not exist\n";
+            print "NMC_Status: 1\n";
+            print STDERR "Error: The program $prog does not exist\n";
+            exit 1;
+        }
+    }
+}
+    
+# remove physical dirs/files
+remove_tree($dbentry, "nsslapd-directory", $instname, 1);
+remove_tree($dbentry, "nsslapd-db-logdirectory", $instname, 1);
+remove_tree($entry, "nsslapd-lockdir", $instname);
+remove_tree($entry, "nsslapd-tmpdir", $instname);
+remove_tree($entry, "nsslapd-bakdir", $instname, 1);
+remove_tree($entry, "nsslapd-errorlog", $instname, 1);
+
+# instance dir
+if ( -d $instdir && $instdir =~ /$instname/ )
+{
+    # clean up pid files (if any)
+    remove_pidfile("STARTPIDFILE", $instdir, $instname);
+    remove_pidfile("PIDFILE", $instdir, $instname);
+
+  #  if ( 1 == isConfigDS($instname, "/etc/dirsrv/admin-serv") )
+  #  {
+  #      # if it is the Config DS, adm.conf and local.conf needs to be removed.
+  #      unlink("/etc/dirsrv/admin-serv/adm.conf");
+  #      unlink("/etc/dirsrv/admin-serv/local.conf");
+  #  }
+
+    my $rc = rmtree($instdir);
+    if ( 0 == $rc )
+    {
+        print "Content-type: text/plain\n\n";
+        print "NMC_ErrInfo: $instdir was not removed.\n";
+        print STDERR "Warning: $instdir was not removed.\n";
+    }
+}
+# Finally, config dir
+remove_tree($entry, "nsslapd-schemadir", $instname, 1, "\.db\$");
+
+# if we got here, report success
+print "Content-type: text/plain\n\n";
+print "NMC_Status: 0\n";
+exit 0;
diff --git a/pki/linux/scripts/ds_remove_cgi_64 b/pki/linux/scripts/ds_remove_cgi_64
new file mode 100755
index 000000000..73bcc8a34
--- /dev/null
+++ b/pki/linux/scripts/ds_remove_cgi_64
@@ -0,0 +1,278 @@
+#!/usr/bin/env perl
+# 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.
+# 
+# Copyright (C) 2007 Red Hat, Inc.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+use lib qw(/usr/lib64/dirsrv/perl);
+
+use strict;
+
+use File::Basename;
+use File::Path;
+use CGI qw(:cgi :oldstyle_urls);
+use Inf;
+###use AdminUtil;
+use Util;
+use FileConn;
+use Resource;
+
+# remove_tree($centry, $key, $instname, [$isparent, [$dontremove]])
+#     $centry: entry to look for the path to be removed
+#     $key: key to look for the path in the entry
+#     $instname: instance name "slapd-<ID>" to check the path
+#     $isparent: specify 1 to remove from the parent dir
+#     $dontremove: pattern not to be removed (e.g., ".db$")
+sub remove_tree
+{
+    my $centry = shift;
+    my $key = shift;
+    my $instname = shift;
+    my $isparent = shift;
+    my $dontremove = shift;
+
+    foreach my $path ( @{$centry->{$key}} )
+    {
+        my $rmdir = "";
+        my $rc = 0;
+        if ( 1 == $isparent )
+        {
+            $rmdir = dirname($path);
+        }
+        else
+        {
+            $rmdir = $path;
+        }
+        if ( -d $rmdir && $rmdir =~ /$instname/ )
+        {
+            if ( "" eq "$dontremove" )
+            {
+                $rc = rmtree($rmdir);
+                if ( 0 == $rc )
+                {
+                    print "Content-type: text/plain\n\n";
+                    print "NMC_ErrInfo: $rmdir was not removed.\n";
+                    print STDERR "Warning: $rmdir was not removed.\n";
+                }
+            }
+            else
+            {
+                # Skip the dontremove files
+                $rc = opendir(DIR, $rmdir);
+                if ($rc)
+                {
+                    while (defined(my $file = readdir(DIR)))
+                    {
+                        next if ( "$file" =~ /$dontremove/ );
+                        next if ( "$file" eq "." );
+                        next if ( "$file" eq ".." );
+                        my $rmfile = $rmdir . "/" . $file;
+                        my $rc0 = rmtree($rmfile);
+                        if ( 0 == $rc0 )
+                        {
+                            print "Content-type: text/plain\n\n";
+                            print "NMC_ErrInfo: $rmfile was not removed.\n";
+                            print STDERR "Warning: $rmfile was not removed.\n";
+                        }
+                    }
+                    closedir(DIR);
+                }
+                my $newrmdir = $rmdir . ".removed";
+                my $rc1 = 1;
+                if ( -d $newrmdir )
+                {
+                    $rc1 = rmtree($newrmdir);
+                    if ( 0 == $rc1 )
+                    {
+                        print "Content-type: text/plain\n\n";
+                        print "NMC_ErrInfo: $newrmdir was not removed.\n";
+                        print STDERR "Warning: $newrmdir was not removed.\n";
+                    }
+                }
+                if ( 0 < $rc1 )
+                {
+                    rename($rmdir, $newrmdir);
+                }
+            }
+        }
+    }
+}
+
+sub remove_pidfile
+{
+    my ($type, $instdir, $instname) = @_;
+
+    my $pattern = "^" . $type . ".*=";
+    my $pidline = `grep $pattern $instdir/start-slapd`;
+    chomp($pidline);
+    my ($key, $pidfile) = split(/=/, $pidline);
+    if ( -e $pidfile && $pidfile =~ /$instname/ )
+    {
+        unlink($pidfile);
+    }
+}
+
+###my $res = new Resource("/usr/share/dirsrv/properties/ds_remove.res",
+###                       "/usr/share/dirsrv/properties/setup-ds-admin.res",
+###                       "/usr/share/dirsrv/properties/setup-ds.res");
+
+# parse the input parameters
+my $query = new CGI;
+
+# call ds_newinst as a GET (GET or POST works, GET is simpler)
+$ENV{REQUEST_METHOD} = "GET";
+$ENV{QUERY_STRING} = $query->query_string();
+
+my $instname = $query->param('InstanceName');
+my ($slapd, $inst) = split(/-/, $instname, 2);
+my $configdir = "/etc/dirsrv/slapd-$inst";
+if ( ! -d $configdir )
+{
+    print "Content-type: text/plain\n\n";
+    print "NMC_ErrInfo: $configdir does not exist\n";
+    print "NMC_Status: 1\n";
+    print STDERR "Error: $configdir does not exist\n";
+    exit 1;
+}
+###my @errs;
+###my $inf = createInfFromConfig($configdir, $inst, \@errs);
+###if (@errs)
+###{
+###    print "Content-type: text/plain\n\n";
+###    print "NMC_ErrInfo: ", $res->getText(@errs), "\n";
+###    print "NMC_Status: 1\n";
+###    print STDERR "Error: ", $res->getText(@errs), "\n";
+###    exit 1;
+###}
+
+### add the parmeters necessary to configure this DS to be managed
+### by the console and to be registered with the config DS - these
+### are usually passed in via the CGI params, or use reasonable
+### default values
+###my $admConf = getAdmConf("/etc/dirsrv/admin-serv");
+###$inf->{General}->{ConfigDirectoryLdapURL} = $query->param('ldap_url') ||
+###    $admConf->{ldapurl};
+###$inf->{General}->{AdminDomain} = $query->param('admin_domain') ||
+###    $admConf->{AdminDomain};
+
+# read the config file to find out the paths
+my $dseldif = "/etc/dirsrv/$instname/dse.ldif";
+my $conn = new FileConn($dseldif);
+
+my $dn = "cn=config";
+my $entry = $conn->search($dn, "base", "(cn=*)", 0);
+if (!$entry)
+{
+    print "Content-type: text/plain\n\n";
+    print "NMC_ErrInfo: Search $dn in $dseldif failed: $entry\n";
+    print "NMC_Status: 1\n";
+    print STDERR "Error: Search $dn in $dseldif failed: $entry\n";
+    exit 1;
+}
+
+### Unregister the server from the configuration ds
+### get config ds url from input or admconf
+### get admin id from input or admconf
+### must get admin password from input (PASSWORD_PIPE?)
+### get admin domain
+### config ds info
+###if (!unregisterDSWithConfigDS($inst, \@errs, $inf))
+###{
+###    print "Content-type: text/plain\n\n";
+###    print "NMC_ErrInfo: ", $res->getText(@errs), "\n";
+###    print "NMC_Status: 1\n";
+###    print STDERR "Error:", $res->getText(@errs), "\n";
+###    exit 1;
+###}
+
+$dn = "cn=config,cn=ldbm database,cn=plugins,cn=config";
+my $dbentry = $conn->search($dn, "base", "(cn=*)", 0);
+if (!$dbentry)
+{
+    print "Content-type: text/plain\n\n";
+    print "NMC_ErrInfo: Search $dn in $dseldif failed: $dbentry\n";
+    print "NMC_Status: 1\n";
+    print "Error: Search $dn in $dseldif failed: $dbentry\n";
+    exit 1;
+}
+$conn->close();
+
+# stop the server
+my $instdir = "";
+foreach my $path ( @{$entry->{"nsslapd-instancedir"}} )
+{
+    if ( -d $path )
+    {
+        my $prog = $path . "/stop-slapd";
+        if (-x $prog) {
+            $? = 0;
+            # run the CGI
+            my $output = `$prog 2>&1`;
+            my $status = $?;
+            if ($status) {
+                # Ignore the stop failure
+                print "Content-type: text/plain\n\n";
+                print "NMC_ErrInfo: Could not stop directory server: $output\n";
+                print STDERR "Warning: Could not stop directory server: $output\n";
+            }
+            $instdir = $path;    # need to use it later...
+        } else {
+            print "Content-type: text/plain\n\n";
+            print "NMC_ErrInfo: The program $prog does not exist\n";
+            print "NMC_Status: 1\n";
+            print STDERR "Error: The program $prog does not exist\n";
+            exit 1;
+        }
+    }
+}
+    
+# remove physical dirs/files
+remove_tree($dbentry, "nsslapd-directory", $instname, 1);
+remove_tree($dbentry, "nsslapd-db-logdirectory", $instname, 1);
+remove_tree($entry, "nsslapd-lockdir", $instname);
+remove_tree($entry, "nsslapd-tmpdir", $instname);
+remove_tree($entry, "nsslapd-bakdir", $instname, 1);
+remove_tree($entry, "nsslapd-errorlog", $instname, 1);
+
+# instance dir
+if ( -d $instdir && $instdir =~ /$instname/ )
+{
+    # clean up pid files (if any)
+    remove_pidfile("STARTPIDFILE", $instdir, $instname);
+    remove_pidfile("PIDFILE", $instdir, $instname);
+
+  #  if ( 1 == isConfigDS($instname, "/etc/dirsrv/admin-serv") )
+  #  {
+  #      # if it is the Config DS, adm.conf and local.conf needs to be removed.
+  #      unlink("/etc/dirsrv/admin-serv/adm.conf");
+  #      unlink("/etc/dirsrv/admin-serv/local.conf");
+  #  }
+
+    my $rc = rmtree($instdir);
+    if ( 0 == $rc )
+    {
+        print "Content-type: text/plain\n\n";
+        print "NMC_ErrInfo: $instdir was not removed.\n";
+        print STDERR "Warning: $instdir was not removed.\n";
+    }
+}
+# Finally, config dir
+remove_tree($entry, "nsslapd-schemadir", $instname, 1, "\.db\$");
+
+# if we got here, report success
+print "Content-type: text/plain\n\n";
+print "NMC_Status: 0\n";
+exit 0;
diff --git a/pki/linux/scripts/remove_ds_instance b/pki/linux/scripts/remove_ds_instance
new file mode 100755
index 000000000..d81326c63
--- /dev/null
+++ b/pki/linux/scripts/remove_ds_instance
@@ -0,0 +1,156 @@
+#!/bin/sh 
+# 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.
+# 
+# Copyright (C) 2007 Red Hat, Inc.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+##  Always switch into this base directory
+##  prior to script execution so that all
+##  of its output is written to this directory
+
+cd `dirname $0`
+
+
+##
+##  This script MUST be run as root!
+##
+
+ROOTUID=0
+
+OS=`uname`
+if [ "${OS}" = "Linux" ] ; then
+    MY_EUID=`/usr/bin/id -u`
+    MY_UID=`/usr/bin/id -ur`
+    USERNAME=`/usr/bin/id -un`
+else
+    printf "ERROR:  Unsupported operating system '${OS}'!\n"
+    exit 255
+fi
+
+if [ "${MY_UID}"  != "${ROOTUID}" ] &&
+   [ "${MY_EUID}" != "${ROOTUID}" ] ; then
+    printf "ERROR:  The '$0' script must be run as root!\n"
+    exit 255
+fi
+
+
+##  First, check for the existence of a directory server on this machine.
+if [ ! -e /etc/init.d/dirsrv ]; then
+    printf "The Directory Server package does NOT exist on this machine!\n"
+    exit 255
+fi
+
+
+##  Second, check for the existence of a directory server administration server 
+##  on this machine.
+if [ -e /usr/sbin/ds_removal ]    &&
+   [ -d /usr/lib/dirsrv/cgi-bin ] ||
+   [ -d /usr/lib64/dirsrv/cgi-bin ]; then
+    printf "This machine contains a Directory Server Administration\n" 
+    printf "Server which means that Directory Server instances may\n"
+    printf "have been registered with the Administration Server.\n\n"
+    while :
+    do
+        printf "Do you wish to use the '/usr/sbin/ds_removal' tool\n"
+        printf "instead of '$0'?  [yn]  "
+        read ANSWER
+        printf "\n"
+        if [ "${ANSWER}" = "Y" ] ||
+           [ "${ANSWER}" = "y" ] ; then
+            printf "\n"
+            printf "Please RUN the '/usr/sbin/ds_removal' tool to remove\n"
+            printf "the desired DS instance instead of '$0'.\n\n"
+            exit 255
+        elif [ "${ANSWER}" = "N" ] ||
+             [ "${ANSWER}" = "n" ] ; then
+            printf "\n"
+            break
+        else
+            continue
+        fi
+    done
+fi
+
+
+Usage()
+{
+    printf "Usage:  $0 -s server_id\n"
+    printf "        server_id:  Directory server identifier; slapd-<server_id>\n"
+}
+
+error=""
+server_id=""
+ds_server=""
+ds_remove_cgi=""
+
+while [ "$1" != "" ]
+do
+    if [ "$1" = "-s" ]; then
+        shift
+        server_id=$1
+        shift
+    elif [ "$1" = "-h" -o "$1" = "-H" -o "$1" = "--help" ]; then
+        Usage
+        exit 0
+    else
+        printf "ERROR:  Option '$1' is not supported!\n"
+        Usage
+        exit 1
+    fi
+done
+
+if [ "$server_id" = "" ]; then
+    error="Directory Server identifier is missing!"
+else
+    if [ -d "/usr/lib/dirsrv/slapd-${server_id}" ]; then
+        ds_server="/usr/lib/dirsrv/slapd-${server_id}"
+        ds_remove_cgi="./ds_remove_cgi_32"
+    elif [ -d "/usr/lib64/dirsrv/slapd-${server_id}" ]; then
+        ds_server="/usr/lib64/dirsrv/slapd-${server_id}"
+        ds_remove_cgi="./ds_remove_cgi_64"
+    else
+        error="Directory server identifier 'slapd-${server_id}' does not exist!"
+    fi
+fi
+
+if [ "$error" != "" ]; then
+    printf "ERROR:  ${error}\n"
+    Usage
+    exit 1
+fi
+
+QUERY_STRING="InstanceName=slapd-${server_id}"; export QUERY_STRING
+REQUEST_METHOD=GET; export REQUEST_METHOD
+
+if [ -c /dev/null ]; then
+    NULL=/dev/null
+else
+    NULL=/tmp/ds_remove.out
+fi
+
+${ds_remove_cgi} > $NULL << EOF
+EOF
+
+if [ -d "${ds_server}" ]; then
+    printf "FAILED to remove '${ds_server}'!\n"
+else
+    printf "Successfully removed '${ds_server}'!\n"
+    printf "NOTE:  Copies of your security databases have been saved\n"
+    printf "       in '/etc/dirsrv/slapd-${server_id}.removed'!\n"
+fi
+
+exit $?
+