(Perl) Client Certificate in REST

Demonstrates how to use a client certificate with a REST connection.

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 shows how to use the Chilkat socket object's connection.
$rest = chilkat::CkRest->new();
$socket = chilkat::CkSocket->new();

# Set the certificate to be used for mutual TLS authentication
# (i.e. sets the client-side certificate for two-way TLS authentication)
# Note: There are other ways to set the client certificate using Chilkat.
# For example, on Windows systems, a Chilkat certificate object could be loaded with certificate
# pre-installed (with private key) in a Windows certificate store, and then socket.SetSslClientCert could be called.
$success = $socket->SetSslClientCertPfx("/home/bob/pfxFiles/myClientSideCertWithPrivateKey.pfx","pfxPassword");
if ($success != 1) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

# Note: The certificate used for the client-side of TLS mutual authentication
# must have the associated private key available. (.pfx/.p12 files typically store both
# the certificate and associated private key.)

# Establish the connection using the socket object (with client certificate authentication).
$bTls = 1;
$port = 443;
$maxWaitMs = 5000;
$success = $socket->Connect("www.example.com",$port,$bTls,$maxWaitMs);
if ($success != 1) {
    print "Connect Failure Error Code: " . $socket->get_ConnectFailReason() . "\r\n";
    print $socket->lastErrorText() . "\r\n";
    exit;
}

$bAutoReconnect = 1;

# Use the connection:
$success = $rest->UseConnection($socket,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# At this point we are connected and can make REST calls...
# For example..
$responseJson = $rest->fullRequestNoBody("GET","/someQuery");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}