#!/usr/local/bin/perl # edit_slave.cgi # Display options for an existing slave or stub zone require './dns-lib.pl'; &ReadParse(); $conf = &get_config(); @v = @{$conf->[$in{'index'}]->{'values'}}; %access = &get_module_acl(); &can_edit_zone(\%access, $v[0]) || &error("You are not allowed to edit this zone"); &header("Edit Slave Zone", ""); print "