diff options
Diffstat (limited to 'ldap/admin/src/scripts/Migration.pm.in')
-rw-r--r-- | ldap/admin/src/scripts/Migration.pm.in | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/ldap/admin/src/scripts/Migration.pm.in b/ldap/admin/src/scripts/Migration.pm.in index 66618c8b..23ed2d05 100644 --- a/ldap/admin/src/scripts/Migration.pm.in +++ b/ldap/admin/src/scripts/Migration.pm.in @@ -233,8 +233,17 @@ sub init { # 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}/,,) } + # $oldsroot/slapd-something/dse.ldif must exist +print "oldsroot: $self->{oldsroot}\n"; +print "actualsroot: $self->{actualsroot}\n"; + +my $files = glob("$self->{oldsroot}/slapd-*"); +print "files: $files\n"; + +foreach $file (grep { -d && -f "$_/dse.ldif" } $files) { +print " - : $file\n"; +} + @instances = grep { -d && -f "$_/dse.ldif" && ($_ =~ s,$self->{oldsroot}/,,) } glob("$self->{oldsroot}/slapd-*"); } |