Show quota_graph.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$free => 0
$used => 0
%categories => ()
</%args>
<%init>
$logger->debug("Graph categories: " . Dumper(\%categories));
eval {
$r->content_type("image/gif");
my $graph = new GD::Graph::pie(300, 300);
$graph->set( title => "Disk Usage",
dclrs => ["#6495ED","#40E0D0","#FF6347","#FF8C00","#44ff44",
"#6495ED","#40E0D0","#FF6347","#FF8C00","#44ff44",
"#6495ED","#40E0D0","#FF6347","#FF8C00","#44ff44"]);
my @data = ( [], [] );
for my $k (sort keys %categories) {
push @{$data[0]}, $k;
push @{$data[1]}, $categories{$k};
}
push @{$data[0]}, 'Unused';
push @{$data[1]}, $free;
$graph->set_label_font(GD::gdMediumBoldFont);
my $plot = $graph->plot(\@data);
$m->print($plot->gif());
};
if($@) {
$logger->error("unable to generate graph: $@");
}
</%init>
<%once>
use Carp;
use Net::SSH::Perl;
use GD;
use GD::Graph;
use GD::Graph::pie;
use Data::Dumper;
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here