=head1 domain_defaulthandle_denic

Generieren eines Default-DENIC-Handles.

=cut

use utf8;
use strict;
use warnings; no warnings "redefine";
use Cf qw($DENIC_ID);

sub domain_defaulthandle_denic($) {
	my($pers) = @_; 
	my $nic = "DENIC-$DENIC_ID-$pers";
	$nic;
}
1;
