use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Globals qw(content);
use Dbase::Help qw(DoSelect);
use Dbase::IP;

sub ipnr_parents($) {
        my ($id) = @_;
	my @parents;
	DoSelect {
		my ( $ip,$bits, $fqdn ) = @_;
		push @parents, content($fqdn) ? $fqdn : Dbase::IP->new_db($ip,$bits)->str;
	  }
	  <<_;
	SELECT   ipkunde.ip6,ipkunde.bits, ipkunde.name
	FROM     ipkunde, iptree
	WHERE    iptree.child = $id
	     AND iptree.parent = ipkunde.id
	     AND ( ipkunde.ende IS NULL OR 
	           ipkunde.ende >= UNIX_TIMESTAMP(NOW())    )
	ORDER BY ipkunde.ip6
_
	return @parents;
}

1;
