git.sesse.net Git - nms/blob - config/make-port-config.pl

   1 #! /usr/bin/perl
   2 open PATCHLIST, "<patchlist.txt"
   3         or die "patchlist.txt: $!";
   4 my %distros = ();
   5
   6 while (<PATCHLIST>) {
   7         chomp;
   8         my ($name, $distro, $port) = split / /;
   9
  10         $name =~ /e(\d+)-(\d+)/;
  11         my ($row, $switch) = ($1, $2);
  12
  13         my $ip;
  14         if ($switch == 1) {
  15                 $ip = "87.76." . ($row) . ".1";
  16         } elsif ($switch == 2) {
  17                 $ip = "87.76." . ($row) . ".65";
  18         } elsif ($switch == 3) {
  19                 $ip = "87.76." . ($row) . ".129";
  20         } elsif ($switch == 4) {
  21                 $ip = "87.76." . ($row + 1) . ".1";
  22         } elsif ($switch == 5) {
  23                 $ip = "87.76." . ($row + 1) . ".65";
  24         } elsif ($switch == 6) {
  25                 $ip = "87.76." . ($row + 1) . ".129";
  26         }
  27
  28         my $vlan = "$row$switch";
  29
  30         $distros{$distro} .= <<"EOF";
  31 vlan $vlan
  32   name $name
  33 !
  34 default interface vlan $vlan
  35 interface $vlan
  36   description $name
  37   ip address $ip 255.255.255.192
  38   ip directed-broadcast 10
  39   ip helper-address 87.76.254.2
  40   no ip proxy-arp
  41   no shutdown
  42 !
  43
  44 default interface $port
  45 interface $port
  46  description $name
  47  switchport mode access
  48  switchport access vlan $vlan
  49
  50  spanning-tree portfast
  51  spanning-tree bpduguard enable
  52
  53  ip igmp snooping
  54  storm-control broadcast level 2
  55  no shutdown
  56 !
  57 EOF
  58 }
  59
  60 for my $distro (keys %distros) {
  61         open DISTRO, ">$distro-config"
  62                 or die "$distro-config: $!";
  63         print DISTRO $distros{$distro};
  64         print DISTRO "end\n";
  65         close DISTRO;
  66 }