#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;
#$switchip = "192.168.2.150" if $one;
#$switchip = "192.168.1.1" unless $one;
$switchip = $oldip;
-my $switch = switch_connect($switchip);
+my $switch = switch_connect($switchip)
+ or die "Could not connect to $switchip";
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);
my $cmd;
#$cmd = "ip ifconfig swif0 192.168.1.1/24" if $one;
#$cmd = "ip ifconfig swif0 192.168.2.150/24" unless $one;
-$cmd = "ip ifconfig swif0 $newip/24";
+$cmd = "ip ifconfig swif0 $newip/30";
print "Sending '$cmd'\n";
my $pid = fork();