cloud-mu 3.6.10 → 3.6.11

data/cookbooks/mu-master/files/default/389ds-perl/Migration.pm

@@ -0,0 +1,327 @@
+# BEGIN COPYRIGHT BLOCK
+# Copyright (C) 2007 Red Hat, Inc.
+# All rights reserved.
+#
+# License: GPL (version 3 or any later version).
+# See LICENSE for details. 
+# END COPYRIGHT BLOCK
+#
+
+###########################
+#
+# This perl module provides a way to set up a new installation after
+# the binaries have already been extracted.  This is typically after
+# using native packaging support to install the package e.g. RPM,
+# pkgadd, depot, etc.  This script will show the license, readme,
+# dsktune, then run the usual setup pre and post installers.
+#
+##########################
+
+package Migration;
+use Setup;
+
+use Exporter ();
+@ISA       = qw(Exporter Setup);
+@EXPORT    = qw();
+@EXPORT_OK = qw();
+
+# hostname
+use Sys::Hostname;
+
+# load perldap
+use Mozilla::LDAP::Conn;
+use Mozilla::LDAP::Utils qw(normalizeDN);
+use Mozilla::LDAP::API qw(ldap_explode_dn);
+use Mozilla::LDAP::LDIF;
+
+use Getopt::Long;
+
+use SetupLog;
+use DSUtil;
+
+# process command line options
+Getopt::Long::Configure(qw(bundling)); # bundling allows -ddddd
+
+sub VersionMessage {
+    print "389 Directory Server Migration Program Version 1.3.11.12\n";
+}
+
+sub HelpMessage {
+    print <<EOF;
+
+INTRODUCTION
+
+This script will copy instances (data and configuration) from the old
+server root directory to their new FHS locations.  This script does a
+copy only - the data in the old instances will be left untouched.  The
+old instances must be shutdown first to ensure that the databases are
+copied safely.  During migration your migrated instances will be started.
+
+USAGE
+
+ $0 [--options] -- [args]
+
+options:
+    --help        This message
+    --version     Print the version and exit
+    --debug       Turn on debugging
+    --oldsroot    The old server root directory to migrate from
+    --actualsroot This is the old location of the old server root.
+                  See below.
+    --silent      Use silent setup - no user input
+    --file=name   Use the file 'name' in .inf format to supply the
+                  default answers
+    --keepcache   Do not delete the temporary .inf file generated by
+                  this program
+    --logfile     Log migration messages to this file - otherwise, a temp
+                  file will be used
+    --instance    By default, all directory server instances will be
+                  migrated.  You can use this argument to specify one
+                  or more (e.g. -i slapd-foo -i slapd-bar) if you do
+                  not want to migrate all of them.
+    --cross       See below.
+
+For all options, you can also use the short name e.g. -h, -d, etc.
+For the -d argument, specifying it more than once will increase the
+debug level e.g. -ddddd
+
+args:
+You can supply default .inf data in this format:
+    section.param=value
+e.g.
+    General.FullMachineName=foo.example.com
+or
+    "slapd.Suffix=dc=example,dc=com"
+Values passed in this manner will override values in an .inf file
+given with the -f argument.
+
+actualsroot:
+This is used when you must migrate from one machine to another.  The
+usual case is that you have mounted the old server root on a different
+root directory, either via a network mount, or by copying a tarball
+made using a relative directory on the source machine to the
+destination machine and untarring it.
+
+For example: machineA is a 32bit machine, and you want to migrate your
+servers to a new 64bit machine.  Lets assume your old server root on
+machineA was /opt/myds, and your new machine also wants to use a
+server root of /opt/myds.  There are a couple of different ways to
+proceed.  Either make a tarball of opt/myds from machineA using a
+relative path (i.e. NOT /opt/myds) or use NFS to mount
+machineA:/opt/myds on a different mount point
+(e.g. machineB:/migration/opt/myds).
+
+If you do this, you should give the old "real" server root (/opt/myds)
+as the --actualsroot argument, and use /migration/opt/myds for the
+--oldsroot argument.  That is, the oldsroot is the physical location of
+the files on disk.  The actualsroot is the old value of the server root
+on the source machine.
+
+cross:
+Also known as crossplatform, or 'c', or 'x'.
+This is when the source machine is a different architecture than the
+destination machine.  In this case, only certain data will be available
+for migration.  Changelog information will not be migrated, and replicas
+will need to be reinitialized (if migrating masters or hubs).  This type
+of migration requires that all of your old databases have been dumped
+to LDIF format, and the LDIF file must be in the default database directory
+(usually /opt/389-ds/slapd-instance/db), and the LDIF file must have
+the same name as the database instance directory, with a ".ldif".  For
+example, if you have
+ /opt/389-ds/slapd-instance/db/userRoot/ and
+ /opt/389-ds/slapd-instance/db/NetscapeRoot/
+you must first use db2ldif to export these databases to LDIF e.g.
+ cd /opt/389-ds/slapd-instance
+ ./db2ldif -n userRoot -a /opt/389-ds/slapd-instance/db/userRoot.ldif and
+ ./db2ldif -n NetscapeRoot -a /opt/389-ds/slapd-instance/db/NetscapeRoot.ldif
+
+Then you must somehow make your old server root directory available on
+the destination machine, either by creating a tar archive on the source
+and copying it to the destination, or by network mounting the source
+directory on the destination machine.
+EOF
+}
+
+sub init {
+    my $self = shift;
+    $self->{res} = shift;
+    my ($silent, $inffile, $keep, $preonly, $logfile, $oldsroot, $actualsroot, $crossplatform);
+    my @instances;
+
+    GetOptions('help|h|?' => sub { VersionMessage(); HelpMessage(); exit 0 },
+               'version|v' => sub { VersionMessage(); exit 0 },
+               'debug|d+' => \$DSUtil::debuglevel,
+               'silent|s' => \$silent,
+               'file|f=s' => \$inffile,
+               'keepcache|k' => \$keep,
+               'preonly|p' => \$preonly,
+               'logfile|l=s' => \$logfile,
+               'oldsroot|o=s' => \$oldsroot,
+               'actualsroot|a=s' => \$actualsroot,
+               'crossplatform|cross|c|x' => \$crossplatform,
+               'instance|i=s' => \@instances
+               );
+
+    my $pkgname = "dirsrv";
+	# this is the new pkgname which may be something like
+	# 389-ds-base - we have to strip off the -suffix
+    if ($pkgname =~ /-(core|base)$/) {
+        $pkgname =~ s/-(core|base)$//;
+    }
+    my $oldpkgname = "389-ds";
+
+    $self->{pkgname} = $pkgname;
+    $oldsroot =~ s/\/+$//; # trim trailing '/'s, if any
+    $self->{oldsroot} = $oldsroot || "/opt/$oldpkgname";
+    $actualsroot =~ s/\/+$//; # trim trailing '/'s, if any
+    $self->{actualsroot} = $actualsroot || $self->{oldsroot};
+    $self->{silent} = $silent;
+    $self->{keep} = $keep;
+    $self->{preonly} = $preonly;
+    $self->{logfile} = $logfile;
+    $self->{crossplatform} = $crossplatform;
+    $self->{log} = new SetupLog($self->{logfile}, "migrate");
+    DSUtil::setDebugLog($self->{log});
+    $self->{start_servers} = 1; # start servers as soon as they are migrated
+    # if user supplied inf file, use that to initialize
+    if (defined($inffile)) {
+        $self->{inf} = new Inf($inffile);
+    } else {
+        $self->{inf} = new Inf;
+    }
+
+    # see if user passed in default inf values - also, command line
+    # arguments override those passed in via an inf file - this
+    # allows the reuse of .inf files with some parameters overridden
+    if (!$self->{inf}->updateFromArgs(@ARGV)) {
+        HelpMessage();
+        exit 1;
+    }
+
+    # this is the base config directory - the directory containing
+    # the slapd-instance instance specific config directories
+    $self->{configdir} = $ENV{DS_CONFIG_DIR} || "/etc/dirsrv";
+
+	# get list of instances to migrate
+    if (! @instances) {
+        # an instance must be a directory called $oldsroot/slapd-something and the file
+        # $oldsroot/slapd-something/config/dse.ldif must exist
+        @instances = grep { -d && -f "$_/config/dse.ldif" && ($_ =~ s,$self->{oldsroot}/,,) }
+        	glob("$self->{oldsroot}/slapd-*");
+    }
+
+    if (!@instances) {
+        $self->msg($FATAL, "error_no_instances", $self->{oldsroot});
+        VersionMessage();
+        HelpMessage();
+        exit 1;
+    }
+
+    $self->{instances} = \@instances;
+}
+
+# log only goes the the logfile
+sub log {
+    my $self = shift;
+    my $level = shift;
+    $self->{log}->logMessage($level, "Migration", @_);
+}
+
+sub doExit {
+    my $self = shift;
+    my $code = shift;
+    if (!defined($code)) {
+        $code = 1;
+    }
+
+    if ($code) {
+        $self->msg($FATAL, 'migration_exiting', $self->{log}->{filename});
+    } else {
+        $self->msg($SUCCESS, 'migration_exiting', $self->{log}->{filename});
+    }
+	exit $code;
+}
+
+sub migrateSecurityFiles {
+    my $self = shift;
+    my $inst = shift;
+    my $destdir = shift;
+    my $oldroot = $self->{oldsroot};
+    
+    if (! -d "$oldroot/alias") {
+        $self->msg('old_secdir_error', "$oldroot/alias", $!);
+        return 0;
+    } elsif (! -d $destdir) {
+        $self->msg('new_secdir_error', $destdir, $!);
+        return 0;
+    } else {
+        if (-f "$oldroot/alias/$inst-cert8.db") {
+            $self->log($INFO, "Copying $oldroot/alias/$inst-cert8.db to $destdir/cert8.db\n");
+            if (system ("cp -p $oldroot/alias/$inst-cert8.db $destdir/cert8.db")) {
+                $self->msg($FATAL, 'error_copying_certdb', "$oldroot/alias/$inst-cert8.db",
+                           "$destdir/cert8.db", $!);
+                return 0;
+            }
+        } else {
+            $self->log($DEBUG, "No file to migrate: $oldroot/alias/$inst-cert8.db\n");
+        }
+
+        if (-f "$oldroot/alias/$inst-key3.db") {
+            $self->log($INFO, "Copying $oldroot/alias/$inst-key3.db to $destdir/key3.db\n");
+            if (system ("cp -p $oldroot/alias/$inst-key3.db $destdir/key3.db")) {
+                $self->msg($FATAL, 'error_copying_keydb', "$oldroot/alias/$inst-key3.db",
+                           "$destdir/key3.db", $!);
+                return 0;
+            }
+        } else {
+            $self->log($DEBUG, "No file to migrate: $oldroot/alias/$inst-key3.db\n");
+        }
+
+        if (-f "$oldroot/alias/secmod.db") {
+            $self->log($INFO, "Copying $oldroot/alias/secmod.db to $destdir/secmod.db\n");
+            if (system ("cp -p $oldroot/alias/secmod.db $destdir/secmod.db")) {
+                $self->msg($FATAL, 'error_copying_secmoddb', "$oldroot/alias/secmod.db",
+                           "$destdir/secmod.db", $!);
+                return 0;
+            }
+        } else {
+            $self->log($DEBUG, "No file to migrate: $oldroot/alias/secmod.db\n");
+        }
+
+        if (-f "$oldroot/alias/$inst-pin.txt") {
+            $self->log($INFO, "Copying $oldroot/alias/$inst-pin.txt to $destdir/pin.txt\n");
+            if (system ("cp -p $oldroot/alias/$inst-pin.txt $destdir/pin.txt")) {
+                $self->msg($FATAL, 'error_copying_pinfile', "$oldroot/alias/$inst-pin.txt",
+                           "$destdir/pin.txt", $!);
+                return 0;
+            }
+        } else {
+            $self->log($INFO, "No $oldroot/alias/$inst-pin.txt to migrate\n");
+        }
+            
+        if (-f "$oldroot/shared/config/certmap.conf") {
+            $self->log($INFO, "Copying $oldroot/shared/config/certmap.conf to $destdir/certmap.conf\n");
+            if (system ("cp -p $oldroot/shared/config/certmap.conf $destdir/certmap.conf")) {
+                $self->msg($FATAL, 'error_copying_certmap', "$oldroot/shared/config/certmap.conf",
+                           "$destdir/certmap.conf", $!);
+                return 0;
+            }
+        } else {
+            $self->log($INFO, "No $oldroot/shared/config/certmap.conf to migrate\n");
+        }
+    }
+
+    return 1;
+}
+
+#############################################################################
+# Mandatory TRUE return value.
+#
+1;
+
+# emacs settings
+# Local Variables:
+# mode:perl
+# indent-tabs-mode: nil
+# tab-width: 4
+# End:

