diff options
Diffstat (limited to 'tools/make-linknet-hosts.pl')
| -rwxr-xr-x | tools/make-linknet-hosts.pl | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/tools/make-linknet-hosts.pl b/tools/make-linknet-hosts.pl deleted file mode 100755 index c00e81b..0000000 --- a/tools/make-linknet-hosts.pl +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/perl -use NetAddr::IP; -use Net::IP; -use Getopt::Long; - -my ($first); - -if (@ARGV > 0) { - GetOptions( - 'f|first' => \$first, - ) -} - -# Input file format: -# -# <ipv4-linknet> <ipv6-linknet> src-router dst-router -# -# e.g. -# 151.216.128.0/31 2a02:ed02:FFFE::0/127 rs1.tele rs1.core -# 151.216.128.2/31 2a02:ed02:FFFE::2/127 rs1.tele rs1.noc - -while (<STDIN>) { - next if /^(#|\s+$)/; # skip if comment, or blank line - - my ($ipv4_raw, $ipv6_raw, $from, $to) = split; - - my ($ipv4_first, $ipv4_second, $ipv6_first, $ipv6_second); - if($ipv6_raw =~ m/nope/){ - $ipv6_first = "nope"; - $ipv6_second = "nope"; - } else { - my $ipv6 = NetAddr::IP->new($ipv6_raw); - $ipv6_first = $ipv6->addr(); - $ipv6++; - $ipv6_second = $ipv6->addr(); - } - - if($ipv4_raw =~ m/nope/){ - $ipv4_first = ""; - $ipv4_second = ""; - } else { - my $ipv4 = NetAddr::IP->new($ipv4_raw); - $ipv4_first = $ipv4->addr(); - $ipv4++; - $ipv4_second = $ipv4->addr; - } - - - # generate-dnsrr.pl format: - # hostname ipv4 ipv6 - if($first){ - printf("%s %s %s\n", $from, $ipv4_first, $ipv6_first); - printf("%s %s %s\n", $to, $ipv4_second, $ipv6_second); - } else { - printf("%s-%s %s %s\n", $from, $to, $ipv4_first, $ipv6_first); - printf("%s-%s %s %s\n", $to, $from, $ipv4_second, $ipv6_second); - } -} |