=head1 ipnr_records

Generieren eines inetnum-Objekts

Argumente:

=over 4

=item *

IP-Adressbereich, für die das Objekt generiert werden soll

=back

=cut

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

use CGI;
use Dbase::Help qw(DoFn DoTime);
use Dbase::Globals qw(get_descr);
use Dbase::IP;
use Loader qw(ipnr_record_ripe);
use Cf qw($MAILDOM);
use Fehler qw(problem);

my $seq = 0;

sub ipnr_records($) {
	my($ipnr) = @_;
	my ($kunde,$ipadr,$bits,$name,$iptick, $reg,$owner,$adminc,$techc,$stat) = DoFn("select kunde,ip6,bits,name,ticket, nic,owner,adminc,techc, status from ipkunde where id = $ipnr");
	$ipadr = Dbase::IP->new_db($ipadr,$bits);
	
	my $x = "x";

	$reg = get_descr("nic",$reg);
	$reg = 'ripe' unless defined $reg; # Workaround, s. RT#441296

	my $res = undef;

	$res = ipnr_record_ripe($ipnr) or return if $reg eq "ripe";

	return problem "Für den Registrar '$reg' kann ich das nicht automatisch.\n"
		unless defined $res;

	my $time = DoTime;

	my $msgid = sprintf("ipnr-%d-%x-%x-%x", $ipnr,$time,$$,++$seq);
	$res = <<END . $res;
Message-ID: <$msgid\@$MAILDOM>
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit

END
	$res;
}
1;
