aboutsummaryrefslogtreecommitdiffstats
path: root/mbd/make-mbd-nets.pl
diff options
context:
space:
mode:
Diffstat (limited to 'mbd/make-mbd-nets.pl')
-rwxr-xr-xmbd/make-mbd-nets.pl26
1 files changed, 0 insertions, 26 deletions
diff --git a/mbd/make-mbd-nets.pl b/mbd/make-mbd-nets.pl
deleted file mode 100755
index 7f6ec97..0000000
--- a/mbd/make-mbd-nets.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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";