rt/html/Ticket/Elements/ShowMessageHeaders

   1 %# {{{ BEGIN BPS TAGGED BLOCK
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  30 %# (The following paragraph is not intended to limit the rights granted
  31 %# to you to modify and distribute this software under the terms of
  32 %# the GNU General Public License and is only of importance to you if
  33 %# you choose to contribute your changes and enhancements to the
  34 %# community by submitting them to Best Practical Solutions, LLC.)
  35 %#
  36 %# By intentionally submitting any modifications, corrections or
  37 %# derivatives to this work, or any other work intended for use with
  38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  39 %# you are the copyright holder for those contributions and you grant
  40 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  41 %# royalty-free, perpetual, license to use, copy, create derivative
  42 %# works based on those contributions, and sublicense and distribute
  43 %# those contributions and any derivatives thereof.
  44 %#
  45 %# }}} END BPS TAGGED BLOCK
  46 % use Data::Dumper;
  47 <table>
  48 % foreach my $header (@headers) {
  49 % next unless ($display_headers{'_all'} || $display_headers{lc($header->{'Tag'})});
  50 <tr>
  51 <td align="right" class="message-header-key"><%$header->{'Tag'}%>:</td>
  52 <td class="message-header-value"><%$header->{'Value'} | n%></td>
  53 </tr>
  54 % }
  55 </table>
  56 <%INIT>
  57 my $content = $Headers;
  58 $m->comp('/Elements/Callback', content => \$content, %ARGS);
  59
  60 # apply html escaping on the original content
  61 # we'll display the value without escaping later (for MakeClicky et al.)
  62 $content = $m->interp->apply_escapes($content, 'h');
  63
  64 my @lines = split (/\n/,$content);
  65 my $in_header = 0;
  66 my @headers =();
  67 foreach (@lines) {
  68     if (/^(\S+):\s+(.*)$/) {
  69         push (@headers, { Tag => $1, Value => $2} );
  70     } elsif ($headers[-1]) {
  71         $headers[-1]->{'Value'} .= $_;
  72     } else {
  73
  74         push (@headers, { Tag => $_, Value => ''} );
  75     }
  76 }
  77
  78 my %display_headers;
  79
  80 map { $display_headers{lc($_)} = 1 } @$DisplayHeaders;
  81
  82 $m->comp('/Elements/Callback', _CallbackName => 'Headers', content => \$content, headers => \@headers, display_headers => \%display_headers, %ARGS);
  83
  84 </%INIT>
  85 <%ARGS>
  86 $Headers => undef
  87 $DisplayHeaders => undef
  88 </%ARGS>