X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=src%2Fview_header.php;h=959a0278f181cca62949948ad5cb80e9b0a3f85b;hp=3e1f6e35beaf9c46f7a6a165cb3c5b7e2c5f94a9;hb=caf0ab1de11a5cafc878e424ef0d55dbc0350dd1;hpb=fdc9d9b593d6588e23877751d42ee6ca29e0ba6a diff --git a/src/view_header.php b/src/view_header.php index 3e1f6e35..959a0278 100644 --- a/src/view_header.php +++ b/src/view_header.php @@ -3,70 +3,92 @@ /** * view_header.php * - * Copyright (c) 1999-2003 The SquirrelMail Project Team - * Licensed under the GNU GPL. For full terms see the file COPYING. - * * This is the code to view the message header. * - * $Id$ + * @copyright 1999-2019 The SquirrelMail Project Team + * @license http://opensource.org/licenses/gpl-license.php GNU Public License + * @version $Id$ + * @package squirrelmail */ -/* Path for SquirrelMail required files. */ -define('SM_PATH','../'); +/** This is the view_header page */ +define('PAGE_NAME', 'view_header'); + +/** + * Include the SquirrelMail initialization file. + */ +require('../include/init.php'); /* SquirrelMail required files. */ -require_once(SM_PATH . 'include/validate.php'); require_once(SM_PATH . 'functions/imap.php'); -require_once(SM_PATH . 'functions/html.php'); require_once(SM_PATH . 'functions/url_parser.php'); -function parse_viewheader($imapConnection,$id, $passed_ent_id) { - global $uid_support; +/** + * Extract message headers + * + * @param resource $imapConnection + * @param string $id Message ID + * @param string $passed_ent_id Nested/attached/embedded message ID (if any) + * + * @return array List of all message headers, where each + * element is a sub-array that contains two + * elements: header name and header value + * (in that order) where the header value is + * HTML-formatted, ready for display in browser + * + */ +function parse_viewheader($imapConnection, $id, $passed_ent_id) { + + $header_output = array(); + $second = array(); + $first = array(); - $header_full = array(); - if (!$passed_ent_id) { - $read=sqimap_run_command ($imapConnection, "FETCH $id BODY[HEADER]", - true, $a, $b, $uid_support); - } else { - $query = "FETCH $id BODY[".$passed_ent_id.'.HEADER]'; - $read=sqimap_run_command ($imapConnection, $query, - true, $a, $b, $uid_support); - } + if (!$passed_ent_id) { + $read=sqimap_run_command ($imapConnection, "FETCH $id BODY[HEADER]", + true, $a, $b, TRUE); + } else { + $query = "FETCH $id BODY[".$passed_ent_id.'.HEADER]'; + $read=sqimap_run_command ($imapConnection, $query, + true, $a, $b, TRUE); + } $cnum = 0; for ($i=1; $i < count($read); $i++) { - $line = htmlspecialchars($read[$i]); - switch (true) { - case (eregi("^>", $line)): - $second[$i] = $line; - $first[$i] = ' '; - $cnum++; - break; - case (eregi("^[ |\t]", $line)): - $second[$i] = $line; - $first[$i] = ''; - break; - case (eregi("^([^:]+):(.+)", $line, $regs)): - $first[$i] = $regs[1] . ':'; - $second[$i] = $regs[2]; - $cnum++; - break; - default: - $second[$i] = trim($line); - $first[$i] = ''; - break; + $line = sm_encode_html_special_chars($read[$i]); + switch (true) { + case (preg_match('/^>/i', $line)): + $second[$i] = $line; + $first[$i] = ' '; + $cnum++; + break; +// FIXME: is the pipe character below a mistake? I think the original author might have thought it carried special meaning in the character class, which it does not... but then again, I am not currently trying to understand what this code actually does + case (preg_match('/^[ |\t]/', $line)): + $second[$i] = $line; + $first[$i] = ''; + break; + case (preg_match('/^([^:]+):(.+)/', $line, $regs)): + $first[$i] = $regs[1] . ':'; + $second[$i] = $regs[2]; + $cnum++; + break; + default: + $second[$i] = trim($line); + $first[$i] = ''; + break; } } for ($i=0; $i < count($second); $i = $j) { $f = (isset($first[$i]) ? $first[$i] : ''); - $s = (isset($second[$i]) ? nl2br($second[$i]) : ''); + $s = (isset($second[$i]) ? nl2br($second[$i]) : ''); $j = $i + 1; while (($first[$j] == '') && ($j < count($first))) { $s .= '    ' . nl2br($second[$j]); $j++; } - if(strtolower($f) != 'message-id:') { - parseEmail($s); - } + $lowf=strtolower($f); + /* do not mark these headers as emailaddresses */ + if($lowf != 'message-id:' && $lowf != 'in-reply-to:' && $lowf != 'references:') { + parseEmail($s); + } if ($f) { $header_output[] = array($f,$s); } @@ -75,53 +97,38 @@ function parse_viewheader($imapConnection,$id, $passed_ent_id) { return $header_output; } -function view_header($header, $mailbox, $color) { - sqgetGlobalVar('QUERY_STRING', $queryStr, SQ_SERVER); - $ret_addr = SM_PATH . 'src/read_body.php?'.$queryStr; - - displayPageHeader($color, $mailbox); - - echo '
' . - '' . "\n" . - "
". - _("Viewing Full Header") . ' - '. - '' ._("View message") . "
\n"; - - echo_template_var($header, - array( - "\n".'
', - '', - '', - '', - '
'."\n" - ) ); - echo ''; -} - /* get global vars */ -if ( sqgetGlobalVar('passed_id', $temp, SQ_GET) ) { - $passed_id = (int) $temp; -} +sqgetGlobalVar('passed_id', $passed_id, SQ_GET, NULL, SQ_TYPE_BIGINT); if ( sqgetGlobalVar('mailbox', $temp, SQ_GET) ) { $mailbox = $temp; } if ( !sqgetGlobalVar('passed_ent_id', $passed_ent_id, SQ_GET) ) { $passed_ent_id = ''; -} -sqgetGlobalVar('key', $key, SQ_COOKIE); -sqgetGlobalVar('username', $username, SQ_SESSION); -sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION); +} sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION); -$imapConnection = sqimap_login($username, $key, $imapServerAddress, - $imapPort, 0); +global $imap_stream_options; // in case not defined in config +$imapConnection = sqimap_login($username, false, $imapServerAddress, + $imapPort, 0, $imap_stream_options); $mbx_response = sqimap_mailbox_select($imapConnection, $mailbox, false, false, true); +$header = parse_viewheader($imapConnection,$passed_id, $passed_ent_id); + +$aTemplateHeaders = array(); +foreach ($header as $h) { + $aTemplateHeaders[] = array ( + 'Header' => $h[0], + 'Value' => $h[1] + ); +} + +sqgetGlobalVar('QUERY_STRING', $queryStr, SQ_SERVER); +$ret_addr = SM_PATH . 'src/read_body.php?'.$queryStr; + +displayPageHeader( $color, $mailbox ); + +$oTemplate->assign('view_message_href', $ret_addr); +$oTemplate->assign('headers', $aTemplateHeaders); -$header = parse_viewheader($imapConnection,$passed_id, $passed_ent_id); -view_header($header, $mailbox, $color); +$oTemplate->display('view_header.tpl'); -?> +$oTemplate->display('footer.tpl');