use Data::Dumper;
-my $patchlist = "/root/patchlist.txt";
-my $switches = "/root/switches.txt";
-#my $patchlist = "/home/eirikn/patchlist.txt.eirik";
-#my $switches = "/home/eirikn/switches.txt.eirik";
+#my $patchlist = "/root/patchlist.txt";
+#my $switches = "/root/switches.txt";
+my $patchlist = "/home/eirikn/patchlist.txt.eirik";
+my $switches = "/home/eirikn/switches.txt.eirik";
BEGIN {
require "../include/config.pm";
sub do_distro {
- my ($dip, $newip, $vlan) = @_;
+ my ($dip, $newip, $vlan, $switchname) = @_;
my $ios = Net::Telnet::Cisco->new(Host => $dip,
Errmode => 'return',
print "Zyxel is alive..\n";
$p->close();
- system("perl ./zyxelng.pl 192.168.1.1 $newip");
+ system("perl ./zyxelng.pl 192.168.1.1 $newip $switchname");
####
while(<SWITCHES>) {
my ($ip, $net, $name) = split;
- print $name."\n";
if ($name =~ /e\d+-\d/) {
die "We only support /26 nets for now you wanted $net" if ($net ne "26");
$switchips{$name} = $ip;
print "Ip: $ip\n";
my $dip = $distro.".net.tg07.gathering.org";
- do_distro($dip, $ip, $vlan);
+ do_distro($dip, $ip, $vlan, $switch);
# my ($dip, $newip, $vlan) = @_;
}
close(PATCHLIST);
#nms::ios_close($t);
-my $oldip;
-my $newip;
if ($#ARGV < 1) {
- die "Foo $#ARGV";
+ die "Not enough arguments to zyxelng.pl $#ARGV";
}
-$oldip = $ARGV[0];
-$newip = $ARGV[1];
+my $oldip = $ARGV[0];
+my $newip = $ARGV[1];
+#$switchname = $ARGV[2];
my $one = 0;
my $cmds1 = <<EOF
sys hostname es-3024
ip igmpsnoop enable
-
-sys sw vlan type 802.1q
-sys sw vlan1q svlan setentry MNGT 248 25 fixed tag
-sys sw vlan1q svlan active 248
-sys sw vlan1q svlan setentry e01-1sw 1 25 fixed untag
-
-sys sw vlan1q svlan setentry MNGT 248 1 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 2 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 3 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 4 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 5 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 6 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 7 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 8 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 9 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 10 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 11 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 12 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 13 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 14 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 15 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 16 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 17 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 18 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 19 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 20 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 21 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 22 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 23 forbidden tag
-sys sw vlan1q svlan setentry MNGT 248 24 forbidden tag
EOF
;
-#
+
foreach (split(/\n+/, $cmds1)) {
print "Sending: '$_'\n";
switch_exec($_, $switch);