my $netdesc = {
optional => 1,
type => 'string', format => 'pve-qm-net',
- typetext => "MODEL=XX:XX:XX:XX:XX:XX [,bridge=<dev>][,rate=<mbps>]",
+ typetext => "MODEL=XX:XX:XX:XX:XX:XX [,bridge=<dev>][,rate=<mbps>][,vlan=<vlanid>]",
description => <<EODESCR,
Specify network devices.
$res->{bridge} = $1;
} elsif ($kvp =~ m/^rate=(\d+(\.\d+)?)$/) {
$res->{rate} = $1;
+ } elsif ($kvp =~ m/^vlan=(\d+)$/) {
+ $res->{vlan} = $1;
} else {
return undef;
}
$res .= "=$net->{macaddr}" if $net->{macaddr};
$res .= ",bridge=$net->{bridge}" if $net->{bridge};
$res .= ",rate=$net->{rate}" if $net->{rate};
+ $res .= ",vlan=$net->{vlan}" if $net->{vlan};
return $res;
}
use strict;
use PVE::QemuServer;
use PVE::Tools qw(run_command);
+use PVE::Storage;
my $iface = shift;
}
+if ($net->{vlan}) {
+
+ my $vlan = $net->{vlan};
+ my $bridgevlan = $bridge."v".$vlan;
+
+ #check if we have an only one ethX or bondX interface in the bridge
+ my (undef, $interface) = PVE::Storage::dir_glob_regex("/sys/class/net/$bridge/brif/", '((eth|bond)\d+)');
+ die "No interface in bridge" if !$interface;
+ die "You can't have 2 physical interfaces on the same bridge" if(ref($interface) eq 'ARRAY');
+
+ my $interfacevlan = $interface.".".$vlan;
+
+ #create vlan on interface is not already exist
+ unless (-d "/sys/class/net/$interfacevlan") {
+ system ("/sbin/vconfig add $interface $vlan") == 0 ||
+ die "can't add vlan $vlan to interface $interface\n";
+ }
+
+ #be sure to have the interfacevlan up
+ system ("/sbin/ip link set $interfacevlan up") == 0 ||
+ die "can't up interface $interfacevlan\n";
+
+ # test if vlaninterface is already enslave in another bridge
+ my $path="/sys/class/net/$interfacevlan/brport/bridge";
+ if(-e $path) {
+ my $targetbridge = readlink($path);
+ if($targetbridge =~ m/([0-9A-Za-z]+)$/) {
+ die "Interface $interfacevlan already exist in bridge $targetbridge" if $1 ne $bridgevlan;
+ }
+ }
+
+ #add bridgevlan if it doesn't already exist
+ unless (-d "/sys/class/net/$bridgevlan") {
+ system ("/usr/sbin/brctl addbr $bridgevlan") == 0 ||
+ die "can't add bridge $bridgevlan\n";
+ }
+
+ #be sure to have the bridge up
+ system ("/sbin/ip link set $bridgevlan up") == 0 ||
+ die "can't up bridge $bridgevlan\n";
+
+ #add interfacevlan to the bridge
+ my (undef, $interfacevlanfound) = PVE::Storage::dir_glob_regex("/sys/class/net/$bridgevlan/brif/", "($interface\.$vlan)");
+ if (!defined($interfacevlanfound)) {
+ system ("/usr/sbin/brctl addif $bridgevlan $interfacevlan") == 0 ||
+ die "can't add interface $interfacevlan to bridge $bridgevlan\n";
+ }
+
+ $bridge=$bridgevlan;
+}
+
+
system ("/usr/sbin/brctl addif $bridge $iface") == 0 ||
die "can't add interface to bridge\n";