# A regression test "framework" for Privoxy. For documentation see:
# perldoc privoxy-regression-test.pl
#
-# $Id: privoxy-regression-test.pl,v 1.143 2008/04/04 17:17:32 fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.145 2008/04/12 12:27:51 fk Exp $
#
# Wish list:
#
my %final_results = ();
my $final_results_reached = 0;
- die "Unacceptable characterss in $url" if $url =~ m@[\\'"]@;
+ die "Unacceptable characters in $url" if $url =~ m@[\\'"]@;
# XXX: should be URL-encoded properly
$url =~ s@%@%25@g;
$url =~ s@\s@%20@g;
$url =~ s@:@%3A@g;
$url =~ s@/@%2F@g;
- $curl_parameters .= "'" . PRIVOXY_CGI_URL . 'show-url-info?url=' . $url . "'";
+ $curl_parameters .= quote(PRIVOXY_CGI_URL . 'show-url-info?url=' . $url);
foreach (@{get_cgi_page_or_else($curl_parameters)}) {
if (defined $parameter) {
# In case the caller needs to check
- # the action and it's parameter
+ # the action and its parameter
$final_results{$action . $parameter} = 1;
}
- # In case the action doesn't have paramters
+ # In case the action doesn't have parameters
# or the caller doesn't care for the parameter.
$final_results{$action} = 1;
}