Changeset 934 for branches/secondaryzones/dns.cgi
- Timestamp:
- 08/28/25 15:55:24 (9 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/secondaryzones/dns.cgi
r933 r934 726 726 fill_loclist($curgroup, $webvar{defloc}); 727 727 } 728 729 } elsif ($webvar{page} eq 'delsecondary') { 730 731 changepage(page => "secondaryzones", errmsg => "You are not permitted to delete secondary zones") 732 unless ($permissions{admin} || $permissions{domain_delete}); 733 734 # security check - does the user have permission to access this entity? 735 if (!check_scope(id => $webvar{id}, type => 'secondaryzone')) { 736 changepage(page => "secondaryzones", errmsg => "You do not have permission to delete the requested secondary zone"); 737 } 738 739 $page->param(id => $webvar{id}); 740 741 # first pass = confirm y/n (sorta) 742 if (!defined($webvar{del})) { 743 744 $page->param(del_getconf => 1); 745 $page->param(secondaryzone => $dnsdb->secondaryName($webvar{id})); 746 747 } elsif ($webvar{del} eq 'ok') { 748 my $pargroup = $dnsdb->parentID(id => $webvar{id}, type => 'secondaryzone'); 749 my $zone = $dnsdb->secondaryName($webvar{id}); 750 my ($code,$msg) = $dnsdb->delZone($webvar{id}, 'n', 'y'); 751 if ($code eq 'OK') { 752 changepage(page => "secondaryzones", resultmsg => $msg); 753 } else { 754 changepage(page => "secondaryzones", errmsg => $msg); 755 } 756 757 } else { 758 # cancelled. whee! 759 changepage(page => "secondaryzones"); 760 } 761 728 762 729 763 } elsif ($webvar{page} eq 'reclist') {
Note:
See TracChangeset
for help on using the changeset viewer.