From: Kyle S. <KS...@co...> - 2003-01-22 22:49:50
|
I'm attempting to build some ldifs and doo some inserts and I need a bit of help. I'm real green at perl. =20 =20 =20 Here's what I'm doing.. =20 $entry =3D Net::LDAP::Entry->new; <SNIP> =20 #Generating entries.. $mesg =3D = $ldap->add(dn=3D>"cn=3D$zonename,$BASEDN", attr=3D>list_attrs(\%attr)); print "Failed to add entry:", $zonename, " ", $mesg->error if ($mesg->code); =20 $entry->Net::LDAP::Entry::add(dn=3D>"cn=3D$zonename,$BASEDN", attr=3D>list_attrs(\%attr)); print $entry->Net::LDAP::LDIF::current_lines."<--Right here \n\n"; print $entry->Net::LDAP::LDIF::current_entry."<--Right here \n\n"; =20 Nothing gets printed but the $ldap->add succeeds.. =20 Anyone have an idea how I can generate an ldif output correctly? =20 =20 =20 =20 Kyle Stone ks...@co...=20 =20 |