]>
git.proxmox.com Git - pve-access-control.git/blob - test/auth-test.pl
5 use PVE
::AccessControl
;
8 die "Username missing" if !$username;
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: ');
18 my $password = read_password
();
19 PVE
::AccessControl
::authenticate_user
($username,$password);
21 print "Authentication Successful!!\n";