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

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

	DoSelect {
	    my($timestamp,$name,$mail,$flags,$prio,$due) = @_;
		my $areas = DoFn("select count(*) from queue_areas where queue = $id");
		print $Db::pr_fh "ID       : $id\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Name     : $name\n" if defined $name;
		print $Db::pr_fh "Mailadr. : $mail\n" if defined $mail;
		print $Db::pr_fh "Flags    : ".flag_names($flags,"rt_queue")."\n";
		print $Db::pr_fh "init.Prio: $prio\n" if defined $prio;
		print $Db::pr_fh "Termin   : nach $due Tag".(($due==1)?"":"en")."\n" if $due;
		print $Db::pr_fh "Areas    : $areas\n" if $areas;
	} "select timestamp,name,email,flags,defprio,defdue from queue where id = $id"
		or problem "Queue '$id' unbekannt";
}
1;
