Create LDAP Addressbook from Qmail Account

#!/usr/bin/perl

# Filename: import.pl
# Create LDAP addressbook or account by read vpopmail database on MYSQL
# konangsupian@gmail.com
# 13 Okt 2006
# ------------------------
# Updated Sept 2007
# Command shell to get realname & username from vpopmail database.
# mysql -u vpopmail -pmyvpopmailpasswd -e "use vpopmail; select pw_gecos,pw_name from mycompany_com;" > mycompany.txt


$ou = "addressbook";
open(LOGFILE,"mycompany.txt") or die("Could not open file.");
while (<LOGFILE>) {
        chop($_);
        @pisah    = split("\t",$_);
        $email    = $pisah[1]."\@mycompany\.com";
        $realname = $pisah[0];
        @name     = split(" ",$realname);
        $var  = "";
        $var .= "\r\n\r\n";
        $var .= "dn: cn=$realname ($email),ou=$ou,dc=mycompany,dc=com\r\n";
        $var .= "objectClass: top\r\n";
        $var .= "objectClass: person\r\n";
        $var .= "objectClass: organizationalPerson\r\n";
        $var .= "objectClass: inetOrgPerson\r\n";
        #$var .= "objectClass: user\r\n";
        $var .= "cn: $realname ($email)\r\n";
        $var .= "givenName: $realname\r\n";
        $var .= "sn: $name[0]\r\n";
        $var .= "mail: $email\r\n";
        $var .= "physicalDeliveryOfficeName: Gd. Kwarnas Pramuka Jl. Medan Merdeka Timur No. 6 Jakarta\r\n";
        $var .= "postalAddress: Gd. Kwarnas Pramuka Jl. Medan Merdeka Timur No. 6 Jakarta\r\n";
        $var .= "o: MYCOMPANY\r\n";
        $var .= "l: Jakarta\r\n";
        $var .= "ou: $ou\r\n";
        $var .= "st: DKI\r\n";
        $var .= "postalCode: 10110\r\n";
        $var .= "telephoneNumber: +62-21-12345\r\n";
        $var .= "facsimileTelephoneNumber: +62-21-54321\r\n";
        $var .= "pager: +62-\r\n";
        $var .= "mobile: +62-\r\n";
        $var .= "homePhone: +62-\r\n";
        #$var .= "associatedDomain: internaldomain.com\r\n";
        #$var .= "ou: mdgti\r\n";
        #$var .= "userPassword: {MD5}yFfXwwYLUsJXeqTg==\r\n";
        print $var;
}
close($LOGFILE);

# End of import.pl


Action on shell
# ./import.pl > mycompany.ldif

Import data to LDAP with command :
# ldapadd -x -v -c -D "dc=mycompany,dc=com" -W < mycompany.ldif
Enter password: ********

*** Done ****