#!/usr/bin/perl

sub my_graph
{
my ($graph_data_file, $file_column, $title, $y_units, $dir_path) = @_;

open (SCRIPT,">$graph_data_file.script");

print SCRIPT "
set terminal png
set output \"$dir_path\"
#640x480 default
set size 24.000,0.300
set title \"$title\"
set autoscale xy
set data style lines
set xlabel \"Time (EST)\"  
set timefmt \"%m/%d/%Y %H:%M:%S\"
set xdata time
set ylabel \"$y_units\"
set format x \"%b%d\\n%l:%M%p\"
set grid
set key right
plot '$graph_data_file' using 1:$file_column with lines lt 1
     
#show grid
reset
quit";
close SCRIPT;

`/usr/bin/gnuplot $graph_data_file.script`;
#`rm $graph_data_file.script`;
#`rm $graph_data_file`;
}

1;