PVE/Network/SDN/VnetPlugin.pm

   1 package PVE::Network::SDN::VnetPlugin;
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::Cluster qw(cfs_read_file cfs_write_file cfs_lock_file);
   7 use base qw(PVE::SectionConfig);
   8 use PVE::JSONSchema qw(get_standard_option);
   9
  10 PVE::Cluster::cfs_register_file('sdn/vnets.cfg',
  11                                  sub { __PACKAGE__->parse_config(@_); },
  12                                  sub { __PACKAGE__->write_config(@_); });
  13
  14 PVE::JSONSchema::register_standard_option('pve-sdn-vnet-id', {
  15     description => "The SDN vnet object identifier.",
  16     type => 'string', format => 'pve-sdn-vnet-id',
  17 });
  18
  19 PVE::JSONSchema::register_format('pve-sdn-vnet-id', \&parse_sdn_vnet_id);
  20 sub parse_sdn_vnet_id {
  21     my ($id, $noerr) = @_;
  22
  23     if ($id !~ m/^[a-z][a-z0-9]*[a-z0-9]$/i) {
  24         return undef if $noerr;
  25         die "vnet ID '$id' contains illegal characters\n";
  26     }
  27     die "vnet ID '$id' can't be more length than 8 characters\n" if length($id) > 8;
  28     return $id;
  29 }
  30
  31 my $defaultData = {
  32
  33     propertyList => {
  34         vnet => get_standard_option('pve-sdn-vnet-id',
  35             { completion => \&PVE::Network::SDN::Vnets::complete_sdn_vnet }),
  36     },
  37 };
  38
  39 sub type {
  40     return 'vnet';
  41 }
  42
  43 sub private {
  44     return $defaultData;
  45 }
  46
  47 sub properties {
  48     return {
  49         zone => {
  50             type => 'string',
  51             description => "zone id",
  52         },
  53         type => {
  54             description => "Type",
  55             optional => 1,
  56         },
  57         tag => {
  58             type => 'integer',
  59             description => "vlan or vxlan id",
  60         },
  61         alias => {
  62             type => 'string',
  63             description => "alias name of the vnet",
  64             optional => 1,
  65         },
  66         ipv4 => {
  67             description => "Anycast router ipv4 address.",
  68             type => 'string', format => 'CIDRv4',
  69             optional => 1,
  70         },
  71         ipv6 => {
  72             description => "Anycast router ipv6 address.",
  73             type => 'string', format => 'CIDRv6',
  74             optional => 1,
  75         },
  76         mac => {
  77             type => 'string',
  78             description => "Anycast router mac address",
  79             optional => 1, format => 'mac-addr'
  80         }
  81     };
  82 }
  83
  84 sub options {
  85     return {
  86         zone => { optional => 0},
  87         tag => { optional => 0},
  88         alias => { optional => 1 },
  89         ipv4 => { optional => 1 },
  90         ipv6 => { optional => 1 },
  91         mac => { optional => 1 },
  92     };
  93 }
  94
  95 sub on_delete_hook {
  96     my ($class, $sdnid, $vnet_cfg) = @_;
  97
  98     return;
  99 }
 100
 101 sub on_update_hook {
 102     my ($class, $vnetid, $vnet_cfg) = @_;
 103     # verify that tag is not already defined in another vnet
 104     if (defined($vnet_cfg->{ids}->{$vnetid}->{tag})) {
 105         my $tag = $vnet_cfg->{ids}->{$vnetid}->{tag};
 106         foreach my $id (keys %{$vnet_cfg->{ids}}) {
 107             next if $id eq $vnetid;
 108             my $vnet = $vnet_cfg->{ids}->{$id};
 109             if ($vnet->{type} eq 'vnet' && defined($vnet->{tag})) {
 110                 die "tag $tag already exist in vnet $id" if $tag eq $vnet->{tag};
 111             }
 112         }
 113     }
 114 }
 115
 116 1;