#!/usr/bin/perl -T
# $Id: login.cgi,v 1.2 2023/02/23 10:26:09 sqko Exp $
############################################################
############################################################
###                                                      ###
###   Originally designed by Soeren Koch                 ###
###                                                      ###
###   Impelemented by Soeren Koch                        ###
###                                                      ###
###   Copyright (C) by Soeren Koch 2010                  ###
###                                                      ###
############################################################
############################################################

use strict;
use warnings;
use RFC::Header;
use RFC::RFCCGI qw(:html :cgi);
use RFC::Main;
use CGI qw(:standard :netscape);
my $token = '';
my $user = $ENV{REMOTE_USER};
$token = RFC::Main::passwd_client('new_session_cas',$user) if ($user);
if ($token)
{
    &errorlog($token);
    print process('main_nav_nologin.tt');
    ### Javascript for proceeding to main.cgi ###
    print start_form(-action=>'/cgi-bin/celltest/main.cgi',-name=>'enterdatabase');
    print hidden(-name=>'name',-value=>$user,-force=>1);
    print hidden(-name=>'pass',-value=>$token,-force=>1);
    print end_form;
    print <<END;

<script>

document.enterdatabase.submit();

</script>

END
    print process('end_html.tt');
}
else
{
    print process('not_auth.tt');
}
