#-------------------------------------------------------------------------------
# FUNCTION:  ProcessLogonRequest($query)
# DESCRIPTION: Client requests log in: create session and send encryption data
#-------------------------------------------------------------------------------
sub ProcessLoginRequest
{
  my ($query) = @_;
  my $status = 0;
#  $sessionname = 'CGISESSID';
#  my %cookies = CGI::Cookie->fetch;
#  my $sid = $cookies{$sessionname}->value; 
  my $sid = GetUserSessionCookie();
  warn("ProcessLoginRequest Query: '$query'");
  warn("ProcessLoginRequest SID from cookie: '$sid'");

  #Check if it got valid return from fetch cookie
  if ($sid ne 0){
    $status = 1;
  }
  #Or, check if valid return from cgi query
  elsif($query){
#    if (exists $query{$sessionname}){
     $sid = $query->param($sessionname);
   if ($sid){     
     warn("ProcessLogin Request SID from Query: '$sid'");
     $status = 1;
     }
   else{
     $sid = undef;
     $status = 2;
     }
  }
  else {
    #Set up for creating a new session
    $sid = undef;
    $status = 2;
  }
#  $sid = '7032f2c7f5a2c721a483dc75fc29595e';
  $session = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh});
  warn("session = '$session'");
  OpenSession($dbh,$sid);
  $session->param("#<expires>#",0);
  $session->param("isloggedin",0);
  $session->flush();
  $sid = $session->id();
  warn("ProcessLogin Request SID from from session create: '$sid'");
  my $sessiondata1 = $sid; #id created by CGI::Session;
  if ($status == 1) {
    warn("Process Login returning after confirmed already logged in: status: '$status' sessionname:  '$sessionname' SID:  '$sid'");
	
    my $username1 = $session->param("user_id");
	warn("username1 : '$username1'");
	#my ($digits) = $text =~ /(\d+)/;
	#my ($user_id) = $username1 =~ /(\d+)/;
	
	#my $text = $username1;
    #$text =~ m/(\d+)/;
    #my $num = $1;
	#warn("num: '$num'");
	
	
	
	#$username1 =~ m/(\d+)/;
	$LoggedOn_user_id = $username1;  
	warn("Already logged on LoggedOn_user_id : '$LoggedOn_user_id'");	
	#$LoggedOn_user_id = 428;
    $adminaccess = ($username1 eq "admin");
	warn("username1: '$username1'");
	warn("adminaccess: '$adminaccess'");
    $session->param("isloggedin",1);
	
	
    $session->param('timein', time());
    $session->flush();
    return (1, "Your previous session is still valid. You are now logged in.", $sid, 0);
  }

  warn("Process Login after verify not logged in and new session: status: '$status' sessionname:  '$sessionname' SID:  '$sid'");

  #Random hash for encoding password
  my $seed_number = CreateRandomSequence(10, 1);
  my $seed_string = CreateRandomSequence(10, 0);
  my $sessiondata2 = md5_hex($ipaddress . $seed_number . $seed_string);
  $session->param('sessiondata2',$sessiondata2);
  $session->expires('+7d');
#  Expires($session, Now() + 600);
  $session->flush();

  my $localtimenow = localtime(Now());
  warn("Process Login Request localtime(rightnow) = '$localtimenow'");

  return (2, $sessionname, $sessiondata1, $sessiondata2);
}