use utf8;
use warnings; no warnings "redefine";
use strict;

use Dbase::Globals qw(get_descr kpersinfo);
use Dbase::Help qw(DoSelect isotime);
use Fehler qw(problem);
use Loader qw(line_printer ticket_get_header);

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

	DoSelect {
		my($timestamp,$handle,$username,$passwort,$status,$ticket) = @_;
		print $Db::pr_fh "ID       : $pers/$nic\n";
		print $Db::pr_fh "Person   : #$pers:".kpersinfo($pers)."\n";
		print $Db::pr_fh "NIC      : #$nic:".get_descr("nic",$nic)."\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Handle   : $handle\n" if defined $handle;
		print $Db::pr_fh "Status   : $status:".get_descr("handlestatus",$status)."\n";
		print $Db::pr_fh "Username : $username\n" if defined($username);
		print $Db::pr_fh "Passwort : $passwort\n" if defined($passwort);
		print $Db::pr_fh "Ticket K : ".ticket_get_header($ticket,32768|1) if defined $ticket;
	} "select timestamp, handle, username,passwort, status,ticket from nic where person=$pers and nic=$nic"
		or return problem "NIC/Typ '$pers,$nic' nicht gefunden";
	1;
}

1;
