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::Plugin;
   6
   7 use base('PVE::Network::SDN::Zones::Plugin');
   8
   9 sub type {
  10     return 'qinq';
  11 }
  12
  13 sub properties {
  14     return {
  15         tag => {
  16             type => 'integer',
  17             minimum => 0,
  18             description => "Service-VLAN Tag",
  19         },
  20         mtu => {
  21             type => 'integer',
  22             description => "MTU",
  23             optional => 1,
  24         },
  25        'vlan-protocol' => {
  26             type => 'string',
  27             enum => ['802.1q', '802.1ad'],
  28             default => '802.1q',
  29             optional => 1,
  30         }
  31     };
  32 }
  33
  34 sub options {
  35
  36     return {
  37         nodes => { optional => 1},
  38         'tag' => { optional => 0 },
  39         'bridge' => { optional => 0 },
  40         'mtu' => { optional => 1 },
  41         'vlan-protocol' => { optional => 1 },
  42     };
  43 }
  44
  45 # Plugin implementation
  46 sub generate_sdn_config {
  47     my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $interfaces_config, $config) = @_;
  48
  49     my $stag = $plugin_config->{tag};
  50     my $mtu = $plugin_config->{mtu};
  51     my $bridge = $plugin_config->{'bridge'};
  52     my $vlanprotocol = $plugin_config->{'vlan-protocol'};
  53     my $ctag = $vnet->{tag};
  54     my $alias = $vnet->{alias};
  55     die "can't find bridge $bridge" if !-d "/sys/class/net/$bridge";
  56
  57     my $vlan_aware = PVE::Tools::file_read_firstline("/sys/class/net/$bridge/bridge/vlan_filtering");
  58     my $is_ovs = 1 if !-d "/sys/class/net/$bridge/brif";
  59
  60     my @iface_config = ();
  61     my $vnet_bridge_ports = "";
  62
  63     if($is_ovs) {
  64
  65         #ovs--->ovsintport(dot1q-tunnel tag)------->vlanawarebrige-----(tag)--->vnet
  66
  67         $vlanprotocol = "802.1q" if !$vlanprotocol;
  68         my $svlan_iface = "sv_".$zoneid;
  69         my $zone = "z_$zoneid";
  70
  71         #ovs dot1q-tunnel port
  72         @iface_config = ();
  73         push @iface_config, "ovs_type OVSIntPort";
  74         push @iface_config, "ovs_bridge $bridge";
  75         push @iface_config, "ovs_mtu $mtu" if $mtu;
  76         push @iface_config, "ovs_options vlan_mode=dot1q-tunnel tag=$stag other_config:qinq-ethtype=$vlanprotocol";
  77         push(@{$config->{$svlan_iface}}, @iface_config) if !$config->{$svlan_iface};
  78
  79         #redefine main ovs bridge, ifupdown2 will merge ovs_ports
  80         @iface_config = ();
  81         push @iface_config, "ovs_ports $svlan_iface";
  82         push(@{$config->{$bridge}}, @iface_config);
  83
  84         #zone vlan aware bridge
  85         @iface_config = ();
  86         push @iface_config, "mtu $mtu" if $mtu;
  87         push @iface_config, "bridge-stp off";
  88         push @iface_config, "bridge-ports $svlan_iface";
  89         push @iface_config, "bridge-fd 0";
  90         push @iface_config, "bridge-vlan-aware yes";
  91         push @iface_config, "bridge-vids 2-4094";
  92         push(@{$config->{$zone}}, @iface_config) if !$config->{$zone};
  93
  94         $vnet_bridge_ports = "$zone.$ctag";
  95
  96     } elsif ($vlan_aware) {
  97
  98         #vlanawarebrige-(tag)----->vlanwarebridge-(tag)----->vnet
  99
 100         my $zone = "z_$zoneid";
 101
 102         if($vlanprotocol) {
 103             @iface_config = ();
 104             push @iface_config, "bridge-vlan-protocol $vlanprotocol";
 105             push(@{$config->{$bridge}}, @iface_config) if !$config->{$bridge};
 106         }
 107
 108         #zone vlan bridge
 109         @iface_config = ();
 110         push @iface_config, "mtu $mtu" if $mtu;
 111         push @iface_config, "bridge-stp off";
 112         push @iface_config, "bridge-ports $bridge.$stag";
 113         push @iface_config, "bridge-fd 0";
 114         push @iface_config, "bridge-vlan-aware yes";
 115         push @iface_config, "bridge-vids 2-4094";
 116         push(@{$config->{$zone}}, @iface_config) if !$config->{$zone};
 117
 118         $vnet_bridge_ports = "$zone.$ctag";
 119
 120     } else {
 121
 122         #eth--->eth.x(svlan)--->eth.x.y(cvlan)---->vnet
 123
 124         my @bridge_ifaces = ();
 125         my $dir = "/sys/class/net/$bridge/brif";
 126         PVE::Tools::dir_glob_foreach($dir, '(((eth|bond)\d+|en[^.]+)(\.\d+)?)', sub {
 127             push @bridge_ifaces, $_[0];
 128         });
 129
 130         foreach my $bridge_iface (@bridge_ifaces) {
 131
 132             # use named vlan interface to avoid too long names
 133             my $svlan_iface = "sv_$vnetid";
 134             my $cvlan_iface = "cv_$vnetid";
 135
 136             #svlan
 137             @iface_config = ();
 138             push @iface_config, "vlan-raw-device $bridge_iface";
 139             push @iface_config, "vlan-id $stag";
 140             push @iface_config, "vlan-protocol $vlanprotocol" if $vlanprotocol;
 141             push(@{$config->{$svlan_iface}}, @iface_config) if !$config->{$svlan_iface};
 142
 143             #cvlan
 144             @iface_config = ();
 145             push @iface_config, "vlan-raw-device $svlan_iface";
 146             push @iface_config, "vlan-id $ctag";
 147             push(@{$config->{$cvlan_iface}}, @iface_config) if !$config->{$cvlan_iface};
 148
 149             $vnet_bridge_ports .= " $cvlan_iface";
 150         }
 151    }
 152
 153     #vnet bridge
 154     @iface_config = ();
 155     push @iface_config, "bridge_ports $vnet_bridge_ports";
 156     push @iface_config, "bridge_stp off";
 157     push @iface_config, "bridge_fd 0";
 158     if($vnet->{vlanaware}) {
 159         push @iface_config, "bridge-vlan-aware yes";
 160         push @iface_config, "bridge-vids 2-4094";
 161     }
 162     push @iface_config, "mtu $mtu" if $mtu;
 163     push @iface_config, "alias $alias" if $alias;
 164     push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid};
 165
 166 }
 167
 168 sub status {
 169     my ($class, $plugin_config, $zone, $id, $vnet, $err_config, $status, $vnet_status, $zone_status) = @_;
 170
 171     my $bridge = $plugin_config->{bridge};
 172     $vnet_status->{$id}->{zone} = $zone;
 173     $zone_status->{$zone}->{status} = 'available' if !defined($zone_status->{$zone}->{status});
 174
 175     if($err_config) {
 176         $vnet_status->{$id}->{status} = 'pending';
 177         $vnet_status->{$id}->{statusmsg} = $err_config;
 178         $zone_status->{$zone}->{status} = 'pending';
 179     } elsif ($status->{$bridge}->{status} && $status->{$bridge}->{status} eq 'pass') {
 180         $vnet_status->{$id}->{status} = 'available';
 181     } else {
 182         $vnet_status->{$id}->{status} = 'error';
 183         $vnet_status->{$id}->{statusmsg} = 'missing bridge';
 184         $zone_status->{$zone}->{status} = 'error';
 185     }
 186 }
 187
 188 1;
 189
 190