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

#!/usr/bin/perl -w

use strict;
use PVE::PTY;
use PVE::AccessControl;

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

my $password = PVE::PTY::read_password('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;
b34d76e7	4	use PVE::PTY;
2c3a6c0a DM	5	use PVE::AccessControl;
	6
	7	my $username = shift;
	8	die "Username missing" if !$username;
2c3a6c0a	9
b34d76e7	10	my $password = PVE::PTY::read_password('password: ');
2c3a6c0a DM	11	PVE::AccessControl::authenticate_user($username,$password);
	12
	13	print "Authentication Successful!!\n";
	14
	15	exit (0);