#!/usr/bin/perl -w
use Chart::Graph::Gnuplot qw(gnuplot);
#Debugging aid - save the temporary files if desired
#$Chart::Graph::save_tmpfiles = 1;
#Debugging aid - turn on extra debugging messages
#$Chart::Graph::debug = 1
  
# Call and "usual" global parameters
  gnuplot({"title" => "Bradford-A-router Bandwidth-1MB Util% In/Out",
           "x-axis label" => "Last 4 Weeks",
           "y-axis label" => "Utilization %",
           "output type" => "png",
           "output file" => "Bradford-A.png",
           # Setting date/time specific options.
           "xdata" => "time",
           "timefmt" => "%d/%m/%Y\t%H:%M",
           "format" => ["x", "%d/%m/%Y"],
           # Set output range - note quoting of date string
           "xrange" => "[\"07/11/2003\":\"04/12/2003\"]",
           "extra_opts" => join("\n", "set grid"),
          },

# Data for when stock opened
          [{"title" => "Bytes In",
	    "style" => "lines",
            "type" => "file"}, "/root/bytes-in"],

          # Data for when stock opened
          [{"title" => "Bytes Out",
	    "style" => "lines",
            "type" => "file"}, "/root/bytes-out"],);