use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update set_queue_mail edit_queue);
use Fehler qw(problem);
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content);

sub add_queue(;$) {
	my($kn) = @_;

	content ( my $sub = line_in "Name: " ) or return undef;
	($sub eq "-" or $sub eq "*") and return problem "Queuename '$sub' geht nicht.\n";
	# TODO: Queue-Index von Stringtabelle entkoppeln

	if(DoFn("select id from queue where name=${\qquote lc $sub}")) {
		print "Eine Queue namens '$sub' gibt es bereits.\n";
		return undef;
	}

	content ( my $mail = set_queue_mail(undef,$kn) ) or return undef;
	
	my $q = Do("insert into queue set name=${\qquote lc $sub}, email=${\qquote $mail}");
	log_update("queue","id",$q,undef,"name","*",undef,$sub);
	edit_queue($q,$kn);
}
1;
