(Perl) Firebase PATCH - Updating Data

Uses the PATCH method to update record with new information. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

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

use chilkat();

# Uses the PATCH method to update a Firebase record.

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

# This example assumes a JWT authentication token, if required, has been previously obtained.
# See Get Firebase Access Token from JSON Service Account Private Key for sample code.

# Load the previously obtained Firebase access token into a string.
$fac = chilkat::CkFileAccess->new();
$accessToken = $fac->readEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8");
if ($fac->get_LastMethodSuccess() != 1) {
    print $fac->lastErrorText() . "\r\n";
    exit;
}

$rest = chilkat::CkRest->new();

# Make the initial connection (without sending a request yet).
# Once connected, any number of requests may be sent.  It is not necessary to explicitly
# call Connect before each request.  
$success = $rest->Connect("chilkat.firebaseio.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$authGoogle = chilkat::CkAuthGoogle->new();
$authGoogle->put_AccessToken($accessToken);
$rest->SetAuthGoogle($authGoogle);

# Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json
# This data is publicly readable, but not writable.  You'll need to 
# run against your own database..

# We're going to update "Molly II" to "Molly III"
$pigNameUpdate = chilkat::CkJsonObject->new();
$pigNameUpdate->AppendString("name","Molly III");

# The string content of the last arg passed is  {"name":"Molly III"} 
$jsonResponse = $rest->fullRequestString("PATCH","/pig-rescue/animal/-KI3bD-FU_Dake7sYOiP.json",$pigNameUpdate->emit());
if ($rest->get_LastMethodSuccess() != 1) {
    # Something happened in the communications (either no request was sent, or no response was received.
    # (The Chilkat REST API also has lower-level methods where an app can send the request in one call,
    # and then receive the response in another call.)
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Check the response status code.   A 200 response status indicates success.
if ($rest->get_ResponseStatusCode() != 200) {
    print $rest->responseStatusText() . "\r\n";
    print $jsonResponse . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# When successful, the response contains the data written.
print $jsonResponse . "\r\n";
print "Success." . "\r\n";