Resolves: bug 248145

Bug Description: Replace ds_newinst binary with perl script - remove dead code
Reviewed by: nhosoi (Thanks!)
Fix Description: This is my favorite part - removing all of the now dead code.  I also had to fix the exit code so that you could use $? to test for the success or failure of the new setup scripts.
Platforms tested: RHEL4, FC6
Flag Day: no
Doc impact: no

1 files changed, 18 insertions, 2 deletions

diff --git a/ldap/admin/src/scripts/Setup.pm.in b/ldap/admin/src/scripts/Setup.pm.in
index 93d53291..512b5aa9 100644
--- a/ldap/admin/src/scripts/Setup.pm.in
+++ b/ldap/admin/src/scripts/Setup.pm.in
@@ -215,8 +215,17 @@ sub msg {
 
 sub doExit {
     my $self = shift;
-    $self->msg($FATAL, 'setup_exiting', $self->{log}->{filename});
-	exit 1;
+    my $code = shift;
+    if (!defined($code)) {
+        $code = 1;
+    }
+
+    if ($code) {
+        $self->msg($FATAL, 'setup_exiting', $self->{log}->{filename});
+    } else {
+        $self->msg($SUCCESS, 'setup_exiting', $self->{log}->{filename});
+    }
+	exit $code;
 }
 
 # get a list of the directory servers in configdir
@@ -238,3 +247,10 @@ sub getDirServers {
 # Mandatory TRUE return value.
 #
 1;
+
+# emacs settings
+# Local Variables:
+# mode:perl
+# indent-tabs-mode: nil
+# tab-width: 4
+# End: