#! /usr/bin/perl
#use strict;
use warnings;
use GD::Graph::bars;
require "multiping.pl";

our (@graphdata, $date);
my ($mygraph,$graphimage);

open (STDERR, '>/home/deruytja/webserver/rifucgi/logs/'.$date.'multipinggraph_error.log');  #Redirecting Standart Error to file
$mygraph = GD::Graph::bars->new(500, 300);
$mygraph->set(
    x_label     => 'Link',
    y_label     => 'Antwortzeit',
    title       => 'Antwortzeiten der Links',
) or warn $mygraph->error;
$graphimage = $mygraph->plot(\@graphdata);
print "Content-type: image/png\n\n";
binmode STDOUT;
print $graphimage->png;