| 
      
            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 | 
              -   | 
               | 
               |