Ignore:
Timestamp:
08/28/25 15:55:24 (9 days ago)
Author:
Kris Deugau
Message:

/branches/secondaryzones

Add secondary zone delete to web UI and extend DNSDB::delZone() to handle
initial basic form for secondary zones. See #86.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/secondaryzones/dns.cgi

    r933 r934  
    726726    fill_loclist($curgroup, $webvar{defloc});
    727727  }
     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
    728762
    729763} elsif ($webvar{page} eq 'reclist') {
Note: See TracChangeset for help on using the changeset viewer.