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

use Loader qw(
	add_domreg
	edit_domreg
	line_in list_domregs log_view
	valid_domreg valid_nic
  );
use Dbase::Help qw(DoFn qquote);
use Fehler qw(report_fehler);

sub edit_domregs ($;$) {
	my ($nic,$kn) = @_;

	return unless valid_nic($nic,1);

	while(1) {
		my $act = line_in "$kn Domain-Defaults >",4; return undef if $act eq "";
		if($act eq "?") {
			print <<'END';
l       auflisten
a       hinzufügen
NAME    Eintrag editieren

END
			next;
		}
		if($act eq "l") { list_domregs($nic,$kn); next; }
		if($act eq "H") { log_view($kn,"domreg"); next; }
		if($act eq "a") { 
			my $ret = add_domreg($nic,$kn);
			next;
		}
		if($act =~ /^\d+$/ and valid_domreg($act)) {
			edit_domreg($act,$kn);
			next;
		}
		if($act =~ /^\S\S+$/) { 
			my $id;
			if(defined($id=DoFn("select id from domreg where domain=${\qquote $act}"))) {
				edit_domreg($id,$kn);
			} else {
				print STDERR "Eintrag '$act' unbekannt.\n";
			}
			next;
		}
		print "Aktion '$act' kenne ich nicht.\n";
		next; fehler: report_fehler(4);
	}
	undef;
}

1;
