Perl

Transition from MailMan.FetchMultipleHeaders to MailMan.FetchUidlSet

Provides instructions for replacing deprecated FetchMultipleHeaders method calls with FetchUidlSet. Perl

use chilkat();

$success = 0;

$mailman = chilkat::CkMailMan->new();

# ...
# ...

$saUidls = chilkat::CkStringArray->new();
$saUidls->Append("aaa");
$saUidls->Append("bbb");
$saUidls->Append("ccc");

$stUidls = chilkat::CkStringTable->new();
$stUidls->Append("aaa");
$stUidls->Append("bbb");
$stUidls->Append("ccc");

$numBodyLines = 5;

# ------------------------------------------------------------------------
# The FetchMultipleHeaders method is deprecated:

# bundleObj is a EmailBundle
$bundleObj = $mailman->FetchMultipleHeaders($saUidls,$numBodyLines);
if ($mailman->get_LastMethodSuccess() == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

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

$headersOnly = 1;

$bundleOut = chilkat::CkEmailBundle->new();
$success = $mailman->FetchUidlSet($stUidls,$headersOnly,$numBodyLines,$bundleOut);
if ($success == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}