The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

TWITTEK / Konstrukt-0.5-beta1 / lib / Konstrukt / Plugin / errors.pm 

            

              
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
92
93
94
95
96
—
97
98
99
100
101
102
103
104
105
106
107
108
—
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

              
#!/usr/bin/perl
#FEATURE: also display debug messages?
=head1 NAME
Konstrukt::Plugin::errors - Display the error messages that occured during the page processing
=head1 SYNOPSIS
        <& errors / &>
=head1 DESCRIPTION
Will display the error messages (if any) that have been created with
C<$Konstrukt::Debug->error_message()>.
A template named C<error.template> will be used to display them. The template
must have a list C<errors>, which must have a field C<text>.
=head1 CONFIGURATION
You may set the path to the template (C<error.template>) of this plugin. Default:
        errors/template_path  /templates/errors/
=cut
package Konstrukt::Plugin::errors;
use strict;
use warnings;
use base 'Konstrukt::SimplePlugin'; #inheritance
use Konstrukt::Plugin; #inheritance
=head1 METHODS
=head2 init
Inititalization of this class
=cut
sub init {
        my ($self) = @_;
         
        #set default settings
        $Konstrukt::Settings->default("errors/template_path" => "/templates/errors/");
         
        return 1;
}
#= /init
=head2 install
Installs the templates.
B<Parameters:>
none
=cut
sub install {
        my ($self) = @_;
        return $Konstrukt::Lib->plugin_file_install_helper($Konstrukt::Settings->get('errors/template_path'));
}
# /install
=head2 default :Action
Default (and only) action for this plugin. Will display the error messages.
B<Parameters>:
=over
=item * $tag - Reference to the tag (and its children) that shall be handled.
=item * $content - The content below/inside the tag as a flat string.
=item * $params - Reference to a hash of the passed CGI parameters.
=back
=cut
sub default :Action {
        my ($self, $tag, $content, $params) = @_;
         
        if (@{$Konstrukt::Debug->{error_messages}}) {
                my $template = use_plugin 'template';
                my $templ = $Konstrukt::Settings->get('errors/template_path') . "errors.template";
                 
                $self->add_node($template->node($templ, { errors => [ map { { text => $_ } } @{$Konstrukt::Debug->{error_messages}} ] }));       
        }
}
#= /default
=head2 execution_stage
This one should be executed last.
=cut
sub execution_stage {
        return 999_999;
}
#= /execution_stage
1;
=head1 AUTHOR
Copyright 2006 Thomas Wittek (mail at gedankenkonstrukt dot de). All rights reserved. 
This document is free software.
It is distributed under the same terms as Perl itself.
=head1 SEE ALSO
L<Konstrukt::Debug>, L<Konstrukt::SimplePlugin>, L<Konstrukt>
=cut
__DATA__
== 8< == textfile: errors.template == >8 ==
<div class="error">
        <h1>There have been errors/warnings during the processing of this page:</h1>
        <ul>
        <+@ errors @+>    <li><+$ text $+>(No text)<+$ / $+></li>
        <+@ / @+>
        </ul>
</div>