summaryrefslogtreecommitdiffstats
path: root/ldap/admin/src/scripts/Migration.pm.in
diff options
context:
space:
mode:
Diffstat (limited to 'ldap/admin/src/scripts/Migration.pm.in')
-rw-r--r--ldap/admin/src/scripts/Migration.pm.in22
1 files changed, 19 insertions, 3 deletions
diff --git a/ldap/admin/src/scripts/Migration.pm.in b/ldap/admin/src/scripts/Migration.pm.in
index d61b7a59..b1e6ccde 100644
--- a/ldap/admin/src/scripts/Migration.pm.in
+++ b/ldap/admin/src/scripts/Migration.pm.in
@@ -213,7 +213,7 @@ sub init {
if ($pkgname =~ /-(core|base)$/) {
$pkgname =~ s/-(core|base)$//;
}
- my $oldpkgname = $pkgname;
+ my $oldpkgname = "@brand@-ds";
$self->{pkgname} = $pkgname;
$self->{oldsroot} = $oldsroot || "/opt/$oldpkgname";
@@ -274,10 +274,26 @@ sub init {
$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;
- $self->msg($FATAL, 'migration_exiting', $self->{log}->{filename});
- exit 1;
+ 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 {