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
|
#! /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 /usr/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 ( $action eq 'SET' ) {
die "Error: $ifname: not in a bridge-group.\n" unless $newbridge;
my @address = $cfg->returnValues('address');
die "Error: Can not add interface $ifname with addresses to bridge.\n"
if (@address);
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;
}
|
