mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
49 lines
1.4 KiB
Perl
Executable File
49 lines
1.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# forward_form.cgi
|
|
# A form for creating a new forard zone
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
our (%access, %text, %config);
|
|
|
|
require './bind8-lib.pl';
|
|
$access{'forward'} || &error($text{'fcreate_ecannot'});
|
|
$access{'ro'} && &error($text{'master_ero'});
|
|
&ui_print_header(undef, $text{'fcreate_title'}, "",
|
|
undef, undef, undef, undef, &restart_links());
|
|
|
|
# Form start
|
|
print &ui_form_start("create_forward.cgi", "post");
|
|
print &ui_table_start($text{'fcreate_opts'}, "width=100%", 4);
|
|
|
|
# Forward or reverse?
|
|
print &ui_table_row($text{'fcreate_type'},
|
|
&ui_radio("rev", 0, [ [ 0, $text{'fcreate_fwd'} ],
|
|
[ 1, $text{'fcreate_rev'} ] ]), 3);
|
|
|
|
# Domain name
|
|
print &ui_table_row($text{'fcreate_dom'},
|
|
&ui_textbox("zone", undef, 60), 3);
|
|
|
|
# In view
|
|
my $conf = &get_config();
|
|
my @views = &find("view", $conf);
|
|
if (@views) {
|
|
my ($defview) = grep { lc($_->{'values'}->[0]) eq
|
|
lc($config{'default_view'}) } @views;
|
|
print &ui_table_row($text{'mcreate_view'},
|
|
&ui_select("view", $defview ? $defview->{'index'} : undef,
|
|
[ map { [ $_->{'index'}, $_->{'values'}->[0] ] }
|
|
grep { &can_edit_view($_) } @views ]), 3);
|
|
}
|
|
|
|
# Master servers
|
|
print &ui_table_row($text{'fcreate_masters'},
|
|
&ui_textarea("masters", undef, 4, 30));
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef, $text{'create'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|