(Perl) SMSAPI - Create a Contact

Create a Contact

For more information, see https://www.smsapi.com/docs?shell#create-contact

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

use chilkat();

# 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 POST https://api.smsapi.com/contacts -H "Authorization: Bearer token_api_oauth" \
# -d "phone_number=48500000000&email=bok@smsapi.com&first_name=Name&last_name=Last_name&gender=gender&description=description&city=city&groups=default"

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_Path("/contacts");
$req->put_ContentType("application/x-www-form-urlencoded");
$req->AddParam("phone_number","48500000000");
$req->AddParam("email",'bok@smsapi.com');
$req->AddParam("first_name","Name");
$req->AddParam("last_name","Last_name");
$req->AddParam("gender","gender");
$req->AddParam("description","description");
$req->AddParam("city","city");
$req->AddParam("groups","default");

$req->AddHeader("Authorization","Bearer token_api_oauth");

# resp is a HttpResponse
$resp = $http->PostUrlEncoded("https://api.smsapi.com/contacts",$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

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

$respStatusCode = $resp->get_StatusCode();
print "Response Status Code = " . $respStatusCode . "\r\n";
if ($respStatusCode >= 400) {
    print "Response Header:" . "\r\n";
    print $resp->header() . "\r\n";
    print "Failed." . "\r\n";

    exit;
}

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

# {
#   "id": "5b802315a788494a04690d1d",
#   "first_name": "string",
#   "last_name": "string",
#   "phone_number": "48500000000",
#   "email": "bok@smsapi.com",
#   "gender": "gender",
#   "city": "city",
#   "date_created": "2018-08-24T17:24:05+02:00",
#   "date_updated": "2018-08-24T17:24:05+02:00",
#   "description": "description",
#   "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": "username",
#       "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();

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