Perl

SMSAPI - List Contacts

See more SMSAPI Examples

List Contacts Perl

use chilkat();

$success = 0;

# 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 -H "Authorization: Bearer token_api_oauth" https://api.smsapi.com/contacts?phone_number=48500000000

# 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 token_api_oauth" header.
$http->put_AuthToken("token_api_oauth");

$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $http->QuickGetSb("https://api.smsapi.com/contacts?phone_number=48500000000",$sbResponseBody);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$jResp = chilkat::CkJsonObject->new();
$jResp->LoadSb($sbResponseBody);
$jResp->put_EmitCompact(0);

print "Response Body:" . "\r\n";
print $jResp->emit() . "\r\n";

$respStatusCode = $http->get_LastStatus();
print "Response Status Code = " . $respStatusCode . "\r\n";
if ($respStatusCode >= 400) {
    print "Response Header:" . "\r\n";
    print $http->lastHeader() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "size": 1,
#   "collection": [
#     {
#       "id": "5b83ba81a788494a0469490f",
#       "first_name": "name",
#       "last_name": "surname",
#       "phone_number": "48500000000",
#       "email": "bok@smsapi.com",
#       "gender": "male",
#       "city": "City",
#       "country": "Poland",
#       "source": "source",
#       "date_created": "2018-08-27T10:46:57+02:00",
#       "date_updated": "2018-08-27T10:46:57+02:00",
#       "groups": [
#         {
#           "id": "59a3ca1fa78849062837cd0c",
#           "name": "default",
#           "date_created": "2017-08-28T09:45:35+02:00",
#           "date_updated": "2017-08-28T09:45:35+02:00",
#           "description": "",
#           "created_by": "login",
#           "idx": null,
#           "contact_expire_after": null,
#           "contacts_count": null
#         }
#       ]
#     }
#   ]
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

$date_created = chilkat::CkDtObj->new();
$date_updated = chilkat::CkDtObj->new();

$size = $jResp->IntOf("size");
$i = 0;
$count_i = $jResp->SizeOfArray("collection");
while ($i < $count_i) {
    $jResp->put_I($i);
    $id = $jResp->stringOf("collection[i].id");
    $first_name = $jResp->stringOf("collection[i].first_name");
    $last_name = $jResp->stringOf("collection[i].last_name");
    $phone_number = $jResp->stringOf("collection[i].phone_number");
    $email = $jResp->stringOf("collection[i].email");
    $gender = $jResp->stringOf("collection[i].gender");
    $city = $jResp->stringOf("collection[i].city");
    $country = $jResp->stringOf("collection[i].country");
    $source = $jResp->stringOf("collection[i].source");
    $jResp->DtOf("collection[i].date_created",0,$date_created);
    $jResp->DtOf("collection[i].date_updated",0,$date_updated);
    $j = 0;
    $count_j = $jResp->SizeOfArray("collection[i].groups");
    while ($j < $count_j) {
        $jResp->put_J($j);
        $id = $jResp->stringOf("collection[i].groups[j].id");
        $name = $jResp->stringOf("collection[i].groups[j].name");
        $jResp->DtOf("collection[i].groups[j].date_created",0,$date_created);
        $jResp->DtOf("collection[i].groups[j].date_updated",0,$date_updated);
        $description = $jResp->stringOf("collection[i].groups[j].description");
        $created_by = $jResp->stringOf("collection[i].groups[j].created_by");
        $idx = $jResp->stringOf("collection[i].groups[j].idx");
        $contact_expire_after = $jResp->stringOf("collection[i].groups[j].contact_expire_after");
        $contacts_count = $jResp->stringOf("collection[i].groups[j].contacts_count");
        $j = $j + 1;
    }

    $i = $i + 1;
}