data/cookbooks/mu-master/files/default/389ds-perl/RegDSDialogs.pm

@@ -0,0 +1,94 @@
+# 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) 2007 Red Hat, Inc.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+package RegDSDialogs;
+
+use strict;
+
+use DialogManager;
+use Setup;
+use Dialog;
+use DSUtil;
+
+my $configdsinfo = new Dialog (
+    $TYPICAL,
+    'use_existing_configds_txt',
+    sub {
+        my $self = shift;
+        my $servid = $self->{manager}->{inf}->{slapd}->{ServerIdentifier};
+        return $servid;
+    },
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $index = shift;
+        my $res = $DialogManager::SAME;
+        my %instances = %{$self->{manager}->{inf}->{slapd}->{Instances}};
+        $self->{manager}->setType($TYPICAL);
+        if ($index == 0) {
+            # validate serverIdentifier?
+            foreach my $confdir ( keys %instances )
+            {
+                foreach my $inst ( @{$instances{$confdir}} )
+                {
+                    if ( "$inst" eq "slapd-" . $ans )
+                    {
+                        $self->{manager}->{inf}->{slapd}->{ServerIdentifier} = $ans;
+                        $self->{manager}->{inf}->{slapd}->{config_dir} = $confdir;
+                        $res = $DialogManager::NEXT;
+                        goto out;
+                    }
+                }
+            }
+out:
+            if ( $DialogManager::SAME == $res )
+            {
+                $self->{manager}->alert("error_configds_txt", $ans);
+            }
+            return $res;
+        }
+        return $res;
+    },
+    ['dialog_dsserverid_prompt']
+);
+
+sub getDialogs {
+    return ($configdsinfo);
+}
+
+1;

