Perl Requires Chilkat v11.0.0+

Get the Photos for a User

See more Facebook Examples

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

use chilkat();

$success = 0;

#  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 == 0) {
    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() == 0) {
    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;

$dt = chilkat::CkDtObj->new();
$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"));
    $dtime->ToDtObj($bLocalTime,$dt);

    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"
#    }
#  }
#