#!/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;
 
$dir = "/tmp/riverout";
$data1 = ("$dir" . "$process");
$gnuplot = "/usr/local/bin/gnuplot";

$logdata = 'logdata';
$size = -e $data1;
$pbm = "/tmp/river" . "$process" . ".pbm";
$size2 = -e $pbm;
open (LOG, ">>$logdata");
        print LOG "$data1, $size\n";
        print LOG "$pbm, $size2\n";
close (LOG);


	open2 (*README, *WRITEME, $gnuplot);
	print WRITEME "set terminal pbm small color\n";
	print WRITEME "set output \"/tmp/river$process.pbm\"\n";
system ("chmod 0666 /tmp/river$process.pbm");
	print WRITEME "set size 0.7,0.5\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 "set label \"Test label\" at 3,4 left\n";
#	print WRITEME "set border 3\n";
#	print WRITEME "set xtics nomirror\n";
#        print WRITEME "set ytics nomirror\n";
       print WRITEME "set nokey\n";
# print WRITEME "set style lines\n";
	print WRITEME "plot \"$data1\" title \"River Data\" with l lt 7\n";
	print WRITEME "quit\n";
	
	$read = <README>;
	
	close (WRITEME);
	close (README);