70 lines
2.0 KiB
Perl
70 lines
2.0 KiB
Perl
#!/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; |