[pve-access-control.git] / test / auth-test.pl

#!/usr/bin/perl -w

use strict;
use Term::ReadLine;
use PVE::AccessControl;

my $username = shift;
die "Username missing" if !$username;
sub read_password {

    my $term = new Term::ReadLine ('pveum');
    my $attribs = $term->Attribs;
    $attribs->{redisplay_function} = $attribs->{shadow_redisplay};
    my $input = $term->readline('password: ');
    return $input;
}

my $password = read_password();
PVE::AccessControl::authenticate_user($username,$password);

print "Authentication Successful!!\n";

exit (0);
Commit	Line	Data
2c3a6c0a DM	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use Term::ReadLine;
	5	use PVE::AccessControl;
	6
	7	my $username = shift;
	8	die "Username missing" if !$username;
	9	sub read_password {
	10
	11	my $term = new Term::ReadLine ('pveum');
	12	my $attribs = $term->Attribs;
	13	$attribs->{redisplay_function} = $attribs->{shadow_redisplay};
	14	my $input = $term->readline('password: ');
	15	return $input;
	16	}
	17
	18	my $password = read_password();
	19	PVE::AccessControl::authenticate_user($username,$password);
	20
	21	print "Authentication Successful!!\n";
	22
	23	exit (0);