views/pxelator/dnsd-domains.pl


if ( $rec->{package}->{name} eq 'dnsd' ) {
        my $domain = $rec->{qname};
        $domain =~ s{^.+\.+([^\.]+)\.([^\.]+)$}{$1.$2};
        $out->{'domain+'}->{ $domain }++;
}

1
2	if ( $rec->{package}->{name} eq 'dnsd' ) {
3	my $domain = $rec->{qname};
4	$domain =~ s{^.+\.+([^\.]+)\.([^\.]+)$}{$1.$2};
5	$out->{'domain+'}->{ $domain }++;
6	}
7