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

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

	my $nsel = ($nic ne "-") ? "nic=$nic" : "nic is null";
	DoSelect {
		my($id,$timestamp,$hre)  = @_;
		print $Db::pr_fh "ID        : $id\n";
		print $Db::pr_fh "Timestamp : ".isotime($timestamp)."\n" if defined $timestamp;
		print $Db::pr_fh "NIC       : ".get_descr("nic",$nic)."\n" if $nic ne "-";
		print $Db::pr_fh "Handle-RE : ^$hre\$\n" if defined $hre;

		my $adr = "";
		DoSelect {
			my($name) = $_[0];
			$adr .= "$name,";
		} "select domain from domreg where $nsel";
		if($adr ne "") {
			chop $adr;
			print $Db::pr_fh "Domains   : $adr\n";
		}

		my $email = "";
		DoSelect {
			my($name) = @_;
			$email .= "$name,";
		} "select email from registrar where $nsel and email is not null";
		if($email ne "") {
			chop $email;
			print $Db::pr_fh "Emails    : $email\n";
		}

		my $gpg = "";
		DoSelect {
			my($name) = @_;
			$gpg .= "$name,";
		} "select keyid from registrar where $nsel and keyid is not null";
		if($gpg ne "") {
			chop $gpg;
			print $Db::pr_fh "GPG-Keys  : $gpg\n";
		}

	} ($nic ne "-") ? "select id,timestamp,handle_re from nicdata where $nsel" : "select '-',null,null"
		or problem "Eintrag '$nsel' unbekannt";
}
1;
