Help for this page
sub mkgrp{ ... my $ldif = Net::LDAP::LDIF->new( "$ldifpath", "w+", onerror => 'warn' + ); $ldifpath = "/tmp/${group}.ldif"; $ldif->write_entry($ldapgrp);
print $fh <<"END"; dn: $dn ... objectClass: sambaGroupMapping END