replace read_password with param_mapping
[pve-access-control.git] / test / auth-test.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use PVE::PTY;
5 use PVE::AccessControl;
6
7 my $username = shift;
8 die "Username missing" if !$username;
9
10 my $password = PVE::PTY::read_password('password: ');
11 PVE::AccessControl::authenticate_user($username,$password);
12
13 print "Authentication Successful!!\n";
14
15 exit (0);