=head1 domain_defaulthandles

Generieren einen Handle für diese Person, wenn sinnvoll.

Argumente:

=over 4

=item *

Person, für die der Handle generiert werden soll

=item *

Registrar

=back

=cut

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

use CGI;
use Loader qw(select_descr domain_defaulthandle_denic);
use Dbase::Globals qw(get_descr);
use Fehler qw(problem);

sub domain_defaulthandles($;$) {
	my($pers,$reg) = @_;
	my $tick;
	my $domtick;
	    
	$reg = select_descr("nic",1,"Registrar: ","Registrar","!hide")
		unless defined $reg;
	return undef unless defined $reg;

	my $regname = get_descr("nic",$reg);

	use Loader qw(domain_defaulthandle_denic);

	my $res;

	$res = domain_defaulthandle_denic($pers) if $regname eq "denic" or $regname eq "denic-idn";
	# return problem "Fuer diesen Registrar kann ich das nicht automatisch.\n" unless $res;

	$res;
}

1;
