Perl

Global Unlock

Demonstrates how to unlock the Chilkat API with a global (Bundle) purchased unlock code, or with a 30-day trial unlock code. Perl

use chilkat();

$success = 0;

# The Chilkat API can be unlocked for a fully-functional 30-day trial by passing any
# string to the UnlockBundle method.  A program can unlock once at the start. Once unlocked,
# all subsequently instantiated objects are created in the unlocked state. 
# 
# <b>After licensing Chilkat, replace the "Anything for 30-day trial" with the purchased unlock code.</b>
# To verify the purchased unlock code was recognized, examine the contents of the LastErrorText
# property after unlocking.  For example:
$glob = chilkat::CkGlobal->new();
$success = $glob->UnlockBundle("Anything for 30-day trial");
if ($success != 1) {
    print $glob->lastErrorText() . "\r\n";
    exit;
}

$status = $glob->get_UnlockStatus();
if ($status == 2) {
    print "Unlocked using purchased unlock code." . "\r\n";
}
else {
    print "Unlocked in trial mode." . "\r\n";
}

# --------------------------------------------------------------------------------------------
# Important: In most cases, you'll want to use Chilkat in full utf-8 mode.
# In a future major version release, the DefaultUtf8 property's default will change to 1.
# --------------------------------------------------------------------------------------------
$glob->put_DefaultUtf8(1);

# The LastErrorText can be examined in the success case to see if it was unlocked in
# trial more, or with a purchased unlock code.
print $glob->lastErrorText() . "\r\n";