Michiel Brandenburg wrote:
+ if( $ip[$_] =~ /\./ ) {
+ # ipv4 mapped as ipv6
+ my @extraOcts = unpack('H4H4', pack('C4C4C4C4', split(/\./,
Actually, the Perl code will never see an IPv6-mapped IPv4 address, because
the mimedefang.c code converts such an address to "pure" IPv4:
/* Convert IPv6-mapped IPv4 address to pure IPv4. That is:
::ffff:xxx.yyy.zzz.www to simply xxx.yyy.zzz.www */
if (tmp) {
if (strchr(data->hostip, '.')) {
char const *lastcolon = strrchr(data->hostip, ':');
char *dst = data->hostip;
while(lastcolon) {
lastcolon++;
*dst++ = *lastcolon;
if (!*lastcolon) break;
}
}
}
Regards,
David.
_______________________________________________
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID. You may ignore it.
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list MIMEDefang@lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
