(Perl) ZATCA Onboarding Get Compliance CSID

See more ZATCA Examples

Demonstrates sending a POST to get a compliance CSID, which is two parts: A binary security token, and a secret.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# It is assumed you've already generated a CSR.
# Also, you'll need an OTP code, valid for 1 hour, which is generated online in the Fatoora portal.  See 
# https://zatca.gov.sa/ar/E-Invoicing/Introduction/Guidelines/Documents/E-invoicing%20Detailed%20Technical%20Guidelines.pdf

# Manually replace this with the OTP code you interactively obtained in a browser session from the Fatoora portal.
# The OTP code is valid for 1 hour.
$otp = "123434";

# You should already have a CSR in a file containing something that looks like this:

# -----BEGIN CERTIFICATE REQUEST-----
# MIIB5DCCAYsCAQAwTDELMAkGA1UEBhMCU0ExFTATBgNVBAsMDFJpeWFkIEJyYW5j
# aDEQMA4GA1UECgwHQ29udG9zbzEUMBIGA1UEAwwLRUExMjM0NTY3ODkwVjAQBgcq
# hkjOPQIBBgUrgQQACgNCAAQI6op+6GQ4Gmn9oy0DpGxX0lFtUIvj+4Jtnp0VyEsH
# +ZO7lpgksbRC484R3fAsO0v+Ly24ZIUIOYEIAeJ1f6AooIHfMIHcBgkqhkiG9w0B
# CQ4xgc4wgcswIQYJKwYBBAGCNxQCBBQTElpBVENBLUNvZGUtU2lnbmluZzCBpQYD
# VR0RBIGdMIGapIGXMIGUMTswOQYDVQQEDDIxLVRTVHwyLVRTVHwzLWVkMjJmMWQ4
# LWU2YTItMTExOC05YjU4LWQ5YThmMTFlNDQ1ZjEfMB0GCgmSJomT8ixkAQEMDzMx
# MDEyMjM5MzUwMDAwMzENMAsGA1UEDAwEMTEwMDESMBAGA1UEGgwJTXlBZGRyZXNz
# MREwDwYDVQQPDAhJbmR1c3RyeTAKBggqhkjOPQQDAgNHADBEAiBurm6KdAeHfXzt
# h/jk8xSMBP4TAkkFrg+hWDhfI0/SuAIgJi8ectM7YwBIBCmf0tdFcVTU7GBbvjnK
# xValZCAO39M=
# -----END CERTIFICATE REQUEST-----

$pem = chilkat::CkPem->new();
$success = $pem->LoadPemFile("c:/aaworkarea/zatca/onboarding/taxpayer.csr","");
if ($success == 0) {
    print $pem->lastErrorText() . "\r\n";
    exit;
}

# Get the base64 from the CSR in a single line.
$sbCsrBase64 = chilkat::CkStringBuilder->new();
$sbCsrBase64->Append($pem->getEncodedItem("csr","","base64",0));
$numReplaced = $sbCsrBase64->Replace("\r","");
$numReplaced = $sbCsrBase64->Replace("\n","");
$csrBase64 = $sbCsrBase64->getAsString();
print $csrBase64 . "\r\n";

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$json->UpdateSb("csr",$sbCsrBase64);

$http = chilkat::CkHttp->new();
$http->put_Accept("application/json");
$http->SetRequestHeader("OTP",$otp);
$http->SetRequestHeader("Accept-Version","V2");
# resp is a HttpResponse
$resp = $http->PostJson3("https://gw-apic-gov.gazt.gov.sa/e-invoicing/core/compliance","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

if ($resp->get_StatusCode() != 200) {
    print $resp->bodyStr() . "\r\n";
    print "response status code = " . $resp->get_StatusCode() . "\r\n";
    print "Failed" . "\r\n";

    exit;
}

$jsonResp = chilkat::CkJsonObject->new();
$resp->GetBodyJson($jsonResp);

$jsonResp->put_EmitCompact(0);
print "JSON response:" . "\r\n";
print $jsonResp->emit() . "\r\n";