function showParts($mail, $level)
{
switch (get_class($mail)) {
case 'ezcMail':
printf("%s%s\n", str_repeat(' ', $level), 'Mail');
showParts($mail->body, $level + 1);
break;
case 'ezcMailText':
printf("%s%s (%s, %s)\n", str_repeat(' ', $level), 'Text', $mail->subType, $mail->charset);
echo "---\n", htmlspecialchars($mail->text), "\n---\n";
break;
case 'ezcMailFile':
printf("%s%s (%s)\n", str_repeat(' ', $level), 'File', $mail->fileName);
break;
case 'ezcMailMultipartMixed':
printf("%s%s\n", str_repeat(' ', $level), 'Multipart (mixed)');
foreach ($mail->getParts() as $part) {
showParts($part, $level + 1);
}
break;
case 'ezcMailMultipartAlternative':
printf("%s%s\n", str_repeat(' ', $level), 'Multipart (alternative)');
foreach ($mail->getParts() as $part) {
showParts($part, $level + 1);
}
break;
case 'ezcMailMultipartRelated':
printf("%s%s\n", str_repeat(' ', $level), 'Multipart (mixed)');
$mail = fixLinks($mail);
showParts($mail->getMainPart(), $level + 1);
foreach ($mail->getRelatedParts() as $part) {
showParts($part, $level + 1);
}
break;
}
}
function exportPage($objPageElement, $objLanguage)
{
global $objZip;
$objCms = PCMS_Client::getInstance();
$strDirname = !$objLanguage->default ? dirname($objPageElement->getLink(true, "", $objLanguage->getAbbr())) : dirname($objPageElement->getLink());
$strBasename = basename($objPageElement->getLink());
if ($strDirname == "/") {
$strDirname = "";
}
$strFile = file_get_contents(Request::getRootURI() . $objPageElement->getLink());
$objZip->addFile('', $strDirname . "/" . $strBasename . ".html", '', fixLinks($strFile));
logExport($strDirname . "/" . $strBasename);
}
