Initial commit. Source; TG13-goodiebag.

1 files changed, 26 insertions, 0 deletions

diff --git a/mbd/make-mbd-nets.pl b/mbd/make-mbd-nets.pl
new file mode 100644
index 0000000..6af76f0
--- /dev/null
+++ b/mbd/make-mbd-nets.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -I /root/tgmanage/
+use strict;
+use warnings;
+
+unless (@ARGV > 0) {
+        print "No arguments. Need netlist.txt.\n";
+        exit 1;
+}
+
+my $n = open(NETLIST, "$ARGV[0]") or die ("Cannot open netlist.txt");
+
+print "# Autogenerated. Do not touch!\n";
+print "package Config;\n";
+print "our \@networks = (\n";
+
+while(<NETLIST>) {
+	next if /^(.*#|\s+$)/;  # skip if comment, or blank line
+
+        chomp;
+        my ($network, $prefix, $switchname, undef) = split;
+
+        print "\t\"$network/$prefix\",\n";
+}
+
+print ");\n";
+print "1;\n";