How to submit patch

[RatS]

with latest trunk your Hostname should work; it's

Code:

    if ($rdata =~ /^((([\w][\w-]{0,253}[\w])\.)*)([\w][\w-]{0,253}[\w])\.([a-zA-Z]{2,6})$/) {

         $main::ua{'hostname'} = $rdata;
         $main::ua{'hostname_local'} = ( ($1) ? $1 : $4);
         $main::ua{'hostname_local'} =~ s/^([\w][\w-]{0,253}[\w])\.(.*?)$/$1/;