use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Globals qw(mpersinfo get_descr name_dienst);
use Dbase::Help qw(DoSelect);
use Loader qw(line_printer valid_nic);

sub list_domregs($;$) {
	my($nic,$kn) = @_;
	line_printer;

	return unless valid_nic($nic);
	my $nsel = (($nic ne "-") ? "nic=$nic" : "nic is null");

	my $hdr = 0;
	my $res = DoSelect {
	    my($name,$dienst) = @_;
		print $Db::pr_fh <<END unless $hdr++;
Domain               Dienst     Registrar
END
			goto OUT unless
		printf $Db::pr_fh "%-20s %-10s %s\n",$name,$dienst?name_dienst($dienst):"-",$nic?get_descr("nic",$nic):"-";
	} "select domain,dienst from domreg where $nsel order by domain"
		or print "(leer)\n";
out:
	$res;
}
1;

