From 2a0c0a3dbbdf7fa5040953c0b0d88ad6f62c011e Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Sun, 6 Apr 2014 03:11:04 +0200
Subject: Initial commit. Source; TG13-goodiebag.

---
 mbd/generate-helper-list.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 mbd/generate-helper-list.pl

(limited to 'mbd/generate-helper-list.pl')

diff --git a/mbd/generate-helper-list.pl b/mbd/generate-helper-list.pl
new file mode 100755
index 0000000..fd89475
--- /dev/null
+++ b/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