Perl

Transition from MailMan.FetchMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated FetchMultipleMime method calls with FetchMimeBd. 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");

# ------------------------------------------------------------------------
# The FetchMultipleMime method is deprecated:

# saMime is a StringArray
$saMime = $mailman->FetchMultipleMime($saUidls);
if ($mailman->get_LastMethodSuccess() == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using FetchMimeBd.

$success = 0;
$bdMime = chilkat::CkBinData->new();
$numUidls = $stUidls->get_Count();
$i = 0;
while ($i < $numUidls) {
    $success = $mailman->FetchMimeBd($stUidls->stringAt($i),$bdMime);
    # ...
    # ...

    $i = $i + 1;
}