1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
package PVE::API2::Network::SDN::Content;
use strict;
use warnings;
use Data::Dumper;
use PVE::SafeSyslog;
use PVE::Cluster;
use PVE::Storage;
use PVE::INotify;
use PVE::Exception qw(raise_param_exc);
use PVE::RPCEnvironment;
use PVE::RESTHandler;
use PVE::JSONSchema qw(get_standard_option);
use PVE::Network::SDN;
use base qw(PVE::RESTHandler);
__PACKAGE__->register_method ({
name => 'index',
path => '',
method => 'GET',
description => "List transportzone content.",
# permissions => {
# check => ['perm', '/sdn/{sdn}', ['SDN.Audit'], any => 1],
# },
protected => 1,
proxyto => 'node',
parameters => {
additionalProperties => 0,
properties => {
node => get_standard_option('pve-node'),
sdn => get_standard_option('pve-sdn-id', {
completion => \&PVE::Network::SDN::complete_sdn,
}),
},
},
returns => {
type => 'array',
items => {
type => "object",
properties => {
vnet => {
description => "Vnet identifier.",
type => 'string',
},
status => {
description => "Status.",
type => 'string',
optional => 1,
},
},
},
links => [ { rel => 'child', href => "{vnet}" } ],
},
code => sub {
my ($param) = @_;
my $rpcenv = PVE::RPCEnvironment::get();
my $authuser = $rpcenv->get_user();
my $transportid = $param->{sdn};
my $res = [];
my ($transport_status, $vnet_status) = PVE::Network::SDN::status();
foreach my $id (keys %{$vnet_status}) {
if ($vnet_status->{$id}->{transportzone} eq $transportid) {
my $item->{vnet} = $id;
$item->{status} = $vnet_status->{$id}->{'status'};
push @$res,$item;
}
}
return $res;
}});
1;
|
