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

# 2002-01-09 smurf Euro

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

	DoSelect {
		my($timestamp,$nic,$flags,$email,$keyid)  = @_;
		print $Db::pr_fh "ID        : $id\n";
		print $Db::pr_fh "Timestamp : ".isotime($timestamp)."\n";
		print $Db::pr_fh "Registrar : #$nic:".get_descr("nic",$nic)."\n";
		print $Db::pr_fh "Flags     : ".flag_names($flags,"reg_flag")."\n";
		print $Db::pr_fh "Mailadr.  : $email\n" if defined $email;
		print $Db::pr_fh "PGP-Key   : $keyid\n" if defined $keyid;
	} "select timestamp,nic,flags,email,keyid from registrar where id=$id"
		or problem "Eintrag '$id' unbekannt";
}
1;
