#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw(:flock);
use JSON;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

&session_chk ;

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

&today ;
&screen1 ;
    
exit;

#------------------------------------------------------------------------------------------

sub session_chk {

	use session ;
	&check_session ;

	if ($session_state eq 'expired' || $session_state eq 'empty') { &screen2 ; }

} #------------------------------------------------------------------------------------------

sub screen1 {

	$useropts{'breadcrumbs'} = qq~<div><ul class="breadcrumb"><li><a href="$useropts{'folder'}/">Home</a></li></ul></div>~ ;

	if ($is_temp_calibrator)           { require redirectcalibrator ; exit ; }
	if ($is_dcb_partner)               { require redirectlogistics  ; exit ; }

	if ($pixellot_limit{$username} || $events_limit{$username} || substr($usertype,0,6) eq 'casual' || $usertype eq 'external') { require 'index.pm' ; exit ; }

	if ($is_installation_partner)     	{ require redirectfixed      	; exit ; }
	if ($useropts{tickets}{$username})	{ require tickets            	; exit ; }
	if ($is_coding_provider)      		{ require redirectallfixtures	; exit ; }
	if ($is_analytics_client)      		{ require redirectanalytics		; exit ; }
	
	require redirect ;

	exit ;

} #------------------------------------------------------------------------------------------

sub screen2 {

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

	$useropts{title} = qq~Login | $useropts{short} Admin~ ;

	require login ;

	exit ;
 
} #------------------------------------------------------------------------------------------

use today ;
use common ;

1;