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(mpersinfo get_descr name_dienst);

sub list_domreg($;$) {
	my($id,$kn) = @_;
	line_printer;

	DoSelect {
	    my($timestamp,$name,$dienst,$nic, $techc,$zonec,$billc,$whoisserver,$re) = @_;
		print $Db::pr_fh "Name     : $name\n" if $name ne "";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Dienst   : ".name_dienst($dienst)."\n" if $dienst;
		print $Db::pr_fh "Registrar: ".get_descr("nic",$nic)."\n" if $nic;
		print $Db::pr_fh "Tech-C   : #$techc ".mpersinfo($techc)."\n" if $techc;
		print $Db::pr_fh "Zone-C   : #$zonec ".mpersinfo($zonec)."\n" if $zonec;
		print $Db::pr_fh "Bill-C   : #$billc ".mpersinfo($billc)."\n" if $billc;
		print $Db::pr_fh "Whois    : $whoisserver\n" if $whoisserver;
	} "select timestamp,domain, dienst,nic,techc,zonec,billc,whoisserver from domreg where id=$id"
		or problem "Registrar '$id' unbekannt";
}
1;
