Add update code - make setup-ds.pl -u do updates

Updates are implemented in:
perl - code that plugs in to setup - scriptlets that are imported into
the setup perl interpreter and executed in process, giving access to all
of the packages and context provided by setup
ldif - applied to instances, in the same manner as ConfigFile directives
to setup
other - any executable file, shell script, etc. can be invoked, with a limited
amount of context from the setup process
An update directory is added to the package - /usr/share/dirsrv/update - this
directory contains the update files - the update filenames begin with two digits
and are executed in numeric order (00 first, then 01, etc. up to 99) which
should provide enough flexibility
In addition, there are 5 stages of update:
pre - invoked before any instance specific code
preinst, runinst, postinst - invoked for each instance
post - invoked after any instance specific code
Example files are provided which demonstrate how to get the context.
There are two different modes of operation for update:
online - must supply a bind dn and password for each instance - servers must
be up and running
offline - operates directly on the dse.ldif - servers must be shutdown first
A new section is added to the .inf file that can be passed in

[slapd-instancename]
RootDN = binddn
RootDNPwd = bindpw

The RootDN is optional - if not supplied, it will get the nsslapd-rootdn attribute from the dse.ldif for the instance.
I also fixed some problems with error messages.
The pam pta plugin entry was giving object class violations, so I added the
missing attributes - note that these are replaced by the plugin code when
the plugin is loaded - they are only needed during setup.

Fixed usage of $_ - $_ behaves like a dynamically scoped variable - which
means if you use it in an outer context, you cannot use it in an inner
context, even if it is used in a different function.  Rather than attempting
to figure out how to use $_ safely in lower level functions, I just removed
the use of it altogether, which also makes the code easier to read.
Reviewed by: nhosoi (Thanks!) - fixed minor issues found
Platforms tested: Fedora 11

1 files changed, 181 insertions, 0 deletions

diff --git a/ldap/admin/src/scripts/DSUpdateDialogs.pm b/ldap/admin/src/scripts/DSUpdateDialogs.pm
new file mode 100644
index 00000000..32185b88
--- /dev/null
+++ b/ldap/admin/src/scripts/DSUpdateDialogs.pm
@@ -0,0 +1,181 @@
+# 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) 2009 Red Hat, Inc.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+package DSUpdateDialogs;
+
+use strict;
+
+use DialogManager;
+use Setup;
+use Dialog;
+use Util;
+use FileConn;
+
+my @updateadmindialogs;
+
+my $updatewelcome = new DialogYesNo (
+    $EXPRESS,
+    ['update_dialog_first', 'brand', 'brand'],
+    1,
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $res = $self->handleResponse($ans);
+        if ($res == $DialogManager::NEXT) {
+            $res = $DialogManager::ERR if (!$self->isYes());
+        }
+        return $res;
+    },
+    ['update_dialog_first_prompt'],
+);
+
+my $updatemode = new Dialog (
+    $EXPRESS,
+    'update_dialog_mode',
+    sub {
+        my $self = shift;
+        return $self->{manager}->{inf}->{General}->{UpdateMode} ||
+            'quit';
+    },
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $res = $DialogManager::ERR;
+
+        if ($ans =~ /^off/i) {
+            $self->{manager}->{inf}->{General}->{UpdateMode} = 'offline';
+            $res = $DialogManager::NEXT;
+            for (@updateadmindialogs) {
+                $_->disable(); # don't need admins and passwords
+            }
+        } elsif ($ans =~ /^on/i) {
+            $self->{manager}->{inf}->{General}->{UpdateMode} = 'online';
+            $res = $DialogManager::NEXT;
+            if (!@updateadmindialogs) {
+                @updateadmindialogs = makeInstanceDialogs($self->{manager});
+                $self->{manager}->addDialog(@updateadmindialogs);
+            }
+            for (@updateadmindialogs) {
+                $_->enable(); # need admins and passwords
+            }
+        }
+        return $res;
+    },
+    ['update_dialog_mode_prompt']
+);
+
+sub makeInstanceDialogs {
+    my $manager = shift;
+    # for each directory server instance, create a dialog that prompts
+    # for the admin user and password for that instance
+    # the default admin user for each instance is the rootdn for that
+    # instance
+    for my $inst ($manager->{setup}->getDirServers()) {
+        my $innerinst = $inst;
+        if (!$manager->{inf}->{$inst}->{RootDN}) {
+            # if we don't already have an admin DN set for this
+            # instance, look in the dse.ldif for the nsslapd-rootdn
+            my $dseldif = $manager->{setup}->{configdir} . "/" . $inst . "/dse.ldif";
+            my $conn = new FileConn($dseldif, 1);
+            my $rootdn;
+            if ($conn) {
+                my $ent = $conn->search("cn=config", "base", '(objectclass=*)');
+                if ($ent) {
+                    $rootdn = $ent->getValue('nsslapd-rootdn');
+                } else {
+                    $manager->alert('error_finding_config_entry',
+                                    "cn=config", $dseldif, $conn->getErrorString());
+                }
+                $conn->close();
+            } else {
+                $manager->alert('error_opening_dseldif', $dseldif, $!);
+            }
+            if ($rootdn) {
+                $manager->{inf}->{$inst}->{RootDN} = $rootdn;
+            } else {
+                $manager->{inf}->{$inst}->{RootDN} = "cn=Directory Manager";
+            }
+        }
+        my $dlg = new Dialog (
+            $EXPRESS,
+            ['update_admin_dialog', $innerinst],
+            sub {
+                my $self = shift;
+                my $index = shift;
+                my $id;
+                if ($index == 0) { # return undef for password defaults
+                    $id = $self->{manager}->{inf}->{$innerinst}->{RootDN};
+                }
+                return $id;
+            },
+            sub {
+                my $self = shift;
+                my $ans = shift;
+                my $index = shift;
+
+                my $res = $DialogManager::SAME;
+                if ($index == 0) {
+                    if (!isValidDN($ans)) {
+                        $self->{manager}->alert("dialog_dsrootdn_error", $ans);
+                    } else {
+                        $self->{manager}->{inf}->{$innerinst}->{RootDN} = $ans;
+                        $res = $DialogManager::NEXT;
+                    }
+                } else {
+                    if (!$ans or !length($ans)) {
+                        $self->{manager}->alert("dialog_dsrootpw_invalid");
+                    } else {
+                        $self->{manager}->{inf}->{$innerinst}->{RootDNPwd} = $ans;
+                        $res = $DialogManager::NEXT;
+                    }
+                }
+                return $res;
+            },
+            ['update_admin_id_prompt'], ['update_admin_pwd_prompt', 1]
+        );
+        push @updateadmindialogs, $dlg;
+    }
+
+    return @updateadmindialogs;
+}
+
+sub getDialogs {
+    return ($updatewelcome, $updatemode);
+}
+
+1;