1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#! /usr/bin/perl
#
# **** License ****
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2 as
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# A copy of the GNU General Public License is available as
# `/usr/share/common-licenses/GPL' in the Debian GNU/Linux distribution
# or on the World Wide Web at `http://www.gnu.org/copyleft/gpl.html'.
# You can also obtain it by writing to the Free Software Foundation,
# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
# MA 02110-1301, USA.
#
# This code was originally developed by Vyatta, Inc.
# Portions created by Vyatta are Copyright (C) 2007 Vyatta, Inc.
# All Rights Reserved.
#
# Author: Stephen Hemminger
# Date: November 2010
# Description: Script to setup bridge ports
#
# **** End License ****
#
use strict;
use warnings;
use lib "/opt/vyatta/share/perl5/";
use Vyatta::Interface;
use Vyatta::Config;
my $BRCTL = 'sudo /sbin/brctl';
die "Usage: $0 ACTION ethX\n" unless ($#ARGV == 1);
my ($action, $ifname) = @ARGV;
# Get bridge information from configuration
my $intf = new Vyatta::Interface($ifname);
die "Unknown interface type $ifname\n"
unless $intf;
my $cfg = new Vyatta::Config;
$cfg->setLevel($intf->path());
my $oldbridge = $cfg->returnOrigValue('bridge-group bridge');
my $newbridge = $cfg->returnValue('bridge-group bridge');
my $cost = $cfg->returnValue('bridge-group cost');
my $priority = $cfg->returnValue('bridge-group priority');
if (!defined($newbridge) && ($action ne 'SET')) {
$action = 'DELETE';
}
if (!defined($oldbridge) && ($action ne 'DELETE')) {
$action = 'SET';
}
if ($action eq 'SET') {
die "Error: $ifname: not in a bridge-group\n" unless $newbridge;
die "Error: can not add interface $ifname that is part of bond-group to bridge\n"
if defined($cfg->returnValue('bond-group'));
my @address = $cfg->returnValues('address');
die "Error: Can not add interface $ifname with addresses to bridge\n"
if (@address);
my @vrrp = $cfg->listNodes('vrrp vrrp-group');
die "Error: Can not add interface $ifname with VRRP to bridge\n"
if (@vrrp);
$cfg->setLevel('interfaces pseudo-ethernet');
foreach my $peth ($cfg->listNodes()) {
my $link = $cfg->returnValue("$peth link");
die "Error: can not add interface $ifname to bridge already used by pseudo-ethernet $peth\n"
if ($link eq $ifname);
}
print "Adding interface $ifname to bridge $newbridge\n";
add_bridge_port($newbridge, $ifname, $cost, $priority);
} elsif ($action eq 'DELETE') {
die "Error: $ifname: not in a bridge-group\n" unless $oldbridge;
print "Removing interface $ifname from bridge $oldbridge\n";
remove_bridge_port($oldbridge, $ifname);
} elsif ($oldbridge ne $newbridge) {
print "Moving interface $ifname from $oldbridge to $newbridge\n";
remove_bridge_port($oldbridge, $ifname);
add_bridge_port($newbridge, $ifname, $cost, $priority);
}
exit 0;
sub add_bridge_port {
my ($bridge, $port, $cost, $priority) = @_;
system("$BRCTL addif $bridge $port") == 0
or exit 1;
if ($cost) {
system("$BRCTL setpathcost $bridge $port $cost") == 0
or exit 1;
}
if ($priority) {
system("$BRCTL setportprio $bridge $port $priority") == 0
or exit 1;
}
}
sub remove_bridge_port {
my ($bridge, $port) = @_;
return unless $bridge; # not part of a bridge
# this is the case where the bridge that this interface is assigned
# to is getting deleted in the same commit as the bridge node under
# this interface - Bug 5064|4734. Since bridge has a higher priority;
# it gets deleted before the removal of bridge-groups under interfaces
return unless (-d "/sys/class/net/$bridge");
system("$BRCTL delif $bridge $ifname") == 0
or exit 1;
}
|
