Fix a few bugs in the port config stuff

[nms] / config / make-port-config.pl

diff --git a/config/make-port-config.pl b/config/make-port-config.pl
old mode 100644 (file)
new mode 100755 (executable)
index 769c580..83fa997
--- a/config/make-port-config.pl
+++ b/config/make-port-config.pl
@@ -12,17 +12,17 @@ while (<PATCHLIST>) {
 
        my $ip;
        if ($switch == 1) {
-               $ip = "87.76." . ($row - 1) . "1";
+               $ip = "87.76." . ($row) . ".1";
        } elsif ($switch == 2) {
-               $ip = "87.76." . ($row - 1) . "65";
+               $ip = "87.76." . ($row) . ".65";
        } elsif ($switch == 3) {
-               $ip = "87.76." . ($row - 1) . "129";
+               $ip = "87.76." . ($row) . ".129";
        } elsif ($switch == 4) {
-               $ip = "87.76." . $row . "1";
+               $ip = "87.76." . ($row + 1) . ".1";
        } elsif ($switch == 5) {
-               $ip = "87.76." . $row . "65";
+               $ip = "87.76." . ($row + 1) . ".65";
        } elsif ($switch == 6) {
-               $ip = "87.76." . $row . "129";
+               $ip = "87.76." . ($row + 1) . ".129";
        }
 
        my $vlan = "$row$switch";
@@ -53,7 +53,7 @@ interface $port
  ip igmp snooping
  storm-control broadcast level 2
  no shutdown
-
+!
 EOF
 }
 
@@ -61,5 +61,6 @@ for my $distro (keys %distros) {
        open DISTRO, ">$distro-config"
                or die "$distro-config: $!";
        print DISTRO $distros{$distro};
+       print DISTRO "end\n";
        close DISTRO;
 }