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. Perl

use chilkat();

$success = 0;

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