use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_view list_nicdata edit_registrare edit_domregs
		set_nicdata_handle_re delete_nicdata valid_nic strip_kn
		warn_arbeit);
use Dbase::Globals qw(get_descr);
use Fehler qw(report_fehler problem);

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

	return unless valid_nic($nic,1);

	$kn = strip_kn($kn)."nic_".(($nic ne "-") ? get_descr("nic",$nic) : "?");
	my $work = warn_arbeit("nic",$nic,"*",$kn);

	nic: while(1) {
		my $act = line_in "$kn >",4; last if $act eq "";
		
		if($act eq "?") {
			print <<'END';
l   auflisten

d   domainspezifische Parameter
m   Mailadressen, GPG-Keys, etc.
h   Handle-Validierung

del löschen

END
			next;
		}
		if($act eq "H") { log_view($kn,"nic","nic",$nic); next; }
		if($act eq "l") { list_nicdata($nic,$kn); next; }
		if($act eq "m") { edit_registrare($nic,$kn); next; }
		if($act eq "d") { edit_domregs($nic,$kn); next; }
		if($act eq "h") { set_nicdata_handle_re($nic,$kn); next; }
		if($act eq "del") { return unless delete_nicdata($nic,$kn); next; }
		print "Aktion '$act' kenne ich nicht.\n";
		next; fehler: report_fehler(4);
	}
	$nic;
}
1;
