From 9da864a8da29082369cdd2dd91a735b03577a117 Mon Sep 17 00:00:00 2001 From: Kristian Lyngstol Date: Fri, 26 Feb 2016 10:59:08 +0100 Subject: Archive old/unused things --- examples/historical/mbd/generate-helper-list.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100755 examples/historical/mbd/generate-helper-list.pl (limited to 'examples/historical/mbd/generate-helper-list.pl') diff --git a/examples/historical/mbd/generate-helper-list.pl b/examples/historical/mbd/generate-helper-list.pl new file mode 100755 index 0000000..fd89475 --- /dev/null +++ b/examples/historical/mbd/generate-helper-list.pl @@ -0,0 +1,15 @@ +#! /usr/bin/perl +use strict; +use warnings; +require './access_list.pl'; +require './nets.pl'; +require './mbd.pm'; + +my @ports = mbd::find_all_ports(); + +print "no ip forward-protocol udp 137\n"; +print "no ip forward-protocol udp 138\n"; + +for my $port (@ports) { + print "ip forward-protocol udp $port\n"; +} -- cgit v1.2.3