#!/usr/bin/perl

use lib "/home/libs/modules" ;
use lib "/home/libs/html" ;
    
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 ; }

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;