git.sesse.net Git - nms/blob - mbd/generate-helper-list.pl

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 require './access_list.pl';
   5 require './nets.pl';
   6 require './mbd.pm';
   7
   8 my @ports = mbd::find_all_ports();
   9
  10 print "no ip forward-protocol udp 137\n";
  11 print "no ip forward-protocol udp 138\n";
  12
  13 for my $port (@ports) {
  14         print "ip forward-protocol udp $port\n";
  15 }