mirror of
https://git.proxmox.com/git/pve-access-control
synced 2025-06-04 01:53:03 +00:00
23 lines
638 B
Perl
Executable File
23 lines
638 B
Perl
Executable File
#!/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');
|