Subversion Repositories VORC

Rev

Rev 52 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 52 Rev 53
Line 17... Line 17...
17 
our ($EML, $PWD, $LVL);
 17 
our ($EML, $PWD, $LVL);
18 
my $user;
 18 
my $user;
19 
my $username;
 19 
my $username;
20 
my $RCid;
 20 
my $RCid;
21 
my $RCAUTH_cookie;
 21 
my $RCAUTH_cookie;
22 
my $YEAR = "2023";
 22 
my $YEAR = 1900 + (localtime)[5];
Line 23... Line 23...
23 
 
 23 
 
24 
$cookie_string = authenticate(1) || die;
 24 
$cookie_string = authenticate(1) || die;
25 
($EML, $PWD, $LVL) = split /&/, $cookie_string;
 25 
($EML, $PWD, $LVL) = split /&/, $cookie_string;
26 
$user = getUser($EML);
 26 
$user = getUser($EML);