program/steps/mail/headers.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

<?php
/*
 +-----------------------------------------------------------------------+
 | program/steps/mail/headers.inc                                        |
 |                                                                       |
 | This file is part of the RoundCube Webmail client                     |
 | Copyright (C) 2005-2007, RoundCube Dev. - Switzerland                 |
 | Licensed under the GNU GPL                                            |
 |                                                                       |
 | PURPOSE:                                                              |
 |   Fetch message headers in raw format for display                     |
 |                                                                       |
 +-----------------------------------------------------------------------+
 | Author: Aleksander Machniak <alec@alec.pl>                            |
 +-----------------------------------------------------------------------+

 $Id: mark.inc 1580 2008-06-30 09:36:18Z alec $

*/

if ($uid = get_input_value('_uid', RCUBE_INPUT_POST))
{
  $source = $IMAP->get_raw_headers($uid);

  if ($source)
    {
    $source = htmlspecialchars(trim($source));
    $source = preg_replace(
      array(
        '/\n[\t\s]+/',
        '/^([a-z0-9_:-]+)/im',
        '/\r?\n/'
      ),
      array(
        "\n&nbsp;&nbsp;&nbsp;&nbsp;",
        '<font class="bold">\1</font>',
        '<br />'
      ), $source);
    
    $OUTPUT->command('set_headers', $source);
    $OUTPUT->send();
    }
}
  
exit;

?>