[!
use strict;
use PVE::I18N;
use PVE::HTMLForm;
use PVE::HTMLGrid;
use PVE::HTMLUtils;
use PVE::ConfigServer;
!]
[-
use strict;
my $conn = PVE::ConfigClient::connect ($udat{auth_cookie});
my $form = PVE::HTMLForm->new (\%fdat);
my $grid = PVE::HTMLGrid->new ('fw1', 'fw2', 'fw3:right', 'fw4');
my $out = '';
if ($form->action eq 'save') {
eval {
check_write_mode ($udat{AM});
$conn->set_config_data ('hostname', $fdat{hostname});
my $resolv = $conn->get_config_data ('resolvconf')->result;
$resolv->{search} = $fdat{domain};
$resolv->{nameservers} = [];
@{$resolv->{nameservers}}[0] = $fdat{dns1};
@{$resolv->{nameservers}}[1] = $fdat{dns2};
@{$resolv->{nameservers}}[2] = $fdat{dns3};
$conn->set_config_data ('resolvconf', $resolv);
};
$udat{popup_error} = $@ if $@;
}
#ALWAYS RELOAD
my $hostname = $conn->get_config_data ('hostname')->result;
my $resolv = $conn->get_config_data ('resolvconf')->result;
$out .= $form->create_header();
$grid->add_row (__('Hostname') . ':',
$form->create_element("hostname", "text", $hostname),
__('First DNS Server') . ':',
$form->create_element("dns1", "ip", @{$resolv->{nameservers}}[0] || '0.0.0.0'));
$grid->add_row (__('Domain') . ':',
$form->create_element("domain", "text", $resolv->{search}),
__('Second DNS Server') . ':',
$form->create_element("dns2", "ip", @{$resolv->{nameservers}}[1] || '0.0.0.0'));
$grid->add_row (undef, undef,
__('Third DNS Server') . ':',
$form->create_element("dns3", "ip", @{$resolv->{nameservers}}[2] || '0.0.0.0'));
my $html = $grid->html();
$html .= $form->create_cmdbutton ('save');
$out .= PVE::HTMLUtils::create_statusframe (undef, __("DNS settings"), undef, $html);
$out .= $form->create_footer();
print OUT $out;
-]