(Perl) Get the Photos for a User

Demonstrates how to get the photos that the user has uploaded.

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 by setting a limit.
$rest->AddQueryParam("limit","5");

# Gets 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";

# A sample JSON response is shown below.  
# This is the code to parse the JSON response.

$dtime = chilkat::CkDateTime->new();
$bLocalTime = 1;

$i = 0;
$numItems = $json->SizeOfArray("data");
while ($i < $numItems) {
    $json->put_I($i);
    print "--- " . $i . "\r\n";
    $name = $json->stringOf("data[i].name");
    if ($json->get_LastMethodSuccess() == 1) {
        print "name: " . $name . "\r\n";
    }

    print "id: " . $json->stringOf("data[i].id") . "\r\n";

    # We can load the created_time into a CkDateTime...
    $dtime->SetFromTimestamp($json->stringOf("data[i].created_time"));
    # dt is a DtObj
    $dt = $dtime->GetDtObj($bLocalTime);
    print $dt->get_Month() . "/" . $dt->get_Day() . "/" . $dt->get_Year() . "  " . $dt->get_Hour() . ":"
         . $dt->get_Minute() . "\r\n";

    $i = $i + 1;
}

# We can get the paging information as follows:
print "URL for next page: " . $json->stringOf("paging.next") . "\r\n";
print "before cursor: " . $json->stringOf("paging.cursors.before") . "\r\n";
print "after cursor: " . $json->stringOf("paging.cursors.after") . "\r\n";

# This is a sample JSON response:
# { 
#   "data": [
#     {
#       "created_time": "2016-09-29T20:46:18+0000",
#       "name": "Ignore my posts -- I'm doing some testing for Facebook related programming...",
#       "id": "10210199026347451"
#     },
#     { 
#       "created_time": "2016-09-19T02:00:42+0000",
#       "id": "10210091531240138"
#     },
#     { 
#       "created_time": "2016-09-19T02:00:42+0000",
#       "id": "10210091520620125"
#     },
#     { 
#       "created_time": "2016-09-19T01:59:46+0000",
#       "name": "I would've went for a swim had it not been for the sign",
#       "id": "10210091522299917"
#     },
#     { 
#       "created_time": "2016-09-12T00:37:35+0000",
#       "id": "10210023316834798"
#     }
#   ],
#   "paging": { 
#     "cursors": { 
#       "before": "MTAyMTAxOTkwMjYzNDc0NTEZD",
#       "after": "MTAyMTAwMjMzMTU4MzQ3OTgZD"
#     },
#     "next": "https:\/\/graph.facebook.com\/v2.7\/10224048320139890\/photos?type=uploaded&limit=5&after=MTAyMTAwMjMzMTU4MzQ3OTgZD"
#   }
# }
#