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
|
#!/usr/bin/perl -I /root/tgmanage/
use strict;
use warnings;
use lib '..';
BEGIN {
require "include/config.pm";
eval {
require "include/config.local.pm";
};
}
unless (@ARGV > 0) {
print "No arguments. Need switches.txt and patchlist.txt.\n";
exit 1;
}
my $s = open(SWITCHES, "$ARGV[0]") or die ("Cannot open switches.txt");
my $p = open(PATCH, "$ARGV[1]") or die ("Cannot open patchlist.txt");
my $portchannel_start = 10;
my %portchannels;
my $letter = "a";
my %switches;
while(<SWITCHES>) {
chomp;
my ($network, $netmask, $switchname, $mngmt_ip) = split; # $mngmt_ip is unused
$switches{$switchname} = {
network => $network,
netmask => $netmask,
};
}
while (<PATCH>) {
chomp;
my ($switchname, $coregw, @ports) = split;
my $network = $switches{$switchname}{network};
my $netmask = $switches{$switchname}{netmask};
my ($o1, $o2, $o3, $o4) = split(/\./, $network);
# portchannel per distro
if($coregw =~ m/distro0/){
# TG14-fix for distro0
$portchannels{$coregw} = 15 unless ($portchannels{$coregw} && defined($portchannels{$coregw}));
} else {
$portchannels{$coregw} = $portchannel_start unless ($portchannels{$coregw} && defined($portchannels{$coregw}));
}
if ($o4 eq "0") {
$letter = "a";
} elsif ($o4 eq "64") {
$letter = "b";
} elsif ($o4 eq "128") {
$letter = "c";
} elsif ($o4 eq "192") {
$letter = "d";
}
my $v6addr = $nms::config::base_ipv6net . $o3 . $letter ."::1/64";
$o4 += 1;
my $gateway_addr = "$o1.$o2.$o3.$o4";
$o4 += 1;
my $switch_addr = "$o1.$o2.$o3.$o4";
print "$switchname $coregw $portchannels{$coregw} $network/$netmask $switch_addr $gateway_addr $v6addr " . join(' ', @ports) . "\n";
# increase portchannel
$portchannels{$coregw}++;
die("NO MORE ETHERCHANNELS!") if($portchannels{$coregw} > 64); # IOS-XE 4500 only supports 64 portchannels
}
|
