use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(get_descr);
use Loader qw(log_update select_descr);

sub set_domain_tsig($;$) {
	my ( $idi, $kn ) = @_;

	defined( my $tsig = select_descr tsig => 4|1024, '', 'TSIG-Key', '!hide' )
	  or return;

	print <<_ if $tsig eq '-';

ACHTUNG: Du möchtest auch das entsprechende .jnl File löschen.
         Dabei solltest du dir von Team Admin helfen lassen.
         Öffne hierzu bitte ein entsprechendes (Followup-)Ticket.

_

	log_update domainkunde => id => $idi, undef, 'tsig', undef,
		get_descr("tsig",DoFn("select tsig from domainkunde WHERE id=$idi"),1);

	$tsig = 'NULL' if $tsig eq '-';
	Do "UPDATE domainkunde SET tsig=$tsig WHERE id=$idi";
	$tsig;
}

1;
