[interchange] add Bcrypt filter

Josh Lavin interchange-cvs at icdevgroup.org
Fri Jan 20 22:45:04 UTC 2017


commit 76867ad5e40783aaddba85ac92660f57383226e3
Author: Josh Lavin <digory at 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



More information about the interchange-cvs mailing list