Subversion Repositories ORC

Rev

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

Rev 38 Rev 44
Line 12... Line 12...
12 
my $cookie_string = authenticate(2) || die;
 12 
my $cookie_string = authenticate(2) || die;
13 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 13 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
14 
my $user = getUser($EML);
 14 
my $user = getUser($EML);
15 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
 15 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
Line -... Line 16...
- 
 
 16 
 
- 
 
 17 
my $date = param ("date");
- 
 
 18 
my $dt;
- 
 
 19 
if ($date =~ /^\d{4}-\d{2}-\d{2}$/) {
- 
 
 20 
  my ($YYYY, $MM, $DD) = split /-/, $date;
- 
 
 21 
  $dt = DateTime->new(
- 
 
 22 
    year  => $YYYY,
- 
 
 23 
    month => $MM,
- 
 
 24 
    day   => $DD
- 
 
 25 
  );
16 
 
 26 
} else {
- 
 
 27 
  $dt = DateTime->today;
- 
 
 28 
  $date = $dt->date;
17 
my $dt = DateTime->today;
 29 
}
18 
my $day = $dt->day_name;
 - 
 
19 
my $date = $dt->date;
 - 
 
20 
 
 - 
 
21 
## Uncomment and update to test:
 - 
 
22 
$day = "Wednesday";
 - 
 
Line 23... Line 30...
23 
$date = "2022-07-13";
 30 
my $day = $dt->day_name;
24 
 
 31 
 
25 
my %class = qw(
 32 
my %class = qw(
26 
	U Unrestricted
 33 
	U Unrestricted