[interchange-cvs] interchange - jon modified code/Filter/oneline.filter

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2005-11-10 02:39:26 GMT
Modified:  code/Filter oneline.filter
Log:
Also truncate at an ASCII NUL, as suggested by Kevin Walsh. This could
be considered a "bugfix" since a NUL mostly likely represents a delimiter
between multiple form values and thus the end of a "line".

Revision  Changes    Path
1.2       +3 -3      interchange/code/Filter/oneline.filter


rev 1.2, prev_rev 1.1
Index: oneline.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/oneline.filter,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- oneline.filter	8 Oct 2005 10:33:08 -0000	1.1
+++ oneline.filter	10 Nov 2005 02:39:26 -0000	1.2
@@ -1,14 +1,14 @@
 # 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 $
+# $Id: oneline.filter,v 1.2 2005/11/10 02:39:26 jon Exp $
 
 CodeDef oneline Filter
-CodeDef oneline Description Truncate at first newline (CR or LF)
+CodeDef oneline Description Truncate at first newline (CR or LF) or ASCII NUL
 CodeDef oneline Visibility  public
 CodeDef oneline Routine <<EOR
 sub {
 	my $val = shift;
-	$val =~ s/[\r\n].*//s;
+	$val =~ s/[\r\n\0].*//s;
 	return $val;
 }
 EOR