| 
      
            Lines 33-38
          my $intranet =
      
      
        Link Here
      
     | 
  
        
          | 33 | 
            $ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseURL"); | 
          33 | 
            $ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseURL"); | 
        
        
          | 34 | 
          my $opac = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL"); | 
          34 | 
          my $opac = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL"); | 
        
        
          | 35 | 
           | 
          35 | 
           | 
        
            
               | 
               | 
              36 | 
              my $context = C4::Context->new();  | 
            
            
              | 37 | 
              my $db_name   = $context->config("database"); | 
            
            
              | 38 | 
              my $db_host   = $context->config("hostname"); | 
            
            
              | 39 | 
              my $db_port   = $context->config("port") || ''; | 
            
            
              | 40 | 
              my $db_user   = $context->config("user"); | 
            
            
              | 41 | 
              my $db_passwd = $context->config("pass"); | 
            
            
              | 42 | 
              `mysqldump --add-drop-table -u $db_user --password="$db_passwd" -h $db_host -P $db_port $db_name > dumpfile.sql`;  | 
            
            
              | 43 | 
               | 
            
        
          | 36 | 
          my $t       = Test::Mojo->new();  | 
          44 | 
          my $t       = Test::Mojo->new();  | 
        
        
          | 37 | 
          my $schema  = Koha::Database->new->schema;  | 
          45 | 
          my $schema  = Koha::Database->new->schema;  | 
        
        
          | 38 | 
          my $builder = t::lib::TestBuilder->new;  | 
          46 | 
          my $builder = t::lib::TestBuilder->new;  | 
        
  
    | 
      
            Lines 131-133
          subtest 'open redirection vulnerabilities in tracklinks' => sub {
      
      
        Link Here
      
     | 
  
        
          | 131 | 
              $t->get_ok( $opac . $good_itemnumber )  | 
          139 | 
              $t->get_ok( $opac . $good_itemnumber )  | 
        
        
          | 132 | 
                ->status_is( 302, "302 for itemnumber with matching URI" );  | 
          140 | 
                ->status_is( 302, "302 for itemnumber with matching URI" );  | 
        
        
          | 133 | 
          };  | 
          141 | 
          };  | 
        
          
            
              | 134 | 
              -   | 
              142 | 
               | 
            
            
               | 
               | 
              143 | 
              `mysql -u $db_user --password="$db_passwd" -h $db_host -P $db_port --database="$db_name" < dumpfile.sql`;  | 
            
            
              | 144 | 
              `rm dumpfile.sql`;  |