Mailing List Archive

commit 76867ad5e40783aaddba85ac92660f57383226e3
Author: Josh Lavin <digory@cpan.org>
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

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs