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     };
  20 }
  21
  22 sub options {
  23
  24     return {
  25         nodes => { optional => 1},
  26         'tag' => { optional => 0 },
  27         'bridge' => { optional => 0 },
  28     };
  29 }
  30
  31 # Plugin implementation
  32 sub generate_sdn_config {
  33     my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $interfaces_config, $config) = @_;
  34
  35     my $tag = $plugin_config->{tag};
  36     my $mtu = $plugin_config->{mtu};
  37     my $bridge = $plugin_config->{'bridge'};
  38
  39     die "missing vlan tag" if !$tag;
  40
  41     if (!$config->{$zoneid}) {
  42         #zone vlan bridge
  43         my @iface_config = ();
  44         push @iface_config, "mtu $mtu" if $mtu;
  45         push @iface_config, "bridge-stp off";
  46         push @iface_config, "bridge-fd 0";
  47         push @iface_config, "bridge-vlan-aware yes";
  48         push @iface_config, "bridge-vids 2-4094";
  49         push(@{$config->{$zoneid}}, @iface_config);
  50
  51         #main bridge. ifupdown2 will merge it
  52         @iface_config = ();
  53         push @iface_config, "bridge-ports $zoneid.$tag";
  54         push(@{$config->{$bridge}}, @iface_config);
  55         return $config;
  56     }
  57 }
  58
  59 sub status {
  60     my ($class, $plugin_config, $zone, $id, $vnet, $err_config, $status, $vnet_status, $zone_status) = @_;
  61
  62     my $bridge = $plugin_config->{bridge};
  63     $vnet_status->{$id}->{zone} = $zone;
  64     $zone_status->{$zone}->{status} = 'available' if !defined($zone_status->{$zone}->{status});
  65
  66     if($err_config) {
  67         $vnet_status->{$id}->{status} = 'pending';
  68         $vnet_status->{$id}->{statusmsg} = $err_config;
  69         $zone_status->{$zone}->{status} = 'pending';
  70     } elsif ($status->{$bridge}->{status} && $status->{$bridge}->{status} eq 'pass') {
  71         $vnet_status->{$id}->{status} = 'available';
  72     } else {
  73         $vnet_status->{$id}->{status} = 'error';
  74         $vnet_status->{$id}->{statusmsg} = 'missing bridge';
  75         $zone_status->{$zone}->{status} = 'error';
  76     }
  77 }
  78
  79 1;
  80
  81