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

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

	my $sub = line_in "Name: "; return undef if $sub eq "";
	my $q;
	($sub eq "-" or $sub eq "*") and return problem "Domain '$sub' geht nicht.\n";
	
	if(DoFn("select id from domreg where domain=${\qquote $sub}")) {
		print "Die Domain namens '$sub' ist bereits eingetragen.\n";
		return undef;
	}

	log_update("domreg","name",$q,undef,"*");
	my $id = Do("insert into domreg set domain=${\qquote $sub},
		dienst=${\find_dienst 'general'}, nic=".(($nic ne "-") ? $nic : "NULL"));
	edit_domreg($id,$kn);
}
1;
