Subversion Repositories VORC

Rev

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

Rev 62 Rev 65
Line 17... Line 17...
17 
my $cookie_string = authenticate (1) || die;
 17 
my $cookie_string = authenticate (1) || die;
18 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 18 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
19 
#my $user = getUser($EML);
 19 
#my $user = getUser($EML);
20 
my $user = $ORCUSER;
 20 
my $user = $ORCUSER;
21 
#$user->{department} = convertDepartments $user->{department};
 21 
#$user->{department} = convertDepartments $user->{department};
22 
my $activated = max (values %{ $user->{department} });
 22 
#my $activated = max (values %{ $user->{department} });
- 
 
 23 
my $activated = $ORCUSER->{access};
23 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
 24 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
24 
my $DEPTS = getDepartments ();
 25 
my $DEPTS = getDepartments ();
Line 25... Line 26...
25 
 
 26