[open-ils-commits] r16169 - in branches/rel_1_6: . Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-04-08 10:51:36 -0400 (Thu, 08 Apr 2010)
New Revision: 16169

Modified:
   branches/rel_1_6/
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
perl-ify JS regexes that use \u-encoded unicode characters


Property changes on: branches/rel_1_6
___________________________________________________________________
Name: bzr:revision-info
   - timestamp: 2008-10-28 09:27:31.470000029 -0400
committer: bzr <bzr at yeti>
properties: 
	branch-nick: trunk

   + timestamp: 2010-04-08 10:51:35.668999910 -0400
committer: Mike Rylander <miker at esilibrary.com>
properties: 
	branch-nick: branches/rel_1_6

Name: bzr:file-ids
   - README	10486 at dcc99617-32d9-48b4-a31d-7c20da2025e4:trunk:README

   + Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	544 at dcc99617-32d9-48b4-a31d-7c20da2025e4:trunk:Open-ILS%2Fsrc%2Fperlmods%2FOpenILS%2FApplication%2FActor.pm

Name: bzr:revision-id:v4
   + 11472 miker at esilibrary.com-20100408145135-kfykky6xsncu5taj


Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2010-04-08 13:53:47 UTC (rev 16168)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2010-04-08 14:51:36 UTC (rev 16169)
@@ -3515,10 +3515,10 @@
 
     # Check complexity of password against OU-defined regex
     my $pw_regex = $U->ou_ancestor_setting_value($user->home_ou, 'global.password_regex');
-    $pw_regex = OpenSRF::Util::JSON->JSON2perl($pw_regex);
 
     my $is_strong = 0;
     if ($pw_regex) {
+       ($pw_regex = OpenSRF::Util::JSON->JSON2perl($pw_regex)) =~ s/\\u([0-9a-fA-F]{4})/\\x{$1}/gs;
        $is_strong = check_password_strength_custom($password, $pw_regex);
     } else {
        $is_strong = check_password_strength_default($password);