gistfile1.pl

sub login_valid
{
    my $user = shift;
    my $password = shift;
    my $hashed = md5_hex($password);
    my $rs = schema->resultset('User')->find({'user' => $user, 'password' => $hashed});
    if($rs)
    {
        return 1;
    }
    else
    {
        return 0;
    }
}