Attachment 306394 Details for Bug 441833 – Proposed patch to assume UTF8 locale

[patch] Proposed patch to assume UTF8 locale

smbldap-tools-0.9.5-utf-8.patch (text/plain), 1.24 KB, created by Paul Howarth on 2008-05-22 15:51:35 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Paul Howarth

Created: 2008-05-22 15:51:35 UTC

Size: 1.24 KB

patch

obsolete

>--- 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',
>     );
> }
>

Actions: View | Diff

Attachments on bug 441833: 306394