httemplate/misc/delete-domain_record.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

<%

#untaint recnum
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal recnum";
my $recnum = $1;

my $domain_record = qsearchs('domain_record',{'recnum'=>$recnum});

my $error = $domain_record->delete;
eidiot($error) if $error;

print $cgi->redirect($p. "view/svc_domain.cgi?". $domain_record->svcnum);

%>