#!/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');