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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue Oct 4 15:27:11 EDT 2005


User:      jon
Date:      2005-10-04 19:27:11 GMT
Modified:  code/Filter sql.filter
Log:
Make sql filter escape backslashes by default, to cover common cases of
PostgreSQL and MySQL being used. Can be disabled with a pragma for
databases where the backslash is not an escape character in strings.

Revision  Changes    Path
1.3       +4 -3      interchange/code/Filter/sql.filter


rev 1.3, prev_rev 1.2
Index: sql.filter
===================================================================
RCS file: /var/cvs/interchange/code/Filter/sql.filter,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- sql.filter	12 Apr 2005 03:23:18 -0000	1.2
+++ sql.filter	4 Oct 2005 19:27:11 -0000	1.3
@@ -1,14 +1,15 @@
-# Copyright 2002-2004 Interchange Development Group (http://www.icdevgroup.org/)
+# Copyright 2002-2005 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: sql.filter,v 1.2 2005/04/12 03:23:18 mheins Exp $
+# $Id: sql.filter,v 1.3 2005/10/04 19:27:11 jon Exp $
 
 CodeDef sql Filter
-CodeDef sql Description SQL quoting
+CodeDef sql Description SQL quoting, generic
 CodeDef sql Routine <<EOR
 sub {
 	my $val = shift;
 	$val =~ s:':'':g;
+	$val =~ s:\\:\\\\:g unless $::Pragma->{filter_sql_no_backslash};
 	return $val;
 }
 EOR








More information about the interchange-cvs mailing list