AS1024
/
clatd
mirror of https://github.com/toreanderson/clatd
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improve CLAT IPv6 address auto-generation logic 

In the case of there being more than one EUI-64 based IPv6 address on
the PLAT device, clatd will now pick the one which share the longest
common prefix length with the PLAT prefix when deciding which one to
base the auto-generated CLAT IPv6 address on. This should avoid
accidentally ending up with a ULA-based CLAT IPv6 address when better
alternatives exist.

Resolves #1.
This commit is contained in:
Tore Anderson 2014-03-22 01:34:55 +01:00
parent 0f5e8857fd
commit 7e35aa56c7
1 changed files with 35 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
clatd
View File

@ -12,7 +12,7 @@
use strict; use strict;
use Net::IP; use Net::IP;
my $VERSION = "1.0"; my $VERSION = "1.1";
# #
# Populate the global config hash with the default values # Populate the global config hash with the default values
@ -436,6 +436,17 @@ sub get_clat_v6_addr {
if(!$plat_dev) { if(!$plat_dev) {
err("get_clat_v6_addr(): No PLAT device to work with"); err("get_clat_v6_addr(): No PLAT device to work with");
} }
# In case there are more than one EUI-64-based addresses on the plat device,
# we'll need the plat prefix as an bigint in order to find which of those
# addresses share the longest common prefix. We'll prefer to use that one.
my $plat_prefix_int = Net::IP->new(cfg("plat-prefix"), 6)->intip();
if(!$plat_prefix_int) {
err("Failed to convert plat prefix to bigint");
}
my $ip; # will contain the best candidate ip in bigint format
my $best_score;
p("Attempting to derive a CLAT IPv6 address from a EUI-64 address on ", p("Attempting to derive a CLAT IPv6 address from a EUI-64 address on ",
"'$plat_dev'"); "'$plat_dev'");
open(my $fd, '-|', cfg("cmd-ip"), qw(-6 address list scope global dev), open(my $fd, '-|', cfg("cmd-ip"), qw(-6 address list scope global dev),
@ -446,25 +457,33 @@ sub get_clat_v6_addr {
my $candidate = $1; my $candidate = $1;
next unless(is_modified_eui64($candidate)); next unless(is_modified_eui64($candidate));
d2("Saw EUI-64 based address: $candidate"); d2("Saw EUI-64 based address: $candidate");
my $ip = Net::IP->new($candidate, 6) or next; my $candidate_int = Net::IP->new($candidate, 6)->intip();
$ip = $ip->intip(); if(!$candidate_int) {
err("Failed to convert plat prefix to bigint");
# First clear the middle 0xfffe bits of the interface ID }
my $mask = Net::IP->new("ffff:ffff:ffff:ffff:ffff:ff00:00ff:ffff"); if(!$best_score or $best_score > ($plat_prefix_int ^ $candidate_int)) {
$mask = $mask->intip(); d2("$candidate has so far the longest common prefix with plat prefix");
$ip &= $mask; $best_score = $plat_prefix_int ^ $candidate_int;
$ip = $candidate_int;
# Next set them to the value 0xc1a7 and return }
$mask = Net::IP->new("::c1:a700:0", 6) or next;
$mask = $mask->intip();
$ip |= $mask;
$ip = Net::IP->new(Net::IP::ip_bintoip(Net::IP::ip_inttobin($ip, 6), 6));
return $ip->short() if $ip;
} }
} }
close($fd) close($fd)
or err("'ip -6 address list scope global dev $plat_dev' failed"); or err("'ip -6 address list scope global dev $plat_dev' failed");
# First clear the middle 0xfffe bits of the interface ID
my $mask = Net::IP->new("ffff:ffff:ffff:ffff:ffff:ff00:00ff:ffff");
$mask = $mask->intip();
$ip &= $mask;
# Next set them to the value 0xc1a7 and return
$mask = Net::IP->new("::c1:a700:0", 6) or err(Net::IP::Error());
$mask = $mask->intip();
$ip |= $mask;
$ip = Net::IP->new(Net::IP::ip_bintoip(Net::IP::ip_inttobin($ip, 6), 6));
return $ip->short() if $ip;
err("Failed to generate a CLAT IPv6 address (try setting 'clat-v6-addr')"); err("Failed to generate a CLAT IPv6 address (try setting 'clat-v6-addr')");
} }