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     my $vlan_aware = PVE::Tools::file_read_firstline("/sys/class/net/$bridge/bridge/vlan_filtering");
  45     my $is_ovs = 1 if !-d "/sys/class/net/$bridge/brif";
  46
  47     my $tag = $vnet->{tag};
  48     my $alias = $vnet->{alias};
  49     my $mtu = $plugin_config->{mtu} if $plugin_config->{mtu};
  50
  51     my $vnet_uplink = "ln_".$vnetid;
  52     my $vnet_uplinkpeer = "pr_".$vnetid;
  53
  54     my @iface_config = ();
  55
  56     if($is_ovs) {
  57
  58         # keep vmbrXvY for compatibility with existing network
  59         # eth0----ovs vmbr0--(ovsintport tag)---->vnet---->vm
  60
  61         @iface_config = ();
  62         push @iface_config, "ovs_type OVSIntPort";
  63         push @iface_config, "ovs_bridge $bridge";
  64         if($vnet->{vlanaware}) {
  65             push @iface_config, "ovs_options vlan_mode=dot1q-tunnel tag=$tag";
  66         } else {
  67             push @iface_config, "ovs_options tag=$tag";
  68         }
  69         push(@{$config->{$vnet_uplink}}, @iface_config) if !$config->{$vnet_uplink};
  70
  71         #redefine main ovs bridge, ifupdown2 will merge ovs_ports
  72         @iface_config = ();
  73         push @iface_config, "ovs_ports $vnet_uplink";
  74         push(@{$config->{$bridge}}, @iface_config);
  75
  76         @iface_config = ();
  77         push @iface_config, "ovs_type OVSBridge";
  78         push @iface_config, "ovs_ports $vnet_uplink";
  79         push(@{$config->{$bridge}}, @iface_config) if !$config->{$bridge};
  80
  81     } elsif ($vlan_aware) {
  82         # eth0----vlanaware bridge vmbr0--(vmbr0.X tag)---->vnet---->vm
  83         $vnet_uplink = "$bridge.$tag";
  84     } else {
  85
  86         # keep vmbrXvY for compatibility with existing network
  87         # eth0<---->eth0.X----vmbr0v10------vnet---->vm
  88
  89         my $bridgevlan = $bridge."v".$tag;
  90
  91         my @bridge_ifaces = ();
  92         my $dir = "/sys/class/net/$bridge/brif";
  93         PVE::Tools::dir_glob_foreach($dir, '(((eth|bond)\d+|en[^.]+)(\.\d+)?)', sub {
  94             push @bridge_ifaces, $_[0];
  95         });
  96
  97         my $bridge_ports = "";
  98         foreach my $bridge_iface (@bridge_ifaces) {
  99             $bridge_ports .= " $bridge_iface.$tag";
 100         }
 101
 102         @iface_config = ();
 103         push @iface_config, "link-type veth";
 104         push @iface_config, "veth-peer-name $vnet_uplinkpeer";
 105         push(@{$config->{$vnet_uplink}}, @iface_config) if !$config->{$vnet_uplink};
 106
 107         @iface_config = ();
 108         push @iface_config, "link-type veth";
 109         push @iface_config, "veth-peer-name $vnet_uplink";
 110         push(@{$config->{$vnet_uplinkpeer}}, @iface_config) if !$config->{$vnet_uplinkpeer};
 111
 112         @iface_config = ();
 113         push @iface_config, "bridge_ports $bridge_ports $vnet_uplinkpeer";
 114         push @iface_config, "bridge_stp off";
 115         push @iface_config, "bridge_fd 0";
 116         push(@{$config->{$bridgevlan}}, @iface_config) if !$config->{$bridgevlan};
 117     }
 118
 119     #vnet bridge
 120     @iface_config = ();
 121     push @iface_config, "bridge_ports $vnet_uplink";
 122     push @iface_config, "bridge_stp off";
 123     push @iface_config, "bridge_fd 0";
 124     if($vnet->{vlanaware}) {
 125         push @iface_config, "bridge-vlan-aware yes";
 126         push @iface_config, "bridge-vids 2-4094";
 127     }
 128     push @iface_config, "mtu $mtu" if $mtu;
 129     push @iface_config, "alias $alias" if $alias;
 130     push(@{$config->{$vnetid}}, @iface_config) if !$config->{$vnetid};
 131
 132     return $config;
 133 }
 134
 135 sub status {
 136     my ($class, $plugin_config, $zone, $id, $vnet, $err_config, $status, $vnet_status, $zone_status) = @_;
 137
 138     my $bridge = $plugin_config->{bridge};
 139     $vnet_status->{$id}->{zone} = $zone;
 140     $zone_status->{$zone}->{status} = 'available' if !defined($zone_status->{$zone}->{status});
 141
 142     if($err_config) {
 143         $vnet_status->{$id}->{status} = 'pending';
 144         $vnet_status->{$id}->{statusmsg} = $err_config;
 145         $zone_status->{$zone}->{status} = 'pending';
 146     } elsif ($status->{$bridge}->{status} && $status->{$bridge}->{status} eq 'pass') {
 147         $vnet_status->{$id}->{status} = 'available';
 148     } else {
 149         $vnet_status->{$id}->{status} = 'error';
 150         $vnet_status->{$id}->{statusmsg} = 'missing bridge';
 151         $zone_status->{$zone}->{status} = 'error';
 152     }
 153 }
 154
 155 1;
 156
 157