[interchange-cvs] interchange - jon modified 3 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Jul 23 22:24:43 EDT 2007


User:      jon
Date:      2007-07-24 02:24:43 GMT
Modified:  .        MANIFEST
Modified:  dist/test/products tests.asc
Added:     code/Filter sha1.filter
Log:
Add sha1 filter and accompanying test.

Revision  Changes    Path
2.208     +1 -0      interchange/MANIFEST


rev 2.208, prev_rev 2.207
Index: MANIFEST
===================================================================
RCS file: /var/cvs/interchange/MANIFEST,v
retrieving revision 2.207
retrieving revision 2.208
diff -u -u -r2.207 -r2.208
--- MANIFEST	15 Jul 2007 03:08:37 -0000	2.207
+++ MANIFEST	24 Jul 2007 02:24:43 -0000	2.208
@@ -63,6 +63,7 @@
 code/Filter/restrict_html.filter
 code/Filter/roman.filter
 code/Filter/round.filter
+code/Filter/sha1.filter
 code/Filter/show_null.filter
 code/Filter/small.filter
 code/Filter/space_to_nbsp.filter



1.1                  interchange/code/Filter/sha1.filter


rev 1.1, prev_rev 1.0
Index: sha1.filter
===================================================================
# Copyright 2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
# 
# $Id: sha1.filter,v 1.1 2007/07/24 02:24:43 jon Exp $

CodeDef sha1 Filter
CodeDef sha1 Description sha1 sum
CodeDef sha1 Routine <<EOR

use Digest::SHA1;

sub {
	return Digest::SHA1::sha1_hex($_[0]);
}
EOR



2.30      +5 -8      interchange/dist/test/products/tests.asc


rev 2.30, prev_rev 2.29
Index: tests.asc
===================================================================
RCS file: /var/cvs/interchange/dist/test/products/tests.asc,v
retrieving revision 2.29
retrieving revision 2.30
diff -u -u -r2.29 -r2.30
--- tests.asc	24 Jul 2007 02:23:56 -0000	2.29
+++ tests.asc	24 Jul 2007 02:24:43 -0000	2.30
@@ -2848,20 +2848,17 @@
 %%
 Switching currency back and forth (<a href="http://bugs.debian.org/397750">#397550</a>)
 %%%
-999999
+000162
 %%
-[the test] [perl]
-# Make this come out right
-return 'The expected result as a regex.';
-[/perl]
+[filter sha1]Testing out a nice
+string with sha1 hashing.[/filter]
 %%
-The expected result as a regex.
+8c8a12548e24f0ba05d3c7d0b0b97a3e528de6cb
 %%
-The NOT expected result.
 %%
 
 %%
-Skeleton test.
+Filter sha1.
 %%%
 999999
 %%








More information about the interchange-cvs mailing list