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

#!/usr/bin/perl -w 

use strict;
use PVE::AccessControl;

# create ticket using username and password
#my $ticket =  PVE::AccessControl::create_ticket(undef, $username, $password);

# create ticket using ident auth
my $login = getpwuid($<);
my $username = ($< == 0) ? 'root' : "$login\@localhost";
my $ticket = PVE::AccessControl::create_ticket(undef, $username);
print "got ticket using ident auth: $ticket\n";

for (my $i = 0; $i < 1; $i++) { 
    $ticket =  PVE::AccessControl::create_ticket($ticket, $username);
    print "renewed ticket: $ticket\n";
}

my $user = 'testuser';

PVE::AccessControl::add_user($ticket, $user, 'testpw');
Commit	Line	Data
2c3a6c0a DM	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use PVE::AccessControl;
	5
	6	# create ticket using username and password
	7	#my $ticket = PVE::AccessControl::create_ticket(undef, $username, $password);
	8
	9	# create ticket using ident auth
	10	my $login = getpwuid($<);
	11	my $username = ($< == 0) ? 'root' : "$login\@localhost";
	12	my $ticket = PVE::AccessControl::create_ticket(undef, $username);
	13	print "got ticket using ident auth: $ticket\n";
	14
	15	for (my $i = 0; $i < 1; $i++) {
	16	$ticket = PVE::AccessControl::create_ticket($ticket, $username);
	17	print "renewed ticket: $ticket\n";
	18	}
	19
	20	my $user = 'testuser';
	21
	22	PVE::AccessControl::add_user($ticket, $user, 'testpw');