' .
'
' .
' ' .
' | '."\n";
} else {
/* The link is subtle, below "view full header". */
$result = " \n";
}
/* Output the link. */
if ($javascript_on) {
$result .= '\n" .
"$print_text\n";
} else {
$result .= '$print_text\n";
}
if (!$pf_subtle_link) {
/* The link is large, on the bottom of the header panel. */
$result .= ' | ' . "\n";
}
return ($result);
}
function ServerMDNSupport( $read ) {
/* escaping $ doesn't work -> \x36 */
$ret = preg_match( '/(\x36MDNSent|\\\*)/i', $read );
return ( $ret );
}
function SendMDN ( $recipient , $sender) {
global $imapConnection, $mailbox, $username, $attachment_dir, $SERVER_NAME,
$version, $attachments, $identity, $data_dir, $passed_id;
$header = sqimap_get_message_header($imapConnection, $passed_id, $mailbox);
$hashed_attachment_dir = getHashedDir($username, $attachment_dir);
// part 1 (RFC2298)
$senton = getLongDateString( $header->date );
$to_array = $header->to;
$to = '';
foreach ($to_array as $line) {
$to .= " $line ";
}
$subject = $header->subject;
$now = getLongDateString( time() );
$body = _("Your message") . "\r\n\r\n" .
"\t" . _("To:") . ' ' . $to . "\r\n" .
"\t" . _("Subject:") . ' ' . $subject . "\r\n" .
"\t" . _("Sent:") . ' ' . $senton . "\r\n" .
"\r\n" .
sprintf( _("Was displayed on %s"), $now );
// part2 (RFC2298)
$original_recipient = $to;
$original_message_id = $header->message_id;
$part2 = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version $version) \r\n";
if ($original_recipient != '') {
$part2 .= "Original-Recipient : $original_recipient\r\n";
}
$final_recipient = $sender;
$part2 .= "Final-Recipient: rfc822; $final_recipient\r\n" .
"Original-Message-ID : $original_message_id\r\n" .
"Disposition: manual-action/MDN-sent-manually; displayed\r\n";
$localfilename = GenerateRandomString(32, 'FILE', 7);
$full_localfilename = "$hashed_attachment_dir/$localfilename";
$fp = fopen( $full_localfilename, 'w');
fwrite ($fp, $part2);
fclose($fp);
$newAttachment = array();
$newAttachment['localfilename'] = $localfilename;
$newAttachment['type'] = "message/disposition-notification";
$attachments[] = $newAttachment;
$MDN_to = trim($recipient);
$reply_id = 0;
return (SendMessage($MDN_to,'','', _("Read:") . ' ' . $subject, $body,$reply_id, True, 3) );
}
function ToggleMDNflag ( $set ) {
global $imapConnection, $passed_id, $mailbox;
sqimap_mailbox_select($imapConnection, $mailbox);
$sg = $set?'+':'-';
$cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
$read = sqimap_run_command ($imapConnection, $cmd, true, $response,
$readmessage);
}
function ClearAttachments() {
global $username, $attachments, $attachment_dir;
$hashed_attachment_dir = getHashedDir($username, $attachment_dir);
foreach ($attachments as $info) {
$attached_file = "$hashed_attachment_dir/$info[localfilename]";
if (file_exists($attached_file)) {
unlink($attached_file);
}
}
$attachments = array();
}
/*
* Main of read_boby.php --------------------------------------------------
*/
/*
Urled vars
----------
$passed_id
*/
if ( isset( $mailbox ) ) {
$mailbox = urldecode( $mailbox );
}
$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
$read = sqimap_mailbox_select($imapConnection, $mailbox, false, false, true);
do_hook('html_top');
/*
* The following code sets necesarry stuff for the MDN thing
*/
if( $default_use_mdn &&
( $mdn_user_support = getPref($data_dir, $username, 'mdn_user_support', $default_use_mdn) ) ) {
$supportMDN = ServerMDNSupport($read["PERMANENTFLAGS"]);
$flags = sqimap_get_flags ($imapConnection, $passed_id);
$FirstTimeSee = !(in_array( 'Seen', $flags ));
}
displayPageHeader($color, $mailbox);
/*
* The following code shows the header of the message and then exit
*/
if (isset($view_hdr)) {
$read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[HEADER]", true, $a, $b);
echo '
' .
'\n" .
"\n" .
'';
$cnum = 0;
for ($i=1; $i < count($read); $i++) {
$line = htmlspecialchars($read[$i]);
if (eregi("^>", $line)) {
$second[$i] = $line;
$first[$i] = ' ';
$cnum++;
} else if (eregi("^[ |\t]", $line)) {
$second[$i] = $line;
$first[$i] = '';
} else if (eregi("^([^:]+):(.+)", $line, $regs)) {
$first[$i] = $regs[1] . ':';
$second[$i] = $regs[2];
$cnum++;
} else {
$second[$i] = trim($line);
$first[$i] = '';
}
}
for ($i=0; $i < count($second); $i = $j) {
if (isset($first[$i])) {
$f = $first[$i];
}
if (isset($second[$i])) {
$s = nl2br($second[$i]);
}
$j = $i + 1;
while (($first[$j] == '') && ($j < count($first))) {
$s .= ' ' . nl2br($second[$j]);
$j++;
}
parseEmail($s);
if (isset($f)) echo "$f$s";
}
echo " |
\n" .
'