Changeset 982 for trunk/cgi-bin/ljlib.pl

Timestamp:

04/08/02 18:08:19 (11 years ago)

Author:

bradfitz

Message:

allow alternative utf-8 checker, or fall back to slow perl one.

Files:

• trunk/cgi-bin/ljlib.pl (modified) (1 diff)

trunk/cgi-bin/ljlib.pl

@@ -5318 +5318 @@
     my $text = shift;
 
-    $text =~ m/^([\x00-\x7f]|[\xc2-\xdf][\x80-\xbf]|\xe0[\xa0-\xbf][\x80-\xbf]|[\xe1-\xef][\x80-\xbf][\x80-\xbf]|\xf0[\x90-\xbf][\x80-\xbf][\x80-\xbf]|[\xf1-\xf7][\x80-\xbf][\x80-\xbf][\x80-\xbf])*(.*)/;
-
-    return 1 unless $2;
-    return 0;
+    if (LJ::are_hooks("is_utf8")) {
+        my @r = LJ::run_hooks("is_utf8", $text);
+        return 0 if grep { ! $_->[0] } @r;
+        return 1;
+    }
+    else {
+        $text =~ m/^([\x00-\x7f]|[\xc2-\xdf][\x80-\xbf]|\xe0[\xa0-\xbf][\x80-\xbf]|[\xe1-\xef][\x80-\xbf][\x80-\xbf]|\xf0[\x90-\xbf][\x80-\xbf][\x80-\xbf]|[\xf1-\xf7][\x80-\xbf][\x80-\xbf][\x80-\xbf])*(.*)/;
+
+        return 1 unless $2;
+        return 0;
+    }
 }