#!/usr/local/bin/perl # conf_forwarding.cgi # Display global forwarding and transfer options require './bind8-lib.pl'; $access{'defaults'} || &error($text{'forwarding_ecannot'}); &ui_print_header(undef, $text{'forwarding_title'}, ""); $conf = &get_config(); $options = &find("options", $conf); $mems = $options->{'members'}; print "
\n"; print "\n"; print "\n"; print "
$text{'forwarding_header'}
\n"; print "\n"; print &forwarders_input($text{'forwarding_fwders'}, 'forwarders', $mems); print "\n"; print "\n"; print &choice_input($text{'forwarding_fwd'}, 'forward', $mems, $text{'yes'}, 'first', $text{'no'}, 'only', $text{'default'}, undef); print "\n"; print "\n"; print &opt_input($text{'forwarding_max'}, "max-transfer-time-in", $mems, $text{'default'}, 4, $text{'forwarding_minutes'}); print "\n"; print "\n"; print &choice_input($text{'forwarding_format'}, 'transfer-format', $mems, $text{'forwarding_one'}, 'one-answer', $text{'forwarding_many'}, 'many-answers', $text{'default'}, undef); print "\n"; print "\n"; print &opt_input($text{'forwarding_in'}, "transfers-in", $mems, $text{'default'}, 4); print "\n"; print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});