Subversion Repositories VORC

Rev

Rev 50 | Rev 56 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 50 Rev 53
Line 21... Line 21...
21 
our ($EML, $PWD, $LVL);
 21 
our ($EML, $PWD, $LVL);
22 
my $user;
 22 
my $user;
23 
my $username;
 23 
my $username;
24 
my $RCid;
 24 
my $RCid;
25 
my $RCAUTH_cookie;
 25 
my $RCAUTH_cookie;
26 
my $YEAR = "2023";
 26 
my $YEAR = 1900 + (localtime)[5];
Line 27... Line 27...
27 
 
 27 
 
28 
if ($secure) {
 28 
if ($secure) {
29 
	$cookie_string = authenticate(2) || die;
 29 
	$cookie_string = authenticate(2) || die;
30 
	($EML, $PWD, $LVL) = split /&/, $cookie_string;
 30 
	($EML, $PWD, $LVL) = split /&/, $cookie_string;