HTTP::Request and literal %2B

Question

I am making a script that POST some XML to another server but I have problems with a plus singn (+). Here is my code:

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $XML = qq|
<?xml version="1.0" encoding="UTF-8"?>
<ServiceAddRQ>
<Service code="Ws%2BsuHG7Xqk01RaIxm2L/w1L">
<ContractList>
<Contract>
<Name>CGW-TODOSB2B</Name>
</Contract>
</ContractList>
</Service>
</ServiceAddRQ>
|;

utf8::encode($XML);


my $ua = LWP::UserAgent->new;
$ua->timeout(120);

my $ret = HTTP::Request->new('POST', $XMLurl);
$ret->content_type('application/x-www-form-urlencoded'); 
$ret->content("xml_request=$XML");

my $response = $ua->request($ret);

As you can see in the attribute code the value string have %2B and the other server recive the value "Ws+suHG7Xqk01RaIxm2L/w1L".

How ca i send %2B literal.

Thanks in advance

Welch

Eugene Yarmash · Accepted Answer · 2013-12-12T11:36:21.513

4

You need to escape all unsafe characters in the content like this:

use URI::Escape;
$ret->content("xml_request=".uri_escape($XML));

edited Dec 12 '13 at 11:36

answered Mar 22 '11 at 18:52

Eugene Yarmash

142,882
41
325
378

1

Hi Eugene, It works I only change: This $ret->content(uri_escape("xml_request=$XML")); To $ret->content(xml_request=uri_escape($XML)); And works great. – Welcho Mar 22 '11 at 19:35

score 3 · Answer 2 · answered Mar 22 '11 at 21:12

You are incorrectly constructing your application/x-www-form-urlencoded document. The simplest way to construct it correctly is to use HTTP::Request::Common's POST either directly

use HTTP::Request::Common qw( POST );
my $request = POST($XMLurl, [ xml_request => $XML ]);
my $response = $ua->request($request);

or indirectly

my $response = $ua->post($XMLurl, [ xml_request => $XML ]);

The body of the request will be

Ws%252BsuHG7Xqk01RaIxm2L/w1L

rather than

Ws%2BsuHG7Xqk01RaIxm2L/w1L

so you'll end up with

Ws%2BsuHG7Xqk01RaIxm2L/w1L

rather than

Ws+suHG7Xqk01RaIxm2L/w1L

@daxim, I don't know about it being "the appropriate way". I use it because it's convenient and simple. It's also less prone to misuse than `uri_escape`. — ikegami, Mar 23 '11 at 17:32

score -1 · Answer 3 · answered Mar 22 '11 at 18:57

-1

As a side note, '+' does not require URL encoding so I'm not clear on why you're encoding it in your XML. That aside

I think if you pass HTTP::Request a preformatted string in it's constructor it will not touch the data.

my $ret = HTTP::Request->new('POST', $XMLurl, undef, "xml_request=".$XML);

answered Mar 22 '11 at 18:57

vicTROLLA

1,554
12
15

Thanks vicTROLLA, I apreciate your time. – Welcho Mar 22 '11 at 19:36

HTTP::Request and literal %2B

3 Answers3