mirror of
https://github.com/php/pecl-mail-mailparse.git
synced 2026-03-24 07:02:11 +01:00
68 lines
1.9 KiB
PHP
Executable File
68 lines
1.9 KiB
PHP
Executable File
<?php
|
|
|
|
if (!extension_loaded("mailparse")) {
|
|
dl("mailparse.so");
|
|
}
|
|
|
|
/*
|
|
* This is a simple email viewer.
|
|
* make sure that $filename points to a file containing an email message and
|
|
* load this page in your browser.
|
|
* You will be able to choose a part to view.
|
|
* */
|
|
|
|
if ($argv[1])
|
|
$filename = $argv[1];
|
|
else
|
|
$filename = "yourmessage.txt";
|
|
|
|
if ($argv[2])
|
|
$showpart = $argv[2];
|
|
else
|
|
$showpart = $_REQUEST['showpart'];
|
|
|
|
/* parse the message and return a mime message resource */
|
|
$mime = mailparse_msg_parse_file($filename);
|
|
|
|
debug_zval_dump($mime);
|
|
|
|
/* return an array of message parts - this consists of the names of the parts
|
|
* only */
|
|
$struct = mailparse_msg_get_structure($mime);
|
|
|
|
echo "<table>\n";
|
|
/* print a choice of sections */
|
|
foreach($struct as $st) {
|
|
echo "<tr>\n";
|
|
echo "<td><a href=\"$PHP_SELF?showpart=$st\">$st</a></td>\n";
|
|
/* get a handle on the message resource for a subsection */
|
|
$section = mailparse_msg_get_part($mime, $st);
|
|
/* get content-type, encoding and header information for that section */
|
|
$info = mailparse_msg_get_part_data($section);
|
|
print_r($info);
|
|
echo "\n";
|
|
echo "<td>" . $info["content-type"] . "</td>\n";
|
|
echo "<td>" . $info["content-disposition"] . "</td>\n";
|
|
echo "<td>" . $info["disposition-filename"] . "</td>\n";
|
|
echo "<td>" . $info["charset"] . "</td>\n";
|
|
echo "</tr>";
|
|
}
|
|
echo "</table>";
|
|
|
|
/* if we were called to display a part, do so now */
|
|
if ($showpart) {
|
|
/* get a handle on the message resource for the desired part */
|
|
$sec = mailparse_msg_get_part($mime, $showpart);
|
|
|
|
echo "<table border=1><tr><th>Section $showpart</th></tr><tr><td>";
|
|
ob_start();
|
|
/* extract the part from the message file and dump it to the output buffer
|
|
* */
|
|
mailparse_msg_extract_part_file($sec, $filename);
|
|
$contents = ob_get_contents();
|
|
ob_end_clean();
|
|
/* quote the message for safe display in a browser */
|
|
echo nl2br(htmlentities($contents)) . "</td></tr></table>";;
|
|
}
|
|
?>
|