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);