#!/usr/bin/perl
use strict;
use warnings;

use Chart::Mountain;
my $filename = $ARGV[0];

my $g = Chart::Mountain->new(1000,500);

$g->add_datafile( "$filename", 'set' );

$g->set (   'title'                 => 'Video Server Play Daily Hourly Report',
            'grid_lines'            => 'true',
            'y_label'               => 'Numero Streams',
            'x_label'               => 'Dates',
            'include_zero'          => 1,
            'x_ticks'               => 'vertical',
            'tick_label_font'       => (GD::Font->Giant),
            'title_font'            => (GD::Font->Giant),
            'colors'                => {'dataset0' => [0,255,0]},
            'integer_ticks_only'    => 1,
            'misc'                  => [0,0,0],
);
            
$g->jpeg ("graph.jpg");