diff options
Diffstat (limited to 'ldap/admin/src/scripts/DSUpdateDialogs.pm')
| -rw-r--r-- | ldap/admin/src/scripts/DSUpdateDialogs.pm | 181 |
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; |