FowlerActivity,Fowler Activity Directors,{MD5}laksdfjjkdkd==

##</code><code>##

use Carp;
use Net::LDAP;
use Net::LDAP::Entry;

my $server = "ldap";
my $searchstring = "objectClass=*"; 

my $ldap = Net::LDAP->new($server, debug =>4);
my $mesg = $ldap->bind( 'cn=admin,dc=ldap',
			password => 'secret');

$mesg->is_error && warn $mesg->error, "\n";

my $filename = shift;

open (FILE, "$filename") || croak "can't open file $filename: $?";

my %misc = ();

while (<FILE>) {
    chomp;
    my @items = split(',');

    my $uuid = `/usr/bin/uuidgen`;
    chomp $uuid;
    $misc{$uuid} = \@items;
}

foreach my $u (keys %misc) {

    my $fullname = $misc{$u}->[1];
    my ($firstname, $lastname) = split(' ', $fullname, 2);
    chomp $lastname;

    my $dn = "cn=" . $u . ",ou=Misc,dc=ldap";

    $entry = new Net::LDAP::Entry->new;
    $entry->dn($dn);
    $entry->add(
		'objectClass' => "person",
		'cn' => $u,
		'sn' => $lastname,
		);

    my $result = $entry->update($ldap);
    $result->code && warn "couldn't add $dn: ", $result->error;
   
}