PVE/Network/SDN/Zones/VlanPlugin.pm

   1 package PVE::Network::SDN::Zones::VlanPlugin;
   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 'vlan';
  11 }
  12
  13 PVE::JSONSchema::register_format('pve-sdn-vlanrange', \&pve_verify_sdn_vlanrange);
  14 sub pve_verify_sdn_vlanrange {
  15    my ($vlanstr) = @_;
  16
  17    PVE::Network::SDN::Zones::Plugin::parse_tag_number_or_range($vlanstr, '4096');
  18
  19    return $vlanstr;
  20 }
  21
  22 sub properties {
  23     return {
  24         'bridge' => {
  25             type => 'string',
  26         },
  27     };
  28 }
  29
  30 sub options {
  31
  32     return {
  33         nodes => { optional => 1},
  34         'bridge' => { optional => 0 },
  35         mtu => { optional => 1 }
  36     };
  37 }
  38
  39 # Plugin implementation
  40 sub generate_sdn_config {
  41     my ($class, $plugin_config, $zoneid, $vnetid, $vnet, $controller, $interfaces_config, $config) = @_;
  42
  43     my $bridge = $plugin_config->{bridge};
  44     die "can't find bridge $bridge" if !-d "/sys/class/net/$bridge";
  45
  46     my $vlan_aware = PVE::Tools::file_read_firstline("/sys/class/net/$bridge/bridge/vlan_filtering");
  47     my $is_ovs = !-d "/sys/class/net/$bridge/brif";
  48
  49     my $tag = $vnet->{tag};
  50     my $alias = $vnet->{alias};
  51     my $mtu = $plugin_config->{mtu};
  52
  53     my $vnet_uplink = "ln_".$vnetid;
  54     my $vnet_uplinkpeer = "pr_".$vnetid;
  55
  56     my @iface_config = ();
  57
  58     if($is_ovs) {
  59
  60         # keep vmbrXvY for compatibility with existing network
  61         # eth0----ovs vmbr0--(ovsintport tag)---->vnet---->vm
  62
  63         @iface_config = ();
  64         push @iface_config, "ovs_type OVSIntPort";
  65         push @iface_config, "ovs_bridge $bridge";
  66         push @iface_config, "ovs_mtu $mtu" if $mtu;
  67         if($vnet->{vlanaware}) {
  68             push @iface_config, "ovs_options vlan_mode=dot1q-tunnel other_config:qinq-ethtype=802.1q tag=$tag";
  69         } else {
  70             push @iface_config, "ovs_options tag=$tag";
  71         }
  72         push(@{$config->{$vnet_uplink}}, @iface_config) if !$config->{$vnet_uplink};
  73
  74         #redefine main ovs bridge, ifupdown2 will merge ovs_ports
  75         @iface_config = ();
  76         push @iface_config, "ovs_ports $vnet_uplink";
  77         push(@{$config->{$bridge}}, @iface_config);
  78
  79     } elsif ($vlan_aware) {
  80         # eth0----vlanaware bridge vmbr0--(vmbr0.X tag)---->vnet---->vm
  81         $vnet_uplink = "$bridge.$tag";
  82     } else {
  83
  84         # keep vmbrXvY for compatibility with existing network
  85         # eth0<---->eth0.X----vmbr0v10------vnet---->vm
  86
  87         my $bridgevlan = $bridge."v".$tag;
  88
  89         my @bridge_ifaces = ();
  90         my $dir = "/sys/class/net/$bridge/brif";
  91         PVE::Tools::dir_glob_foreach($dir, '(((eth|bond)\d+|en[^.]+)(\.\d+)?)', sub {
  92             push @bridge_ifaces, $_[0];
  93         });
  94
  95         my $bridge_ports = "";
  96         foreach my $bridge_iface (@bridge_ifaces) {
  97             $bridge_ports .= " $bridge_iface.$tag";
  98         }
  99
 100         @iface_config = ();
 101         push @iface_config, "link-type veth";
 102         push @iface_config, "veth-peer-name $vnet_uplinkpeer";
 103         push(@{$config->{$vnet_uplink}}, @iface_config) if !$config->{$vnet_uplink};
 104
 105         @iface_config = ();
 106         push @iface_config, "link-type veth";
 107         push @iface_config, "veth-peer-name $vnet_uplink";
 108         push(@{$config->{$vnet_uplinkpeer}}, @iface_config) if !$config->{$vnet_uplinkpeer};
 109
 110         @iface_config = ();
 111         push @iface_config, "bridge_ports $bridge_ports $vnet_uplinkpeer";
 112         push @iface_config, "bridge_stp off";
 113         push @iface_config, "bridge_fd 0";
 114         push(@{$config->{$bridgevlan}}, @iface_config) if !$config->{$bridgevlan};
 115     }
 116
 117     #vnet bridge
 118     @iface_config = ();
 119     push @iface_config, "bridge_ports $vnet_uplink";
 120     push @iface_config, "bridge_stp off";
 121     push @iface_config, "bridge_fd 0";
 122     if($vnet->{vlanaware}) {
 123         push @iface_config, "bridge-vlan-aware yes";
 124         push @iface_config, "bridge-vids 2-4094";
 125     }
 126     push @iface_config, "mtu $mtu" if $mtu;
 127     push @iface_config, "alias $alias" if $alias;
 128     push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid};
 129
 130     return $config;
 131 }
 132
 133 sub status {
 134     my ($class, $plugin_config, $zone, $vnetid, $vnet, $status) = @_;
 135
 136     my $bridge = $plugin_config->{bridge};
 137
 138     my $err_msg = [];
 139     if (!-d "/sys/class/net/$bridge") {
 140         push @$err_msg, "missing $bridge";
 141         return $err_msg;
 142     }
 143
 144     my $vlan_aware = PVE::Tools::file_read_firstline("/sys/class/net/$bridge/bridge/vlan_filtering");
 145     my $is_ovs = !-d "/sys/class/net/$bridge/brif";
 146
 147     my $tag = $vnet->{tag};
 148     my $vnet_uplink = "ln_".$vnetid;
 149     my $vnet_uplinkpeer = "pr_".$vnetid;
 150
 151     # ifaces to check
 152     my $ifaces = [ $vnetid, $bridge ];
 153     if($is_ovs) {
 154         push @$ifaces, $vnet_uplink;
 155     } elsif (!$vlan_aware) {
 156         my $bridgevlan = $bridge."v".$tag;
 157         push @$ifaces, $bridgevlan;
 158         push @$ifaces, $vnet_uplink;
 159         push @$ifaces, $vnet_uplinkpeer;
 160     }
 161
 162     foreach my $iface (@{$ifaces}) {
 163         if (!$status->{$iface}->{status}) {
 164             push @$err_msg, "missing $iface";
 165         } elsif ($status->{$iface}->{status} ne 'pass') {
 166             push @$err_msg, "error iface $iface";
 167         }
 168     }
 169     return $err_msg;
 170 }
 171
 172 1;
 173
 174