Lines 57-63
if ($cgi->param('PGTIOU')) {
Link Here
|
57 |
# The callback page stored it in the application vars (in our case a storable object in a file) |
57 |
# The callback page stored it in the application vars (in our case a storable object in a file) |
58 |
open FILE, "casSession.tmp" or die "Unable to open file"; |
58 |
open FILE, "casSession.tmp" or die "Unable to open file"; |
59 |
my $hashref = fd_retrieve(\*FILE); |
59 |
my $hashref = fd_retrieve(\*FILE); |
60 |
my $pgtId = %$hashref->{$cgi->param('PGTIOU')}; |
60 |
my $pgtId = %{$hashref->{$cgi->param('PGTIOU')}}; |
61 |
close FILE; |
61 |
close FILE; |
62 |
|
62 |
|
63 |
# Now that we have a PgtId, we can ask the cas server for a proxy ticket... |
63 |
# Now that we have a PgtId, we can ask the cas server for a proxy ticket... |
64 |
- |
|
|