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

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

	my($id,$dname,$kt) = DoFn("select kunde,domain,ktarif from domainkunde where id = $idi");

	domain_check_mx( $dname, 'löschen', 'gelöscht' ) or return;

	if($id > 0) {
		log_update("domainkunde","kunde",$id,undef,"id","domain","-",undef,$idi,$dname);
		log_update("kunde","id",$id,undef,"domain","-",undef,$dname);
		Do("update kunde set geaendert = UNIX_TIMESTAMP(NOW()) where id = $id");
	} else {
		log_update("domainkunde","id",$idi,undef,"domain","-",undef,$dname);
	}

	if($kt) {
		log_update("tarifkunde","id",$kt,undef,"ende");
		Do("update tarifkunde set ende=UNIX_TIMESTAMP(NOW()) where id = $kt and ( ende is NULL or ende > UNIX_TIMESTAMP(NOW()) )");
	}

	Do("delete from domainkunde where id = $idi");
	1;
}

1;
