| 
      
            Lines 616-627
          sub execute_query {
      
      
        Link Here
      
     | 
  
        
          | 616 | 
              warn $@ if $@;  | 
          616 | 
              warn $@ if $@;  | 
        
        
          | 617 | 
           | 
          617 | 
           | 
        
        
          | 618 | 
              if ( $sql =~ m/password/ ) { | 
          618 | 
              if ( $sql =~ m/password/ ) { | 
        
          
            
              | 619 | 
                      return ( $sth, { passworderr => $sql } ); | 
              619 | 
                      return ( $sth, { passworderr => "Illegal column in SQL" } ); | 
            
        
          | 620 | 
              }  | 
          620 | 
              }  | 
        
        
          | 621 | 
           | 
          621 | 
           | 
        
        
          | 622 | 
              foreach my $column ( @{ $sth->{NAME_lc} } ) { | 
          622 | 
              foreach my $column ( @{ $sth->{NAME_lc} } ) { | 
        
        
          | 623 | 
                  if ( $column eq 'password' ) { | 
          623 | 
                  if ( $column eq 'password' ) { | 
        
          
            
              | 624 | 
                          return ( $sth, { passworderr => $column } ); | 
              624 | 
                          return ( $sth, { passworderr => "Illegal column in results" } ); | 
            
        
          | 625 | 
                  }  | 
          625 | 
                  }  | 
        
        
          | 626 | 
              }  | 
          626 | 
              }  | 
        
        
          | 627 | 
           | 
          627 | 
           | 
        
            
              | 628 | 
              -   | 
               | 
               |