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 %
  16