#-------------------------------------------------------------------------------
# Log File Functions
#-------------------------------------------------------------------------------
# FUNCTION: AccessInOutLog($username, $forename, $lastname, $timein,$ipaddress,$timeout);
# DESCRIPTION: Enters user information in log file
#-------------------------------------------------------------------------------
sub AccessInOutLog {
     use Time::localtime;
     my $username = $session->param('username');
     my $forename = $session->param('forename');
     my $lastname = $session->param('lastname');
     my $timein = $session->param('timein');
     #my $ipaddress = $session->remote_addr();
     my $timeout = $session->param('timeout');

     warn("AccessInOutLog line 688: $username  $forename  $lastname $timein $ipaddress $timeout");

#-------------------------------------------------------------------------------
#    Format the log in time
     my $tm = localtime($timein);
     my $intimestamp =  sprintf("Log In: %4d-%02d-%02d %02d:%02d:%02d",$tm->year + 1900,$tm->mon + 1,$tm->mday,$tm->hour,$tm->min,$tm->sec);
	 warn "$timein,$intimestamp";
#-------------------------------------------------------------------------------
#    Format the log out time
     $tm = localtime($timeout);
     my $outimestamp =  sprintf("Log Out: %4d-%02d-%02d %02d:%02d:%02d",$tm->year + 1900,$tm->mon + 1,$tm->mday,$tm->hour,$tm->min,$tm->sec);
	 warn "$timeout,$outimestamp";
#-------------------------------------------------------------------------------
#    Open the log file and append the entries
     open(ACCESSLOG, "+>>$admin_log_file") or LogErrorMessage("Unable to open log file $admin_log_file\n");
     print ACCESSLOG $intimestamp . " " . $outimestamp . "  Username = " . $username . "  Name = " . $forename . " " . $lastname . "  IP Address = " . $ipaddress . "\n";
     close(ACCESSLOG);
}