#!/usr/local/bin/perl # slave_form.cgi # A form for creating a new slave or stub zone require './bind8-lib.pl'; $type = ($0 =~ /slave_form/); $access{'slave'} || &error($type ? $text{'screate_ecannot1'} : $text{'screate_ecannot2'}); &ui_print_header(undef, $type ? $text{'screate_title1'} : $text{'screate_title2'}, ""); print "
\n"; print "\n"; print "\n"; print "\n"; print "
",$type ? $text{'screate_header1'} : $text{'screate_header2'},"
\n"; print "\n"; print "\n"; print "\n"; print "\n"; $conf = &get_config(); @views = &find("view", $conf); if (@views) { print "\n"; print "\n"; } print "\n"; print ""; print "\n"; # Create on slave servers? @servers = grep { $_->{'sec'} } &list_slave_servers(); if (@servers && $access{'remote'}) { print "\n"; print "\n"; } print "
$text{'screate_type'}\n"; print "$text{'screate_fwd'}\n"; print "  \n"; print "$text{'screate_rev'}
$text{'screate_dom'}
$text{'mcreate_view'}
$text{'slave_file'} \n"; print " $text{'slave_none'}\n"; print " $text{'slave_auto'}\n"; print "\n"; print "",&file_chooser_button("file"),"
$text{'slave_masters'} \n"; print "$text{'slave_masterport'} \n"; print " $text{'default'}\n"; print " $text{'slave_master_port'}\n"; print "
$text{'master_onslave'}",&ui_yesno_radio("onslave", 1),"
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});