[interchange-cvs] interchange - jon modified 2 files

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2005-10-08 10:33:08 GMT
Modified:  .        MANIFEST
Added:     code/Filter oneline.filter
Log:
Add new filter Mike suggested for truncating a string at the first newline
(CR or LF). Useful for preventing email header injection attempts, or any
other place where only one line of input is wanted.

Revision  Changes    Path
2.175     +1 -0      interchange/MANIFEST


rev 2.175, prev_rev 2.174
Index: MANIFEST
===================================================================
RCS file: /var/cvs/interchange/MANIFEST,v
retrieving revision 2.174
retrieving revision 2.175
diff -u -u -r2.174 -r2.175
--- MANIFEST	7 Oct 2005 11:38:55 -0000	2.174
+++ MANIFEST	8 Oct 2005 10:33:08 -0000	2.175
@@ -50,6 +50,7 @@
 code/Filter/null_to_comma.filter
 code/Filter/null_to_space.filter
 code/Filter/nullselect.filter
+code/Filter/oneline.filter
 code/Filter/option_format.filter
 code/Filter/options2line.filter
 code/Filter/pagefile.filter



1.1                  interchange/code/Filter/oneline.filter


rev 1.1, prev_rev 1.0
Index: oneline.filter
===================================================================
# Copyright 2005 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: oneline.filter,v 1.1 2005/10/08 10:33:08 jon Exp $

CodeDef oneline Filter
CodeDef oneline Description Truncate at first newline (CR or LF)
CodeDef oneline Visibility  public
CodeDef oneline Routine <<EOR
sub {
	my $val = shift;
	$val =~ s/[\r\n].*//s;
	return $val;
}
EOR