diff options
Diffstat (limited to 'ldap/admin/src/scripts/Migration.pm.in')
| -rw-r--r-- | ldap/admin/src/scripts/Migration.pm.in | 22 |
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 { |
