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

sub list_nicdatas(;$) {
	my($kn) = @_;
	line_printer;

	my $hdr;
	my $res = DoSelect {
		my($id,$nic,$hre) = @_;

		print $Db::pr_fh <<END unless $hdr++;
 ID Registrar  Handle-RE            Domains
END
		my $dom="";
		my $nsel;
		my $pnic;
		if($nic ne "-") {
			$nsel = "nic=$nic";
			$pnic = sprintf("%3d",$nic);
		} else {
			$nsel = "nic is null";
			$pnic = "  -";
		}
		DoSelect {
			my($name)=@_;
			$dom .= $name.",";
		} "select domain from domreg where $nsel";
		if($dom ne "") {
			chop $dom;
		} else {
			$dom="-";
		}
		printf $Db::pr_fh "%3s %-10.10s %-20.20s %s\n",$pnic,get_descr("nic",$nic), $hre?"^$hre\$":"-",$dom;
	} "select id,nic,handle_re from nicdata order by nic"
		or print "(leer)\n";
out:
	$res;
}
1;
