cloud-mu 3.6.10 → 3.6.11

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

@@ -0,0 +1,240 @@
+# 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 Setup;
+use Exporter ();
+@ISA       = qw(Exporter);
+@EXPORT    = qw($SILENT $EXPRESS $TYPICAL $CUSTOM);
+@EXPORT_OK = qw($SILENT $EXPRESS $TYPICAL $CUSTOM);
+
+# hostname
+use Sys::Hostname; # 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;
+use Inf;
+
+use strict;
+use vars qw($EXPRESS $TYPICAL $CUSTOM $SILENT);
+
+# the setup types
+$EXPRESS = 1;
+$TYPICAL = 2;
+$CUSTOM = 3;
+$SILENT = 4;
+
+# process command line options
+Getopt::Long::Configure(qw(bundling)); # bundling allows -ddddd
+
+sub VersionMessage {
+    print "389 Directory Server Setup Program Version 1.3.11.12\n";
+}
+
+sub HelpMessage {
+    print <<EOF;
+Usage: $0 [--options] -- [args]
+options:
+    --help       This message
+    --version    Print the version and exit
+    --debug      Turn on debugging
+    --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 setup messages to this file - otherwise, a temp file will be used
+    --update     Update an existing installation (e.g. after upgrading packages)
+    --continue   (update only) keep going despite errors (also --force)
+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.
+EOF
+}
+
+sub new {
+    my $type = shift;
+    my $self = {};
+    $self = bless $self, $type;
+    $self->init(@_);
+    return $self;
+}
+
+sub init {
+    my $self = shift;
+    $self->{res} = shift;
+    my ($silent, $inffile, $keep, $preonly, $logfile, $update, $force);
+
+    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,
+               'update|u' => \$update,
+               'continue|force|c' => \$force
+               );
+
+    $self->{silent} = $silent;
+    $self->{keep} = $keep;
+    $self->{preonly} = $preonly;
+    $self->{update} = $update;
+    $self->{force} = $force;
+    $self->{logfile} = $logfile;
+    $self->{log} = new SetupLog($self->{logfile});
+    DSUtil::setDebugLog($self->{log});
+    # if user supplied inf file, use that to initialize
+    if (defined($inffile)) {
+        $self->{inf} = new Inf($inffile);
+        if(!$self->{inf}){
+            $self->doExit(1);
+        }
+    } 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";
+}
+
+# log only goes the the logfile
+sub log {
+    my $self = shift;
+    my $level = shift;
+    $self->{log}->logMessage($level, "Setup", @_);
+}
+
+# msg does to the screen and optionally to the log file
+# if you use msg like this:
+# msg(0, "some message")
+# it will go only to the screen
+# if you use msg like this:
+# msg($WARN, "some message")
+# it will go to the screen and to the log at the $WARN level
+# all messages are localizable - you must define a resource key
+# the first string passed to this method is a resource key
+# additional strings are used as "arguments" to that resource key
+# if you want to print un-localizable messages, use debug or write
+# directly to the log or screen
+sub msg {
+    my $self = shift;
+    my $level = shift;
+    my @ary = @_;
+    if (!$level && @ary) {
+        # e.g. msg(0, "string") - no logging
+    } elsif ($level and @ary and grep {/^$level$/} $self->{log}->levels()) {
+        # e.g. msg($WARN, "string") - print and log
+    } else {
+        # log at default INFO level
+        unshift @ary, $level;
+        $level = $INFO;
+    }
+    # @text is an array of strings for one message or 
+    # an array of array refs, each one is a message
+    while (@ary) {
+        my @text = shift @ary;
+
+        last if (!@text or !$text[0]);
+
+        # element is an array ref - just pass to getText
+        # else is a list of strings
+        # NOTE: this will NOT work if ary contains
+        # consecutive simple string errors not separated
+        # by an array ref e.g. this will work
+        # ARRAY, 'errkey', arg, arg, ARRAY
+        # this will not work
+        # ARRAY, 'errkey', arg, 'errkey2', arg2, ARRAY
+        while (@ary and !ref($ary[0])) {
+            push @text, shift @ary;
+        }
+        my $string = $self->{res}->getText(@text);
+        if ($level) {
+            $self->log($level, $string);
+        }
+        print $string;
+    }
+}
+
+sub doExit {
+    my $self = shift;
+    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
+sub getDirServers {
+    my $self = shift;
+    if (!$self->{dirservers}) {
+        $self->{dirservers} = [];
+        for my $dir (glob("$self->{configdir}/slapd-*")) {
+            next if ($dir =~ /\.removed$/); # skip removed instances
+            if (-d $dir) {
+                $dir =~ s,$self->{configdir}/,,; # strip off dir part
+                push @{$self->{dirservers}}, $dir;
+            }
+        }
+    }
+    return @{$self->{dirservers}};
+}
+
+
+#############################################################################
+# 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/SetupDialogs.pm

@@ -0,0 +1,243 @@
+# 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
+#
+
+package SetupDialogs;
+
+use strict;
+
+use DialogManager;
+use Setup;
+use Dialog;
+use Sys::Hostname;
+use DSUtil;
+
+my $welcome = new DialogYesNo (
+    $EXPRESS,
+    ['dialog_welcome_text', '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;
+    },
+    ['dialog_welcome_prompt'],
+);
+
+my $dsktune = new DialogYesNo (
+    $EXPRESS,
+    'dialog_dsktune_text',
+    0,
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $res = $self->handleResponse($ans);
+        if ($res == $DialogManager::NEXT) {
+            $res = $DialogManager::ERR if (!$self->isYes());
+        }
+        return $res;
+    },
+    ['dialog_dsktune_prompt']
+);
+
+$? = 0; # clear error condition
+my $dsktune_output = `/usr/bin/dsktune`;
+my $dsktune_result = $?;
+$dsktune->{defaultIsYes} = $dsktune_result ? 0 : 1;
+$dsktune->{text} = [$dsktune->{text}, $dsktune_output];
+
+my $setuptype = new Dialog (
+    $EXPRESS,
+    'dialog_setuptype_text',
+    sub {
+        my $self = shift;
+        return $self->{manager}->getType();
+    },
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $res = $DialogManager::SAME;
+        if ($ans < $EXPRESS or $ans > $CUSTOM) {
+            $self->{manager}->alert("dialog_setuptype_error");
+        } else {
+            $res = $DialogManager::NEXT;
+            $self->{manager}->setType($ans);
+        }
+        return $res;
+    },
+    ['dialog_setuptype_prompt']
+);
+
+my $hostdlg = new Dialog (
+    $TYPICAL,
+    'dialog_hostname_text',
+    sub {
+        my $self = shift;
+        return $self->{manager}->{inf}->{General}->{FullMachineName} ||
+            hostname();
+    },
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $res = $DialogManager::NEXT;
+        my $str;
+        if ($str = checkHostname($ans, $self->{manager}->{res})) {
+            my $promptary = ["dialog_hostname_warning", $str, $ans];
+            my $yesorno = $self->{manager}->showPrompt($promptary, $self->{manager}->getText("no"));
+            $res = DialogYesNo::handleResponse($self, $yesorno);
+            if ($res == $DialogManager::NEXT) {
+                $res = $DialogManager::SAME if (!DialogYesNo::isYes($self));
+            }
+        }
+        $self->{manager}->{inf}->{General}->{FullMachineName} = $ans;
+        return $res;
+    },
+    ['dialog_hostname_prompt']
+);
+
+# must verify that the user or uid specified by the user to run the server as
+# is a valid uid
+sub verifyUserChoice {
+    my $self = shift;
+    my $ans = shift;
+    my $res = $DialogManager::NEXT;
+    # convert numeric uid to string
+    my $strans = $ans;
+    if ($ans =~ /^\d/) { # numeric - convert to string
+        $strans = getpwuid $ans;
+        if (!$strans) {
+            $self->{manager}->alert("dialog_ssuser_error", $ans);
+            return $DialogManager::SAME;
+        }
+    }
+    if ($> != 0) { # if not root, the user must be our uid
+        my $username = getLogin;
+        if ($strans ne $username) {
+            $self->{manager}->alert("dialog_ssuser_must_be_same", $username);
+            return $DialogManager::SAME;
+        }
+    } else { # user is root - verify id
+        my $nuid = getpwnam $strans;
+        if (!defined($nuid)) {
+            $self->{manager}->alert("dialog_ssuser_error", $ans);
+            return $DialogManager::SAME;
+        }
+        if (!$nuid) {
+            $self->{manager}->alert("dialog_ssuser_root_warning");
+        }
+    }
+    $self->{manager}->{inf}->{General}->{SuiteSpotUserID} = $ans;
+    return $res;
+}
+
+# must verify that the given group is one of the groups the given user
+# belongs to
+sub verifyGroupChoice {
+    my $self = shift;
+    my $ans = shift;
+    my $res = $DialogManager::NEXT;
+    my ($dummy, $memstr);
+    my $strgrp;
+    my $numgrp;
+    if ($ans =~ /^\d/) { # numeric
+        $numgrp = $ans;
+        ($strgrp, $dummy, $dummy, $memstr) = getgrgid $ans;
+    } else {
+        $strgrp = $ans;
+        ($dummy, $dummy, $numgrp, $memstr) = getgrnam $ans;
+    }
+
+    if (!defined($strgrp) or !defined($numgrp)) {
+        $self->{manager}->alert("dialog_ssgroup_error", $ans);
+        return $DialogManager::SAME;
+    }
+
+    # get the user id, and then get the user's default group id
+    my $uid = $self->{manager}->{inf}->{General}->{SuiteSpotUserID};
+    my $usergid;
+    if ($uid =~ /^\d/) { # numeric
+        ($uid, $dummy, $dummy, $usergid, $dummy) = getpwuid $uid;
+    } else { # string
+        ($uid, $dummy, $dummy, $usergid, $dummy) = getpwnam $uid;
+    }
+
+    if ($numgrp == $usergid) {
+        $self->{manager}->{inf}->{General}->{SuiteSpotGroup} = $ans;
+    } elsif ($memstr) { # see if the user is in the member list
+        if ($memstr =~ /\b$uid\b/) { # uid exactly matches one of the users in the member string
+            $self->{manager}->{inf}->{General}->{SuiteSpotGroup} = $ans;
+        } else { # no match
+            $self->{manager}->alert("dialog_ssgroup_no_match",
+                                   $self->{manager}->{inf}->{General}->{SuiteSpotUserID},
+                                   $ans, $memstr);
+            $res = $DialogManager::SAME;
+        }
+    } else { # user not in group
+        $self->{manager}->alert("dialog_ssgroup_no_user",
+                                $self->{manager}->{inf}->{General}->{SuiteSpotUserID},
+                                $ans);
+        $res = $DialogManager::SAME;
+    }
+    return $res;
+}
+
+my $usergroup = new Dialog (
+    $TYPICAL,
+    'dialog_ssuser_text',
+    sub {
+        my $self = shift;
+        my $index = shift;
+        if ($index == 0) {
+            my $username = $self->{manager}->{inf}->{General}->{SuiteSpotUserID};
+            if (!$username) {
+                if ($> == 0) { # if root, use the default user
+                    $username = "dirsrv";
+                } else { # if not root, use the user's uid
+                    $username = getLogin;
+                }
+            }
+            return $username;
+        } else { # group
+            my $groupname = $self->{manager}->{inf}->{General}->{SuiteSpotGroup};
+            if (!$groupname) {
+                if ($> == 0) { # if root, use the default group
+                    $groupname = "dirsrv";
+                } else { # if not root, use the user's gid
+                    $groupname = getgrgid $(;
+                }
+            }
+            return $groupname;
+        }
+    },
+    sub {
+        my $self = shift;
+        my $ans = shift;
+        my $index = shift;
+        if ($index == 0) {
+            return verifyUserChoice($self, $ans);
+        } else {
+            return verifyGroupChoice($self, $ans);
+        }
+    },
+    ['dialog_ssuser_prompt'], ['dialog_ssgroup_prompt']
+);
+
+
+sub getDialogs {
+    return ($welcome, $dsktune, $setuptype, $hostdlg, $usergroup);
+}
+
+sub getRegDialogs {
+    return ($usergroup);
+}
+
+1;

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

@@ -0,0 +1,82 @@
+# 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 implements SetupLog from setuputil InstallLog in perl
+#
+package SetupLog;
+use Exporter ();
+@ISA       = qw(Exporter);
+@EXPORT    = qw($FATAL $START $SUCCESS $WARN $INFO $DEBUG);
+@EXPORT_OK = qw($FATAL $START $SUCCESS $WARN $INFO $DEBUG);
+
+use POSIX qw(strftime);
+
+# tempfiles
+use File::Temp qw(tempfile tempdir);
+
+# exported variables
+$FATAL    = "Fatal";
+$START    = "Start";
+$SUCCESS  = "Success";
+$WARN     = "Warning";
+$INFO     = "Info";
+$DEBUG    = "Debug";
+
+sub new {
+    my $type = shift;
+    my $filename = shift;
+    my $prefix = shift || "setup";
+    my $self = {};
+    my $fh;
+
+    if (!$filename) {
+        ($fh, $filename) = tempfile("${prefix}XXXXXX", UNLINK => 0,
+                                    SUFFIX => ".log", DIR => File::Spec->tmpdir);
+    } else {
+        if (!open(LOGFILE, ">$filename")) {
+            print STDERR "Error: could not open logfile $filename: $!\n";
+            return;
+        }
+        $fh = \*LOGFILE;
+    }
+    $self->{fh} = $fh;
+    $self->{filename} = $filename;
+    $self = bless $self, $type;
+
+    return $self;
+}
+
+sub logMessage {
+    my ($self, $level, $who, $msg, @rest) = @_;
+    if (!$self->{fh}) {
+        return;
+    }
+
+    my $string = strftime "[%y/%m/%d:%H:%M:%S] - ", localtime;
+    $string .= "[$who] $level ";
+    $string .= sprintf $msg, @rest;
+    print { $self->{fh} } $string;
+}
+
+sub logDebug {
+    my ($self, @msg) = @_;
+    if (!$self->{fh}) {
+        return;
+    }
+    print { $self->{fh} } @msg;
+}
+
+sub levels {
+    my $self = shift;
+    return ($FATAL, $START, $SUCCESS, $WARN, $INFO, $DEBUG);
+}
+
+#############################################################################
+# Mandatory TRUE return value.
+#
+1;

data/cookbooks/mu-master/files/default/setCertName.ldif

@@ -0,0 +1,4 @@
+dn: cn=RSA,cn=encryption,cn=config
+changetype: modify
+replace: nsSSLPersonalitySSL
+nsSSLPersonalitySSL: ldap

data/cookbooks/mu-master/libraries/mu.rb

@@ -32,7 +32,7 @@ require "mu"
 
 def baskets
   baskets = {}
-  if Dir.exists?("/opt/mu/var/deployments")
+  if Dir.exist?("/opt/mu/var/deployments")
     Dir.glob("/opt/mu/var/deployments/*/basket_of_kittens.json").each { |basket_json|
       basket_json =~ /^\/opt\/mu\/var\/deployments\/([^\/]+)\/basket_of_kittens.json$/
       baskets[Regexp.last_match[1]] = JSON.parse(File.read(basket_json))
@@ -43,7 +43,7 @@ end
 
 def deployments
   deploys = {}
-  if Dir.exists?("/opt/mu/var/deployments")
+  if Dir.exist?("/opt/mu/var/deployments")
     Dir.glob("/opt/mu/var/deployments/*/deployment.json").each { |dep_json|
       dep_json =~ /^\/opt\/mu\/var\/deployments\/([^\/]+)\/deployment.json$/
       deploys[Regexp.last_match[1]] = JSON.parse(File.read(dep_json))

data/cookbooks/mu-master/metadata.rb

@@ -19,7 +19,7 @@ depends 'mu-utility'
 depends 'mu-tools'
 depends 'mu-activedirectory'
 depends 's3fs'
-depends 'postfix', '~> 5.3.1'
+depends 'postfix', '~> 6.0.29'
 depends 'bind', '~> 2.2.0'
 depends 'bind9-ng', '~> 0.1.0'
 depends 'mu-firewall'