[interchange-cvs] interchange - docelic modified
code/Filter/crypt.filter
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Dec 22 08:50:36 EST 2004
User: docelic
Date: 2004-12-22 13:50:35 GMT
Modified: code/Filter crypt.filter
Log:
* Allow salt to be specified as argument to the
'crypt' filter.
Revision Changes Path
1.2 +3 -3 interchange/code/Filter/crypt.filter
rev 1.2, prev_rev 1.1
Index: crypt.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/crypt.filter,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- crypt.filter 19 Oct 2004 10:03:51 -0000 1.1
+++ crypt.filter 22 Dec 2004 13:50:35 -0000 1.2
@@ -1,12 +1,12 @@
# Copyright 2002-2004 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 1996-2002 Red Hat, Inc.
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: crypt.filter,v 1.1 2004/10/19 10:03:51 docelic Exp $
+# $Id: crypt.filter,v 1.2 2004/12/22 13:50:35 docelic Exp $
CodeDef crypt Filter
CodeDef crypt Routine <<EOR
sub {
- my $val = shift;
- return crypt($val, random_string(2));
+ my ($val, $tag, $salt) = @_;
+ return crypt($val, $salt ? $salt : random_string(2));
}
EOR
More information about the interchange-cvs
mailing list