(Perl) Paging User Photos with Cursor

Demonstrates how to iterate over the pages of user photos using a cursor.

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.

# This example assumes a previously obtained an access token
$oauth2 = chilkat::CkOAuth2->new();
$oauth2->put_AccessToken("FACEBOOK-ACCESS-TOKEN");

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

# Connect to Facebook.
$success = $rest->Connect("graph.facebook.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Provide the authentication credentials (i.e. the access key)
$rest->SetAuthOAuth2($oauth2);

# Indicate that we only want the photos the user has personally uploaded.
$rest->AddQueryParam("type","uploaded");

# We could limit the number of photos per page using the "limit" field.
$rest->AddQueryParam("limit","20");

# Get the 1st page of photos. (Not the actual image data, but the information about each photo.)
# See https://developers.facebook.com/docs/graph-api/reference/user/photos/ for more information.
$responseJson = $rest->fullRequestNoBody("GET","/v2.7/me/photos");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$json->Load($responseJson);
print $json->emit() . "\r\n";

# 
# See Parsing the Facebook User Photos for code showing how to parse the JSON photos content.
# 

# Get the "after" cursor.
$afterCursor = $json->stringOf("paging.cursors.after");
while ($json->get_LastMethodSuccess() == 1) {

    print "after cursor: " . $afterCursor . "\r\n";

    # Prepare for getting the next page of photos.
    # We can continue using the same REST object.
    # If already connected, we'll continue using the existing connection.
    # Otherwise, a new connection will automatically be made if needed.
    $rest->ClearAllQueryParams();
    $rest->AddQueryParam("type","uploaded");
    $rest->AddQueryParam("limit","20");
    $rest->AddQueryParam("after",$afterCursor);

    $responseJson = $rest->fullRequestNoBody("GET","/v2.7/me/photos");
    if ($rest->get_LastMethodSuccess() != 1) {
        print $rest->lastErrorText() . "\r\n";
        exit;
    }

    $json->Load($responseJson);
    # See Parsing the Facebook User Photos for code showing how to parse the JSON photos content.

    print $json->emit() . "\r\n";

    # Get the cursor for the next page.
    $afterCursor = $json->stringOf("paging.cursors.after");
}

print "No more pages of photos." . "\r\n";