view release on metacpan or  search on metacpan

lib/Test/OpenLDAP.pm  view on Meta::CPAN

        "Failed to close '$self->{cn_schema_core_ldif_path}':$OS_ERROR");
    return;
}

sub _create_olc_database_config {
    my ($self)      = @_;
    my $write_flags = Fcntl::O_WRONLY() | Fcntl::O_CREAT() | Fcntl::O_EXCL();
    my $uuid        = lc $self->_uuid();
    my $entry_csn   = $self->_entry_csn();
    my ( $uid, $gid ) =
      ( getpwuid $EFFECTIVE_USER_ID )[ UID_INDEX(), GID_INDEX() ];
    my $create_timestamp = POSIX::strftime( '%Y%m%d%H%M%SZ', gmtime time );
    my $handle           = FileHandle->new( $self->{olc_database_config_path},
        $write_flags, Fcntl::S_IRUSR() | Fcntl::S_IWUSR() )
      or Carp::croak(
"Failed to open '$self-{olc_database_config_path}' for writing:$OS_ERROR"
      );
    my $user = $self->admin_user();
    $handle->print(
        <<"__DB_CONFIG_LDIF__") or Carp::croak("Failed to write to '$self->{olc_database_config_path}':$OS_ERROR");
dn: $self->{config_database_rdn}

lib/Test/OpenLDAP.pm  view on Meta::CPAN

    return;
}

sub _create_olc_database_db {
    my ($self)      = @_;
    my $write_flags = Fcntl::O_WRONLY() | Fcntl::O_CREAT() | Fcntl::O_EXCL();
    my $uuid        = lc $self->_uuid();
    my $entry_csn   = $self->_entry_csn();
    my $create_timestamp = POSIX::strftime( '%Y%m%d%H%M%SZ', gmtime time );
    my ( $uid, $gid ) =
      ( getpwuid $EFFECTIVE_USER_ID )[ UID_INDEX(), GID_INDEX() ];
    my $handle = FileHandle->new( $self->{olc_database_path},
        $write_flags, Fcntl::S_IRUSR() | Fcntl::S_IWUSR() )
      or Carp::croak(
        "Failed to open '$self->{olc_database_path}' for writing:$OS_ERROR");
    my $user     = $self->admin_user();
    my $suffix   = $self->suffix();
    my $password = $self->admin_password();

    if ( $self->_slapd_may_not_use_mdb() ) {
        $handle->print(