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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/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);
}
}
|
