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

sub delete_nicdata($;$$) {
	my($id,$kn,$flag) = @_;

	return $id if not $flag&1 and line_in("Erst das geheime Paßwort: ",1) ne "geheim";

	log_update("nic","id",$id,undef,"-");

	Do("delete from domreg where nic=$id");
	Do("delete from registrar where nic=$id");
	Do("delete from nicdata where id=$id");
	
	return undef;
}
1;
