Sergey Antropoff
48df10b17e
- Harden DB-backed handlers and seed profiles; align client wire shapes for cluster resources, QEMU config, and node SSL fields - Serve plain HTTP on Compose :8006; keep TLS optional (--profile tls) and terminate HTTPS at Kubernetes Ingress - Add pulumi-tests (full contract surface majors 6–9 + BPG lifecycle) and make pulumi-tests - Ship bilingual docs, CHANGELOG, SECURITY, CONTRIBUTING, and GitHub Actions (make ci + Compose/Helm validation)
55 lines
1.8 KiB
Perl
55 lines
1.8 KiB
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use HTTP::Tiny;
|
|
use JSON qw(decode_json encode_json);
|
|
|
|
sub uri_escape {
|
|
my ($value) = @_;
|
|
$value =~ s/([^A-Za-z0-9\-\._~])/sprintf('%%%02X', ord($1))/eg;
|
|
return $value;
|
|
}
|
|
|
|
my $base = $ENV{PVE_BASE} // 'https://localhost:8006/api2/json';
|
|
my $node = $ENV{PVE_NODE} // 'pve01';
|
|
my $vmid = $ENV{PVE_VMID} // '115';
|
|
my $token = $ENV{PVE_API_TOKEN} // 'root@pam!automation=automation-secret';
|
|
my $auth = "PVEAPIToken=$token";
|
|
my $http = HTTP::Tiny->new(timeout => 60);
|
|
|
|
sub api {
|
|
my ($method, $path, $body) = @_;
|
|
my %opts = (headers => { Authorization => $auth });
|
|
if (defined $body) {
|
|
$opts{headers}{'Content-Type'} = 'application/x-www-form-urlencoded';
|
|
$opts{content} = $body;
|
|
}
|
|
my $res = $http->request($method, "$base$path", \%opts);
|
|
die "$method $path failed: $res->{status} $res->{content}\n" unless $res->{success};
|
|
my $json = decode_json($res->{content});
|
|
return $json->{data};
|
|
}
|
|
|
|
sub wait_task {
|
|
my ($upid) = @_;
|
|
my $deadline = time + 120;
|
|
while (time < $deadline) {
|
|
my $status = api('GET', "/nodes/$node/tasks/" . uri_escape($upid) . '/status');
|
|
return if ref $status eq 'HASH' && ($status->{status} // '') eq 'stopped';
|
|
select(undef, undef, undef, 0.5);
|
|
}
|
|
die "timeout waiting for $upid\n";
|
|
}
|
|
|
|
print "version: ", encode_json(api('GET', '/version')), "\n";
|
|
my $upid = api('POST', "/nodes/$node/qemu", "vmid=$vmid&name=perl-$vmid&cores=1&memory=512");
|
|
wait_task($upid);
|
|
$upid = api('POST', "/nodes/$node/qemu/$vmid/status/start");
|
|
wait_task($upid);
|
|
print "status: ", encode_json(api('GET', "/nodes/$node/qemu/$vmid/status/current")), "\n";
|
|
$upid = api('POST', "/nodes/$node/qemu/$vmid/status/stop");
|
|
wait_task($upid);
|
|
$upid = api('DELETE', "/nodes/$node/qemu/$vmid");
|
|
wait_task($upid);
|
|
print "ok\n";
|