use Koha::AuthUtils qw(hash_password);

use Koha::AuthUtils qw(hash_password);

use POSIX qw/strftime/;

use POSIX qw/strftime/;

use List::MoreUtils qw/ any /;

use List::MoreUtils qw/ any /;

# use utf8;

# use utf8;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout);

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout);

sub checkpw_internal {

sub checkpw_internal {

    my ( $dbh, $userid, $password ) = @_;

    my ( $dbh, $userid, $password ) = @_;

    my $sth =

    my $sth =

      $dbh->prepare(

      $dbh->prepare(

"select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,flags from borrowers where userid=?"

"select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,flags from borrowers where userid=?"

use Modern::Perl;

use Modern::Perl;

use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);

use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);

use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt

use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt

use base 'Exporter';

use base 'Exporter';

# Using Bcrypt method for hashing. This can be changed to something else in future, if needed.

# Using Bcrypt method for hashing. This can be changed to something else in future, if needed.

sub hash_password {

sub hash_password {

    my $password = shift;

    my $password = shift;

    # Generate a salt if one is not passed

    # Generate a salt if one is not passed

    my $settings = shift;

    my $settings = shift;