(Perl) Aruba Fatturazione Elettronica Get Zip by Filename

Returns an invoice with all of its notifications in Zip format (e.g. IT01879020517_abcde.xml.p7m).

For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs_EN.html#_getzipbyfilename

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

use chilkat();

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

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

# Implements the following CURL command:

# curl -X GET https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m \
#   -H "Accept: application/json" \
#   -H "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Adds the "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE=" header.
$http->put_AuthToken("NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE=");
$http->SetRequestHeader("Accept","application/json");

$bdZip = chilkat::CkBinData->new();
$success = $http->QuickGetBd("https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m",$bdZip);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$respStatusCode = $http->get_LastStatus();
print "response status code = " . $respStatusCode . "\r\n";

if ($respStatusCode != 200) {
    # If it failed, the response body will not contain the .zip file data.
    # It will likely contain an error message.
    print $bdZip->getString("utf-8") . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# Open the zip and extract the .p7m
$zip = chilkat::CkZip->new();

$success = $zip->OpenBd($bdZip);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# If desired, we can unzip to the filesystem..
$numUnzipped = $zip->Unzip("c:/mySignedInvoices");
if ($numUnzipped < 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Alternatively, we can unzip into memory..
# entry is a ZipEntry
$entry = $zip->GetEntryByIndex(0);
if ($zip->get_LastMethodSuccess() == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$bdP7m = chilkat::CkBinData->new();
$success = $entry->UnzipToBd($bdP7m);
if ($success == 0) {
    print $entry->lastErrorText() . "\r\n";
    exit;
}

# Verify the signature and extract the XML from the p7m
# If the signature verification is successful, the contents of bdP7m are unwrapped and what
# remains is the original signed document..
$crypt = chilkat::CkCrypt2->new();
$success = $crypt->OpaqueVerifyBd($bdP7m);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "The signature was verified." . "\r\n";

# The bdp7m now contains the XML that was originally signed.
print "Original XML:" . "\r\n";
print $bdP7m->getString("utf-8") . "\r\n";