#!eusr/bin/perl

use strict;
use warnings;

use lib './lib';
use Net::Proxmox::VE;
use Data::Dumper;
use Getopt::Long;

my $host     = 'host';
my $username = 'root';
my $password = 'password';
my $debug    = undef;

GetOptions (
    'host=s'     => \$host,
    'username=s' => \$username,
    'password=s' => \$password,
    'debug'      => \$debug,
);

my $pve = Net::Proxmox::VE->new(
    host     => $host,
    username => $username,
    password => $password,
    debug    => $debug,
);

die "login failed\n"         unless $pve->login;
die "invalid login ticket\n" unless $pve->check_login_ticket;
die "unsupport api version\n" unless $pve->api_version_check;

# list nodes in cluster
print $pve->get('/nodes')
    ? "INFO: List Nodes Successful\n"
    : "WARNING: List Nodes Failed\n";

# list users in cluster
print $pve->get('/access/users')
    ? "INFO: List Users Successful\n"
    : "WARNING: List Users Failed\n";

# Create a test user
print $pve->put('/access/users',{'userid' => 'testuser@foobar'})
    ? "INFO: Create User Successful\n"
    : "WARNING: Create User Failed\n";

# Delete a test user
print $pve->delete('/access/users/testuser@foobar')
    ? "INFO: Delete User Successful\n"
    : "WARNING: Delete User Failed\n";