/usr/share/perl5/Jifty/Plugin/Chart/View.pm is in libjifty-plugin-chart-perl 1.01+dfsg-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | use strict;
use warnings;
package Jifty::Plugin::Chart::View;
use Jifty::View::Declare -base;
=head1 NAME
Jifty::Plugin::Chart::View - Views for the renderers built into the Chart plugin
=head1 TEMPLATES
=head2 chart/chart
This shows a chart using L<Chart>. It expects to find the arguments in the C<args> parameter, which is setup for it in L<Jifty::Plugin::Chart::Dispatcher>.
This will output a PNG file unless there is an error building the chart.
=cut
template 'chart/chart' => sub {
# Load the arguments
my $args = get 'args';
# Set the output type to the PNG file type
Jifty->handler->apache->content_type('image/png');
# Render the chart and output the PNG file generated
eval {
my $chart = $args->{class}->new( $args->{width}, $args->{height} );
$chart->set(%{ $args->{options} }) if $args->{options};
# XXX scalar_png() is undocumented!!! Might bad to rely upon.
outs_raw($chart->scalar_png($args->{data}));
};
# Should have thrown an error if bad stuff happened, handle that
if ($@) {
Jifty->log->error("Failed to render chart: $@");
die $@;
}
};
=head2 chart/gd_graph
This shows a chart using L<GD::Graph>. It expects to find the arguments in the C<args> parameter, which is setup for it in L<Jifty::Plugin::Chart::Dispatcher>.
This will output a PNG file unless there is an error building the chart.
=cut
template 'chart/gd_graph' => sub {
# Load the arguments
my $args = get 'args';
# Set the output type to the PNG file type
Jifty->handler->apache->content_type('image/png');
# Render the chart and output the PNG file generated
eval {
my $graph = $args->{class}->new( $args->{width}, $args->{height} );
$graph->set(%{ $args->{options} }) if $args->{options};
$graph->set_legend(@{ $args->{legend} } ) if $args->{legend};
my $gd = $graph->plot($args->{data})
or die $graph->error;
outs_raw($gd->png);
};
# Should have thrown an error if bad stuff happened, handle that
if ($@) {
Jifty->log->error("Failed to render chart: $@");
die $@;
}
};
=head2 chart/xmlswf
This shows a chart using XML SWF. It expects to find the arguments in the C<args> parameter, which is setup for it in L<Jifty::Plugin::Chart::Dispatcher>.
This will output an XML source file unless there is an error building the chart.
=cut
template 'chart/xmlswf' => sub {
# Load the arguments
my $args = get 'args';
# Set the output type to the XML file type
Jifty->handler->apache->content_type('application/xml');
# The KeyAttr thing is a bloody hack to get ordering right
my $xml = $args->{class}->new(
RootName => 'chart',
KeyAttr => { row => '+string' }
);
my $labels = shift @{ $args->{data} };
# Base chart options
my %chart = (
chart_type => { content => $args->{type} },
axis_category => { size => '11', color => '808080' },
axis_value => { size => '11', color => '808080' },
axis_ticks => { major_color => '808080' },
legend_label => { size => '11' },
chart_value => { position => 'cursor', size => '11', color => '666666' },
%{ $args->{options} || {} },
chart_data => {
row => [
{
string => [ {}, @$labels ],
},
],
},
);
if ($args->{type} eq 'composite') {
$chart{chart_type} = { string => $args->{types} };
}
for my $i ( 0 .. $#{ $args->{data} } ) {
my $label = $args->{legend}[$i];
push @{$chart{'chart_data'}{'row'}}, {
string => [ defined $label ? $label : {} ],
number => $args->{data}[$i],
};
}
outs_raw( $xml->XMLout( \%chart ) );
};
=head1 SEE ALSO
L<Jifty::Plugin::Chart::Dispatcher>
=head1 AUTHOR
Andrew Sterling Hanenkamp C<< <andrew.hanenkamp@boomer.com> >>
=head1 COPYRIGHT AND LICENSE
Copyright 2007 Boomer Consulting, Inc.
This is free software and may be modified and distributed under the same terms as Perl itself.
=cut
1;
|