centralise the "From"-header construction in functions/identities.php.
[squirrelmail.git] / src / view_header.php
1 <?php
2
3 /**
4 * view_header.php
5 *
6 * This is the code to view the message header.
7 *
8 * @copyright &copy; 1999-2007 The SquirrelMail Project Team
9 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
10 * @version $Id$
11 * @package squirrelmail
12 */
13
14 /**
15 * Include the SquirrelMail initialization file.
16 */
17 require('../include/init.php');
18
19 /* SquirrelMail required files. */
20 require_once(SM_PATH . 'functions/imap.php');
21 require_once(SM_PATH . 'functions/url_parser.php');
22
23 function parse_viewheader($imapConnection,$id, $passed_ent_id) {
24
25 $header_output = array();
26 $second = array();
27 $first = array();
28
29 if (!$passed_ent_id) {
30 $read=sqimap_run_command ($imapConnection, "FETCH $id BODY[HEADER]",
31 true, $a, $b, TRUE);
32 } else {
33 $query = "FETCH $id BODY[".$passed_ent_id.'.HEADER]';
34 $read=sqimap_run_command ($imapConnection, $query,
35 true, $a, $b, TRUE);
36 }
37 $cnum = 0;
38 for ($i=1; $i < count($read); $i++) {
39 $line = htmlspecialchars($read[$i]);
40 switch (true) {
41 case (eregi("^&gt;", $line)):
42 $second[$i] = $line;
43 $first[$i] = '&nbsp;';
44 $cnum++;
45 break;
46 case (eregi("^[ |\t]", $line)):
47 $second[$i] = $line;
48 $first[$i] = '';
49 break;
50 case (eregi("^([^:]+):(.+)", $line, $regs)):
51 $first[$i] = $regs[1] . ':';
52 $second[$i] = $regs[2];
53 $cnum++;
54 break;
55 default:
56 $second[$i] = trim($line);
57 $first[$i] = '';
58 break;
59 }
60 }
61 for ($i=0; $i < count($second); $i = $j) {
62 $f = (isset($first[$i]) ? $first[$i] : '');
63 $s = (isset($second[$i]) ? nl2br($second[$i]) : '');
64 $j = $i + 1;
65 while (($first[$j] == '') && ($j < count($first))) {
66 $s .= '&nbsp;&nbsp;&nbsp;&nbsp;' . nl2br($second[$j]);
67 $j++;
68 }
69 $lowf=strtolower($f);
70 /* do not mark these headers as emailaddresses */
71 if($lowf != 'message-id:' && $lowf != 'in-reply-to:' && $lowf != 'references:') {
72 parseEmail($s);
73 }
74 if ($f) {
75 $header_output[] = array($f,$s);
76 }
77 }
78 sqimap_logout($imapConnection);
79 return $header_output;
80 }
81
82 /* get global vars */
83 if ( sqgetGlobalVar('passed_id', $temp, SQ_GET) ) {
84 $passed_id = (int) $temp;
85 }
86 if ( sqgetGlobalVar('mailbox', $temp, SQ_GET) ) {
87 $mailbox = $temp;
88 }
89 if ( !sqgetGlobalVar('passed_ent_id', $passed_ent_id, SQ_GET) ) {
90 $passed_ent_id = '';
91 }
92 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
93
94 $imapConnection = sqimap_login($username, false, $imapServerAddress,
95 $imapPort, 0);
96 $mbx_response = sqimap_mailbox_select($imapConnection, $mailbox, false, false, true);
97 $header = parse_viewheader($imapConnection,$passed_id, $passed_ent_id);
98
99 $aTemplateHeaders = array();
100 foreach ($header as $h) {
101 $aTemplateHeaders[] = array (
102 'Header' => $h[0],
103 'Value' => $h[1]
104 );
105 }
106
107 sqgetGlobalVar('QUERY_STRING', $queryStr, SQ_SERVER);
108 $ret_addr = SM_PATH . 'src/read_body.php?'.$queryStr;
109
110 displayPageHeader( $color, $mailbox );
111
112 $oTemplate->assign('view_message_href', $ret_addr);
113 $oTemplate->assign('headers', $aTemplateHeaders);
114
115 $oTemplate->display('view_header.tpl');
116
117 $oTemplate->display('footer.tpl');
118 ?>