PVE/Network/SDN/Zones/QinQPlugin.pm

   1 package PVE::Network::SDN::Zones::QinQPlugin;
   2
   3 use strict;
   4 use warnings;
   5 use PVE::Network::SDN::Zones::VlanPlugin;
   6
   7 use base('PVE::Network::SDN::Zones::VlanPlugin');
   8
   9 sub type {
  10     return 'qinq';
  11 }
  12
  13 sub properties {
  14     return {
  15         tag => {
  16             type => 'integer',
  17             description => "vlan tag",
  18         },
  19         mtu => {
  20             type => 'integer',
  21             description => "mtu",
  22             optional => 1,
  23         },
  24     };
  25 }
  26
  27 sub options {
  28
  29     return {
  30         nodes => { optional => 1},
  31         'tag' => { optional => 0 },
  32         'bridge' => { optional => 0 },
  33         'mtu' => { optional => 1 },
  34     };
  35 }
  36
  37 # Plugin implementation
  38 sub generate_sdn_config {
  39     my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $interfaces_config, $config) = @_;
  40
  41     my $tag = $plugin_config->{tag};
  42     my $mtu = $plugin_config->{mtu};
  43     my $bridge = $plugin_config->{'bridge'};
  44
  45     die "missing vlan tag" if !$tag;
  46
  47     if (!$config->{$zoneid}) {
  48         #zone vlan bridge
  49         my @iface_config = ();
  50         push @iface_config, "mtu $mtu" if $mtu;
  51         push @iface_config, "bridge-stp off";
  52         push @iface_config, "bridge-fd 0";
  53         push @iface_config, "bridge-vlan-aware yes";
  54         push @iface_config, "bridge-vids 2-4094";
  55         push(@{$config->{$zoneid}}, @iface_config);
  56
  57         #main bridge. ifupdown2 will merge it
  58         @iface_config = ();
  59         push @iface_config, "bridge-ports $zoneid.$tag";
  60         push(@{$config->{$bridge}}, @iface_config);
  61         return $config;
  62     }
  63 }
  64
  65 sub status {
  66     my ($class, $plugin_config, $zone, $id, $vnet, $err_config, $status, $vnet_status, $zone_status) = @_;
  67
  68     my $bridge = $plugin_config->{bridge};
  69     $vnet_status->{$id}->{zone} = $zone;
  70     $zone_status->{$zone}->{status} = 'available' if !defined($zone_status->{$zone}->{status});
  71
  72     if($err_config) {
  73         $vnet_status->{$id}->{status} = 'pending';
  74         $vnet_status->{$id}->{statusmsg} = $err_config;
  75         $zone_status->{$zone}->{status} = 'pending';
  76     } elsif ($status->{$bridge}->{status} && $status->{$bridge}->{status} eq 'pass') {
  77         $vnet_status->{$id}->{status} = 'available';
  78     } else {
  79         $vnet_status->{$id}->{status} = 'error';
  80         $vnet_status->{$id}->{statusmsg} = 'missing bridge';
  81         $zone_status->{$zone}->{status} = 'error';
  82     }
  83 }
  84
  85 sub get_bridge_vlan {
  86     my ($class, $plugin_config, $vnetid, $tag) = @_;
  87
  88     my $bridge = $plugin_config->{bridge};
  89     die "bridge $bridge is missing" if !-d "/sys/class/net/$bridge/";
  90
  91     my $vlan_aware = PVE::Tools::file_read_firstline("/sys/class/net/$bridge/bridge/vlan_filtering");
  92     my $is_ovs = 1 if !-d "/sys/class/net/$bridge/brif";
  93
  94     die "ovs $bridge is not supported by qinq" if $is_ovs;
  95     die "bridge $bridge is not vlan aware" if !$vlan_aware;
  96
  97     return ($bridge, $tag);
  98 }
  99
 100 1;
 101
 102