Author: coudot
Date: 2010-07-19 18:13:35 +0200 (Mon, 19 Jul 2010)
New Revision: 96
Modified:
ldap-scripts/trunk/file2ldif.pl
Log:
Better empty values management. Fixes #134
Modified: ldap-scripts/trunk/file2ldif.pl
===================================================================
--- ldap-scripts/trunk/file2ldif.pl 2010-07-19 16:07:14 UTC (rev 95)
+++ ldap-scripts/trunk/file2ldif.pl 2010-07-19 16:13:35 UTC (rev 96)
@@ -178,6 +178,11 @@
delete $localmap{change_op};
$change_op = "add" unless $change_op;
+ # Remove empty values
+ while (my ($key, $value) = each(%localmap)) {
+ delete $localmap{$key} if ( $value eq "");
+ }
+
# Write entry
my $outentry = Net::LDAP::Entry->new($dn);
$outentry->changetype($changetype);
@@ -211,8 +216,8 @@
# Get first attribute value
else { $value = $entry->get_value($attr); }
- # Return fake value to avoid errors
- return $attr unless defined $value;
+ # Empty value
+ return "" unless defined $value;
# Trim begin and end whitespaces
$value =~ s/^\s+|\s+$//g;
_______________________________________________
ltb-changes mailing list
[email protected]
http://lists.ltb-project.org/listinfo/ltb-changes
