Dear all,
Saya sedang coba membuat script perl untuk dumping alamat email dari
file teks ke database LDAP. Saat saya jalankan, keluar error seperti ini :
failed to add entry: no global superior knowledge at dumpldap.pl.
Skema struktur LDAP saya adalah sebagai berikut :
cn=Manager,dc=myhosting,dc=email,o=hosting,jvd=domain.org,[EMAIL PROTECTED]
Untuk rootdn nya adalah cn=Manager,dc=myhosting,dc=email.
Berikut script yang saya buat, mohon dikoreksi kalau salah
#!/usr/bin/perl
my $host = 'localhost';
my $password = '{SSHA}xxxxx';
my $cn = 'cn=Manager,dc=myhosting,dc=email';
use Net::LDAP;
open(users, "/home/cygnus/roaming.txt");
@dump = <users>;
$i = 0;
my $conn = Net::LDAP->new( $host, debug=>1 );
my $tick = $conn->bind( $cn, password => $password );
while ( defined $dump[$i] ne "" ) {
@col = split( /Password==/,$dump[$i] );
my $username = $col[0];
my $userpass = $col[1];
my @user = split(/\@/,$col[0]);
my $result = $conn->add(
"o=hosting,jvd=domain.org,mail=$col[0]", attr => [
'accountActive' => 'TRUE',
'delete' => 'FALSE',
'homeDirectory' => '/mailbox',
'lastChange' => '1',
'mail' => $username,
'mailbox' =>
"domain.org/$user[0]/Maildir/",
'userPassword' => $userpass,
'quota' => '10240000',
'objectclass' =>
['JammMailAccount','top'],
]
);
$result->code && warn "failed to add entry: ", $result->error ;
$i++;
}
my $tick = $conn->unbind;
close(users);
Sori kalau OOT :)
--
- Cygnus -
--
FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab
Unsubscribe: kirim email ke [EMAIL PROTECTED]
Arsip dan info milis selengkapnya di http://linux.or.id/milis