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