From e7658b685aab2f9ca9670df65454886384de0295 Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Wed, 1 Apr 2015 04:49:12 +0200 Subject: Only print first if we want. --- tools/make-linknet-hosts.pl | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'tools') diff --git a/tools/make-linknet-hosts.pl b/tools/make-linknet-hosts.pl index 5e411af..1db630a 100755 --- a/tools/make-linknet-hosts.pl +++ b/tools/make-linknet-hosts.pl @@ -1,7 +1,16 @@ #!/usr/bin/perl use NetAddr::IP; use Net::IP; -# +use Getopt::Long; + +my ($first); + +if (@ARGV > 0) { + GetOptions( + 'f|first' => \$first, + ) +} + # Input file format: # # src-router dst-router @@ -25,6 +34,11 @@ while () { # generate-dnsrr.pl format: # hostname ipv4 ipv6 - printf("%s-%s %s %s\n", $from, $to, $ipv4_first->addr, $ipv6_first->addr); - printf("%s-%s %s %s\n", $to, $from, $ipv4_second->addr, $ipv6_second->addr); + if($first){ + printf("%s %s %s\n", $from, $ipv4_first->addr, $ipv6_first->addr); + printf("%s %s %s\n", $to, $ipv4_second->addr, $ipv6_second->addr); + } else { + printf("%s-%s %s %s\n", $from, $to, $ipv4_first->addr, $ipv6_first->addr); + printf("%s-%s %s %s\n", $to, $from, $ipv4_second->addr, $ipv6_second->addr); + } } -- cgit v1.2.3