--- smbldap-tools-0.9.6/smbldap_tools.pm 2010-12-09 13:31:10.191649352 +0000
+++ smbldap-tools-0.9.6/smbldap_tools.pm 2010-12-09 14:29:52.083037534 +0000
@@ -828,9 +828,9 @@
$lines .= "dn: " . $entry->dn . "\n";
foreach my $attr ( $entry->attributes ) {
my @vals = $entry->get_value($attr);
-# foreach my $val (@vals) {
-# $val = "**UNPRINTABLE**" if ( $val =~ /[^[:print:]]/ );
-# }
+ foreach my $val (@vals) {
+ $val = "**UNPRINTABLE**" if ( $val =~ /\P{IsPrint}/ );
+ }
$lines .= $attr . ": " . join( ',', @vals ) . "\n";
}
}
@@ -857,7 +857,7 @@
foreach my $attr ( $entry->attributes ) {
my @vals = $entry->get_value($attr);
foreach my $val (@vals) {
- $val = "**UNPRINTABLE**" if ( $val =~ /[^[:print:]]/ );
+ $val = "**UNPRINTABLE**" if ( $val =~ /\P{IsPrint}/ );
}
if ( $attr eq "sambaPwdLastSet"
or $attr eq "sambaPwdCanChange"