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