IMAP Session Logging

Demonstrates how to use session logging with IMAP.

Download Chilkat Perl Module

use chilkat;

$imap = new chilkat::CkImap();

#  Anything unlocks the component and begins a fully-functional 30-day trial.
$success = $imap->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Set the KeepSessionLog property to enable IMAP session logging
$imap->put_KeepSessionLog(1);

#  Connect to an IMAP server.
$success = $imap->Connect("mail.chilkatsoft.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Login
$success = $imap->Login("mylogin","mypassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  We're not really doing anything in this example
#  other than to show how to examine the IMAP component's session log...

#  Disconnect from the IMAP server.
$imap->Disconnect();

#  Display the session log...
print $imap->sessionLog() . "\r\n";