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

sub delete_registrar($;$$) {
	my($id,$kn,$flag) = @_;
	$flag=0 if not defined $flag;

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

	my($nic) = DoFn("select nic from registrar where id=$id");
	log_update("registrar","nic",$nic,undef, "id","-",undef,$id);
	Do("delete from registrar where id=$id");
	
	return undef;
}
1;
