Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (nike.apache.org: local policy)
Message-ID: <551980B3.9070205@mycopanet.com>
Date: Mon, 30 Mar 2015 09:58:27 -0700
From: Donavon <donl@mycopanet.com>
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64;
 rv:31.0) Gecko/20100101 Thunderbird/31.5.0
MIME-Version: 1.0
To: embperl@perl.apache.org
Subject: embperl and JSON
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit

Hello.

I am creating an ajax call to an embperl script and I need assistance in 
getting the script to work with json data sent with "application/json"

It works when I send data via javascript with:
   request.setRequestHeader("Content-Type", 
"application/x-www-form-urlencoded");
   request.send(encodeURLQueryString(data));

It doesn't work when I send data via javascript with:
   request.setRequestHeader("Content-Type", "application/json");
   request.send(JSON.stringify(data));


My submit form looks like this:

submit.epl
[-
use JSON; # imports encode_json, decode_json, to_json and from_json.

$fdat{test}  = "test";
$json        = encode_json(\%fdat);

$escmode = 0;
$http_headers_out{'Content-Type'}         = "application/json; 
charset=utf-8";
print OUT $json;
-]


Thank You,
~Donavon

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org