HTTP Data Being Changed

[dlwester]

I am calling a remote Perl service from a Perl script with the following code:

my $userAgent = LWP::UserAgent->new;
my $request = HTTP::Request->new();
$request->uri($buildManagerUrl);
$request->method("POST");
my $postData = "action=$action\&params=$callParamsJson";
my $content = encode("iso-8859-1", $postData);
$request->content($content);
$request->content_type("application/x-www-form-urlencoded");
my $response = $userAgent->request($request);

When I print out the request data, one of the fields in the embedded XML in the content is:

<password>XUvN+5R3</password>

Here's the code that retrieves the data sent above:

my $q = new CGI();
my %params = $q->Vars();
print Dumper($q);

However, when I look at the request in the Dumper output, the '+' in the data is being replaced by a space:

<password>XUvN 5R3</password>

I'm guessing I'm probably just using the wrong encoding, but I have no idea how to resolve this. Any ideas?

[repellent]

application/x-www-form-urlencoded type specifies + for spaces. You need to escape them:

useURI::Escape;

$r->content(uri_escape($content));

[dlwester]

Thanks, that did the trick!

[Anonymous Monk]

You're doing weird things with the low-level parts of the LWP API. This is much shorter and actually working as intended (takes care of assembling and encoding the request the correct way):

use LWP::UserAgent qw();
my $response = LWP::UserAgent
    ->new
    ->post(
        $buildManagerUrl,
        {
            action => $action,
            params => $callParamsJson,
        }
    );

[dlwester]

Thanks, that simplified my code a lot. But my problem remains - the '+' is still a ' ' on the other side of the wire.