#!/usr/bin/perl -w use warnings; use strict; use lib '.'; use JSON; use GD; use Chart::Clicker; use GD::Graph::lines; use GD::Graph::colour qw(:colours); sub ensureLength { my $text = shift; my $len = shift; my $char = shift; #print length($text).":".$len.":".($len - length($text))."\n"; $text = "".($char x ($len - length($text))).$text if (length($text) < $len); return $text; } # Use the biggest-possible list of colors, # to avoid reusing the same color. my @colors = (); #Add some more colors: for (my $i = 0; $i < 500; $i++) { my $hexcolor = '#'; for (my $j = 0; $j < 3; $j++) { my $num = rand() * 255; my $hextext = sprintf("%02x", $num); $hexcolor .= $hextext; } GD::Graph::colour::add_colour($hexcolor); } my @all_colors = GD::Graph::colour::colour_list(); # Do not use "white" - that's the same as the background: @colors = grep({$_ ne 'white'} @all_colors); open(DBFILES, "-|", "ls /opt/*/tickets.json") || die($!); my $x = {}; my $loc = []; #my @data = (); while() { chomp; my $dbfile = $_; $dbfile =~ m,^\/opt\/([^\/]+)\/,; my $id = $1; next if $id eq "pv" || $id eq "cmmc" || $id eq "bg" || $id eq "ovm"; push(@$loc, $id); print $dbfile." -> ".$id."\n"; open(IN, "<", $dbfile) || die($dbfile.":".$!); my $input = ; close IN; #print " ".$input."\n"; eval { my $year = undef; my $month = undef; my $json = undef; if ($input && ($json = from_json($input))) { foreach my $year (sort { $a <=> $b } keys %$json) { #print STDERR $year."\n"; foreach my $month (sort { $a <=> $b } keys %{$json->{$year}}) { #print STDERR " ".$month." ".$json->{$year}->{$month}."\n"; $x->{$year}->{$month}->{$id} = ref($json->{$year}->{$month}->{dbvalue}) ? $json->{$year}->{$month}->{dbvalue} : $json->{$year}->{$month}; } } } }; } #delete $x->{(localtime(time()))[5]+1900}->{(localtime(time()))[4]+1}; my $data = []; my $loccount = scalar(@$loc); push(@$loc, "Average"); push(@$loc, "Sum"); my $cc = Chart::Clicker->new(width => 1200, height => 700, format => 'png'); sub _generate_specific_colors { # build the color allocator # Add more colors in case your line is more than 6 my $ca = Chart::Clicker::Drawing::ColorAllocator->new; my $red = Graphics::Color::RGB->new({red => .75, green => 0, blue => 0, alpha => .8}); my $green = Graphics::Color::RGB->new({red => 0, green => .75, blue => 0, alpha => .8}); my $blue = Graphics::Color::RGB->new({red => 0, green => 0, blue => .75, alpha => .8}); my $orange = Graphics::Color::RGB->new(red => .88, green => .48, blue => .09, alpha => .8); my $aqua = Graphics::Color::RGB->new(red => 0, green => 1, blue => 1, alpha => .8); my $fuchsia = Graphics::Color::RGB->new(red => 1, green => 0, blue => 1, alpha => .8); $ca->add_to_colors($green); $ca->add_to_colors($red); $ca->add_to_colors($blue); $ca->add_to_colors($orange); $ca->add_to_colors($aqua); $ca->add_to_colors($fuchsia); return $ca; } $cc->color_allocator(_generate_specific_colors); open(HTML, ">", "out.html") || die($!); print HTML '

'; $defctx->renderer->shape( Geometry::Primitive::Circle->new({ radius => 5, }) ); $cc->write_output('foo.png'); my $graph = GD::Graph::lines->new(1200, 900);; $graph->set( x_label => 'X Label', y_label => 'Y label', title => 'Tickets', long_ticks => 1, y_max_value => 1400, y_tick_number => scalar(@$loc)+1, y_label_skip => 3, bar_spacing => 3, shadow_depth => 4, accent_treshold => 500, line_width => 6, dclrs => \@colors, transparent => 1, ); # @data = ( # [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct ) ], # [ 1, undef, 2, undef, 3, undef, 4, undef, 5, 6 ] # ); $graph->set_legend_font(gdGiantFont); $graph->set_legend(@$loc); my $gd = $graph->plot($data) or die $graph->error; open(IMG, '>file.png') or die $!; binmode IMG; print IMG $gd->png;