From e9810bfbcdbfadbeb838cbe71a6fa52375232d6a Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 1 Mar 2007 13:59:45 +0000 Subject: [PATCH] cql_quote() quotes terms that contain quotes and slashes, as well as spaces. --- lib/ZOOM/IRSpy/Utils.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index 4f7562d..cbdb5c8 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -1,4 +1,4 @@ -# $Id: Utils.pm,v 1.23 2007-03-01 13:52:54 mike Exp $ +# $Id: Utils.pm,v 1.24 2007-03-01 13:59:45 mike Exp $ package ZOOM::IRSpy::Utils; @@ -67,7 +67,7 @@ sub cql_quote { my($term) = @_; $term =~ s/([""\\])/\\$1/g; - $term = qq["$term"] if $term =~ /\s/; + $term = qq["$term"] if $term =~ /[\s""\/]/; return $term; } @@ -76,9 +76,7 @@ sub cql_quote { sub cql_target { my($host, $port, $db) = @_; - return ("host=" . cql_quote($host) . " and " . - "port=" . cql_quote($port) . " and " . - "path=" . cql_quote($db)); + return "rec.id=" . cql_quote("$host:$port/$db"); } -- 1.7.10.4