As of RFC4291 the :: is deprecated.
Signed-off-by: Sven Strickroth <email@cs-ware.de>
if (! $param) { return ''; }\r
my $searchkey;\r
if ($param =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { # IPv4 address\r
- $searchkey = '::'.$param;\r
+ $searchkey = '::ffff:'.$param;\r
} else {\r
$searchkey = $param;\r
}\r
my $key;\r
if ($param =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { # IPv4 address\r
$ip=4;\r
- $key='::'.$param;\r
+ $key='::ffff:'.$param;\r
}\r
elsif ($param =~ /^[0-9A-F]*:/i) { # IPv6 address\r
$ip=6;\r