(Perl) Client Certificate in REST (USB Token or Smartcard)

See more REST Examples

Demonstrates how to use a client certificate with a REST connection where the certificate and private key are located on a USB token or smart card.

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
$cert = chilkat::CkCert->new();

# If the smartcard or token requires a PIN...
$cert->put_SmartCardPin("000000");

$success = $cert->LoadFromSmartcard("");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$success = $socket->SetSslClientCert($cert);
if ($success != 1) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

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