Changeset f065a96 for perl/lib/BarnOwl

Timestamp:

Aug 5, 2017, 11:23:14 PM (7 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

9c1e3377

Parents:

ba05db8

git-author:

Jason Gross <jgross@mit.edu> (01/01/14 20:59:51)

git-committer:

Jason Gross <jgross@mit.edu> (08/05/17 23:23:14)

Message:

Use g_utf8_casefold and g_utf8_normalize

We define a convenience function compat_casefold in util.c for reuse in
filters.

File:

• perl/lib/BarnOwl/Message/Zephyr.pm (modified) (3 diffs)

perl/lib/BarnOwl/Message/Zephyr.pm

@@ -9 +9 @@
 
 use base qw( BarnOwl::Message );
-use Unicode::Normalize qw( NFKC );
 
 sub strip_realm {
@@ -22 +21 @@
     my ($user, $realm) = split(/@/,$principal);
     return $realm;
+}
+
+sub casefold_principal {
+    my $principal = shift;
+    # split the principal right after the final @, without eating any
+    # characters; this way, we always get at least '@' in $user
+    my ($user, $realm) = split(/(?<=@)(?=[^@]+$)/, $principal);
+    return lc($user) . uc($realm);
 }
 
@@ -261 +268 @@
             my $realm = '';
             $realm .= '@' . $m->realm if $m->realm ne BarnOwl::zephyr_getrealm();
-            return (lc(NFKC($m->class)) . $realm);
+            return (BarnOwl::compat_casefold($m->class) . uc($realm));
         }
     } else {
         push @filenames, $m->recipient;
     }
-    return map { lc(NFKC(BarnOwl::zephyr_smartstrip_user(strip_realm($_)))) } @filenames;
+    return map { casefold_principal(BarnOwl::zephyr_smartstrip_user(strip_realm($_))) } @filenames;
 }