blob: 5e411af876452b676120411aa6840e5088948281 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/usr/bin/perl
use NetAddr::IP;
use Net::IP;
#
# 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;
# v4
my $ipv4_first = NetAddr::IP->new($ipv4_raw);
my $ipv4_second = $ipv4_first + 1;
# v6
my $ipv6_first = NetAddr::IP->new($ipv6_raw);
my $ipv6_second = $ipv6_first + 1;
# 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);
}
|
