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

sub delete_domreg($) {
	my($id) = @_;
	my($name,$nic) = DoFn("select domain,nic from domreg where id=$id");

	log_update("domreg","nic",$nic,undef,"id","name","-",undef,$id,$name);
	Do("delete from domreg where id=$id");
	1;
}
1;
