=head1 domain_regprint

Diese Funktion gibt die von domain_reg gefundenen Assoziationen aus.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);
use Dbase::Globals qw(get_descr name_dienst mpersinfo);
use Loader qw(domain_reg domain_check);

sub domain_regprint($;$) {
	my($dom,$kn) = @_;

	my($dienst,$nic,$owner,$adminc,$techc,$zonec,$billc);
	domain_reg($dom, \$dienst,\$nic,\$owner,\$adminc,\$techc,\$zonec,\$billc);

	my($doma,$tick) = DoFn("select domain,ticket from domainkunde where id = $dom");
	unless($tick) {
		print "** Warnung: Kein Ticket eingetragen. Absicht??\n";
	}
	my $domain = "Domain: #$dom $doma";
	if($dienst) {
		$dienst = name_dienst $dienst;
	} else {
		$dienst = "...nicht bekannt...";
	}

	if($nic) {
		$nic = get_descr("nic",$nic);
	} else {
		$nic = "...nicht bekannt...";
	}

	if($owner) {
		$owner = "#$owner ".mpersinfo($owner);
	} else {
		$owner = "...nicht bekannt...";
	}

	if($adminc) {
		$adminc = "#$adminc ".mpersinfo($adminc);
	} else {
		$adminc = "...nicht bekannt...";
	}

	if($techc) {
		$techc = "#$techc ".mpersinfo($techc);
	} else {
		$techc = "...nicht bekannt...";
	}

	if($zonec) {
		$zonec = "#$zonec ".mpersinfo($zonec);
	} else {
		$zonec = "...nicht bekannt...";
	}

	if($billc) {
		$billc = "#$billc ".mpersinfo($billc);
	} else {
		$billc = "...nicht bekannt...";
	}

	print scalar domain_check($dom,1);

	print <<END;
Domain    : $domain
Dienst    : $dienst
Registrar : $nic
Besitzer  : $owner
Admin-C   : $adminc
Tech-C    : $techc
Zone-C    : $zonec
Bill-C    : $billc
END
	# print "Primary NS: $ns\n" if $ns;
}
1;
