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

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

	DoSelect {
		my($timestamp,$id,$name,$art,$kunde,$pgp,$email,$flg) = @_;
		print $Db::pr_fh "ID       : $id\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Name     : $name\n";
		print $Db::pr_fh "Kunde    : #$kunde:".name_kunde($kunde)."\n" if $kunde;
		print $Db::pr_fh "Art      : ".get_descr("reseller",$art)."\n" if defined $art;
		print $Db::pr_fh "Mailadr. : $email\n" if defined $email;
		print $Db::pr_fh "Flags    : ".flag_names($flg,"rs_flag")."\n";
		print $Db::pr_fh "PGP-Key  : $pgp\n" if defined $pgp;

	} "select timestamp,id, name,art,kunde,keyid,email,flags from reseller where id = $id"
			or problem "Reseller '$id' unbekannt";
}

1;
