/usr/share/perl5/Octopussy/Graph.pm is in octopussy 1.0.6-0ubuntu2.
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 | # $HeadURL$
# $Revision: 353 $
# $Date: 2010-05-17 18:44:55 +0100 (Mon, 17 May 2010) $
# $Author: sebthebert $
=head1 NAME
Octopussy::Graph - Octopussy Graph module
=cut
package Octopussy::Graph;
use strict;
use warnings;
use Readonly;
use GD::Graph;
use GD::Graph::area;
use GD::Graph::bars;
use GD::Graph::colour;
use GD::Graph::hbars;
use GD::Graph::lines;
use GD::Graph::pie;
use AAT::Syslog;
Readonly my $TYPE => 'bars';
Readonly my $BAR_SPACING => 3;
Readonly my $START_ANGLE => 180;
Readonly my $WIDTH => 1024;
Readonly my $HEIGHT => 768;
Readonly my $MARGIN => 20;
Readonly my $NB_COLOR => 32;
Readonly my $LOGO => '';
Readonly my $LOGO_POSITION => 'UR';
=head1 FUNCTIONS
=head2 Generate($g, $output)
Generate graph
=cut
sub Generate
{
my ($g, $output) = @_;
$output = $output || 'graph.png';
my $fct = 'GD::Graph::' . ($g->{type} || $TYPE);
my $graph = $fct->new($g->{width} || $WIDTH, $g->{height} || $HEIGHT);
$graph->set(bar_spacing => $BAR_SPACING) if ($g->{type} =~ /bars$/);
$graph->set(start_angle => $START_ANGLE) if ($g->{type} eq 'pie');
my @colors = GD::Graph::colour::colour_list($NB_COLORS);
#read_rgb("/etc/X11/rgb.txt");
$graph->set(
#x_label => ($g->{x_label} || "X Label"),
#y_label => ($g->{y_label} || "Y Label"),
title => $g->{title} || '',
logo => $g->{logo} || $LOGO,
logo_position => $g->{logo_position} || $LOGO_POSITION,
#x_labels_vertical => 1,
t_margin => $g->{margin} || $MARGIN,
b_margin => $g->{margin} || $MARGIN,
l_margin => $g->{margin} || $MARGIN,
r_margin => $g->{margin} || $MARGIN,
# y_max_value => 8,
# y_tick_number => 8,
# y_label_skip => 2
dclrs => \@colors
) or croak $graph->error;
#$graph->set_legend($g->{data});
my $gd = $graph->plot($g->{data}) or croak $graph->error;
if (defined open my $IMG, '>', $output)
{
binmode $IMG;
print {$IMG} $gd->png;
close $IMG;
}
else
{
my ($pack, $file_pack, $line, $sub) = caller 0;
AAT::Syslog::Message('Octopussy_Graph', 'UNABLE_OPEN_FILE_IN', $output,
$sub);
}
return ($output);
}
1;
=head1 AUTHOR
Sebastien Thebert <octo.devel@gmail.com>
=cut
|