Perl

TicketBAI -- Send HTTP POST

See more TicketBAI Examples

Demonstrates how to send a TicketBAI POST and get the response. Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

$success = $http->SetSslClientCertPfx("your.pfx","pfx_password");
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Get the XML we wish to send in the body of the request.
$sbXml = chilkat::CkStringBuilder->new();
$success = $sbXml->LoadFile("qa_data/payload.xml","utf-8");
if ($success == 0) {
    print "Failed to load XML that is to be the HTTP request body" . "\r\n";
    exit;
}

# Build the following JSON

# { 
#     "con": "LROE", 
#     "apa": "1.1", 
#     "inte": { 
#         "nif": "número de identificación fiscal", 
#         "nrs": "nombre o Razón social", 
#         "ap1": "primer apellido", 
#         "ap2": "segundo apellido" 
#     }, 
#     "drs": { 
#     "mode": "140", 
#     "ejer": "ejercicio" 
#     } 
# }

# Use this online tool to generate code from sample JSON: 
# Generate Code to Create JSON

$json = chilkat::CkJsonObject->new();
$json->UpdateString("con","LROE");
$json->UpdateString("apa","1.1");
$json->UpdateString("inte.nif","número de identificación fiscal");
$json->UpdateString("inte.nrs","nombre o Razón social");
$json->UpdateString("inte.ap1","primer apellido");
$json->UpdateString("inte.ap2","segundo apellido");
$json->UpdateString("drs.mode","140");
$json->UpdateString("drs.ejer","ejercicio");

# Add required headers...
$http->SetRequestHeader("eus-bizkaia-n3-version","1.0");
$http->SetRequestHeader("eus-bizkaia-n3-content-type","application/xml");
$http->SetRequestHeader("eus-bizkaia-n3-data",$json->emit());

$url = "https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena";
$resp = chilkat::CkHttpResponse->new();
$http->put_UncommonOptions("SendGzipped");
$success = $http->HttpSb("POST",$url,$sbXml,"utf-8","application/octet-stream",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$http->ClearHeaders();

print "response status code: " . $resp->get_StatusCode() . "\r\n";

# Examine the response (it is already decompressed)
print "response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";