From 05e1bb96cc098a2c3d28bda0e204c9c8e068c580 Mon Sep 17 00:00:00 2001
From: root <root@sysrq>
Date: Tue, 3 Apr 2007 11:53:23 +0200
Subject: [PATCH] Make a port list for MBD, and push it to Net.

---
 make-all-config.sh          |  2 ++
 mbd/generate-helper-list.pl | 15 +++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100755 mbd/generate-helper-list.pl

diff --git a/make-all-config.sh b/make-all-config.sh
index b2bff4f..5a8c893 100755
--- a/make-all-config.sh
+++ b/make-all-config.sh
@@ -5,3 +5,5 @@ cat static-switches.txt >> switches.txt
 ./config/make-named.pl > /etc/bind/named.conf
 ./config/make-named-secondary.pl | ssh root@insert 'cat > /etc/bind/named.conf'
 ./config/make-missing-zones.pl
+(cd mbd && ./generate-helper-list.pl > ../mbd-ports)
+scp mbd-ports sesse@f1:/tftpboot/portcfg/
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";
+}
-- 
2.39.2