(Perl) Gather Smartcard Debug Information for Chilkat

See more ScMinidriver Examples

This example demonstrates how to gather information to send to support@chilkatsoft.com about your smartcard.

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.

# First, Chilkat recommends downloading the MGTEK Smartcard Minidriver Tool to get information 
# about your smartcard. 

# The tool can be downloaded from https://www.mgtek.com/smartcard

# --------------------------------------------------------------------------------------------------------
# 1. Select the smartcard as shown below and send Chilkat a screenshot of the basic smartcard information.
# --------------------------------------------------------------------------------------------------------
# 

# 
# --------------------------------------------------------------------------------------------------------
# 2. Select the cmapfile (if present) as shown below and send Chilkat a screenshot of the CSP container map
# --------------------------------------------------------------------------------------------------------
# 

# 

# ---------------------------------------------------------
# Chilkat provides functions to get information about the smartcard, and what it contains.
# Send Chilkat the output of the following source code:

$scmd = chilkat::CkScMinidriver->new();

# Reader names (smart card readers or USB tokens) can be discovered
# via PCSC List Readers or PCSC Find Smart Cards
$readerName = "Alcor Micro USB Smart Card Reader 0";
$success = $scmd->AcquireContext($readerName);
if ($success == 0) {
    print $scmd->lastErrorText() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

# ------------------------------------------------------
# 3. Send Chilkat the JSON returned by GetCardProperties
# ------------------------------------------------------
$success = $scmd->GetCardProperties($json);
if ($success == 0) {
    print $scmd->lastErrorText() . "\r\n";
    exit;
}

print $json->emit() . "\r\n";

# ------------------------------------------------------
# 4. Send Chilkat the JSON returned by GetCspContainerMap
# ------------------------------------------------------
$json->Clear();
$success = $scmd->GetCspContainerMap($json);
if ($success == 0) {
    print $scmd->lastErrorText() . "\r\n";
    exit;
}

print $json->emit() . "\r\n";