use strict;
unshift @INC, "c:\\web\\parkplus\\cgi-bin";
require 'racingleague.pl';
use DBI;
use CGI;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Time::HiRes;

#SET DEBUG STATE
my $DEBUG = 1;

my $header_printed;
my $submitstate;
#IS THERE A VALUE IN SUBMITSTATE?
$submitstate = param('submitstate');

if ($submitstate){
#WHICH STATE OF SUBMISSION IS REQUESTED
    if ($submitstate >= 1){
		#Submission Request
		submission_request();
        exit;
    }else{
          die_nice("You have an invalid state number");
    }
}else{
	  #initial login menu
      new_display();
	  exit;
}


sub submission_request{
	print header();
	my $db_obj = DBCollection->make_connections();
	my $user_obj = retrieve_submission();
	my $league_obj = LeagueData->get_league_data($db_obj);
	my $team_obj = Team->get_team_info($db_obj, $user_obj, $league_obj->adminrace);
    my $submit_result = check_submit_data($user_obj, $team_obj);
    if ($submit_result eq 0){
    	#submission data ok including password
		main_display($user_obj);
        exit;
	}else{
		print_header();
		print "<p align=\"center\"> $submit_result </p>";
		new_display($user_obj);
		exit;
    }



}

sub print_header{
	if ($header_printed == 0){
		print header();
		print <<HTML;
		<table border="0" width="776" height="171">
  			<tr>
    			<td width="768" colspan="2" height="77"><img border="0" src="http://www.parkplus.com/racing/images/title1.gif" width="96" height="75"><img border="0" src="http://www.parkplus.com/racing/images/title2.gif" width="192" height="75"><img border="0" src="http://www.parkplus.com/racing/images/title3.gif" width="480" height="75"></td>
  			</tr>
  		</table>
HTML
		$header_printed = 1;
	}
}

sub new_display{
	my ($user) = @_;
	print_header();

	my $username;

	if ($user){
		$username = $user->username;
	}

	print <<HTML;
			<table border="0" width="776">
			<tr>
	        	<td colspan = "3" align="center">
	        		Administrator Login
				</td>
	      	</tr>
  			<tr>
	        	<form name="adminlogin" action="admin.cgi" target="_self">
	        	<td colspan = "3" align="center">
				</td>
	      	</tr>
			<tr>
				<td align="right">
					User Name
				</td>
				<td>
					<input type="text" name="username" value="$username" size="20"
				</td>
				<td>
				</td>
			</tr>
			<tr>
				<td align="right">
					Password
				</td>
				<td>
				    <input type="password" name="password" size="20">
				</td>
				<td>
				</td>
			</tr>
	        <tr>
	        	<td align="center" colspan="3">
	            	<input type="submit" value="Login" name="B1">
	            </td>
	        </tr>
	      </table>
		  <input type="hidden" name="submitstate" value="1">
		  </form>

HTML
}


sub check_submit_data{
	my ($user, $team) = @_;
	my $submit_error;
	if (length($user->username) == 0){
		$submit_error = "Your username is missing";
	}
	$_ = $user->username;
	if (m/\s|\W|\d/){
		$submit_error = "No spaces or special characters allowed in your username";
	}
	if (length($user->password) == 0){
		$submit_error = "Your password is missing";
	}
	if ($user->password ne $team->password){
		$submit_error = "Your password is incorrect";
	}
	if ($team->administrator != 1){
		$submit_error = "You are not an administrator";
	}


	if (length($submit_error) == 0){
        return 0;
    }else{
        return $submit_error;

    }
}


sub retrieve_submission{
	my $user = User->new();
	$user->username(param('username'));
	$user->password(param('password'));
	return $user;
}

sub main_display{
		my ($user) = @_;
	    print_header();

		my $username;
		my $password;
	    if ($user){
	        $username = $user->username;
	        $password = $user->password;
	    }


		print <<HTML;
		  <table border="0" width="776">
		  <tr>
    	  	<td align="center">
    	  		Administrator Menu
		  	</td>
  		  </tr>

  		  <tr>
  		  	<td>
		  	<form action="http://www.parkplus.com/cgi-bin/adminrace.cgi" method="POST">
				<input type="hidden" name="username" value="$username">
				<input type="hidden" name="password" value="$password">
				<input type="hidden" name="submitstate" value="1">
				<input type="submit" value="Race Administration" name="B1">
			</form>
		    </td>
		  </tr>

		  <tr>
  		  	<td>
		  	<form action="http://www.parkplus.com/cgi-bin/adminplayer.cgi" method="POST">
				<input type="hidden" name="username" value="$username">
				<input type="hidden" name="password" value="$password">
				<input type="hidden" name="submitstate" value="1">
				<input type="submit" value="Player Administration" name="B1">
			</form>
		    </td>
		  </tr>

		  <tr>
  		  	<td>
		  	<form action="http://www.parkplus.com/cgi-bin/adminschedule.cgi" method="POST">
				<input type="hidden" name="username" value="$username">
				<input type="hidden" name="password" value="$password">
				<input type="hidden" name="submitstate" value="1">
				<input type="submit" value="Schedule Administration" name="B1">
			</form>
		    </td>
		  </tr>



HTML
}

sub die_nice{
	my ($error_message) = @_;
	if ($header_printed == 0){
		print_header();
	}
	print $error_message;
	exit;
}