--- smbldap-tools-0.9.5/smbldap_tools.pm 2008-05-22 12:18:05.000000000 +0100
+++ smbldap-tools-0.9.5/smbldap_tools.pm 2008-05-22 15:50:58.000000000 +0100
@@ -826,7 +826,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}/ );
}
$lines .= $attr . ": " . join( ',', @vals ) . "\n";
}
@@ -854,7 +854,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"
@@ -1213,7 +1213,7 @@
return to_utf8(
-string => $arg,
- -charset => 'ISO-8859-1',
+ -charset => 'UTF8',
);
}
@@ -1222,7 +1222,7 @@
return from_utf8(
-string => $arg,
- -charset => 'ISO-8859-1',
+ -charset => 'UTF8',
);
}