[interchange] add Bcrypt filter
Josh Lavin <[email protected]> Fri, 20 Jan 2017 22:45:04 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 76867ad5e40783aaddba85ac92660f57383226e3 Author: Josh Lavin <[email protected]> Date: Fri Jan 20 14:42:14 2017 -0800 add Bcrypt filter WHATSNEW-5.11 | 8 ++++++++ code/Filter/bcrypt.filter | 23 +++++++++++++++++++++++ 2 files changed, 31 insertions(+), 0 deletions(-) --- diff --git a/WHATSNEW-5.11 b/WHATSNEW-5.11 index 534c05d..1c02f11 100644 --- a/WHATSNEW-5.11 +++ b/WHATSNEW-5.11 @@ -8,6 +8,14 @@ ------------------------------------------------------------------------------ +Interchange 5.11 not yet released + +Core +---- + +* Add bcrypt filter. + + Payments -------- diff --git a/code/Filter/bcrypt.filter b/code/Filter/bcrypt.filter new file mode 100644 index 0000000..7e9ff52 --- /dev/null +++ b/code/Filter/bcrypt.filter @@ -0,0 +1,23 @@ +CodeDef bcrypt Filter +CodeDef bcrypt Routine <<EOR +sub { + my ($val, undef, $profile) = @_; + return Vend::UserDB::construct_bcrypt( + { + password => $val, + profile => $profile || 'default', + } + ); +} +EOR +CodeDef bcrypt Documentation <<EOD + + [filter bcrypt]foo[/filter] + + Set a UserDB profile (defaults to "default"): + + [filter bcrypt.default]foo[/filter] + + This tag will not work from embedded Perl, unless perhaps if global is set. + +EOD