#!/usr/bin/perl
# use IPC::Open2;
print "Content-type: text/html\n\n";
#$ppmtogif = "/usr/local/bin/ppmtogif";
print "
Waah!\n";
# local($gnuplot) = "/usr/local/bin/gnuplot";
$region = '5';
$parameter = '6';
$changed = '0';
$orderforplot = "000000";
print "GenerateGraph: @_, changed: $changed, region: $region, ";
print "parameter: $parameter, Order: $orderforplot Range: $start to $end.";
# First print info to file in tmp
$data = ("/tmp/riverdata" . $$);
open (TEMP, ">$data") || die " couldn't open file $data: $!";
print TEMP "$region\n";
print TEMP "$parameter\n";
print TEMP "$changed\n";
print TEMP "$orderforplot\n";
close (TEMP);
# Then call fortran program for display info
# $param = "/riverout" . $$;
# $param2 = "/riveroutb" . $$;
$process = $$;
system("/usr/local/jail/www/htdocs/ncsa/riverweb/callriverout.cgi -d $$");
print "post system
";
# open (PARAM, "$param");
# while (){
# push @management, $_;
# }
# close (PARAM);
#
# if (open (PARAM2, "$param2")){
# while (){
# push @bestmanagement, $_;
# }
# close (PARAM2);
# }
$data1 = "/tmp/riverout" . $$;
# $data2 = "/tmp/riveroutb" . $$;
open (TEMP1, "<$data1") || die " couldn't open file $data: $!";
while (){
chop;
$_ =~ s/ //g;
$_ =~ tr/*/0/;
push @numbers, $_;
}
close (TEMP1);
$tt = 0;
open (TEMP2, ">$data1") || die " couldn't open file $data: $!";
while ($tt <= $#numbers){
if ($numbers[$tt] =~ "&"){
;
}
else {
print TEMP2 "$numbers[$tt]\n";
}
$tt++;
}
close (TEMP2);
system("/usr/local/jail/www/htdocs/ncsa/riverweb/callgnuplot.pl -f $$");
# use IPC::Open2;
# print "Content-type: text/html\n\n";
#$gnuplot = "/usr/local/bin/gnuplot";
#$data1 = "/tmp/riverout$$";
# open2 (*README, *WRITEME, $gnuplot);
# print WRITEME "set terminal pbm small color\n";
# print WRITEME "set output \"/tmp/river$$.pbm\"\n";
# print WRITEME "set size 0.5,0.5\n";
# print WRITEME "set timestamp top rotate\n";
# print WRITEME "set xrange [0:365]\n";
#
#print "Data1: $data1";
# print WRITEME "plot \"$data1\" title \"Plot of $$\"\n";
# print WRITEME "exit\n";
# $read = ;
# close (WRITEME);
# close (README);
#system ("$ppmtogif < /tmp/river$$.pbm > /tmp/river$$.gif");
system ("mv /tmp/river$$.png /usr/local/jail/www/htdocs/tmpgif/");
# print "data: $data.\n
";
system ("rm $data");
system ("rm /tmp/riverout$$");
# system ("rm /tmp/river$$/outb");
# system ("rm /tmp/river$$.pbm");
# print "pbm = /tmp/river$$.pbm.\n
";
# rmdir "/tmp/river$$";
# print "dir = /tmp/river$$\n
";
# print "Thanky Now Come Again: $$.gif\n";
$png = ("river" . $$ . ".png");
print "
";
print "";