]>
git.proxmox.com Git - pve-network.git/blob - PVE/Network/SDN.pm
1 package PVE
::Network
::SDN
;
9 use PVE
::Network
::SDN
::Zones
;
11 use PVE
::Tools
qw(extract_param dir_glob_regex run_command);
12 use PVE
::Cluster
qw(cfs_read_file cfs_write_file cfs_lock_file);
14 # improve me : move status code inside plugins ?
18 my $cmd = ['ifquery', '-a', '-c', '-o','json'];
21 my $reader = sub { $result .= shift };
24 run_command
($cmd, outfunc
=> $reader);
27 my $resultjson = decode_json
($result);
30 foreach my $interface (@$resultjson) {
31 my $name = $interface->{name
};
32 $interfaces->{$name} = {
33 status
=> $interface->{status
},
34 config
=> $interface->{config
},
35 config_status
=> $interface->{config_status
},
44 my ($transport_status, $vnet_status) = PVE
::Network
::SDN
::Zones
::status
();
45 return($transport_status, $vnet_status);