#!/usr/bin/perl
use Chart::Mountain;
$filename = $ARGV[0];
$popname = $ARGV[1];
$g = Chart::Mountain->new(1000,500);
$g->add_datafile( "$filename", set );
%hash = ( 'title' => 'Video Server Play Daily Hourly Report',
'grid_lines' => 'true',
'misc' => [0,0,0],
'y_label' => 'Numero Streams',
'include_zero' => 'true',
'x_ticks' => 'vertical',
'precision' => '0',
@labels = ($popname)
);
$g->set (%hash);
$g->set('colors' => {'dataset0' => [0,255,0]});
$g->set ('legend_labels' => \@labels);
$g->set ('tick_label_font' => (GD::Font->Giant));
$g->set ('title_font' => (GD::Font->Giant));
$g->jpeg ("$filename.jpeg");