data/cookbooks/mu-master/files/default/389ds-perl/Resource.pm

@@ -0,0 +1,137 @@
+# BEGIN COPYRIGHT BLOCK
+# Copyright (C) 2007 Red Hat, Inc.
+# All rights reserved.
+#
+# License: GPL (version 3 or any later version).
+# See LICENSE for details. 
+# END COPYRIGHT BLOCK
+#
+
+# manages resource bundle files - gets values
+# given keys
+
+package Resource;
+
+use strict;
+
+#require    Exporter;
+#@ISA       = qw(Exporter);
+#@EXPORT    = qw();
+
+sub new {
+    my $type = shift;
+    my $self = {};
+
+    while (@_) {
+        push @{$self->{filenames}}, shift;
+    }
+
+    $self = bless $self, $type;
+
+    if (@{$self->{filenames}}) {
+        $self->read();
+    }
+
+    return $self;
+}
+
+# the resource files are read in order given.  Definitions from
+# later files override the same definitions in earlier files.
+sub read {
+    my $self = shift;
+
+    while (@_) {
+        push @{$self->{filenames}}, shift;
+    }
+
+    for my $filename (@{$self->{filenames}}) {
+        my $incontinuation = 0;
+        my $curkey;
+        open RES, $filename or die "Error: could not open resource file $filename: $!";
+        my $line;
+        while ($line = <RES>) {
+            my $iscontinuation;
+            chop $line; # trim trailing newline
+            if ($line =~ /^\s*$/) { # skip blank/empty lines
+                $incontinuation = 0;
+                next;
+            }
+            if ($line =~ /^\s*\#/) { # skip comment lines
+                $incontinuation = 0;
+                next;
+            }
+            # read name = value pairs like this
+            # bol whitespace* name whitespace* '=' whitespace* value eol
+            # the value will include any trailing whitespace
+            if ($line =~ /\\$/) {
+                chop $line;
+                $iscontinuation = 1;
+            }
+            if ($incontinuation) {
+                $self->{res}->{$curkey} .= "\n" . $line;
+            } elsif ($line =~ /^\s*(.*?)\s*=\s*(.*?)$/) {
+                # replace \n with real newline
+                if ($curkey) {
+                    $self->{res}->{$curkey} =~ s/\\n/\n/g;
+                }
+                $curkey = $1;
+                $self->{res}->{$curkey} = $2;
+            }
+            if ($iscontinuation) { # if line ends with a backslash, continue the data on the next line
+                $incontinuation = 1;
+            } else {
+                $incontinuation = 0;
+            }
+        }
+        # replace \n with real newline
+        if (defined($curkey)) {
+            $self->{res}->{$curkey} =~ s/\\n/\n/g;
+        }
+        close RES;
+    }
+}
+
+# given a resource key and optional args, return the value
+# $text = $res->getText('key');
+# or
+# $text = $res->getText('key', @args);
+# or
+# $text = $res->getText($arrayref)
+# where $arrayref is ['key', @args]
+sub getText {
+    my $self = shift;
+    my $key = shift;
+    my @args = @_;
+
+    if (ref($key) eq 'ARRAY') {
+        my $tmpkey = shift @{$key};
+        @args = @{$key};
+        $key = $tmpkey;
+    }
+
+    if (!exists($self->{res}->{$key})) {
+        print "Error: unknown resource key $key\n";
+        return undef;
+    }
+
+    if (!defined($self->{res}->{$key})) {
+        print "Error: resource key $key has no value\n";
+        return undef;
+    }
+
+    # see if the args themselves are resource keys
+    for (my $ii = 0; $ii < @args; ++$ii) {
+        if (exists($self->{res}->{$args[$ii]})) {
+            $args[$ii] = $self->{res}->{$args[$ii]};
+        }
+    }
+
+    my $text = sprintf $self->{res}->{$key}, @args;
+
+    return $text;
+}
+
+#############################################################################
+# Mandatory TRUE return value.
+#
+1;