summaryrefslogtreecommitdiff
path: root/PVE/API2/Network/SDN/Ipams.pm
diff options
context:
space:
mode:
authorThomas Lamprecht <t.lamprecht@proxmox.com>2023-05-25 18:10:14 +0200
committerThomas Lamprecht <t.lamprecht@proxmox.com>2023-05-25 18:18:57 +0200
commit6029cbb071c3722c717eebbafaf1b373f3edaadc (patch)
tree456d7aff44d2ae220d1671f77da7528174d53fe6 /PVE/API2/Network/SDN/Ipams.pm
parentcead0f28af4aceee83af6636d4f5ffb2d2f6c6b1 (diff)
separate packaging and source build system
like almost all of our repos do nowadays, modern git can detect such things on rebase so in development stuff should be hopefully not too much affected by this. Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
Diffstat (limited to 'PVE/API2/Network/SDN/Ipams.pm')
-rw-r--r--PVE/API2/Network/SDN/Ipams.pm248
1 files changed, 0 insertions, 248 deletions
diff --git a/PVE/API2/Network/SDN/Ipams.pm b/PVE/API2/Network/SDN/Ipams.pm
deleted file mode 100644
index 6410e8e..0000000
--- a/PVE/API2/Network/SDN/Ipams.pm
+++ /dev/null
@@ -1,248 +0,0 @@
-package PVE::API2::Network::SDN::Ipams;
-
-use strict;
-use warnings;
-
-use PVE::SafeSyslog;
-use PVE::Tools qw(extract_param);
-use PVE::Cluster qw(cfs_read_file cfs_write_file);
-use PVE::Network::SDN;
-use PVE::Network::SDN::Ipams;
-use PVE::Network::SDN::Ipams::Plugin;
-use PVE::Network::SDN::Ipams::PVEPlugin;
-use PVE::Network::SDN::Ipams::PhpIpamPlugin;
-use PVE::Network::SDN::Ipams::NetboxPlugin;
-
-use Storable qw(dclone);
-use PVE::JSONSchema qw(get_standard_option);
-use PVE::RPCEnvironment;
-
-use PVE::RESTHandler;
-
-use base qw(PVE::RESTHandler);
-
-my $sdn_ipams_type_enum = PVE::Network::SDN::Ipams::Plugin->lookup_types();
-
-my $api_sdn_ipams_config = sub {
- my ($cfg, $id) = @_;
-
- my $scfg = dclone(PVE::Network::SDN::Ipams::sdn_ipams_config($cfg, $id));
- $scfg->{ipam} = $id;
- $scfg->{digest} = $cfg->{digest};
-
- return $scfg;
-};
-
-__PACKAGE__->register_method ({
- name => 'index',
- path => '',
- method => 'GET',
- description => "SDN ipams index.",
- permissions => {
- description => "Only list entries where you have 'SDN.Audit' or 'SDN.Allocate' permissions on '/sdn/ipams/<ipam>'",
- user => 'all',
- },
- parameters => {
- additionalProperties => 0,
- properties => {
- type => {
- description => "Only list sdn ipams of specific type",
- type => 'string',
- enum => $sdn_ipams_type_enum,
- optional => 1,
- },
- },
- },
- returns => {
- type => 'array',
- items => {
- type => "object",
- properties => { ipam => { type => 'string'},
- type => { type => 'string'},
- },
- },
- links => [ { rel => 'child', href => "{ipam}" } ],
- },
- code => sub {
- my ($param) = @_;
-
- my $rpcenv = PVE::RPCEnvironment::get();
- my $authuser = $rpcenv->get_user();
-
-
- my $cfg = PVE::Network::SDN::Ipams::config();
-
- my @sids = PVE::Network::SDN::Ipams::sdn_ipams_ids($cfg);
- my $res = [];
- foreach my $id (@sids) {
- my $privs = [ 'SDN.Audit', 'SDN.Allocate' ];
- next if !$rpcenv->check_any($authuser, "/sdn/ipams/$id", $privs, 1);
-
- my $scfg = &$api_sdn_ipams_config($cfg, $id);
- next if $param->{type} && $param->{type} ne $scfg->{type};
-
- my $plugin_config = $cfg->{ids}->{$id};
- my $plugin = PVE::Network::SDN::Ipams::Plugin->lookup($plugin_config->{type});
- push @$res, $scfg;
- }
-
- return $res;
- }});
-
-__PACKAGE__->register_method ({
- name => 'read',
- path => '{ipam}',
- method => 'GET',
- description => "Read sdn ipam configuration.",
- permissions => {
- check => ['perm', '/sdn/ipams/{ipam}', ['SDN.Allocate']],
- },
-
- parameters => {
- additionalProperties => 0,
- properties => {
- ipam => get_standard_option('pve-sdn-ipam-id'),
- },
- },
- returns => { type => 'object' },
- code => sub {
- my ($param) = @_;
-
- my $cfg = PVE::Network::SDN::Ipams::config();
-
- return &$api_sdn_ipams_config($cfg, $param->{ipam});
- }});
-
-__PACKAGE__->register_method ({
- name => 'create',
- protected => 1,
- path => '',
- method => 'POST',
- description => "Create a new sdn ipam object.",
- permissions => {
- check => ['perm', '/sdn/ipams', ['SDN.Allocate']],
- },
- parameters => PVE::Network::SDN::Ipams::Plugin->createSchema(),
- returns => { type => 'null' },
- code => sub {
- my ($param) = @_;
-
- my $type = extract_param($param, 'type');
- my $id = extract_param($param, 'ipam');
-
- my $plugin = PVE::Network::SDN::Ipams::Plugin->lookup($type);
- my $opts = $plugin->check_config($id, $param, 1, 1);
-
- # create /etc/pve/sdn directory
- PVE::Cluster::check_cfs_quorum();
- mkdir("/etc/pve/sdn");
-
- PVE::Network::SDN::lock_sdn_config(
- sub {
-
- my $ipam_cfg = PVE::Network::SDN::Ipams::config();
- my $controller_cfg = PVE::Network::SDN::Controllers::config();
-
- my $scfg = undef;
- if ($scfg = PVE::Network::SDN::Ipams::sdn_ipams_config($ipam_cfg, $id, 1)) {
- die "sdn ipam object ID '$id' already defined\n";
- }
-
- $ipam_cfg->{ids}->{$id} = $opts;
-
- my $plugin_config = $opts;
- my $plugin = PVE::Network::SDN::Ipams::Plugin->lookup($plugin_config->{type});
- $plugin->on_update_hook($plugin_config);
-
- PVE::Network::SDN::Ipams::write_config($ipam_cfg);
-
- }, "create sdn ipam object failed");
-
- return undef;
- }});
-
-__PACKAGE__->register_method ({
- name => 'update',
- protected => 1,
- path => '{ipam}',
- method => 'PUT',
- description => "Update sdn ipam object configuration.",
- permissions => {
- check => ['perm', '/sdn/ipams', ['SDN.Allocate']],
- },
- parameters => PVE::Network::SDN::Ipams::Plugin->updateSchema(),
- returns => { type => 'null' },
- code => sub {
- my ($param) = @_;
-
- my $id = extract_param($param, 'ipam');
- my $digest = extract_param($param, 'digest');
-
- PVE::Network::SDN::lock_sdn_config(
- sub {
-
- my $ipam_cfg = PVE::Network::SDN::Ipams::config();
-
- PVE::SectionConfig::assert_if_modified($ipam_cfg, $digest);
-
- my $scfg = PVE::Network::SDN::Ipams::sdn_ipams_config($ipam_cfg, $id);
-
- my $plugin = PVE::Network::SDN::Ipams::Plugin->lookup($scfg->{type});
- my $opts = $plugin->check_config($id, $param, 0, 1);
-
- foreach my $k (%$opts) {
- $scfg->{$k} = $opts->{$k};
- }
-
- $plugin->on_update_hook($scfg);
-
- PVE::Network::SDN::Ipams::write_config($ipam_cfg);
-
- }, "update sdn ipam object failed");
-
- return undef;
- }});
-
-__PACKAGE__->register_method ({
- name => 'delete',
- protected => 1,
- path => '{ipam}',
- method => 'DELETE',
- description => "Delete sdn ipam object configuration.",
- permissions => {
- check => ['perm', '/sdn/ipams', ['SDN.Allocate']],
- },
- parameters => {
- additionalProperties => 0,
- properties => {
- ipam => get_standard_option('pve-sdn-ipam-id', {
- completion => \&PVE::Network::SDN::Ipams::complete_sdn_ipams,
- }),
- },
- },
- returns => { type => 'null' },
- code => sub {
- my ($param) = @_;
-
- my $id = extract_param($param, 'ipam');
-
- PVE::Network::SDN::lock_sdn_config(
- sub {
-
- my $cfg = PVE::Network::SDN::Ipams::config();
-
- my $scfg = PVE::Network::SDN::Ipams::sdn_ipams_config($cfg, $id);
-
- my $plugin = PVE::Network::SDN::Ipams::Plugin->lookup($scfg->{type});
-
- my $vnet_cfg = PVE::Network::SDN::Vnets::config();
-
- delete $cfg->{ids}->{$id};
- PVE::Network::SDN::Ipams::write_config($cfg);
-
- }, "delete sdn zone object failed");
-
- return undef;
- }});
-
-1;