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

use Loader qw(line_in list_fnbatches delete_fnbatches valid_fnbatches
	edit_fnbatch log_view);
use Fehler qw(report_fehler);

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

	domq: while(1) {
		my $act = line_in "$kn Fnbatch >",4; last if $act eq "";
		if($act eq "?") {
			print <<'END';
l   auflisten
d   beendete Jobs löschen
##  Batchjob editieren

del alle löschen
END

			next;
		}
		if($act eq "l") { list_fnbatches(0,$kn); next; }
		if($act =~ /^\d+$/) {
			edit_fnbatch($act,$kn);
			next;
		}
		if($act eq "d") { delete_fnbatches(0,$kn); next; }
		if($act eq "H") { log_view($kn,"fnbatch"); next; }
		if($act eq "!") { valid_fnbatches(4|8,$kn); next; }
		if($act eq "!!") { valid_fnbatches(2|4|8,$kn); next; }
		print "Aktion '$act' unbekannt.\n";
		next; fehler: report_fehler(4);
	}
}

1;
