39 lines
855 B
Perl
39 lines
855 B
Perl
|
package Dojo::Model::Users;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use DBI;
|
||
|
|
use Mojo::Util 'secure_compare';
|
||
|
|
use Dojo::Conf;
|
||
|
|
|
||
|
|
|
||
|
|
sub new { bless {}, shift }
|
||
|
|
|
||
|
|
sub check {
|
||
|
|
my ($self, $user, $pass) = @_;
|
||
|
|
my $q="select permiso_id as pid from usuario where nombre = ? and pass=? ";
|
||
|
|
# | 0 | bloqueado |
|
||
|
|
# | 1 | invitado |
|
||
|
|
# | 2 | usuario |
|
||
|
|
# | 3 | pago |
|
||
|
|
# | 4 | master |
|
||
|
|
my $r= _read($q,$vuelo,$user,$pass)->[0];
|
||
|
|
return $r->{pid} // 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _read{
|
||
|
|
my ($q,$d,@bind)=@_;
|
||
|
|
my (@empty,$arr);
|
||
|
|
my $dbh = DBI->connect("DBI:mysql:".Dojo::Conf::GRULLADB.":".Dojo::Conf:: GRULLADB_H,Dojo::Conf::GRULLADB_UR,Dojo::Conf::GRULLADB_URP);
|
||
|
|
return \@empty unless($dbh);
|
||
|
|
#$dbh->do(qq{SET NAMES 'utf8'});
|
||
|
|
my $h=$dbh->selectall_arrayref($q,{ Slice => {} },@bind);
|
||
|
|
#((col1=>d1,col2=>d1),(col1=>d2,col2=>d2))
|
||
|
|
$dbh->disconnect();
|
||
|
|
return $h;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
1;
|