(Perl) Add Trusted Certificate to JKS

Adds a trusted certificate to a Java keystore file.

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

use chilkat();

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$jks = chilkat::CkJavaKeyStore->new();

$jksPassword = "secret";
$jksPath = "/myJksTrustedCerts/cacerts.jks";

# Load the Java keystore from a file.
$success = $jks->LoadFile($jksPassword,$jksPath);
if ($success != 1) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

$cert = chilkat::CkCert->new();

# The cert's LoadFrommFile method can load a certificate from
# virtually any format.  It will automatically determine the format
# and load appropriately.
$success = $cert->LoadFromFile("/certFiles/myNewTrustedCert.pem");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# The alias can be anything.  It's basically just a label 
# used within the JKS associated with the entry.  It should
# be unique among aliases within the JKS file.
$alias = "habanero";

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

# Write the JKS containing the new certificate.
$success = $jks->ToFile($jksPassword,$jksPath);
if ($success != 1) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

print "Added a trusted certificate to the JKS." . "\r\n";