Perl

Transition from Imap.FetchSequence to Imap.FetchRange

Provides instructions for replacing deprecated FetchSequence method calls with FetchRange. Perl

use chilkat();

$success = 0;

$imap = chilkat::CkImap->new();

# ...
# ...

$startSeqNum = 1;
$count = 5;

# ------------------------------------------------------------------------
# The FetchSequence method is deprecated:

# bundleObj is a EmailBundle
$bundleObj = $imap->FetchSequence($startSeqNum,$count);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using FetchRange.
# Your application creates a new, empty EmailBundle object which is passed 
# in the last argument and filled upon success.

$headersOnly = 0;

$bundleOut = chilkat::CkEmailBundle->new();
$success = $imap->FetchRange($headersOnly,$startSeqNum,$count,$bundleOut);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}