Я новичок в openLDAP и perl. Я хочу экспортировать/импортировать данные LDAP с/без схемы из базы данных LDAP. Возможно ли это сделать с помощью Perl-скрипта? Если да, пожалуйста, дайте мне пример кода. Я хочу создать новую схему с помощью openLDAP и perl без DNS. Как это сделать?
Экспорт/импорт данных LDAP с помощью скрипта perl
Ответы (1)
Слишком много вопросов в одном пункте. Пожалуйста, задавайте по одному вопросу за раз.
Как читать Ldap с помощью Perl:
use strict;
use warnings;
use Data::Dumper;
### for ldap
use Convert::ASN1;
use Net::LDAP;
use Net::LDAP::Util qw(ldap_error_name canonical_dn ldap_explode_dn ldap_error_text);
use Net::LDAP::LDIF;
my %parms (
host => 'localhost',
port => 389,
binddn => 'your dn',
passwd => 'password',
base => "",
filter => "(objectclass=*)",
scope => "base",
attrs => ['*'],
);
my $ldif = Net::LDAP::LDIF->new( "out.ldif", "w", onerror => 'die', wrap => 0 );
my $ldap= Net::LDAP->new($parms{'host'}, port => $parms{'port'});
my $bind_result = $ldap->bind($parms{'binddn'},'password' => $parms{'passwd'},'version' => '3');
if($bind_result->is_error()) {
die ('Unable to bind to ' . $parms{'host'} . ': '.$bind_result->error());
}
my @search_args = (
'base' => $parms{"base"},
'scope' => $parms{'scope'},
'filter' => $parms{'filter'},
'attrs' => $parms{'attrs'},
'deref' => 'always',
);
my $msg = $ldap->search(@search_args);
if ($msg->is_error()) {
die "ERROR: ".Dumper(\@search_args).", ".$msg->error."\n";
}
while (my $entry = $msg->pop_entry()){
my $cn = $entry->get_value("cn");
print "cn: $cn\n";
}
person
user1126070
schedule
24.04.2014
Спасибо. Это полезно.
- person user3003367; 29.04.2014