[interchange-cvs] interchange - racke modified 2 files

[interchange-core@icdevgroup.org]

User:      racke
Date:      2003-03-07 12:57:30 GMT
Modified:  .        MANIFEST
Added:     code/Filter line.filter
Log:
line filter added which rips off the first line of a longer text

Revision  Changes    Path
2.91      +1 -0      interchange/MANIFEST


rev 2.91, prev_rev 2.90
Index: MANIFEST
===================================================================
RCS file: /anon_cvs/repository/interchange/MANIFEST,v
retrieving revision 2.90
retrieving revision 2.91
diff -u -r2.90 -r2.91
--- MANIFEST	18 Feb 2003 15:45:44 -0000	2.90
+++ MANIFEST	7 Mar 2003 12:57:30 -0000	2.91
@@ -17,6 +17,7 @@
 code/Filter/date2time.filter
 code/Filter/encrypt.filter
 code/Filter/lc.filter
+code/Filter/line.filter
 code/Filter/linkdecode.filter
 code/Filter/next_sequential.filter
 code/SystemTag/accessories.coretag



1.1                  interchange/code/Filter/line.filter


rev 1.1, prev_rev 1.0
Index: line.filter
===================================================================
CodeDef line Filter
CodeDef line Routine <<EOR
sub {
	my $val = shift;

	$val =~ s/^(.*?)\r?\n.*$/$1/s;
	return $val;
}
EOR