| 
      
            Lines 68-73
          sub login {
      
      
        Link Here
      
     | 
  
        
          | 68 | 
                  return $c->redirect_to( $uri . "?auth_error=$error" );  | 
          68 | 
                  return $c->redirect_to( $uri . "?auth_error=$error" );  | 
        
        
          | 69 | 
              }  | 
          69 | 
              }  | 
        
        
          | 70 | 
           | 
          70 | 
           | 
        
            
               | 
               | 
              71 | 
                  if ( !$c->req->cookie('CGISESSID') ) { | 
            
            
              | 72 | 
                      my $error = "No user session found";  | 
            
            
              | 73 | 
                      return $c->redirect_to( $uri . "?auth_error=$error" );  | 
            
            
              | 74 | 
                  }  | 
            
            
              | 75 | 
               | 
            
        
          | 71 | 
              unless ( $provider_config->{authorize_url} =~ /response_type=code/ ) { | 
          76 | 
              unless ( $provider_config->{authorize_url} =~ /response_type=code/ ) { | 
        
        
          | 72 | 
                  my $authorize_url = Mojo::URL->new( $provider_config->{authorize_url} ); | 
          77 | 
                  my $authorize_url = Mojo::URL->new( $provider_config->{authorize_url} ); | 
        
        
          | 73 | 
                  $authorize_url->query->append( response_type => 'code' );  | 
          78 | 
                  $authorize_url->query->append( response_type => 'code' );  | 
        
            
              | 74 | 
              -   | 
               | 
               |