#!/usr/bin/perl

# use IPC::Open2;

#print "Content-type: text/html\n\n";

require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/printdisplay.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/generalinfo.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/parseform.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/errors.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/password.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/ordercontrol.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/printmap.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/callprogs.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/printhtml.pl';
require '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/perl/datafile.pl';
$justthedomain = 'http://mvhs.mbhs.edu';
$tmpgif = 'tmpgif';
$cprog = 'a.out'; # the program that runs the model
# Login/Password/order file
$datafile = '/usr/local/jail/www/htdocs/ncsa/riverweb/version3/datafile'; 
$script = "riverweb.cgi"; #Title of this script
$domain = '/ncsa/riverweb/version3'; #baseDirectory 
$html = '/html'; # dir html help files are stored in
$databasedir = 'ncsa/'; # dir data is stored in
open (LOGFILE,">>logfile"); #log file

 if ($ENV{'QUERY_STRING'}){
  &ParseQuery;
    $method = "query";
   # user calls script from map page: query string info
   # - need to return form page
   if (($query{'map'}) || ($query{'map'} eq '0')){
	$method = "map";
    &PrintForm;
   }
   # user calls script from form page link to make an improvement: query string info
   # - need to change order and return improved graphics
   
   elsif ($query{'improvement'}){
		$user = $query{'user'};
		ReadDatabase();
		IdentifyOrder();
		AddStationToOrder($query{'improvement'});
		UpdateOrderInDatabase();
		PrintArrayToDatabase();
		PrintForm();
   }
   elsif ($query{'retract'}){
		$user = $query{'user'};
		ReadDatabase();
		IdentifyOrder();
		RemoveStationFromOrder($query{'retract'});
		UpdateOrderInDatabase();
		PrintArrayToDatabase();
		PrintForm();
   }
   elsif ($query{'displaymap'}){
    $form{'login'} = $query{'user'};
    &PrintMap;
   }
   else {
    $error = "Script Error: Script called Incorrectly: $!";
    &PrintError;
   }
 }
 elsif($ENV{'CONTENT_LENGTH'}){
  &ParseForm;
   # user calls script from password page: form info
   # - need to check password
   if ($form{'verifyLogin'}){
    &VerifyLogin;
   }
   # user calls script from form page to change display: form info
   # - need to return form page with requested items
   elsif ($form{'changeDisplay'}){
    $method = "form";
    
   		# check range in field
    	if (($form{'topfrom'} > '365') || ($form{'topfrom'} < '1')){
    		$errchk = 1;
    		$error = "Error: Invalid Range: Min 1, Max 365 at Top From";
   		}
    	elsif (($form{'topto'} > '365') || ($form{'topto'} < '1')){
    		$errchk = 1;
    		$error = "Error: Invalid Range: Min 1, Max 365 at Top To";
    	}
    	elsif (($form{'botfrom'} > '365') || ($form{'botfrom'} < '1')){
    		$errchk = 1;
    		$error = "Error: Invalid Range: Min 1, Max 365 at Bottom From";
    	}
    	elsif (($form{'botto'} > '365') || ($form{'botto'} < '1')){
    		$errchk = 1;
    		$error = "Error: Invalid Range: Min 1, Max 365 at Bottom To";
    	}
    
    	if ($errchk == 1){
    		&PrintError;
    	}
    	else {
    		&PrintForm;
   		}
   	
   }
   else {
    $error = "Script Error: Script called Incorrectly: $!";
    &PrintError;
   }
 }
 else{
  # user calls script: no query string, no form info
  # - need to get login
  &Authenticate;
  }