#!/usr/bin/perl 

use Getopt::Long;
use IPC::Open2;

GetOptions("f=s" => \$f,
           "s=s" => \$s,
           "e=s" => \$e,
           "g=s" => \$g,
           "n=s" => \$n,
	   	   "r=s" => \$r);

$process = $f;
$start = $s;
$end = $e;
$region = $r;
$range = $g;
$rangeto = $n;

$dir1 = "/tmp/riverout";
$data1 = ("$dir1" . "$process");
$dir2 = "/tmp/riverbout";
$data2 = ("$dir2" . "$process");

$gnuplot = "/usr/bin/gnuplot";

	open2 (*README, *WRITEME, $gnuplot);
	print WRITEME "set terminal png small xffffff x000000 x333333 xaa0000 x000066\n";
	print WRITEME "set output \"/tmp/river$process.png\"\n";
system ("chmod 0666 /tmp/river$process.png");
	print WRITEME "set size 0.7,0.5\n";
	print WRITEME "set autoscale\n";
#	print WRITEME "test\n";
	print WRITEME "set nokey\n";
#	print WRITEME "set key outside below\n";
	print WRITEME "set xlabel \"Days in Year\"\n";
	print WRITEME "set timestamp top rotate\n";
	if ($range){
		print WRITEME "set yrange [$range:$rangeto]\n";
	}
	print WRITEME "set xrange [$start:$end] \n";
        print WRITEME "set title \"$region\"\n";
	print WRITEME 

"plot \"$data1\" title \"Original\" w linespoints lt 1 ps .5, "; 

	print WRITEME 

"\"$data2\" title \"Best_Management\" w l lt 2\n";

	print WRITEME "exit\n";
	
	$read = <README>;
	
	close (WRITEME);
	close (README);