forked from Mirror/pve-network
7c5b0f6daf
linux have 16 characters limit for interfaces, but we can prepend "vxlan", "vrf",... when we generate interfaces Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
126 lines
3.1 KiB
Perl
126 lines
3.1 KiB
Perl
package PVE::Network::SDN::VnetPlugin;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PVE::Cluster qw(cfs_read_file cfs_write_file cfs_lock_file);
|
|
use base qw(PVE::SectionConfig);
|
|
use PVE::JSONSchema qw(get_standard_option);
|
|
|
|
PVE::Cluster::cfs_register_file('sdn/vnets.cfg',
|
|
sub { __PACKAGE__->parse_config(@_); });
|
|
|
|
PVE::Cluster::cfs_register_file('sdn/vnets.cfg.new',
|
|
sub { __PACKAGE__->parse_config(@_); },
|
|
sub { __PACKAGE__->write_config(@_); });
|
|
|
|
PVE::JSONSchema::register_standard_option('pve-sdn-vnet-id', {
|
|
description => "The SDN vnet object identifier.",
|
|
type => 'string', format => 'pve-sdn-vnet-id',
|
|
});
|
|
|
|
PVE::JSONSchema::register_format('pve-sdn-vnet-id', \&parse_sdn_vnet_id);
|
|
sub parse_sdn_vnet_id {
|
|
my ($id, $noerr) = @_;
|
|
|
|
if ($id !~ m/^[a-z][a-z0-9]*[a-z0-9]$/i) {
|
|
return undef if $noerr;
|
|
die "vnet ID '$id' contains illegal characters\n";
|
|
}
|
|
die "vnet ID '$id' can't be more length than 10 characters\n" if length($id) > 10;
|
|
return $id;
|
|
}
|
|
|
|
my $defaultData = {
|
|
|
|
propertyList => {
|
|
vnet => get_standard_option('pve-sdn-vnet-id',
|
|
{ completion => \&PVE::Network::SDN::Vnets::complete_sdn_vnet }),
|
|
},
|
|
};
|
|
|
|
sub type {
|
|
return 'vnet';
|
|
}
|
|
|
|
sub private {
|
|
return $defaultData;
|
|
}
|
|
|
|
sub properties {
|
|
return {
|
|
zone => {
|
|
type => 'string',
|
|
description => "zone id",
|
|
},
|
|
type => {
|
|
description => "Type",
|
|
optional => 1,
|
|
},
|
|
tag => {
|
|
type => 'integer',
|
|
description => "vlan or vxlan id",
|
|
},
|
|
alias => {
|
|
type => 'string',
|
|
description => "alias name of the vnet",
|
|
optional => 1,
|
|
},
|
|
mtu => {
|
|
type => 'integer',
|
|
description => "mtu",
|
|
optional => 1,
|
|
},
|
|
ipv4 => {
|
|
description => "Anycast router ipv4 address.",
|
|
type => 'string', format => 'CIDRv4',
|
|
optional => 1,
|
|
},
|
|
ipv6 => {
|
|
description => "Anycast router ipv6 address.",
|
|
type => 'string', format => 'CIDRv6',
|
|
optional => 1,
|
|
},
|
|
mac => {
|
|
type => 'string',
|
|
description => "Anycast router mac address",
|
|
optional => 1, format => 'mac-addr'
|
|
}
|
|
};
|
|
}
|
|
|
|
sub options {
|
|
return {
|
|
zone => { optional => 0},
|
|
tag => { optional => 0},
|
|
alias => { optional => 1 },
|
|
ipv4 => { optional => 1 },
|
|
ipv6 => { optional => 1 },
|
|
mtu => { optional => 1 },
|
|
mac => { optional => 1 },
|
|
};
|
|
}
|
|
|
|
sub on_delete_hook {
|
|
my ($class, $sdnid, $sdn_cfg) = @_;
|
|
|
|
return;
|
|
}
|
|
|
|
sub on_update_hook {
|
|
my ($class, $sdnid, $sdn_cfg) = @_;
|
|
# verify that tag is not already defined in another vnet
|
|
if (defined($sdn_cfg->{ids}->{$sdnid}->{tag})) {
|
|
my $tag = $sdn_cfg->{ids}->{$sdnid}->{tag};
|
|
foreach my $id (keys %{$sdn_cfg->{ids}}) {
|
|
next if $id eq $sdnid;
|
|
my $sdn = $sdn_cfg->{ids}->{$id};
|
|
if ($sdn->{type} eq 'vnet' && defined($sdn->{tag})) {
|
|
die "tag $tag already exist in vnet $id" if $tag eq $sdn->{tag};
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|