/** msg_header contains generic variables for values that **/
/** could be in a header. **/
- var $type0 = '', $type1 = '', $boundary = '', $charset = '';
- var $encoding = '', $size = 0, $to = array(), $from = '', $date = '';
- var $cc = array(), $bcc = array(), $reply_to = '', $subject = '';
- var $id = 0, $mailbox = '', $description = '', $filename = '';
- var $entity_id = 0, $message_id = 0, $name = '';
- // var $priority = "";
+ var $type0 = '', $type1 = '', $boundary = '', $charset = '',
+ $encoding = '', $size = 0, $to = array(), $from = '', $date = '',
+ $cc = array(), $bcc = array(), $reply_to = '', $subject = '',
+ $id = 0, $mailbox = '', $description = '', $filename = '',
+ $entity_id = 0, $message_id = 0, $name = '', $priority = 3;
}
class message {
more objects of type message. See documentation in mime.txt for
a better description of how this works.
**/
- var $header = '';
- var $entities = array();
-
+ var $header = '', $entities = array();
+
function addEntity ($msg) {
$this->entities[] = $msg;
}
//
// This should use sqimap_read_data instead of reading it itself
//
- $read = fgets ($imap_stream, 10000);
+ $read = fgets ($imap_stream, 9216);
$bodystructure = '';
while ( substr($read, 0, $lsid) <> $ssid &&
!feof( $imap_stream ) ) {
$bodystructure .= $read;
- $read = fgets ($imap_stream, 10000);
+ $read = fgets ($imap_stream, 9216);
}
$read = $bodystructure;
-
+
// isolate the body structure and remove beginning and end parenthesis
$read = trim(substr ($read, strpos(strtolower($read), 'bodystructure') + 13));
$read = trim(substr ($read, 0, -1));
$read = trim(substr ($read, 1));
$end = mime_match_parenthesis(0, $read);
}
-
+
$msg = mime_parse_structure ($read, 0);
$msg->header = $header;
-
+
return( $msg );
}
*/
function mime_increment_id ($id) {
- if (strpos($id, ".")) {
- $first = substr($id, 0, strrpos($id, "."));
- $last = substr($id, strrpos($id, ".")+1);
+ if (strpos($id, '.')) {
+ $first = substr($id, 0, strrpos($id, '.'));
+ $last = substr($id, strrpos($id, '.')+1);
$last++;
- $new = $first . "." .$last;
+ $new = $first . '.' .$last;
} else {
$new = $id + 1;
}
-
+
return $new;
}
*/
function mime_new_element_level ($id) {
- if (!$id) {
- $id = 0;
- } else {
- $id = $id . '.0';
- }
+ if (!$id) {
+ $id = 0;
+ } else {
+ $id = $id . '.0';
+ }
- return( $id );
+ return( $id );
}
function mime_get_element (&$structure, $msg, $ent_id) {
return( $pos );
}
-function mime_fetch_body ($imap_stream, $id, $ent_id ) {
- // do a bit of error correction. If we couldn't find the entity id, just guess
- // that it is the first one. That is usually the case anyway.
- if (!$ent_id)
+function mime_fetch_body($imap_stream, $id, $ent_id ) {
+
+ /*
+ * do a bit of error correction. If we couldn't find the entity id, just guess
+ * that it is the first one. That is usually the case anyway.
+ */
+ if (!$ent_id) {
$ent_id = 1;
- $data = sqimap_run_command ($imap_stream, "FETCH $id BODY[$ent_id]", true, $response, $message);
- $topline = array_shift($data);
- while (! ereg('\\* [0-9]+ FETCH ', $topline) && $data)
- $topline = array_shift($data);
+ }
+
+ $cmd = "FETCH $id BODY[$ent_id]";
+ $data = sqimap_run_command ($imap_stream, $cmd, true, $response, $message);
+
+ do {
+ $topline = array_shift( $data );
+ } while( $topline && $topline == '*' && !preg_match( '/\\* [0-9] FETCH.*/i', $topline )) ;
$wholemessage = implode('', $data);
if (ereg('\\{([^\\}]*)\\}', $topline, $regs)) {
+
$ret = substr( $wholemessage, 0, $regs[1] );
/*
There is some information in the content info header that could be important
}
$k++;
}
- if ( $base <> '' )
-
+ if ( $base <> '' ) {
$ret = "<base href=\"$base\">" . $ret;
+ }
}
} else if (ereg('"([^"]*)"', $topline, $regs)) {
$ret = $regs[1];
} else {
global $where, $what, $mailbox, $passed_id, $startMessage;
- $par = "mailbox=".urlencode($mailbox)."&passed_id=$passed_id";
+ $par = 'mailbox=' . urlencode($mailbox) . "&passed_id=$passed_id";
if (isset($where) && isset($what)) {
- $par .= "&where=".urlencode($where)."&what=".urlencode($what);
+ $par .= '&where='. urlencode($where) . "&what=" . urlencode($what);
} else {
$par .= "&startMessage=$startMessage&show_more=0";
}
- $par .= '&response='.urlencode($response).'&message='.urlencode($message).
- '&topline='.urlencode($topline);
+ $par .= '&response=' . urlencode($response) .
+ '&message=' . urlencode($message).
+ '&topline=' . urlencode($topline);
- echo '<b><font color=$color[2]>' .
+ echo '<tt><br>' .
+ '<table width="80%"><tr>' .
+ '<tr><td colspan=2>' .
_("Body retrieval error. The reason for this is most probably that the message is malformed. Please help us making future versions better by submitting this message to the developers knowledgebase!") .
- "<A HREF=\"../src/retrievalerror.php?$par\">Submit message</A><BR>" .
- '<tt>' . _("Response:") . "$response<BR>" .
- _("Message:") . " $message<BR>" .
- _("FETCH line:") . " $topline<BR></tt></font></b>";
+ " <A HREF=\"../src/retrievalerror.php?$par\"><br>" .
+ _("Submit message") . '</A><BR> ' .
+ '</td></tr>' .
+ '<td><b>' . _("Command:") . "</td><td>$cmd</td></tr>" .
+ '<td><b>' . _("Response:") . "</td><td>$response</td></tr>" .
+ '<td><b>' . _("Message:") . "</td><td>$message</td></tr>" .
+ '<td><b>' . _("FETCH line:") . "</td><td>$topline</td></tr>" .
+ "</table><BR></tt></font><hr>";
$data = sqimap_run_command ($imap_stream, "FETCH $passed_id BODY[]", true, $response, $message);
array_shift($data);
$wholemessage = implode('', $data);
- $ret = "---------------\n$wholemessage";
-
+ $ret = $wholemessage;
}
return( $ret );
}
if (!ini_get("safe_mode")) {
set_time_limit(0);
}
-
+
fputs ($imap_stream, "$sid FETCH $id BODY[$ent_id]\r\n");
$cnt = 0;
$continue = true;
} else {
translateText($body, $wrap_at, $body_message->header->charset);
}
-
+
$body .= "<SMALL><CENTER><A HREF=\"../src/download.php?absolute_dl=true&passed_id=$id&passed_ent_id=$ent_num&mailbox=$urlmailbox&showHeaders=1\">". _("Download this as a file") ."</A></CENTER><BR></SMALL>";
-
+
/** Display the ATTACHMENTS: message if there's more than one part **/
$body .= "</TD></TR></TABLE>";
if (isset($message->entities[0])) {
* A recursive function that returns a list of attachments with links
* to where to download these attachments
*/
-function formatAttachments ($message, $ent_id, $mailbox, $id) {
- global $where, $what;
- global $startMessage, $color;
- static $ShownHTML = 0;
+function formatAttachments($message, $ent_id, $mailbox, $id) {
+ global $where, $what;
+ global $startMessage, $color;
+ static $ShownHTML = 0;
- $body = "";
- if ($ShownHTML == 0) {
- $ShownHTML = 1;
+ $body = '';
+ if ($ShownHTML == 0) {
+ $ShownHTML = 1;
$body .= "<TABLE WIDTH=\"100%\" CELLSPACING=0 CELLPADDING=2 BORDER=0 BGCOLOR=\"$color[0]\"><TR>\n" .
- "<TH ALIGN=\"left\" BGCOLOR=\"$color[9]\"><B>\n" .
- _("Attachments") . ':' .
- "</B></TH></TR><TR><TD>\n" .
- "<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>\n" .
- formatAttachments ($message, $ent_id, $mailbox, $id) .
- "</TABLE></TD></TR></TABLE>";
-
- return( $body );
- }
+ "<TH ALIGN=\"left\" BGCOLOR=\"$color[9]\"><B>\n" .
+ _("Attachments") . ':' .
+ "</B></TH></TR><TR><TD>\n" .
+ "<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>\n" .
+ formatAttachments($message, $ent_id, $mailbox, $id) .
+ "</TABLE></TD></TR></TABLE>";
+
+ } else if ($message) {
+
+ if (!$message->entities) {
+
+ $type0 = strtolower($message->header->type0);
+ $type1 = strtolower($message->header->type1);
+ $name = decodeHeader($message->header->name);
+
+ if ($message->header->entity_id != $ent_id) {
+ $filename = decodeHeader($message->header->filename);
+ if (trim($filename) == '') {
+ if (trim($name) == '') {
+ if ( trim( $message->header->id ) == '' )
+ $display_filename = 'untitled-[' . $message->header->entity_id . ']' ;
+ else
+ $display_filename = 'cid: ' . $message->header->id;
+ // $display_filename = 'untitled-[' . $message->header->entity_id . ']' ;
+ } else {
+ $display_filename = $name;
+ $filename = $name;
+ }
+ } else {
+ $display_filename = $filename;
+ }
- if ($message) {
- if (!$message->entities) {
- $type0 = strtolower($message->header->type0);
- $type1 = strtolower($message->header->type1);
- $name = decodeHeader($message->header->name);
-
- if ($message->header->entity_id != $ent_id) {
- $filename = decodeHeader($message->header->filename);
- if (trim($filename) == '') {
- if (trim($name) == '') {
- if ( trim( $message->header->id ) == '' )
- $display_filename = 'untitled-[' . $message->header->entity_id . ']' ;
- else
- $display_filename = 'cid: ' . $message->header->id;
- // $display_filename = 'untitled-[' . $message->header->entity_id . ']' ;
- } else {
- $display_filename = $name;
- $filename = $name;
- }
- } else {
- $display_filename = $filename;
- }
+ $urlMailbox = urlencode($mailbox);
+ $ent = urlencode($message->header->entity_id);
- $urlMailbox = urlencode($mailbox);
- $ent = urlencode($message->header->entity_id);
-
- $DefaultLink =
- "../src/download.php?startMessage=$startMessage&passed_id=$id&mailbox=$urlMailbox&passed_ent_id=$ent";
- if ($where && $what)
- $DefaultLink .= '&where=' . urlencode($where) . '&what=' . urlencode($what);
- $Links['download link']['text'] = _("download");
- $Links['download link']['href'] =
- "../src/download.php?absolute_dl=true&passed_id=$id&mailbox=$urlMailbox&passed_ent_id=$ent";
- $ImageURL = '';
-
- / * this executes the attachment hook with a specific MIME-type.
- * if that doens't have results, it tries if there's a rule
- * for a more generic type. */
- $HookResults = do_hook("attachment $type0/$type1", $Links,
- $startMessage, $id, $urlMailbox, $ent, $DefaultLink,
- $display_filename, $where, $what);
- if(count($HookResults[1]) <= 1) {
- $HookResults = do_hook("attachment $type0/*", $Links,
- $startMessage, $id, $urlMailbox, $ent, $DefaultLink,
- $display_filename, $where, $what);
- }
+ $DefaultLink =
+ "../src/download.php?startMessage=$startMessage&passed_id=$id&mailbox=$urlMailbox&passed_ent_id=$ent";
+ if ($where && $what) {
+ $DefaultLink .= '&where=' . urlencode($where) . '&what=' . urlencode($what);
+ }
+ $Links['download link']['text'] = _("download");
+ $Links['download link']['href'] =
+ "../src/download.php?absolute_dl=true&passed_id=$id&mailbox=$urlMailbox&passed_ent_id=$ent";
+ $ImageURL = '';
+
+ /* this executes the attachment hook with a specific MIME-type.
+ * if that doens't have results, it tries if there's a rule
+ * for a more generic type. */
+ $HookResults = do_hook("attachment $type0/$type1", $Links,
+ $startMessage, $id, $urlMailbox, $ent, $DefaultLink,
+ $display_filename, $where, $what);
+ if(count($HookResults[1]) <= 1) {
+ $HookResults = do_hook("attachment $type0/*", $Links,
+ $startMessage, $id, $urlMailbox, $ent, $DefaultLink,
+ $display_filename, $where, $what);
+ }
- $Links = $HookResults[1];
- $DefaultLink = $HookResults[6];
-
- $body .= '<TR><TD> </TD><TD>' .
- "<A HREF=\"$DefaultLink\">$display_filename</A> </TD>" .
- '<TD><SMALL><b>' . show_readable_size($message->header->size) .
- '</b> </small></TD>' .
- "<TD><SMALL>[ $type0/$type1 ] </SMALL></TD>" .
- '<TD><SMALL>';
- if ($message->header->description)
- $body .= '<b>' . htmlspecialchars($message->header->description) . '</b>';
- $body .= '</SMALL></TD><TD><SMALL> ';
-
-
- $SkipSpaces = 1;
- foreach ($Links as $Val) {
- if ($SkipSpaces) {
- $SkipSpaces = 0;
- } else {
- $body .= ' | ';
- }
- $body .= '<a href="' . $Val['href'] . '">' . $Val['text'] . '</a>';
- }
+ $Links = $HookResults[1];
+ $DefaultLink = $HookResults[6];
+
+ $body .= '<TR><TD> </TD><TD>' .
+ "<A HREF=\"$DefaultLink\">$display_filename</A> </TD>" .
+ '<TD><SMALL><b>' . show_readable_size($message->header->size) .
+ '</b> </small></TD>' .
+ "<TD><SMALL>[ $type0/$type1 ] </SMALL></TD>" .
+ '<TD><SMALL>';
+ if ($message->header->description) {
+ $body .= '<b>' . htmlspecialchars(_($message->header->description)) . '</b>';
+ }
+ $body .= '</SMALL></TD><TD><SMALL> ';
- unset($Links);
- $body .= "</SMALL></TD></TR>\n";
- }
- } else {
- for ($i = 0; $i < count($message->entities); $i++) {
- $body .= formatAttachments ($message->entities[$i], $ent_id, $mailbox, $id);
+ $SkipSpaces = 1;
+ foreach ($Links as $Val) {
+ if ($SkipSpaces) {
+ $SkipSpaces = 0;
+ } else {
+ $body .= ' | ';
+ }
+ $body .= '<a href="' . $Val['href'] . '">' . $Val['text'] . '</a>';
+ }
+
+ unset($Links);
+
+ $body .= "</SMALL></TD></TR>\n";
+ }
+ } else {
+ for ($i = 0; $i < count($message->entities); $i++) {
+ $body .= formatAttachments($message->entities[$i], $ent_id, $mailbox, $id);
+ }
}
- }
- return( $body );
- }
+ }
+ return( $body );
}
* RFC1522 (MIME Part Two: Message Header Extensions for Non-ASCII Text).
*/
function decodeHeader ($string, $utfencode=true) {
- if (eregi('=\\?([^?]+)\\?(q|b)\\?([^?]+)\\?=',
+
+if ( is_array( $string ) ) {
+ $string = implode("\n", $string );
+}
+
+if (eregi('=\\?([^?]+)\\?(q|b)\\?([^?]+)\\?=',
$string, $res)) {
- if (ucfirst($res[2]) == 'B') {
+ if (ucfirst($res[2]) == 'B') {
$replace = base64_decode($res[3]);
- } else {
+ } else {
$replace = str_replace('_', ' ', $res[3]);
- // Convert lowercase Quoted Printable to uppercase for
- // quoted_printable_decode to understand it.
- while (ereg("(=(([0-9][abcdef])|([abcdef][0-9])|([abcdef][abcdef])))", $replace, $res)) {
- $replace = str_replace($res[1], strtoupper($res[1]), $replace);
- }
+ // Convert lowercase Quoted Printable to uppercase for
+ // quoted_printable_decode to understand it.
+ while (ereg("(=(([0-9][abcdef])|([abcdef][0-9])|([abcdef][abcdef])))",
+ $replace, $res)) {
+ $replace = str_replace($res[1], strtoupper($res[1]), $replace);
+ }
$replace = quoted_printable_decode($replace);
- }
- /* Only encode into entities by default. Some places
+ }
+ /* Only encode into entities by default. Some places
don't need the encoding, like the compose form. */
- if ($utfencode){
- $replace = charset_decode ($res[1], $replace);
- }
+ if ($utfencode){
+ $replace = charset_decode ($res[1], $replace);
+ }
+
+ // Remove the name of the character set.
+ $string = eregi_replace ('=\\?([^?]+)\\?(q|b)\\?([^?]+)\\?=',
+ $replace, $string);
- // Remove the name of the character set.
- $string = eregi_replace ('=\\?([^?]+)\\?(q|b)\\?([^?]+)\\?=',
- $replace, $string);
+ // In case there should be more encoding in the string: recurse
+ $string = decodeHeader($string);
+}
- // In case there should be more encoding in the string: recurse
- return (decodeHeader($string));
- } else
- return ($string);
+return ($string);
}
/*
*/
function encodeHeader ($string) {
global $default_charset;
-
+
// Encode only if the string contains 8-bit characters or =?
$j = strlen( $string );
$l = strstr($string, '=?'); // Must be encoded ?
$ret .= $string{$i};
}
}
-
+
if ( $l ) {
$string = "=?$default_charset?Q?$ret?=";
}
-
+
return( $string );
}
*/
function MagicHTML( $body, $id ) {
- global $message, $HTTP_SERVER_VARS,
+ global $message, $HTTP_SERVER_VARS,
$attachment_common_show_images;
$attachment_common_show_images =
$pos = $i + 1;
$tag = '';
while ($body{$pos} == ' ' || $body{$pos} == "\t" ||
- $body{$pos} == "\n") {
+ $body{$pos} == "\n" ) {
$pos ++;
}
while (strlen($tag) < 4 && $body{$pos} != ' ' &&
- $body{$pos} != "\t" && $body{$pos} != "\n") {
+ $body{$pos} != "\t" && $body{$pos} != "\n" &&
+ $pos < $j ) {
$tag .= $body{$pos};
$pos ++;
}
case '/HEA':
case '!DOC':
case 'META':
- case 'DIV ':
- case '/DIV':
+ //case 'DIV ':
+ //case '/DIV':
case '!-- ':
$i += 4;
while ( $body{$i} <> '>' &&
$src = '../images/' . _("sec_remove_eng.png");
}
$ret .= 'src="' . $src . '" ';
- $i = $k - 3;
+ $i = $k - 2;
} else {
$ret .= 'src';
$i = $i + 3;
projects / squirrelmail.git / blobdiff