#!/usr/bin/perl -w

use strict;
use CGI;
use URI::Escape;
use JSON;
use Digest::SHA qw(hmac_sha512_hex);

my $query 		= CGI->new;
my $raw_data 	= $query->param('data');
my $data 			= decode_json($raw_data);
my $actual_data = '{"request":{"service":"test"},"data":{"test_input":"%2B2"}}';

print "raw_data: ".$raw_data."\n";
print "no escaping: ".$data->{data}->{test_input}." vs escaping: ";
print uri_escape($data->{data}->{test_input})."\n";

print hmac_sha512_hex($raw_data,"ABCD1234")."\n";
print hmac_sha512_hex($actual_data,"ABCD1234")."\n";