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

#!/usr/bin/perl -w

use strict;
use warnings;

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