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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
package CiderWebmail::View::Petal;
use Moose;
extends 'Catalyst::View::Petal';
use Petal::Utils qw( :default :hash );
=head1 NAME
CiderWebmail::View::Petal - Catalyst View
=head1 DESCRIPTION
Catalyst View.
=head1 METHODS
=head2 process
=cut
__PACKAGE__->config(input => 'HTML', output => 'HTML');
sub process {
my ($self, $c) = @_;
my $root = $c->config->{root};
my $ajax = ($c->req->header('accept') // '') eq 'application/xhtml+xml';
my $base_dir = [
join('/', $root, 'templates', $c->stash->{language}),
];
unshift @$base_dir, join('/', $root, 'templates', $c->stash->{language}, 'ajax') if $ajax;
$self->config(
base_dir => $base_dir,
debug_dump => $c->debug,
); # this sets the global config, so we have to do it for every request
$c->stash({
uri_root => $c->uri_for('/'),
uri_static => $c->uri_for('/static'),
condcomment_lt_ie7_start => '<!--[if lt IE 7]>',
condcommentend => '<![endif]-->',
});
$c->res->content_type('application/xhtml+xml; charset=utf-8') if $ajax;
return $self->SUPER::process($c);
}
=head2 render_template()
renders a template
=cut
sub render_template {
my ($self, $o) = @_;
my $root = $o->{c}->config->{root};
%{ $o->{stash} } = ( %{ $o->{c}->stash }, %{ $o->{stash} } );
my $base_dir = [
join('/', $root, 'templates', $o->{c}->stash->{language}, 'parts'),
];
my $template = Petal->new( base_dir => $base_dir, file => $o->{template});
my $output = $template->process( $o->{stash} );
$output =~ s/[^\x01-\x{D7FF}\x{E000}-\x{FFFD}\x{10000}-\x{10FFFF}]//gxmo;
$output =~ s/[\x01-\x08\x0B-\x0C\x0E-\x1F\x7F-\x84\x86-\x9F]//gxmo;
return $output;
}
=head1 AUTHOR
Stefan Seifert
=head1 LICENSE
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
1;
|
