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

sub list_queues(;$) {
	my($kn) = @_;
	line_printer;

	my $hdr;
	my $res = DoSelect {
		my($name,$mail,$flags,$defprio,$defdue) = @_;
		$mail = '??' unless defined $mail;
		print $Db::pr_fh <<END unless $hdr++;
Name            Mailadr                   Prio Df Flags
END
		goto out unless
		printf $Db::pr_fh "%-15s %-26s%4d %2d %s\n",$name,$mail,$defprio,$defdue,scalar flag_names($flags,"rt_queue");
	} "select name,email,flags,defprio,defdue from queue"
		or print "(leer)\n";
out:
	$res;
}
1;
