httemplate/misc/delete-domain_record.cgi

   1 <%
   2
   3 #untaint recnum
   4 my($query) = $cgi->keywords;
   5 $query =~ /^(\d+)$/ || die "Illegal recnum";
   6 my $recnum = $1;
   7
   8 my $domain_record = qsearchs('domain_record',{'recnum'=>$recnum});
   9
  10 my $error = $domain_record->delete;
  11 eidiot($error) if $error;
  12
  13 print $cgi->redirect($p. "view/svc_domain.cgi?". $domain_record->svcnum);
  14
  15 %>