Merge branch 'master' of github.com:tech-server/tgmanage

1 files changed, 26 insertions, 0 deletions

diff --git a/examples/historical/mbd/make-mbd-nets.pl b/examples/historical/mbd/make-mbd-nets.pl
new file mode 100755
index 0000000..7f6ec97
--- /dev/null
+++ b/examples/historical/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 ($v4_net, $v6_net, $net_name) = split;
+
+        print "\t\"$v4_net\",\n";
+}
+
+print ");\n";
+print "1;\n";